;ELC ;;; compiled by jwz@thalidomide on Tue Jan 4 20:15:01 1994 ;;; from file /th/jwz/emacs19/lisp/gnus/gnus-describe.el ;;; emacs version 19.9 Lucid (beta12). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "À ÂÃ#ˆÀ ÄÅ#ˆÀÂÃ#‡" [define-key gnus-group-mode-map "i" gnus-group-describe "I" gnus-group-describe-all gnus-summary-mode-map] 4) (fset 'gnus-group-describe #[(&optional group) "¬…Á ª‹<«‡Âà ÅÆ$¬ƒÈ!«›Š qˆdeÊ\\V«‰ËedÌZ{!ª„ËÍ\")‡ËÎ\"‡" [group gnus-group-group-name completing-read "Newsgroup: " gnus-newsrc-assoc nil require-match gnus-newsgroup-name nntp-request-xgtitle nntp-server-buffer 4 message 5 "No description for %s." "cannot find description for %s."] 5 "\ Describe current newsgroup. If optional argument GROUP is non-nil ask for a newsgroup, otherwise search around point for a newsgroup. If no newsgroup found take current newsgroup." "P"]) (fset 'gnus-group-describe-all #[nil "ÀÁÂ!!ˆÃ ˆÄÅ!«…Æ!ˆeb‡" [switch-to-buffer get-buffer-create " *GNUS newsgroup descriptions*" erase-buffer nntp-request-xgtitle "*" insert-buffer-substring nntp-server-buffer] 3 "\ Describe all newsgroups." nil]) (fset 'nntp-request-xgtitle #[(group) "ÀÁ\n\"ˆÃ Ä=­‚Å ‡" [nntp/command "XGTITLE" group nntp/response 282 nntp/wait-for-text] 3 "\ Get description of a group via XGTITLE NNRP-command."])