2003-01-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Tue, 14 Jan 2003 18:31:50 +0000 (18:31 +0000)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Tue, 14 Jan 2003 18:31:50 +0000 (18:31 +0000)
* gnus-audio.el (gnus-audio-au-player): Use executable-find.

2003-01-13  Jhair Tocancipa Triana <jhair_tocancipa@@gmx.net>

* gnus-audio.el (gnus-audio-au-player, gnus-audio-wav-player): Use
  /usr/bin/play as default player.
  (gnus-audio-play): Added ARG-DESCRIPTOR to prompt for a file to play.

lisp/ChangeLog
lisp/gnus-audio.el

index f0aada3..18bf11f 100644 (file)
@@ -1,3 +1,13 @@
+2003-01-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-audio.el (gnus-audio-au-player): Use executable-find. 
+
+2003-01-13  Jhair Tocancipa Triana <jhair_tocancipa@@gmx.net>
+
+       * gnus-audio.el (gnus-audio-au-player, gnus-audio-wav-player): Use
+         /usr/bin/play as default player. 
+         (gnus-audio-play): Added ARG-DESCRIPTOR to prompt for a file to play.
+
 2003-01-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
index 8906745..af10d58 100644 (file)
   :type '(choice directory (const nil))
   :group 'gnus-audio)
 
-(defcustom gnus-audio-au-player "/usr/bin/showaudio"
+(defcustom gnus-audio-au-player (executable-find "play")
   "Executable program for playing sun AU format sound files."
   :group 'gnus-audio
   :type 'string)
 
-(defcustom gnus-audio-wav-player "/usr/local/bin/play"
+(defcustom gnus-audio-wav-player (executable-find "play")
   "Executable program for playing WAV files."
   :group 'gnus-audio
   :type 'string)
@@ -93,7 +93,7 @@
 ;;;###autoload
 (defun gnus-audio-play (file)
   "Play a sound FILE through the speaker."
-  (interactive)
+  (interactive "fSound file name: ")
   (let ((sound-file (if (file-exists-p file)
                        file
                      (expand-file-name file gnus-audio-directory))))