;ELC   
;;; Compiled by amu@daemon on Thu Jan 11 15:02:56 2001
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-audio.el
;;; in Emacs version 20.7.2
;;; with bytecomp version 2.56
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-audio.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\303\304\305\306\307\310&\207" [:group require nnheader custom-declare-group gnus-audio nil "Playing sound in Gnus." gnus-visual multimedia] 8)
#@69 Non-nil means try to play sounds without using an external program.
(defvar gnus-audio-inline-sound (byte-code "\300\301!\203 \301 \206 \300\302!\207" [fboundp device-sound-enabled-p play-sound] 2) (#$ . 802))
#@43 The directory containing the Sound Files.
(custom-declare-variable 'gnus-audio-directory '(nnheader-find-etc-directory "sounds") '(#$ . 1020) :type '(choice directory (const nil)) :group 'gnus-audio)
#@59 Executable program for playing sun AU format sound files.
(custom-declare-variable 'gnus-audio-au-player '"/usr/bin/showaudio" '(#$ . 1226) :group 'gnus-audio :type 'string)
#@43 Executable program for playing WAV files.
(custom-declare-variable 'gnus-audio-wav-player '"/usr/local/bin/play" '(#$ . 1406) :group 'gnus-audio :type 'string)
#@40 Play a sound FILE through the speaker.
(defalias 'gnus-audio-play #[(file) "\306!\203\n \202 \307	\"\306\n!\205A \203  \310\311\312\217\206A \313\n!\314\232\2032 \315\f\n\316\310\n%\202A \313\n!\317\232\205A \315\n\316\310\n%)\207" [file gnus-audio-directory sound-file gnus-audio-inline-sound gnus-audio-wav-player gnus-audio-au-player file-exists-p expand-file-name nil (byte-code "\301!\210\302\207" [sound-file play-sound-file t] 2) ((error)) file-name-extension "wav" call-process 0 "au"] 6 (#$ . 1572) nil])
#@39 Name of the Gnus startup jingle file.
(defvar gnus-startup-jingle "Tuxedomoon.Jingle4.au" (#$ . 2100))
#@56 Play the Gnus startup jingle, unless that's inhibited.
(defalias 'gnus-play-jingle #[nil "\301!\207" [gnus-startup-jingle gnus-audio-play] 2 (#$ . 2209) nil])
(byte-code "\300\301!\210\302\303!\207" [provide gnus-audio run-hooks gnus-audio-load-hook] 2)