;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:46 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus.el ;;; in Emacs version 20.4.1 ;;; 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.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (run-hooks 'gnus-load-hook) (byte-code "\304\305!\210\304\306!\210\307W\203\304\310!\210\304\311!\210\312\313\314\315 \316 \317&\210\312\320\314\321\n\322 \313&\210\312\323\314\324 \313%\210\312\325\314\326 \313%\210\312\327\314\330 \325%\210\312\331\314\332\n\333 \313&\210\312\334\314\335\n\336 \331&\210\312\337\314\340 \331%\210\312\341\314\342\n\343 \331&\210\312\344\314\345\n\346 \331&\210\312\347\314\350\n\351 \331&\210\312\352\314\353\n\354 \331 \355& \210\312\356\314\357\n\360 \331&\210\312\361\314\362\n\363 \313&\210\312\364\314\365\n\366 \361&\210\312\367\314\370\n\371 \361&\210\312\372\314\373\n\374 \361&\210\312\375\314\376\n\377 \361&\210\312\201@\314\201A\n\201B \361&\210\312\201C\314\201D\n\201E \361&\210\312\201F\314\201G\n\201H \361&\210\312\201I\314\201J\n\201K \361&\210\312\201L\314\201M\n\201N \355 \361& \210\312\201O\314\201P\n\201Q \361&\210\312\201R\314\201S\n\201T \201U \361& \210\312\201V\314\201W\n\201X \201Y \361& \210\312\201Z\314\201[\n\201\\ \201]&\210\312\201^\314\201_ \313%\210\312\201`\314\201a \201^%\210\312\201b\314\201c \201^%\210\312\201d\314\201e \201^%\210\312\201f\314\201g \201^%\210\312\201h\314\201i \201^%\210\312\201j\314\201k \201^ \201l&\210\312\201m\314\201n \201^%\210\312\355\314\201o \313 \201p&\210\312\201q\314\201r \313%\210\312\201l\314\201s \313%\210\312\201t\314\201u\n\201v \201l&\210\312\201w\314\201x \201l%\210\312\201y\314\201z \313%\210\312\201{\201|\201} \313%\210\312\201~\314\201 \313%\210\312\201\200\314\201\201\n\201\202 \313&\210\312\201\203\314\201\204 \313%\210\312\201\205\314\201\206\n\201\207 \313&\207" [emacs-major-version :group :link :prefix require mm-util custom 20 gnus-load message custom-declare-group gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." news mail gnus-charset "Group character set issues." (custom-manual "(gnus)Charsets") gnus-cache "Cache interface." gnus-start "Starting your favorite newsreader." gnus-start-server "Server options at startup." gnus-group "Group buffers." (custom-manual "(gnus)The Group Buffer") gnus-group-foreign "Foreign groups." (custom-manual "(gnus)Foreign Groups") gnus-group-new "Automatic subscription of new groups." gnus-group-levels "Group levels." (custom-manual "(gnus)Group Levels") gnus-group-select "Selecting a Group." (custom-manual "(gnus)Selecting a Group") gnus-group-listing "Showing slices of the group list." (custom-manual "(gnus)Listing Groups") gnus-group-visual "Sorting the group buffer." (custom-manual "(gnus)Group Buffer Format") gnus-visual gnus-group-various "Various group options." (custom-manual "(gnus)Scanning New Messages") gnus-summary "Summary buffers." (custom-manual "(gnus)The Summary Buffer") gnus-summary-exit "Leaving summary buffers." (custom-manual "(gnus)Exiting the Summary Buffer") gnus-summary-marks "Marks used in summary buffers." (custom-manual "(gnus)Marking Articles") gnus-thread "Ordering articles according to replies." (custom-manual "(gnus)Threading") gnus-summary-format "Formatting of the summary buffer." (custom-manual "(gnus)Summary Buffer Format") gnus-summary-choose "Choosing Articles." (custom-manual "(gnus)Choosing Articles") gnus-summary-maneuvering "Summary movement commands." (custom-manual "(gnus)Summary Maneuvering") gnus-summary-mail "Mail group commands." (custom-manual "(gnus)Mail Group Commands") gnus-summary-sort "Sorting the summary buffer." (custom-manual "(gnus)Sorting") gnus-summary-visual "Highlighting and menus in the summary buffer." (custom-manual "(gnus)Summary Highlighting") gnus-summary-various "Various summary buffer options." (custom-manual "(gnus)Various Summary Stuff") gnus-summary-pick "Pick mode in the summary buffer." (custom-manual "(gnus)Pick and Read") "gnus-pick-" gnus-summary-tree "Tree display of threads in the summary buffer." (custom-manual "(gnus)Tree Display") "gnus-tree-" gnus-extract-view "Viewing extracted files." (custom-manual "(gnus)Viewing Files") gnus-extract gnus-score "Score and kill file handling." gnus-score-kill "Kill files." gnus-score-adapt "Adaptive score files." gnus-score-default "Default values for score files." gnus-score-expire "Expiring score rules." gnus-score-decay "Decaying score rules." gnus-score-files "Score and kill file names." gnus-files gnus-score-various "Various scoring and killing options." "Options controling the visual fluff." faces gnus-agent "Offline support for Gnus." "Files used by Gnus." gnus-dribble-file "Auto save file." (custom-manual "(gnus)Auto Save") gnus-newsrc "Storing Gnus state." gnus-server "Options related to newsservers and other servers used by Gnus." gnus-message ((message custom-group)) "Composing replies and followups in Gnus." gnus-meta "Meta variables controling major portions of Gnus.\nIn general, modifying these variables does not take affect until Gnus\nis restarted, and sometimes reloaded." gnus-various "Other Gnus options." (custom-manual "(gnus)Various Various") gnus-mime "Variables for controlling the Gnus MIME interface." gnus-exit "Exiting gnus." (custom-manual "(gnus)Exiting Gnus")] 10) #@42 Version number for this version of Gnus. (defconst gnus-version-number "5.8.3" (#$ . 5819)) #@42 Version string for this version of Gnus. (defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 5917)) #@148 If non-nil, the startup message will not be displayed. This variable is used before `.gnus.el' is loaded, so it should be set in `.emacs' instead. (custom-declare-variable 'gnus-inhibit-startup-message 'nil '(#$ . 6041) :group 'gnus-start :type 'boolean) #@46 If non-nil, play the Gnus jingle at startup. (custom-declare-variable 'gnus-play-startup-jingle 'nil '(#$ . 6302) :group 'gnus-start :type 'boolean) (byte-code "\302\303!\204j\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\304\313\314\"\210\304\315\316\"\210\304\317\320\"\210\304\321\320\"\210\304\322\323\"\210\304\324\320\"\210\304\325\326\"\210\304\327\330\"\210\304\331\332\"\210\304\333\334\"\210\304\335\336\"\210\304\337\332\"\210\304\340\341\"\210\304\342\343\"\210\304\344\345\"\210\304\346\341\"\210\304\347\320\"\210\350\351\352\353#\210\350\354\355\356#\210\350\357\360\361#\210\350\362\363\364#\210\350\365\366\367#\210\350\370\371\372#\210\350\373\374\375#\210\350\376\377\201@#\210\350\201A\201B\201C#\210\350\201D\201E\201F#\210\350\201G\201H\201I#\210\350\201J\201K\201L#\210\350\201M\201N\201O#\210\350\201P\201Q\201R#\210\350\201S\201T\201U#\210\350\201V\201W\201X#\210\350\201Y\201Z\201[#\210\350\201\\\201]\201^#\210\350\201_\201`\201a#\210\350\201b\201c\201d#\210\350\201e\201f\201g#\210\350\201h\201i\201j#\210\350\201k\201l\201m#\210\350\201n\201o\201p#\210\350\201q\201r\201s#\210\350\201t\201u\201v#\210\350\201w\201x\201y#\210\350\201z\201{\201|#\210\350\201}\201~\201#\210\350\201\200\201\201\201\202#\210\350\201\203\201\204\201\205#\210\350\201\206\201\207\201\210#\210\350\201\211\201\212\201\213#\210\350\201\214\201\215\201\216#\210\350\201\217\201\220\201\221#\210\350\201\222\201\223\201\224#\210\201\225\300!\204\370\201\226\300 B\201\226\207" [gnus-buffers current-load-list featurep gnus-xmas defalias gnus-make-overlay make-overlay gnus-delete-overlay delete-overlay gnus-overlay-put overlay-put gnus-move-overlay move-overlay gnus-overlay-end overlay-end gnus-extent-detached-p ignore gnus-extent-start-open gnus-set-text-properties set-text-properties gnus-group-remove-excess-properties gnus-appt-select-lowest-window appt-select-lowest-window gnus-mail-strip-quoted-names mail-strip-quoted-names gnus-character-to-event identity gnus-add-text-properties add-text-properties gnus-put-text-property put-text-property gnus-mode-line-buffer-identification gnus-characterp numberp gnus-deactivate-mark deactivate-mark gnus-window-edges window-edges gnus-key-press-event-p gnus-decode-rfc1522 custom-declare-face gnus-group-news-1-face ((((class color) (background dark)) (:foreground "PaleTurquoise" :bold t)) (((class color) (background light)) (:foreground "ForestGreen" :bold t)) (t nil)) "Level 1 newsgroup face." gnus-group-news-1-empty-face ((((class color) (background dark)) (:foreground "PaleTurquoise")) (((class color) (background light)) (:foreground "ForestGreen")) (t nil)) "Level 1 empty newsgroup face." gnus-group-news-2-face ((((class color) (background dark)) (:foreground "turquoise" :bold t)) (((class color) (background light)) (:foreground "CadetBlue4" :bold t)) (t nil)) "Level 2 newsgroup face." gnus-group-news-2-empty-face ((((class color) (background dark)) (:foreground "turquoise")) (((class color) (background light)) (:foreground "CadetBlue4")) (t nil)) "Level 2 empty newsgroup face." gnus-group-news-3-face ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 3 newsgroup face." gnus-group-news-3-empty-face ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 3 empty newsgroup face." gnus-group-news-4-face ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 4 newsgroup face." gnus-group-news-4-empty-face ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 4 empty newsgroup face." gnus-group-news-5-face ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 5 newsgroup face." gnus-group-news-5-empty-face ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 5 empty newsgroup face." gnus-group-news-6-face ((((class color) (background dark)) (:bold t)) (((class color) (background light)) (:bold t)) (t nil)) "Level 6 newsgroup face." gnus-group-news-6-empty-face ((((class color) (background dark)) nil) (((class color) (background light)) nil) (t nil)) "Level 6 empty newsgroup face." gnus-group-news-low-face ((((class color) (background dark)) (:foreground "DarkTurquoise" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t nil)) "Low level newsgroup face." gnus-group-news-low-empty-face ((((class color) (background dark)) (:foreground "DarkTurquoise")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Low level empty newsgroup face." gnus-group-mail-1-face ((((class color) (background dark)) (:foreground "aquamarine1" :bold t)) (((class color) (background light)) (:foreground "DeepPink3" :bold t)) (t (:bold t))) "Level 1 mailgroup face." gnus-group-mail-1-empty-face ((((class color) (background dark)) (:foreground "aquamarine1")) (((class color) (background light)) (:foreground "DeepPink3")) (t (:italic t :bold t))) "Level 1 empty mailgroup face." gnus-group-mail-2-face ((((class color) (background dark)) (:foreground "aquamarine2" :bold t)) (((class color) (background light)) (:foreground "HotPink3" :bold t)) (t (:bold t))) "Level 2 mailgroup face." gnus-group-mail-2-empty-face ((((class color) (background dark)) (:foreground "aquamarine2")) (((class color) (background light)) (:foreground "HotPink3")) (t (:bold t))) "Level 2 empty mailgroup face." gnus-group-mail-3-face ((((class color) (background dark)) (:foreground "aquamarine3" :bold t)) (((class color) (background light)) (:foreground "magenta4" :bold t)) (t (:bold t))) "Level 3 mailgroup face." gnus-group-mail-3-empty-face ((((class color) (background dark)) (:foreground "aquamarine3")) (((class color) (background light)) (:foreground "magenta4")) (t nil)) "Level 3 empty mailgroup face." gnus-group-mail-low-face ((((class color) (background dark)) (:foreground "aquamarine4" :bold t)) (((class color) (background light)) (:foreground "DeepPink4" :bold t)) (t (:bold t))) "Low level mailgroup face." gnus-group-mail-low-empty-face ((((class color) (background dark)) (:foreground "aquamarine4")) (((class color) (background light)) (:foreground "DeepPink4")) (t (:bold t))) "Low level empty mailgroup face." gnus-summary-selected-face ((t (:underline t))) "Face used for selected articles." gnus-summary-cancelled-face ((((class color)) (:foreground "yellow" :background "black"))) "Face used for cancelled articles." gnus-summary-high-ticked-face ((((class color) (background dark)) (:foreground "pink" :bold t)) (((class color) (background light)) (:foreground "firebrick" :bold t)) (t (:bold t))) "Face used for high interest ticked articles." gnus-summary-low-ticked-face ((((class color) (background dark)) (:foreground "pink" :italic t)) (((class color) (background light)) (:foreground "firebrick" :italic t)) (t (:italic t))) "Face used for low interest ticked articles." gnus-summary-normal-ticked-face ((((class color) (background dark)) (:foreground "pink")) (((class color) (background light)) (:foreground "firebrick")) (t nil)) "Face used for normal interest ticked articles." gnus-summary-high-ancient-face ((((class color) (background dark)) (:foreground "SkyBlue" :bold t)) (((class color) (background light)) (:foreground "RoyalBlue" :bold t)) (t (:bold t))) "Face used for high interest ancient articles." gnus-summary-low-ancient-face ((((class color) (background dark)) (:foreground "SkyBlue" :italic t)) (((class color) (background light)) (:foreground "RoyalBlue" :italic t)) (t (:italic t))) "Face used for low interest ancient articles." gnus-summary-normal-ancient-face ((((class color) (background dark)) (:foreground "SkyBlue")) (((class color) (background light)) (:foreground "RoyalBlue")) (t nil)) "Face used for normal interest ancient articles." gnus-summary-high-unread-face ((t (:bold t))) "Face used for high interest unread articles." gnus-summary-low-unread-face ((t (:italic t))) "Face used for low interest unread articles." gnus-summary-normal-unread-face ((t nil)) "Face used for normal interest unread articles." gnus-summary-high-read-face ((((class color) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (background light)) (:foreground "DarkGreen" :bold t)) (t (:bold t))) "Face used for high interest read articles." gnus-summary-low-read-face ((((class color) (background dark)) (:foreground "PaleGreen" :italic t)) (((class color) (background light)) (:foreground "DarkGreen" :italic t)) (t (:italic t))) "Face used for low interest read articles." gnus-summary-normal-read-face ((((class color) (background dark)) (:foreground "PaleGreen")) (((class color) (background light)) (:foreground "DarkGreen")) (t nil)) "Face used for normal interest read articles." boundp nil] 4) #@67 Do the same as `get-buffer-create', but store the created buffer. (defalias 'gnus-get-buffer-create #[(name) "\302!\206\303! B\211@\207" [name gnus-buffers get-buffer get-buffer-create] 2 (#$ . 15288)]) #@53 Add the current buffer to the list of Gnus buffers. (defalias 'gnus-add-buffer #[nil "pB\211\207" [gnus-buffers] 2 (#$ . 15502)]) #@37 Return a list of live Gnus buffers. (defalias 'gnus-buffers #[nil "\203\302@!\204\211A\210\202 A\2033\302 A@!\203* \211A\210\202 \211AA\241\210\202)\207" [gnus-buffers buffers buffer-name] 2 (#$ . 15640)]) (byte-code "\302\300!\204\303\300 B\304\305\306\"\210\307\310\311\312#\207" [gnus-group-buffer current-load-list boundp "*Group*" autoload gnus-play-jingle "gnus-audio" custom-declare-face gnus-splash-face ((((class color) (background dark)) (:foreground "Brown")) (((class color) (background light)) (:foreground "Brown")) (t nil)) "Face of the splash screen."] 4) (defalias 'gnus-splash #[nil "\212\304\305!!\210\306\307 \210\n?\205\310 \210\311\312!\210 \205\313 *\207" [gnus-group-buffer buffer-read-only gnus-inhibit-startup-message gnus-play-startup-jingle switch-to-buffer gnus-get-buffer-create nil erase-buffer gnus-group-startup-message sit-for 0 gnus-play-jingle] 3]) #@47 Indent rigidly using only spaces and no tabs. (defalias 'gnus-indent-rigidly #[(start end arg) "\212\214 }\210\304\305 #\210eb\210\306\307\310\311#\205\"\312\313\311\211#\210\202+\207" [start end tab-width arg 8 indent-rigidly search-forward " " nil t replace-match " "] 4 (#$ . 16561)]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-simple-splash current-load-list boundp nil] 2) #@43 Insert startup message in current buffer. (defalias 'gnus-group-startup-message #[(&optional x y) "\306 \210\307\310\311\"c\210\312ed\313 \206\314Z\315]\316\245#\210eb\210\317y\210\320ed\"\321 \211 Z\322\315 \323\245\316_]\324\"c\210+\325ed\326\327$\210eb\210\330\fP\331\332\331!\207" [x pheight wheight rest gnus-version mode-line-buffer-identification erase-buffer format " %s\n _ ___ _ _\n _ ___ __ ___ __ _ ___\n __ _ ___ __ ___\n _ ___ _\n _ _ __ _\n ___ __ _\n __ _\n _ _ _\n _ _ _\n _ _ _\n __ ___\n _ _ _ _\n _ _\n _ _\n _ _\n _\n __\n\n" "" gnus-indent-rigidly window-width 46 0 2 1 count-lines window-height make-string 3 10 put-text-property face gnus-splash-face " " t set-buffer-modified-p gnus-simple-splash] 6 (#$ . 16971)]) (byte-code "\303\304\"\305\306 \"\203\305\307 \"\204\310 \210\202\311\n!\210)\312\313!\210\312\314!\210\312\315!\207" [this-command command gnus-group-buffer format "%s" string-match "gnus" "gnus-other-frame" gnus-splash gnus-get-buffer-create require custom gnus-util nnheader] 3) #@123 Directory variable that specifies the "home" directory. All other Gnus path variables are initialized from this variable. (custom-declare-variable 'gnus-home-directory '"~/" '(#$ . 18376) :group 'gnus-files :type 'directory) #@325 *Directory variable from which all other Gnus file variables are derived. Note that Gnus is mostly loaded when the `.gnus.el' file is read. This means that other directory variables that are initialized from this variable won't be set properly if you set this variable in `.gnus.el'. Set this variable in `.emacs' instead. (custom-declare-variable 'gnus-directory '(or (getenv "SAVEDIR") (nnheader-concat gnus-home-directory "News/")) '(#$ . -18608) :group 'gnus-files :type 'directory) #@42 *Default directory for all Gnus buffers. (custom-declare-variable 'gnus-default-directory 'nil '(#$ . -19102) :group 'gnus-files :type '(choice (const :tag "current" nil) directory)) #@222 Specify a default NNTP server. This variable should be defined in paths.el, and should never be set by the user. If you want to change servers, you should use `gnus-select-method'. See the documentation to that variable. (defvar gnus-default-nntp-server nil (#$ . 19292)) #@303 NNTP service name ("nntp" or 119). This is an obsolete variable, which is scarcely used. If you use an nntp server for your newsgroup and want to change the port number used to 899, you would say something along these lines: (setq gnus-select-method '(nntp "my.nntp.server" (nntp-port-number 899))) (defvar gnus-nntp-service "nntp" (#$ . 19571)) #@53 A file with only the name of the nntp server in it. (custom-declare-variable 'gnus-nntpserver-file '"/etc/nntpserver" '(#$ . 19926) :group 'gnus-files :group 'gnus-server :type 'file) (defalias 'gnus-getenv-nntpserver #[nil "\302\303!\206'\304!\205'\212\305\306!q\210\307!\210\310 \311\312 \"?\205\" \313p!\210*\207" [gnus-nntpserver-file name getenv "NNTPSERVER" file-readable-p gnus-get-buffer-create " *gnus nntp*" insert-file-contents buffer-string string-match "\\'[ \n]*$" kill-buffer] 3]) #@568 Default method for selecting a newsgroup. This variable should be a list, where the first element is how the news is to be fetched, the second is the address. For instance, if you want to get your news via NNTP from "flab.flab.edu", you could say: (setq gnus-select-method '(nntp "flab.flab.edu")) If you want to use your local spool, say: (setq gnus-select-method (list 'nnspool (system-name))) If you use this variable, you must set `gnus-nntp-server' to nil. There is a lot more to know about select methods and virtual servers - see the manual for details. (custom-declare-variable 'gnus-select-method '(condition-case nil (nconc (list 'nntp (or (condition-case nil (gnus-getenv-nntpserver) (error nil)) (when (and gnus-default-nntp-server (not (string= gnus-default-nntp-server ""))) gnus-default-nntp-server) "news")) (if (or (null gnus-nntp-service) (equal gnus-nntp-service "nntp")) nil (list gnus-nntp-service))) (error nil)) '(#$ . 20436) :group 'gnus-server :type 'gnus-select-method) #@236 *Method used for archiving messages you've sent. This should be a mail method. It's probably not a very effective to change this variable once you've run Gnus once. After doing that, you must edit this server from the server buffer. (custom-declare-variable 'gnus-message-archive-method '`(nnfolder "archive" (nnfolder-directory ,(nnheader-concat message-directory "archive")) (nnfolder-active-file ,(nnheader-concat message-directory "archive/active")) (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t)) '(#$ . -21445) :group 'gnus-server :group 'gnus-message :type 'gnus-select-method) #@841 *Name of the group in which to save the messages you've written. This can either be a string; a list of strings; or an alist of regexps/functions/forms to be evaluated to return a string (or a list of strings). The functions are called with the name of the current group (or nil) as a parameter. If you want to save your mail in one group and the news articles you write in another group, you could say something like: (setq gnus-message-archive-group '((if (message-news-p) "misc-news" "misc-mail"))) Normally the group names returned by this variable should be unprefixed -- which implicitly means "store on the archive server". However, you may wish to store the message on some other server. In that case, just return a fully prefixed name of the group -- "nnml+private:mail.misc", for instance. (custom-declare-variable 'gnus-message-archive-group 'nil '(#$ . -22048) :group 'gnus-message :type '(choice (const :tag "none" nil) function sexp string)) #@180 List of NNTP servers that the user can choose between interactively. To make Gnus query you for a server, you have to give `gnus' a non-numeric prefix - `C-u M-x gnus', in short. (custom-declare-variable 'gnus-secondary-servers 'nil '(#$ . 23051) :group 'gnus-server :type '(repeat string)) #@128 *The name of the host running the NNTP server. This variable is semi-obsolete. Use the `gnus-select-method' variable instead. (custom-declare-variable 'gnus-nntp-server 'nil '(#$ . -23349) :group 'gnus-server :type '(choice (const :tag "disable" nil) string)) #@304 A list of secondary methods that will be used for reading news. This is a list where each element is a complete select method (see `gnus-select-method'). If, for instance, you want to read your mail with the nnml backend, you could set this variable: (setq gnus-secondary-select-methods '((nnml ""))) (custom-declare-variable 'gnus-secondary-select-methods 'nil '(#$ . 23617) :group 'gnus-server :type '(repeat gnus-select-method)) #@125 Default default new newsgroups the first time Gnus is run. Should be set in paths.el, and shouldn't be touched by the user. (defvar gnus-backup-default-subscribed-newsgroups '("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus") (#$ . 24058)) #@211 Local domain name without a host name. The DOMAINNAME environment variable is used instead if it is defined. If the `system-name' function returns the full Internet name, there is no need to set this variable. (custom-declare-variable 'gnus-local-domain 'nil '(#$ . 24322) :group 'gnus-message :type '(choice (const :tag "default" nil) string)) #@138 String with a description of what organization (if any) the user belongs to. Obsolete variable; use `message-user-organization' instead. (defvar gnus-local-organization nil (#$ . 24674)) #@576 Preferred method for fetching an article by Message-ID. If you are reading news from the local spool (with nnspool), fetching articles by Message-ID is painfully slow. By setting this method to an nntp method, you might get acceptable results. The value of this variable must be a valid select method as discussed in the documentation of `gnus-select-method'. It can also be a list of select methods, as well as the special symbol `current', which means to use the current select method. If it is a list, Gnus will try all the methods in the list until it finds a match. (custom-declare-variable 'gnus-refer-article-method 'nil '(#$ . 24868) :group 'gnus-server :type '(choice (const :tag "default" nil) (const :tag "DejaNews" (nnweb "refer" (nnweb-type dejanews))) gnus-select-method (repeat :menu-tag "Try multiple" :tag "Multiple" :value (current (nnweb "refer" (nnweb-type dejanews))) (choice :tag "Method" (const current) (const :tag "DejaNews" (nnweb "refer" (nnweb-type dejanews))) gnus-select-method)))) #@973 *Directory where the group FAQs are stored. This will most commonly be on a remote machine, and the file will be fetched by ange-ftp. This variable can also be a list of directories. In that case, the first element in the list will be used by default. The others can be used when being prompted for a site. Note that Gnus uses an aol machine as the default directory. If this feels fundamentally unclean, just think of it as a way to finally get something of value back from them. If the default site is too slow, try one of these: North America: mirrors.aol.com /pub/rtfm/usenet ftp.seas.gwu.edu /pub/rtfm rtfm.mit.edu /pub/usenet Europe: ftp.uni-paderborn.de /pub/FAQ src.doc.ic.ac.uk /usenet/news-FAQS ftp.sunet.se /pub/usenet sunsite.auc.dk /pub/usenet Asia: nctuccca.edu.tw /USENET/FAQ hwarang.postech.ac.kr /pub/usenet ftp.hk.super.net /mirror/faqs (custom-declare-variable 'gnus-group-faq-directory ''("/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@sunsite.auc.dk:/pub/usenet/" "/ftp@sunsite.doc.ic.ac.uk:/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@nctuccca.edu.tw:/USENET/FAQ/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/") '(#$ . -25891) :group 'gnus-group-various :type '(choice directory (repeat directory))) #@213 *Non-nil means that cross referenced articles will be marked as read. If nil, ignore cross references. If t, mark articles as read in subscribed newsgroups. If neither t nor nil, mark as read in all newsgroups. (custom-declare-variable 'gnus-use-cross-reference 't '(#$ . -27438) :group 'gnus-server :type '(choice (const :tag "off" nil) (const :tag "subscribed" t) (sexp :format "all" :value always))) #@16 *Process mark. (custom-declare-variable 'gnus-process-mark '35 '(#$ . -27848) :group 'gnus-group-visual :group 'gnus-summary-marks :type 'character) #@85 *If non-nil, Gnus will supply backends with data needed for async article fetching. (custom-declare-variable 'gnus-asynchronous 'nil '(#$ . -28003) :group 'gnus-asynchronous :type 'boolean) #@183 *The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than this value, confirmation is required for selecting the newsgroup. (custom-declare-variable 'gnus-large-newsgroup '200 '(#$ . -28200) :group 'gnus-group-select :type 'integer) #@652 *Non-nil means that the default name of a file to save articles in is the group name. If it's nil, the directory form of the group name is used instead. If this variable is a list, and the list contains the element `not-score', long file names will not be used for score files; if it contains the element `not-save', long file names will not be used for saving; and if it contains the element `not-kill', long file names will not be used for kill files. Note that the default for this variable varies according to what system type you're using. On `usg-unix-v' and `xenix' this variable defaults to nil while on all other systems it defaults to t. (custom-declare-variable 'gnus-use-long-file-name '(not (memq system-type '(usg-unix-v xenix))) '(#$ . -28498) :group 'gnus-start :type 'boolean) #@76 *Name of the directory where kill files will be stored (default "~/News"). (custom-declare-variable 'gnus-kill-files-directory 'gnus-directory '(#$ . -29301) :group 'gnus-score-files :group 'gnus-score-kill :type 'directory) #@39 *If non-nil, save group scoring info. (custom-declare-variable 'gnus-save-score 'nil '(#$ . -29532) :group 'gnus-score-various :group 'gnus-start :type 'boolean) #@56 *If non-nil, allow undoing in Gnus group mode buffers. (custom-declare-variable 'gnus-use-undo 't '(#$ . -29700) :group 'gnus-meta :type 'boolean) #@240 *If non-nil, use some adaptive scoring scheme. If a list, then the values `word' and `line' are meaningful. The former will perform adaption on individual words in the subject header while `line' will perform adaption on several headers. (custom-declare-variable 'gnus-use-adaptive-scoring 'nil '(#$ . -29854) :group 'gnus-meta :group 'gnus-score-adapt :type '(set (const word) (const line))) #@205 *If nil, Gnus will ignore the article cache. If `passive', it will allow entering (and reading) articles explicitly entered into the cache. If anything else, use the cache to the full extent of the law. (custom-declare-variable 'gnus-use-cache ''passive '(#$ . -30255) :group 'gnus-meta :group 'gnus-cache :type '(choice (const :tag "off" nil) (const :tag "passive" passive) (const :tag "active" t))) #@44 *If non-nil, display a thread tree buffer. (custom-declare-variable 'gnus-use-trees 'nil '(#$ . -30663) :group 'gnus-meta :type 'boolean) #@37 *If non-nil, use GroupLens ratings. (custom-declare-variable 'gnus-use-grouplens 'nil '(#$ . -30807) :group 'gnus-meta :type 'boolean) #@235 *If non-nil, Gnus will keep read articles for later re-retrieval. If it is a number N, then Gnus will only keep the last N articles read. If it is neither nil nor a number, Gnus will keep all read articles. This is not a good idea. (custom-declare-variable 'gnus-keep-backlog 'nil '(#$ . -30949) :group 'gnus-meta :type '(choice (const :tag "off" nil) integer (sexp :format "all" :value t))) #@52 *If non-nil, Gnus will read NoCeM cancel messages. (custom-declare-variable 'gnus-use-nocem 'nil '(#$ . -31349) :group 'gnus-meta :type 'boolean) #@75 *If non-nil, Gnus will mark duplicate copies of the same article as read. (custom-declare-variable 'gnus-suppress-duplicates 'nil '(#$ . -31501) :group 'gnus-meta :type 'boolean) #@30 *If non-nil, enable scoring. (custom-declare-variable 'gnus-use-scoring 't '(#$ . -31686) :group 'gnus-meta :type 'boolean) #@54 *If non-nil, display picons in a frame of their own. (custom-declare-variable 'gnus-use-picons 'nil '(#$ . -31816) :group 'gnus-meta :type 'boolean) #@116 *A hook called when preparing to exit from the summary buffer. It calls `gnus-summary-expire-articles' by default. (custom-declare-variable 'gnus-summary-prepare-exit-hook ''(gnus-summary-expire-articles) '(#$ . -31972) :group 'gnus-summary-exit :type 'hook) #@127 *Non-nil means that you are a usenet novice. If non-nil, verbose messages may be displayed and confirmations may be required. (custom-declare-variable 'gnus-novice-user 't '(#$ . -32238) :group 'gnus-meta :type 'boolean) #@181 *Non-nil means that you will never be asked for confirmation about anything. That doesn't mean *anything* anything; particularly destructive commands will still require prompting. (custom-declare-variable 'gnus-expert-user 'nil '(#$ . -32466) :group 'gnus-meta :type 'boolean) #@66 *If non-nil, require your confirmation when catching up a group. (custom-declare-variable 'gnus-interactive-catchup 't '(#$ . -32749) :group 'gnus-group-select :type 'boolean) #@59 *If non-nil, require your confirmation when exiting Gnus. (custom-declare-variable 'gnus-interactive-exit 't '(#$ . -32931) :group 'gnus-exit :type 'boolean) #@274 *Function for extracting address components from a From header. Two pre-defined function exist: `gnus-extract-address-components', which is the default, quite fast, and too simplistic solution, and `mail-extract-address-components', which works much better, but is slower. (custom-declare-variable 'gnus-extract-address-components ''gnus-extract-address-components '(#$ . -33096) :group 'gnus-summary-format :type '(radio (function-item gnus-extract-address-components) (function-item mail-extract-address-components) (function :tag "Other"))) #@39 *If non-nil, display clickable icons. (custom-declare-variable 'gnus-carpal 'nil '(#$ . -33646) :group 'gnus-meta :type 'boolean) #@44 String used to separate to shell commands. (custom-declare-variable 'gnus-shell-command-separator '";" '(#$ . 33782) :group 'gnus-files :type 'string) #@389 *An alist of valid select methods. The first element of each list lists should be a string with the name of the select method. The other elements may be the category of this method (i. e., `post', `mail', `none' or whatever) or other properties that this method has (like being respoolable). If you implement a new select method, all you should have to change is this variable. I think. (custom-declare-variable 'gnus-valid-select-methods ''(("nntp" post address prompt-address physical-address) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address physical-address) ("nneething" none address prompt-address physical-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nnkiboze" post virtual) ("nnsoup" post-mail address) ("nndraft" post-mail) ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) ("nnslashdot" post) ("nnultimate" none) ("nnwarchive" none) ("nnlistserv" none) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address)) '(#$ . -33940) :group 'gnus-server :type '(repeat (group (string :tag "Name") (radio-button-choice (const :format "%v " post) (const :format "%v " mail) (const :format "%v " none) (const post-mail)) (checklist :inline t (const :format "%v " address) (const :format "%v " prompt-address) (const :format "%v " physical-address) (const :format "%v " virtual) (const respool))))) (byte-code "\304\305\306\307\310 \311\n\312\301\313\314\315 \"BBB\316B& \207" [:value :tag :args gnus-valid-select-methods define-widget gnus-select-method list "Widget for entering a select method." (nntp "") "Select Method" choice "Method" mapcar #[(entry) "\302\303\304 @!F\207" [:format entry const "%v\n" intern] 5] ((string :tag "Address") (repeat :tag "Options" :inline t (list :format "%v" variable (sexp :tag "Value"))))] 15) #@304 List of buffers that should update their mode lines. The list may contain the symbols `group', `article', `tree' and `summary'. If the corresponding symbol is present, Gnus will keep that mode line updated with information that may be pertinent. If this variable is nil, screen refresh may be quicker. (custom-declare-variable 'gnus-updated-mode-lines ''(group article summary tree) '(#$ . 35957) :group 'gnus-various :type '(set (const group) (const article) (const summary) (const tree))) #@234 *Max length of mode-line non-string contents. If this is nil, Gnus will take space as is needed, leaving the rest of the modeline intact. Note that the default of nil is unlikely to be desirable; see the manual for further details. (custom-declare-variable 'gnus-mode-non-string-length 'nil '(#$ . -36456) :group 'gnus-various :type '(choice (const nil) integer)) #@206 *Groups in which to automatically mark read articles as expirable. If non-nil, this should be a regexp that should match all groups in which to perform auto-expiry. This only makes sense for mail groups. (custom-declare-variable 'gnus-auto-expirable-newsgroups 'nil '(#$ . -36828) :group 'nnmail-expire :type '(choice (const nil) regexp)) #@270 *Groups in which to perform expiry of all read articles. Use with extreme caution. All groups that match this regexp will be expiring - which means that all read articles will be deleted after (say) one week. (This only goes for mail groups and the like, of course.) (custom-declare-variable 'gnus-total-expirable-newsgroups 'nil '(#$ . -37175) :group 'nnmail-expire :type '(choice (const nil) regexp)) #@78 Number of group name elements to leave alone when making a short group name. (custom-declare-variable 'gnus-group-uncollapsed-levels '1 '(#$ . 37586) :group 'gnus-group-visual :type 'integer) #@62 *If non-nil, once you set a level, Gnus will use this level. (custom-declare-variable 'gnus-group-use-permanent-levels 'nil '(#$ . -37784) :group 'gnus-group-levels :type 'boolean) #@34 A hook run while Gnus is loaded. (custom-declare-variable 'gnus-load-hook 'nil '(#$ . 37971) :group 'gnus-start :type 'hook) #@629 A hook called to apply kill files to a group. This hook is intended to apply a kill file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. Since a general kill file is too heavy to use only for a few newsgroups, I recommend you to use a lighter hook function. For example, if you'd like to apply a kill file to articles which contains a string `rmgroup' in subject in newsgroup `control', you can use the following hook: (setq gnus-apply-kill-hook (list (lambda () (cond ((string-match "control" gnus-newsgroup-name) (gnus-kill "Subject" "rmgroup") (gnus-expunge "X")))))) (custom-declare-variable 'gnus-apply-kill-hook ''(gnus-apply-kill-file) '(#$ . 38103) :group 'gnus-score-kill :options '(gnus-apply-kill-file) :type 'hook) #@110 Function run when a group level is changed. It is called with three parameters -- GROUP, LEVEL and OLDLEVEL. (custom-declare-variable 'gnus-group-change-level-function 'nil '(#$ . 38894) :group 'gnus-group-levels :type 'function) #@671 *Enable visual features. If `visual' is disabled, there will be no menus and few faces. Most of the visual customization options below will be ignored. Gnus will use less space and be faster as a result. This variable can also be a list of visual elements to switch on. For instance, to switch off all visual things except menus, you can say: (setq gnus-visual '(menu)) Valid elements include `summary-highlight', `group-highlight', `article-highlight', `mouse-face', `summary-menu', `group-menu', `article-menu', `tree-highlight', `menu', `highlight', `browse-menu', `server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu', and `grouplens-menu'. (custom-declare-variable 'gnus-visual ''(summary-highlight group-highlight article-highlight mouse-face summary-menu group-menu article-menu tree-highlight menu highlight browse-menu server-menu page-marker tree-menu binary-menu pick-menu grouplens-menu) '(#$ . -39131) :group 'gnus-meta :group 'gnus-visual :type '(set (const summary-highlight) (const group-highlight) (const article-highlight) (const mouse-face) (const summary-menu) (const group-menu) (const article-menu) (const tree-highlight) (const menu) (const highlight) (const browse-menu) (const server-menu) (const page-marker) (const tree-menu) (const binary-menu) (const pick-menu) (const grouplens-menu))) #@131 *Face used for group or summary buffer mouse highlighting. The line beneath the mouse pointer will be highlighted with this face. (custom-declare-variable 'gnus-mouse-face '(condition-case nil (if (gnus-visual-p 'mouse-face 'highlight) (if (boundp 'gnus-mouse-face) (or gnus-mouse-face 'highlight) 'highlight) 'default) (error 'highlight)) '(#$ . -40479) :group 'gnus-visual :type 'face) #@70 *Name of the directory articles will be saved in (default "~/News"). (custom-declare-variable 'gnus-article-save-directory 'gnus-directory '(#$ . -40873) :group 'gnus-article-saving :type 'directory) #@33 Whether Gnus is plugged or not. (defvar gnus-plugged t (#$ . 41079)) #@223 Default charset assumed to be used when viewing non-ASCII characters. This variable is overridden on a group-to-group basis by the gnus-group-charset-alist variable and is only used on groups not covered by that variable. (custom-declare-variable 'gnus-default-charset ''iso-8859-1 '(#$ . 41155) :type 'symbol :group 'gnus-charset) #@283 Default charset assumed to be used when posting non-ASCII characters. This variable is overridden on a group-to-group basis by the gnus-group-posting-charset-alist variable and is only used on groups not covered by that variable. If nil, no default charset is assumed when posting. (custom-declare-variable 'gnus-default-posting-charset 'nil '(#$ . 41494) :type 'symbol :group 'gnus-charset) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \311\303 B\306\304!\204,\312\304 B\306\305!\2048\312\305 B\312\207" [gnus-agent-meta-information-header current-load-list gnus-group-get-parameter-function gnus-original-article-buffer gnus-newsgroup-name gnus-ephemeral-servers boundp "X-Gnus-Agent-Meta-Information" gnus-group-get-parameter " *Original Article*" nil] 2) #@47 Whether we want to use the Gnus agent or not. (defvar gnus-agent nil (#$ . 42303)) #@67 Dynamically bound variable that says what the current backend is. (defvar gnus-command-method nil (#$ . 42392)) #@47 The current method for selecting a newsgroup. (defvar gnus-current-select-method nil (#$ . 42510)) #@47 Buffer where Gnus thread trees are displayed. (defvar gnus-tree-buffer "*Tree*" (#$ . 42615)) (byte-code "\305\300!\204\306\300 B\305\302!\204\306\302 B\305\303!\204 \306\303 B\305\304!\204,\306\304 B\306\207" [gnus-use-generic-from current-load-list gnus-method-history gnus-mail-method-history gnus-group-history boundp nil] 2) #@28 List of available servers. (defvar gnus-server-alist nil (#$ . 42965)) #@54 *The directory where cached articles will be stored. (custom-declare-variable 'gnus-cache-directory '(nnheader-concat gnus-directory "cache/") '(#$ . -43042) :group 'gnus-cache :type 'directory) #@43 List of predefined (convenience) servers. (defvar gnus-predefined-server-alist (byte-code "\301\302\301\303D\304D\305\306\307\"D\257C\207" [gnus-cache-directory "cache" nnspool nnspool-spool-directory nnspool-nov-directory nnspool-active-file nnheader-concat "active"] 9) (#$ . 43243)) (byte-code "\306\300!\204\307\300 B\310\302 B\306\303!\204\311\303 B\306\304!\204&\311\304 B\306\305!\2042\311\305 B\306\312!\204?\311\n\312 B\306\313!\204L\311 \313 B\306\314!\204Y\311\f\314 B\306\315!\204f\311 \315 B\311\207" [gnus-topic-indentation current-load-list gnus-article-mark-lists gnus-headers-retrieved-by gnus-article-reply gnus-override-method boundp "" ((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache) (downloadable . download) (unsendable . unsend)) nil gnus-article-check-size gnus-opened-servers gnus-current-kill-article gnus-have-read-active-file] 2) #@43 The mail address of the Gnus maintainers. (defconst gnus-maintainer "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)" (#$ . 44257)) #@46 Alist of major modes and related Info nodes. (defvar gnus-info-nodes '((gnus-group-mode "(gnus)The Group Buffer") (gnus-summary-mode "(gnus)The Summary Buffer") (gnus-article-mode "(gnus)The Article Buffer") (gnus-server-mode "(gnus)The Server Buffer") (gnus-browse-mode "(gnus)Browse Foreign Server") (gnus-tree-mode "(gnus)Tree Display")) (#$ . 44395)) (byte-code "\305\300!\204\306\300 B\305\302!\204\307\302 B\305\303!\204 \310\303 B\305\304!\204,\311\304 B\305\207" [gnus-group-buffer current-load-list gnus-summary-buffer gnus-article-buffer gnus-server-buffer boundp "*Group*" "*Summary*" "*Article*" "*Server*"] 2) #@38 Whether this Gnus is a slave or not. (defvar gnus-slave nil (#$ . 45038)) #@52 Whether this Gnus is running in batch mode or not. (defvar gnus-batch-mode nil (#$ . 45118)) #@49 Gnus variables saved in the quick startup file. (defvar gnus-variable-list '(gnus-newsrc-options gnus-newsrc-options-n gnus-newsrc-last-checked-date gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list gnus-topic-topology gnus-topic-alist gnus-format-specs) (#$ . 45217)) #@104 Assoc list of read articles. gnus-newsrc-hashtb should be kept so that both hold the same information. (defvar gnus-newsrc-alist nil (#$ . 45513)) #@33 Hashtable of gnus-newsrc-alist. (defvar gnus-newsrc-hashtb nil (#$ . 45666)) #@28 List of killed newsgroups. (defvar gnus-killed-list nil (#$ . 45749)) #@44 Hash table equivalent of gnus-killed-list. (defvar gnus-killed-hashtb nil (#$ . 45825)) #@33 List of almost dead newsgroups. (defvar gnus-zombie-list nil (#$ . 45919)) #@29 Descriptions of newsgroups. (defvar gnus-description-hashtb nil (#$ . 46000)) #@64 List of newsgroups that have recently been killed by the user. (defvar gnus-list-of-killed-groups nil (#$ . 46084)) #@31 Hashtable of active articles. (defvar gnus-active-hashtb nil (#$ . 46206)) #@36 Hashtable of moderated newsgroups. (defvar gnus-moderated-hashtb nil (#$ . 46287)) (byte-code "\304\300!\204\305\300 B\304\302!\204\305\302 B\306 B\304\303!\204$\305\303 B\307\310\311\"\207" [gnus-prev-winconf current-load-list gnus-reffed-article-number gnus-dead-summary boundp nil rmail-default-rmail-file mapcar #[(package) "\302>A@\303\304A@\302=\203AAA\202A\")\207" [package interactive :interactive mapcar #[(function) "\304 :\203\300 >@ @\305 \n@\304 %)\207" [keymap function package interactive nil autoload] 6]] 4] (("metamail" metamail-buffer) ("info" Info-goto-node) ("pp" pp pp-to-string pp-eval-expression) ("qp" quoted-printable-decode-region quoted-printable-decode-string) ("ps-print" ps-print-preprint) ("mail-extr" mail-extract-address-components) ("browse-url" browse-url) ("message" :interactive t message-send-and-exit message-yank-original) ("babel" babel-as-string) ("nnmail" nnmail-split-fancy nnmail-article-group) ("nnvirtual" nnvirtual-catchup-group nnvirtual-convert-headers) ("rmailout" rmail-output rmail-output-to-rmail-file) ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages rmail-show-message rmail-summary-exists rmail-select-summary rmail-update-summary) ("gnus-audio" :interactive t gnus-audio-play) ("gnus-xmas" gnus-xmas-splash) ("gnus-soup" :interactive t gnus-group-brew-soup gnus-brew-soup gnus-soup-add-article gnus-soup-send-replies gnus-soup-save-areas gnus-soup-pack-packet) ("nnsoup" nnsoup-pack-replies) ("score-mode" :interactive t gnus-score-mode) ("gnus-mh" gnus-summary-save-article-folder gnus-Folder-save-name gnus-folder-save-name) ("gnus-mh" :interactive t gnus-summary-save-in-folder) ("gnus-demon" gnus-demon-add-nocem gnus-demon-add-scanmail gnus-demon-add-rescan gnus-demon-add-scan-timestamps gnus-demon-add-disconnection gnus-demon-add-handler gnus-demon-remove-handler) ("gnus-demon" :interactive t gnus-demon-init gnus-demon-cancel) ("gnus-salt" gnus-highlight-selected-tree gnus-possibly-generate-tree gnus-tree-open gnus-tree-close gnus-carpal-setup-buffer) ("gnus-nocem" gnus-nocem-scan-groups gnus-nocem-close gnus-nocem-unwanted-article-p) ("gnus-srvr" gnus-enter-server-buffer gnus-server-set-info gnus-server-server-name) ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe gnus-article-hide-citation gnus-article-fill-cited-article gnus-article-hide-citation-in-followups) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score) ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers gnus-cache-possibly-remove-articles gnus-cache-request-article gnus-cache-retrieve-headers gnus-cache-possibly-alter-active gnus-cache-enter-remove-article gnus-cached-article-p gnus-cache-open gnus-cache-close gnus-cache-update-article) ("gnus-cache" :interactive t gnus-jog-cache gnus-cache-enter-article gnus-cache-remove-article gnus-summary-insert-cached-articles) ("gnus-score" :interactive t gnus-summary-increase-score gnus-summary-set-score gnus-summary-raise-thread gnus-summary-raise-same-subject gnus-summary-raise-score gnus-summary-raise-same-subject-and-select gnus-summary-lower-thread gnus-summary-lower-same-subject gnus-summary-lower-score gnus-summary-lower-same-subject-and-select gnus-summary-current-score gnus-score-delta-default gnus-score-flush-cache gnus-score-close gnus-possibly-score-headers gnus-score-followup-article gnus-score-followup-thread) ("gnus-score" (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers gnus-current-score-file-nondirectory gnus-score-adaptive gnus-score-find-trace gnus-score-file-name) ("gnus-cus" :interactive t gnus-group-customize gnus-score-customize) ("gnus-topic" :interactive t gnus-topic-mode) ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters gnus-subscribe-topics) ("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode) ("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap)) ("gnus-uu" :interactive t gnus-uu-digest-mail-forward gnus-uu-digest-post-forward gnus-uu-mark-series gnus-uu-mark-region gnus-uu-mark-buffer gnus-uu-mark-by-regexp gnus-uu-mark-all gnus-uu-mark-sparse gnus-uu-mark-thread gnus-uu-decode-uu gnus-uu-decode-uu-and-save gnus-uu-decode-unshar gnus-uu-decode-unshar-and-save gnus-uu-decode-save gnus-uu-decode-binhex gnus-uu-decode-uu-view gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view gnus-uu-decode-binhex-view gnus-uu-unmark-thread gnus-uu-mark-over gnus-uu-post-news) ("gnus-uu" gnus-uu-delete-work-dir gnus-uu-unmark-thread) ("gnus-msg" (gnus-summary-send-map keymap) gnus-article-mail gnus-copy-article-buffer gnus-extended-version) ("gnus-msg" :interactive t gnus-group-post-news gnus-group-mail gnus-summary-post-news gnus-summary-followup gnus-summary-followup-with-original gnus-summary-cancel-article gnus-summary-supersede-article gnus-post-news gnus-summary-reply gnus-summary-reply-with-original gnus-summary-mail-forward gnus-summary-mail-other-window gnus-summary-resend-message gnus-summary-resend-bounced-mail gnus-summary-wide-reply gnus-summary-followup-to-mail gnus-summary-followup-to-mail-with-original gnus-bug gnus-summary-wide-reply-with-original gnus-summary-post-forward gnus-summary-wide-reply-with-original gnus-summary-post-forward) ("gnus-picon" :interactive t gnus-article-display-picons gnus-group-display-picons gnus-picons-article-display-x-face gnus-picons-display-x-face) ("gnus-picon" gnus-picons-buffer-name) ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p gnus-grouplens-mode) ("smiley" :interactive t gnus-smiley-display) ("gnus-win" gnus-configure-windows gnus-add-configuration) ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group gnus-list-of-unread-articles gnus-list-of-read-articles gnus-offer-save-summaries gnus-make-thread-indent-array gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject gnus-summary-skip-intangible gnus-summary-article-number gnus-data-header gnus-data-find) ("gnus-group" gnus-group-insert-group-line gnus-group-quit gnus-group-list-groups gnus-group-first-unread-group gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc gnus-group-setup-buffer gnus-group-get-new-news gnus-group-make-help-group gnus-group-update-group gnus-group-iterate gnus-group-group-name) ("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article gnus-backlog-remove-article) ("gnus-art" gnus-article-read-summary-keys gnus-article-save gnus-article-prepare gnus-article-set-window-start gnus-article-next-page gnus-article-prev-page gnus-request-article-this-buffer gnus-article-mode gnus-article-setup-buffer gnus-narrow-to-page gnus-article-delete-invisible-text gnus-treat-article) ("gnus-art" :interactive t gnus-article-hide-headers gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-remove-cr gnus-article-remove-trailing-blank-lines gnus-article-display-x-face gnus-article-de-quoted-unreadable gnus-article-decode-HZ gnus-article-hide-pgp gnus-article-hide-pem gnus-article-hide-signature gnus-article-strip-leading-blank-lines gnus-article-date-local gnus-article-date-original gnus-article-date-lapsed gnus-article-show-all-headers gnus-article-edit-mode gnus-article-edit-article gnus-article-edit-done gnus-article-decode-encoded-words gnus-start-date-timer gnus-stop-date-timer gnus-mime-view-all-parts) ("gnus-int" gnus-request-type) ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 gnus-dribble-enter gnus-read-init-file gnus-dribble-touch) ("gnus-dup" gnus-dup-suppress-articles gnus-dup-unsuppress-article gnus-dup-enter-articles) ("gnus-range" gnus-copy-sequence) ("gnus-eform" gnus-edit-form) ("gnus-move" :interactive t gnus-group-move-group-to-server gnus-change-server) ("gnus-logic" gnus-score-advanced) ("gnus-undo" gnus-undo-mode gnus-undo-register) ("gnus-async" gnus-async-request-fetched-article gnus-async-prefetch-next gnus-async-prefetch-article gnus-async-prefetch-remove-group gnus-async-halt-prefetch) ("gnus-agent" gnus-open-agent gnus-agent-get-function gnus-agent-save-groups gnus-agent-save-active gnus-agent-method-p gnus-agent-get-undownloaded-list gnus-agent-fetch-session gnus-summary-set-agent-mark gnus-agent-save-group-info) ("gnus-agent" :interactive t gnus-unplugged gnus-agentize gnus-agent-batch) ("gnus-vm" :interactive t gnus-summary-save-in-vm gnus-summary-save-article-vm) ("gnus-draft" :interactive t gnus-draft-mode gnus-group-send-drafts) ("gnus-mlspl" gnus-group-split gnus-group-split-fancy) ("gnus-mlspl" :interactive t gnus-group-split-setup gnus-group-split-update))] 3) #@2691 *The format specification of the lines in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. %N Article number, left padded with spaces (string) %S Subject (string) %s Subject if it is at the root of a thread, and "" otherwise (string) %n Name of the poster (string) %a Extracted name of the poster (string) %A Extracted address of the poster (string) %F Contents of the From: header (string) %f Contents of the From: or To: headers (string) %x Contents of the Xref: header (string) %D Date of the article (string) %d Date of the article (string) in DD-MMM format %M Message-id of the article (string) %r References of the article (string) %c Number of characters in the article (integer) %L Number of lines in the article (integer) %I Indentation based on thread level (a string of spaces) %T A string with two possible values: 80 spaces if the article is on thread level two or larger and 0 spaces on level one %R "A" if this article has been replied to, " " otherwise (character) %U Status of this article (character, "R", "K", "-" or " ") %[ Opening bracket (character, "[" or "<") %] Closing bracket (character, "]" or ">") %> Spaces of length thread-level (string) %< Spaces of length (- 20 thread-level) (string) %i Article score (number) %z Article zcore (character) %t Number of articles under the current thread (number). %e Whether the thread is empty or not (character). %l GroupLens score (string). %V Total thread score (number). %P The line number (number). %O Download mark (character). %u User defined specifier. The next character in the format string should be a letter. Gnus will call the function gnus-user-format-function-X, where X is the letter following %u. The function will be passed the current header as argument. The function should return a string, which will be inserted into the summary just like information from any other summary specifier. Text between %( and %) will be highlighted with `gnus-mouse-face' when the mouse point is placed inside the area. There can only be one such area. The %U (status), %R (replied) and %z (zcore) specs have to be handled with care. For reasons of efficiency, Gnus will compute what column these characters will end up in, and "hard-code" that. This means that it is invalid to have these specs after a variable-length spec. Well, you might not be arrested, but your summary buffer will look strange, which is bad enough. The smart choice is to have these specs as for to the left as possible. This restriction may disappear in later versions of Gnus. (custom-declare-variable 'gnus-summary-line-format '"%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" '(#$ . -55104) :type 'string :group 'gnus-summary-format) (defalias 'gnus-suppress-keymap #[(keymap) "\302!\210\303 \205\304 \211A@\305#\210\202)\207" [keymap keys suppress-keymap ([backspace] [delete] "" "\365") define-key undefined] 4]) (byte-code "\305\301!\204\306 \307!\210)\301\nB\305\303!\204$\310 \307!\210)\303\nB\305\304!\2048\310 \307!\210)\304\nB\311\312\313\"\210\311\314\313\"\207" [keymap gnus-article-mode-map current-load-list gnus-summary-mode-map gnus-group-mode-map boundp make-sparse-keymap gnus-suppress-keymap make-keymap defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 3) (defalias 'gnus-header-from #[(header) "\301H\207" [header 2] 2]) #@40 Get hash value of STRING in HASHTABLE. (defalias 'gnus-gethash '(macro . #[(string hashtable) "\302\303 ED\207" [string hashtable symbol-value intern-soft] 4 (#$ . 58612)])) #@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE. (defalias 'gnus-sethash '(macro . #[(string value hashtable) "\303\304 E\nE\207" [string hashtable value set intern] 4 (#$ . 58793)])) (put 'gnus-sethash 'edebug-form-spec '(form form form)) #@64 Get the currently computed number of unread articles in GROUP. (defalias 'gnus-group-unread '(macro . #[(group) "\301\302\303BBD\207" [group car gnus-gethash (gnus-newsrc-hashtb)] 4 (#$ . 59052)])) #@33 Get the newsrc entry for GROUP. (defalias 'gnus-group-entry '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-newsrc-hashtb)] 3 (#$ . 59257)])) #@27 Get active info on GROUP. (defalias 'gnus-active '(macro . #[(group) "\301\302BB\207" [group gnus-gethash (gnus-active-hashtb)] 3 (#$ . 59421)])) #@26 Set GROUP's active info. (defalias 'gnus-set-active '(macro . #[(group active) "\302 \303BBB\207" [group active gnus-sethash (gnus-active-hashtb)] 4 (#$ . 59574)])) (defalias 'gnus-info-group '(macro . #[(info) "\301\302E\207" [info nth 0] 3])) (defalias 'gnus-info-rank '(macro . #[(info) "\301\302E\207" [info nth 1] 3])) (defalias 'gnus-info-read '(macro . #[(info) "\301\302E\207" [info nth 2] 3])) (defalias 'gnus-info-marks '(macro . #[(info) "\301\302E\207" [info nth 3] 3])) (defalias 'gnus-info-method '(macro . #[(info) "\301\302E\207" [info nth 4] 3])) (defalias 'gnus-info-params '(macro . #[(info) "\301\302E\207" [info nth 5] 3])) (defalias 'gnus-info-level '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((if (consp rank) (car rank) rank))] 4])) (defalias 'gnus-info-score '(macro . #[(info) "\301\302\303DDC\304BB\207" [info let rank gnus-info-rank ((or (and (consp rank) (cdr rank)) 0))] 4])) (defalias 'gnus-info-set-group '(macro . #[(info group) "\302 E\207" [info group setcar] 3])) (defalias 'gnus-info-set-rank '(macro . #[(info rank) "\302\303\304E E\207" [info rank setcar nthcdr 1] 4])) (defalias 'gnus-info-set-read '(macro . #[(info read) "\302\303\304E E\207" [info read setcar nthcdr 2] 4])) (defalias 'gnus-info-set-marks '(macro . #[(info marks &optional extend) "\203\f\303 \n\304BBB\207\305\306\307 E\nE\207" [extend info marks gnus-info-set-entry (3) setcar nthcdr 3] 4])) (defalias 'gnus-info-set-method '(macro . #[(info method &optional extend) "\203\f\303 \n\304BBB\207\305\306\307 E\nE\207" [extend info method gnus-info-set-entry (4) setcar nthcdr 4] 4])) (defalias 'gnus-info-set-params '(macro . #[(info params &optional extend) "\203\f\303 \n\304BBB\207\305\306\307 E\nE\207" [extend info params gnus-info-set-entry (5) setcar nthcdr 5] 4])) (defalias 'gnus-info-set-entry #[(info entry number) "G X\203\303C\244\210\202 \233\n\240\207" [info number entry nil] 2]) (defalias 'gnus-info-set-level '(macro . #[(info level) "\302\303\304DDC\305\306\307\310 E\307\303 EFE\207" [info level let rank cdr if (consp (car rank)) setcar (car rank)] 8])) (defalias 'gnus-info-set-score '(macro . #[(info score) "\302\303\304DDC\305\306\307\310 E\311\303\312\313 EEFE\207" [info score let rank cdr if (consp (car rank)) setcdr (car rank) setcar cons (car rank)] 10])) (defalias 'gnus-get-info '(macro . #[(group) "\301\302\303\304BBE\207" [group nth 2 gnus-gethash (gnus-newsrc-hashtb)] 5])) (byte-code "\301B\301\207" [current-load-list gnus-visual] 2) (defalias 'gnus-visual-p #[(&optional type class) "\205 \204\n\207<\203 >\206\n>\207\303\207" [gnus-visual type class t] 2]) (byte-code "\302\303!\210\304\300!\204\f\305\300 B\305\207" [gnus-shutdown-alist current-load-list require gnus-ems boundp nil] 2) #@52 Run FUNCTION whenever one of SYMBOLS is shut down. (defalias 'gnus-add-shutdown #[(function &rest symbols) " B\nB\211\207" [function symbols gnus-shutdown-alist] 2 (#$ . 62397)]) #@45 Shut down everything that waits for SYMBOL. (defalias 'gnus-shutdown #[(symbol) "\304\n\211A@\211\205 A>\203 @ \210\202*\207" [gnus-shutdown-alist entry alist symbol nil] 2 (#$ . 62584)]) #@113 Return the first element of STRINGS that is a non-blank string. STRINGS will be evaluated in normal `or' order. (defalias 'gnus-string-or '(macro . #[(&rest strings) "\301\302DD\207" [strings gnus-string-or-1 quote] 3 (#$ . 62791)])) (defalias 'gnus-string-or-1 #[(strings) "\302 \203 \303 \211A@!\304\305\"\203\302\202\302\211\204)\207" [string strings nil eval string-match "^[ ]*$"] 4]) #@73 Version number of this version of Gnus. If ARG, insert string at point. (defalias 'gnus-version #[(&optional arg) "\203 \302 !c\207\302 !\207" [arg gnus-version message] 2 (#$ . 63203) "P"]) #@44 Return VERSION as a floating point number. (defalias 'gnus-continuum-version #[(version) "\306\307\"\204\306\310\"\205\200\311\224\205\312\311\"\312\313\"\314\211\211\306\315\f\"\204/\316\317\"\210\320\312\311\f\"!\320\312\313\f\"!\321\224\203K\320\312\321\f\"!\202L\322\320 \322U\203x\323\324 \325\235\203`\326\202r\327\330\331 \227\322H!\331\332!Z!_\333\\\334\\\n $\202~\323\335 \n $!-\207" [version least minor major number alpha string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" "^\\(.?\\)gnus-\\([0-9.]+\\)$" 1 match-string 2 nil "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" error "Invalid version string: %s" string-to-number 3 0 format "%s00%02d%02d" ("(ding)" "d") "4.99" 0.02 abs mm-char-int 116 -0.01 5 "%d.%02d%02d"] 8 (#$ . 63402)]) #@34 Find Info documentation of Gnus. (defalias 'gnus-info-find-node #[nil "\303\304 \n\236A@!\210p\305\306!)\207" [gnus-info-buffer major-mode gnus-info-nodes nil Info-goto-node gnus-configure-windows info] 3 (#$ . 64181) nil]) #@24 Current prefix symbol. (defvar gnus-current-prefix-symbol nil (#$ . 64413)) #@33 List of current prefix symbols. (defvar gnus-current-prefix-symbols nil (#$ . 64495)) #@260 Return a list that can be fed to `interactive'. See `interactive' for full documentation. Adds the following specs: y -- The current symbolic prefix. Y -- A list of the current symbolic prefix(es). A -- Article number. H -- Article header. g -- Group name. (defalias 'gnus-interactive #[(string &optional params) "\306\307\211\211 \fGW\203\331\310\311\f #\210\f H\312\225\203#\313\312\f\"\306\225 \314U\2035\315 \316\317$\202\305 \320U\203C\321p\317#\202\305 \322U\203R\321\323p!\"\202\305 \324U\203]\325 \202\305 \326U\203l\315 \327\317$\202\305 \330U\203v`\202\305 \331U\203\206\332\307@\333$\202\305 \334U\203\225\332\307\211\333$\202\305 \335U\203\241\332!\202\305 \336U\203\255\337!\202\305 \340U\203\271\341\342!\202\305 \343U\203\305\341\342!\202\305 \344U\203\320\345 \202\305 \346U\203\334\341\342!\202\305 \347U\203\352\350\351!!\202\305 \352U\203\367\353A!\202\305 \354U\203A\202\305 \355U\203\f\356\202\305 \357U\203\360!\202\305 \361U\203&\362\360!!\202\305 \363U\2032\364!\202\305 \365U\203>\366!\202\305 \365U\203J\367!\202\305 \370U\203UB\202\305 \371U\203`C\202\305 \372U\203k\373 \202\305 \374U\203\221\375`\376\"\211D\203\200\377D!\210)\375`\201F\"\206\305\201G \202\305 \201HU\203\300\201I\375`\376\"\211D\203\253\377D!\210)\375`\201F\"\206\271\201G E\2368\202\305\341\201J!\nB \355U\203\307\nB\307\nB\202\201K\356\n\"\211\237,\207" [prompt c out i string obarray 0 nil string-match ".\\([^\n]*\\)\n?" 1 match-string 97 completing-read fboundp t 98 read-buffer 66 other-buffer 99 read-char 67 commandp 100 68 read-file-name lambda 102 70 107 read-key-sequence 75 error "Not implemented spec" 101 109 mark 78 110 string-to-number read-from-minibuffer 112 prefix-numeric-value 80 114 gnus-prefix-nil 115 read-string 83 intern 118 read-variable 120 read-minibuffer eval-minibuffer 121 89 103 gnus-group-group-name 65 get-text-property gnus-intangible gnus-summary-goto-subject default-directory current-prefix-arg gnus-current-prefix-symbol gnus-current-prefix-symbols to gnus-newsgroup-data gnus-number gnus-summary-last-subject 72 3 "Non-implemented spec" delq] 6 (#$ . 64588)]) #@67 Read a symbolic argument and a command, and then execute command. (defalias 'gnus-symbolic-argument #[(&optional arg) "\305 \211\306\306\306 \232\203*\307\310\311\305 !\"\210\312\313\314 !!\fB\315\306\316\"\202 \f\237\211@\317\320 \316\"!-\207" [in-command command gnus-current-prefix-symbols gnus-current-prefix-symbol syms this-command-keys nil message "%s-" key-description intern char-to-string read-char read-key-sequence t call-interactively key-binding] 5 (#$ . 66805) "P"]) #@109 Check whether GROUP supports function FUNC. GROUP can either be a string (a group name) or a select method. (defalias 'gnus-check-backend-function #[(func group) "\300\301\302\217\207" [#1=#:G82062 (byte-code ";\203\f\303!@\202 \304 !\204\305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error))] 3 (#$ . 67306)]) (put 'gnus-check-backend-function 'byte-optimizer 'byte-compile-inline-expand) #@175 Check whether GROUP supports editing or not. If GROUP is nil, `gnus-newsgroup-name' will be checked instead. Note that that variable is buffer-local to the summary buffers. (defalias 'gnus-group-read-only-p #[(&optional group) "\206 \303\304\305\306\217+?\207" [group gnus-newsgroup-name func request-replace-article #1=#:G82062 (byte-code ";\203\f\303!@\202 \304 !\204\305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error))] 3 (#$ . 67802)]) #@48 Check whether GROUP is total-expirable or not. (defalias 'gnus-group-total-expirable-p #[(group) "\304!\305\306\n>\203\307\202%\306\n\236\211\203 A\202% \205%\310 \"*\207" [group val params gnus-total-expirable-newsgroups gnus-group-find-parameter nil total-expire t string-match] 3 (#$ . 68357)]) #@47 Check whether GROUP is auto-expirable or not. (defalias 'gnus-group-auto-expirable-p #[(group) "\304!\305\306\n>\203\307\202%\306\n\236\211\203 A\202% \205%\310 \"*\207" [group val params gnus-auto-expirable-newsgroups gnus-group-find-parameter nil auto-expire t string-match] 3 (#$ . 68673)]) #@38 Say whether GROUP is virtual or not. (defalias 'gnus-virtual-group-p #[(group) "\302\303\304\305!@! \">\207" [group gnus-valid-select-methods virtual assoc symbol-name gnus-find-method-for-group] 5 (#$ . 68985)]) #@64 Return non-nil if GROUP (and ARTICLE) come from a news server. (defalias 'gnus-news-group-p #[(group &optional article) "\302\303\"\206-\302\304\"\205- \203 \305W\204\306 \"\307=\207\310 !\205-\306 \311H\"\307=\207" [group article gnus-member-of-valid post post-mail 0 gnus-request-type news vectorp 4] 4 (#$ . 69205)]) (defalias 'gnus-writable-groups #[nil "\304\211 \211A@@\211\203\305 !\204 \nB\202\n\237+\207" [gnus-newsrc-alist group groups alist nil gnus-group-read-only-p] 3]) (defalias 'gnus-use-long-file-name #[(symbol) "\205?\207" [gnus-use-long-file-name symbol] 2]) (defalias 'gnus-generate-new-group-name #[(leaf) "\304\305\n \"J\203\306\307 T\211!\310R\202\n*\207" [leaf num name gnus-newsrc-hashtb 0 intern-soft "<" int-to-string ">"] 5]) #@40 Say whether GROUP is ephemeral or not. (defalias 'gnus-ephemeral-group-p #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 70015)]) #@34 Return the quit-config of GROUP. (defalias 'gnus-group-quit-config #[(group) "\301\302\303#\207" [group gnus-group-get-parameter quit-config t] 4 (#$ . 70189)]) #@50 Remove ephemeral GROUP from relevant structures. (defalias 'gnus-kill-ephemeral-group #[(group) "\302 \"\303L\207" [group gnus-newsrc-hashtb intern nil] 3 (#$ . 70357)]) #@32 Make mode lines a bit simpler. (defalias 'gnus-simplify-mode-line #[nil "A\n<\205\303\302!\210\304\n!\305\n8\306\232\205\305\n\233\307\240\207" [gnus-mode-line-modified mode-line-modified mode-line-format make-local-variable copy-sequence 3 " " " "] 2 (#$ . 70534)]) (defalias 'gnus-server-add-address #[(method) "\303@!\304\305 \n\">\2031\306 \307P!\236\2041\310@\n\236>\2031\311\306 \307P!A@DC\"\2022)\207" [method method-name gnus-valid-select-methods symbol-name address assoc intern "-address" physical-address append] 5]) (put 'gnus-server-add-address 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gnus-server-get-method #[(group method) ";\203 \305!\207 \232\203 \207@;\203 \n\203 \306\n\"\207\2032\n\2042A@\307\232\2032\207\310@!\311\312 \f\">\203e\313 \314P!\236\204e\315@\f\236>\203e\316\313 \314P!A@DC\"\202f*\207" [method gnus-select-method group method-name gnus-valid-select-methods gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append] 5]) (put 'gnus-server-get-method 'byte-optimizer 'byte-compile-inline-expand) #@45 Map virtual server names to select methods. (defalias 'gnus-server-to-method #[(server) "\203 <\203 \206u\306\232\203 \206u\307\n\"A\206u\307 \"A\206u\f \203F\310\311 @@@ @@A@#\232\204F \211A\210\202) @@)\206u\n  \203q\310\311 @@ @A@#\232\204q \211A \210\202Q @)\207" [server gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened "native" assoc format "%s:%s" gnus-secondary-select-methods servers] 5 (#$ . 71694)]) #@36 Say whether two servers are equal. (defalias 'gnus-method-equal '(macro . #[(ss1 ss2) "\302\303D\304 DD\305BB\207" [ss1 ss2 let s1 s2 ((or (equal s1 s2) (and (= (length s1) (length s2)) (progn (while (and s1 (member (car s1) s2)) (setq s1 (cdr s1))) (null s1)))))] 4 (#$ . 72188)])) (defalias 'gnus-methods-equal-p #[(m1 m2) "\206 \n\206\n \211\n\232\206.@\n@=\205.\304\305\306@! \">?\206.A@\nA@\232*\207" [m1 gnus-select-method m2 gnus-valid-select-methods address assoc symbol-name] 5]) #@36 Say whether two methods are equal. (defalias 'gnus-server-equal #[(m1 m2) "\204 \202;\203\305!\202\n\204 \202(\n;\203'\305\n!\202(\n\211\n\211 \232\206P\fG GU\205P\f\203N\f@ \235\203N\fA\211\204@\f?,\207" [m1 gnus-select-method m2 s2 s1 gnus-server-to-method] 4 (#$ . 72696)]) #@47 Return a list of known servers using BACKEND. (defalias 'gnus-servers-using-backend #[(backend) "\304\n\203 \n@@@=\203\n@@ B\n\211A\210\202 *\207" [gnus-opened-servers out opened backend nil] 2 (#$ . 73006)]) #@55 Say whether the user wants to use the archive server. (defalias 'gnus-archive-server-wanted-p #[nil "\203 \204\n\303\207\203 \203\304\207\305\236A@\211\205!\306\n!)\207" [gnus-message-archive-method gnus-message-archive-group active nil t nnfolder-active-file file-exists-p] 3 (#$ . 73232)]) #@46 Return the whole name from GROUP and METHOD. (defalias 'gnus-group-prefixed-name #[(group method) ";\203 \303!\203\304\305\"\203 \207\306\307@\"\310\306\307@\"\311\312!\"\204/\304\n\"\205CA@\205CA@\313\230?\205C\314A@P\315 R\207" [method group gnus-message-archive-method gnus-server-to-method gnus-server-equal "native" format "%s" assoc gnus-methods-using address "" "+" ":"] 5 (#$ . 73542)]) #@46 Return the prefix of the current group name. (defalias 'gnus-group-real-prefix #[(group) "\301\302\"\203 \303\211\225O\207\304\207" [group string-match "^[^:]+:" 0 ""] 3 (#$ . 73963)]) #@117 Return the server or method used for selecting GROUP. You should probably use `gnus-find-method-for-group' instead. (defalias 'gnus-group-method #[(group) "\306!\211\307\232\203\n\202\222 \307\310\211\211\311\312 \"\2038\313 \314\211\225SO! \314\225 GSO\202B\313 \314 GSO!\203r@@@=\203h@@@@A@\232\203h@@\211A\210\202B\315\f\"@\206\221\f\206\221\315 \"@\206\221 \206\221D-)\207" [group prefix gnus-select-method gnus-opened-servers found possible gnus-group-real-prefix "" nil string-match "^[^\\+]+\\+" intern 0 rassoc backend server servers gnus-server-alist] 6 (#$ . 74158)]) #@52 Return whether METHOD is the native select method. (defalias 'gnus-native-method-p #[(method) " \211\n\232\206& G\nGU\205& \203$ @\n\235\203$ A\211\204 ?*\207" [method gnus-select-method s2 s1] 3 (#$ . 74799)]) (put 'gnus-native-method-p 'byte-optimizer 'byte-compile-inline-expand) #@53 Return whether METHOD is a secondary select method. (defalias 'gnus-secondary-method-p #[(method) "\306  ;\203\307 !\202t \232\203 \202t @;\203+\n\203+\310\n \"\202t \203?\n\204? A@\311\232\203? \202t \312 @!\313\314\f \">\203r\315\f\316P! \236\204r\317 @ \236>\203r\320 \315\f\316P! A@DC\"\202s **\211\2031\306@ ;\203\216\307 !\202\362 \232\203\230 \202\362 @;\203\251\n\203\251\310\n \"\202\362 \203\275\n\204\275 A@\311\232\203\275 \202\362 \312 @!\313\314\f \">\203\360\315\f\316P! \236\204\360\317 @ \236>\203\360\320 \315\f\316P! A@DC\"\202\361 **\211\232\206$GGU\205$\203!@\235\203!A\211\204?*\2041A\211\204}*\207" [gnus-secondary-select-methods method group gnus-select-method method-name gnus-valid-select-methods nil gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append gmethod methods s2 s1] 7 (#$ . 75098)]) (put 'gnus-secondary-method-p 'byte-optimizer 'byte-compile-inline-expand) #@71 Return the shortest uniquely identifying string or method for METHOD. (defalias 'gnus-method-simplify #[(method) ";\203\207\211 \211\n\232\206/ G\nGU\205/ \203- @\n\235\203- A\211\204 ?+\2035\306\207\f\306;\203G\307!\202\261 \232\203Q \202\261@;\203b \203b\310 \"\202\261\203v \204vA@\311\232\203v\202\261\312@!\313\314\">\203\257\315\316P!\236\204\257\317@\236>\203\257\320\315\316P!A@DC\"\202\260**\211\203i\306@;\203\313\307!\2025 \232\203\325 \2025@;\203\346 \203\346\310 \"\2025\203\372 \204\372A@\311\232\203\372\2025\312@!\313\314\">\2033\315\316P!\236\2043\317@\236>\2033\320\315\316P!A@DC\"\2024**\211\n\232\206\\ G\nGU\205\\ \203Z @\n\235\203Z A\211\204L ?*\204iA\211\204\272+\203x\321\322@A@#\207\207" [method gnus-select-method s2 s1 gnus-secondary-select-methods group nil gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append format "%s:%s" method-name gnus-valid-select-methods gmethod methods] 8 (#$ . 76153)]) #@59 Return a list of all groups that are fetched from SERVER. (defalias 'gnus-groups-from-server #[(server) "A\305\211 \211A@\211\203\"\306\307\n8\f\"\203\n@ B\202\310 \311\"+\207" [gnus-newsrc-alist groups info alist server nil gnus-server-equal 4 sort string<] 3 (#$ . 77289)]) #@40 Say whether a group is foreign or not. (defalias 'gnus-group-foreign-p #[(group) "\301!?\205 \302!?\207" [group gnus-group-native-p gnus-group-secondary-p] 2 (#$ . 77583)]) #@41 Say whether the group is native or not. (defalias 'gnus-group-native-p #[(group) "\301\302\"?\207" [group string-match ":"] 3 (#$ . 77765)]) #@44 Say whether the group is secondary or not. (defalias 'gnus-group-secondary-p #[(group) "\306!\n\307  ;\203\310 !\202x \232\203 \202x @;\203/\203/\311 \"\202x \203C\204C A@\312\232\203C \202x \313 @!\314\315\f \">\203v\316\f\317P! \236\204v\320 @ \236>\203v\321 \316\f\317P! A@DC\"\202w **\211\2035\307@ ;\203\222\310 !\202\366 \232\203\234 \202\366 @;\203\255\203\255\311 \"\202\366 \203\301\204\301 A@\312\232\203\301 \202\366 \313 @!\314\315\f \">\203\364\316\f\317P! \236\204\364\320 @ \236>\203\364\321 \316\f\317P! A@DC\"\202\365 **\211\232\206(GGU\205(\203%@\235\203%A\211\204?*\2045A\211\204\201+\207" [group method gnus-secondary-select-methods gnus-select-method method-name gnus-valid-select-methods gnus-find-method-for-group nil gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append gmethod methods s2 s1] 7 (#$ . 77913)]) #@108 Return the group parameters for GROUP. If SYMBOL, return the value of that symbol in the group parameters. (defalias 'gnus-group-find-parameter #[(group &optional symbol allow-list) "\212q\210 \n!\f\203\306 \f #\202 *\207" [gnus-group-buffer gnus-group-get-parameter-function group parameters symbol allow-list gnus-group-parameter-value] 4 (#$ . 78915)]) #@205 Return the group parameters for GROUP. If SYMBOL, return the value of that symbol in the group parameters. Most functions should use `gnus-group-find-parameter', which also examines the topic parameters. (defalias 'gnus-group-get-parameter #[(group &optional symbol allow-list) "\305\306\307 \"J88 \203\310\n \f#\202\n)\207" [group gnus-newsrc-hashtb params symbol allow-list 5 2 intern-soft gnus-group-parameter-value] 5 (#$ . 79284)]) #@45 Return the value of SYMBOL in group PARAMS. (defalias 'gnus-group-parameter-value #[(params symbol &optional allow-list) " >@\206 \303\304\305\215)\207" [symbol params elem nil found (byte-code "\211A@\211\205) :\203 @\n=\203 \204 A:\204\304\305 A\"\210\202\207" [params elem symbol allow-list throw found] 3)] 2 (#$ . 79733)]) #@31 Add parameter PARAM to GROUP. (defalias 'gnus-group-add-parameter #[(group param) "\304\305 \"J8\211\205$\306 :\203 @\202 \"\210\307 \310\n8B\311#)\207" [group gnus-newsrc-hashtb info param 2 intern-soft gnus-group-remove-parameter gnus-group-set-info 5 params] 5 (#$ . 80084)]) #@39 Set parameter NAME to VALUE in GROUP. (defalias 'gnus-group-set-parameter #[(group name value) "\306\307 \"J8\211\205F\310 \"\210\311\n8 \fBC\211 \203@ @<\203/ @@ =\2047\312  @C\" A\211 \204\313 \314#*)\207" [group gnus-newsrc-hashtb info name value new-params 2 intern-soft gnus-group-remove-parameter 5 append gnus-group-set-info params old-params] 5 (#$ . 80378)]) #@35 Remove parameter NAME from GROUP. (defalias 'gnus-group-remove-parameter #[(group name) "\305\306 \"J8\211\205/\307\n8\211\205.\310\f \"\f \236\203)\310\f \236 \"\202\307\n\233 \240))\207" [group gnus-newsrc-hashtb info params name 2 intern-soft 5 delq] 5 (#$ . 80770)]) #@77 Add SCORE to the GROUP score. If SCORE is nil, add 1 to the score of GROUP. (defalias 'gnus-group-add-score #[(group &optional score) "\305\306 \"J8\211\205M\nA\211@:\2031 @\nA@\211:\203% A\206&\307)\f\206,\310\\\241\202L \211@\nA@\211:\203B A\206C\307)\f\206I\310\\B\240))\207" [group gnus-newsrc-hashtb info rank score 2 intern-soft 0 1] 5 (#$ . 81057)]) #@122 Collapse GROUP name LEVELS. Select methods are stripped and any remote host name is stripped down to just the host name. (defalias 'gnus-short-group-name #[(group &optional levels) "\306\306\307\310\f\206# \206#\311\312 #\203\"\307\225\nT\202\n\311\313\"\211\2055\307O\211\205@\311\314\"\203t\203dT\311\312\"OT\315O\202pT\315O \313P\316\312\"\211G\315\fZ\315\211\203\304@\fS\211\307Y\203\264G\307U\203\254\306\202\266\307\310O\202\266BA\211\204\222* \317\320\237\321#P. \207" [name foreign depth skip levels gnus-group-uncollapsed-levels "" 0 1 string-match "\\." ":" "+" nil split-string mapconcat identity "." group colon server plus glist glen res g #1=#:--dolist-temp--82063] 6 (#$ . 81435)]) #@35 Narrow to the body of an article. (defalias 'gnus-narrow-to-body #[nil "eb\210\300\301\302\303#\206\fdd}\207" [search-forward "\n\n" nil t] 4 (#$ . 82242)]) #@92 Apply a kill file to the current newsgroup. Returns the number of articles marked as read. (defalias 'gnus-apply-kill-file #[nil "\301\302\303!!\204\301\302!!\203\304 \207\305\207" [gnus-newsgroup-name file-exists-p gnus-newsgroup-kill-file nil gnus-apply-kill-file-internal 0] 3 (#$ . 82406)]) (defalias 'gnus-kill-save-kill-buffer #[nil "\302!\303 !\205\212\303 !q\210\304 \203\305 \210\306p!))\207" [gnus-newsgroup-name file gnus-newsgroup-kill-file get-file-buffer buffer-modified-p save-buffer kill-buffer] 2]) #@27 Suffix of the kill files. (custom-declare-variable 'gnus-kill-file-name '"KILL" '(#$ . 82939) :group 'gnus-score-kill :group 'gnus-score-files :type 'string) #@115 Return the name of a kill file name for NEWSGROUP. If NEWSGROUP is nil, return the global kill file name instead. (defalias 'gnus-newsgroup-kill-file #[(newsgroup) "\203\n\303\230\203\304 \n\"\207\305\306!\203\304\307!\310 Q\n\"\207\304\311!\312 Q\n\"\207" [newsgroup gnus-kill-file-name gnus-kill-files-directory "" expand-file-name gnus-use-long-file-name not-kill gnus-newsgroup-savable-name "." gnus-newsgroup-directory-form "/"] 4 (#$ . 83104)]) #@59 Find out if GROUP has SYMBOL as part of its "valid" spec. (defalias 'gnus-member-of-valid #[(symbol group) "\303\304\305 !@!\n\">\207" [symbol group gnus-valid-select-methods assoc symbol-name gnus-find-method-for-group] 5 (#$ . 83570)]) #@60 Return non-nil if select METHOD has OPTION as a parameter. (defalias 'gnus-method-option-p #[(method option) ";\203 \303! \304\305\306@\"\n\">\207" [method option gnus-valid-select-methods gnus-server-to-method assoc format "%s"] 5 (#$ . 83815)]) (defalias 'gnus-similar-server-opened #[(method) "\n\2032 \2032\nA@ @@A@\232\203*\n@ @@@\232\203*\n @@\232\204*\303 \211A\210\202\n)?\207" [gnus-opened-servers opened method nil] 2]) (defalias 'gnus-server-extend-method #[(group method) " \2034\n\2034A@\n@@A@\232\203,@\n@@@\232\203,\n@@\232\204,\304\n\211A\210\202*\204?AA\204A\207@A@\305 Q\306\307\310@\"!A@DAABBB\207" [method gnus-opened-servers opened group nil "+" intern format "%s-address"] 6]) #@30 Return the status of METHOD. (defalias 'gnus-server-status #[(method) "\302 \"A@\207" [method gnus-opened-servers assoc] 3 (#$ . 84562)]) #@39 Guess a select method based on GROUP. (defalias 'gnus-group-name-to-method #[(group) "\303\304\"\203+\305\211\224O\303\306 \"\203$\307 \305\211\224O! \305\225\310OD\202)\307 !\311D)\207\n\207" [group server gnus-select-method string-match ":" 0 "\\+" intern nil ""] 4 (#$ . 84707)]) #@41 Find the select method that GROUP uses. (defalias 'gnus-find-method-for-group #[(group &optional info) "\206\232 \204\f\n\206\232\306 \"J\204\307 !\206\232\f\206%\310\306 \"J8\311\211\203:\312\f8\211\203: \313\232\203>\n\202\231 ;\203\320 \211\203U<\203U\206\314\313\232\203`\n\206\314\314\"A\206\314\314\"A\206\314\203\233\315\316@@@@@A@#\232\204\233\211A\210\202x@@)\206\314\203\310\315\316@@@A@#\232\204\310\211A\210\202\247@))\202D A@;\203C   \203\203 A@@@A@\232\203  @@@@\232\203  @@\232\204 \311\211A\210\202\341 *\204\" AA\204& \202? @ A@\317 Q\320\315\321 @\"! A@D AABBB*\202D \211A@\322\232\203Q \202\231 A@\204^ @\322D\202\231 \323 @!\324\314 \">\203\227\320\325P! \236\204\227\326 @ \236>\203\227\327 \320\325P! A@DC\"\202\230 **\207" [gnus-override-method group gnus-select-method gnus-newsrc-hashtb info method intern-soft gnus-group-name-to-method 2 nil 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods] 7 (#$ . 85002)]) #@37 Find all methods that have FEATURE. (defalias 'gnus-methods-using #[(feature) "\304\211\203 \n@>\203\n@ B\nA\211\204 *\207" [gnus-valid-select-methods outs valids feature nil] 3 (#$ . 86304)]) #@65 Prompt the user for a group name. Disallow invalid group names. (defalias 'gnus-read-group #[(prompt &optional default) "\304\305\204(\306\307\310 \nP \206\304\311B\312#\211\"\203\313\314\"\305\211\203*\207" [group prefix prompt default "" nil string-match "[: `'\"/]\\|^$" read-string 0 gnus-group-history format "Invalid group name: \"%s\". "] 7 (#$ . 86514)]) #@70 Prompt the user for a method. Allow completion over sensible values. (defalias 'gnus-read-method #[(prompt) "\306\307\310 \"\n $\311 \f\312\313\312\314&\211\315\232\203#\211\202\217\316\"\203|\317\316\">\203;\320\321!\202<\315 \203i\322\323#\322\323@@@@@A@#\232\204i\211A\210\202A@@)\206x\324!D)\202\217\316\f\"\203\211\202\217\324!\315D*\207" [gnus-valid-select-methods gnus-opened-servers gnus-predefined-server-alist gnus-server-alist servers prompt append mapcar #[(i) "\301\302@@@A@#C\207" [i format "%s:%s"] 4] completing-read nil t gnus-method-history "" assoc prompt-address read-string "Address: " format "%s:%s" intern method gnus-select-method address opened] 8 (#$ . 86899)]) #@67 Read network news as a slave, without connecting to local server. (defalias 'gnus-slave-no-server #[(&optional arg) "\301\302\"\207" [arg gnus-no-server t] 3 (#$ . 87652) "P"]) #@321 Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server. (defalias 'gnus-no-server #[(&optional arg slave) "\302 \"\207" [arg slave gnus-no-server-1] 3 (#$ . 87837) "P"]) #@23 Read news as a slave. (defalias 'gnus-slave #[(&optional arg) "\301\302\303#\207" [arg gnus nil slave] 4 (#$ . 88278) "P"]) #@30 Pop up a frame to read news. (defalias 'gnus-other-frame #[(&optional arg) "\303!\211\203\304\305 !!\210\202\306\307!\210)\310\n!\207" [gnus-group-buffer window arg get-buffer-window select-frame window-frame other-frame 1 gnus] 4 (#$ . 88409) "P"]) #@212 Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. (defalias 'gnus #[(&optional arg dont-connect slave) "\303 \n#\207" [arg dont-connect slave gnus-1] 4 (#$ . 88672) "P"]) (byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus] 2)