projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2006-04-30 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
[gnus]
/
lisp
/
gnus-audio.el
diff --git
a/lisp/gnus-audio.el
b/lisp/gnus-audio.el
index
af10d58
..
be10019
100644
(file)
--- a/
lisp/gnus-audio.el
+++ b/
lisp/gnus-audio.el
@@
-1,5
+1,7
@@
;;; gnus-audio.el --- Sound effects for Gnus
;;; gnus-audio.el --- Sound effects for Gnus
-;; Copyright (C) 1996, 2000 Free Software Foundation
+
+;; Copyright (C) 1996, 2000, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Steven L. Baur <steve@miranova.com>
;; Keywords: news, mail, multimedia
;; Author: Steven L. Baur <steve@miranova.com>
;; Keywords: news, mail, multimedia
@@
-18,8
+20,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-50,12
+52,12
@@
(defcustom gnus-audio-au-player (executable-find "play")
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
(defcustom gnus-audio-au-player (executable-find "play")
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
- :type '
string
)
+ :type '
(choice file (const nil))
)
(defcustom gnus-audio-wav-player (executable-find "play")
"Executable program for playing WAV files."
:group 'gnus-audio
(defcustom gnus-audio-wav-player (executable-find "play")
"Executable program for playing WAV files."
:group 'gnus-audio
- :type '
string
)
+ :type '
(choice file (const nil))
)
;;; The following isn't implemented yet. Wait for Millennium Gnus.
;;(defvar gnus-audio-effects-enabled t
;;; The following isn't implemented yet. Wait for Millennium Gnus.
;;(defvar gnus-audio-effects-enabled t
@@
-146,4
+148,5
@@
(run-hooks 'gnus-audio-load-hook)
(run-hooks 'gnus-audio-load-hook)
+;;; arch-tag: 6f129e78-3416-4fc9-973f-6cf5ac8d654b
;;; gnus-audio.el ends here
;;; gnus-audio.el ends here