;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:16 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`gnus.el' was compiled for Emacs 19.29 or later")) (run-hooks (quote gnus-load-hook)) (byte-code "!\nW!!\n\n&\n%\n%\n%\n&\n&\n%\n&\n&\n&\n\n& \n&\n&\n&\n&\n&\n&\n&@\n&ƁAȁBC\n&ƁDȁEF\n&ƁGȁHI\n\n& ƁJȁKL\n&ƁMȁNOPQ\n& ƁRȁSTPU\n& ƁVȁWX\nY&ƁZȁ[\n%Ɓ\\ȁ]\nZ%Ɓ^ȁ_\nZ%Ɓ`ȁa\nZ%Ɓbȁc\nZ%Ɓdȁe\nZ%Ɓfȁg\nZ\nh&Ɓiȁj\nZ%ȁk\n\nl&Ɓmȁn\n%Ɓhȁo\n%Ɓpȁqr\nh&Ɓsȁt\nh%Ɓuȁv\n%Ɓwxy\n%Ɓzȁ{\n%Ɓ|ȁ}~\n&Ɓȁ\n&" [require custom emacs-major-version 20 gnus-load message custom-declare-group gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." :group news mail gnus-cache "Cache interface." gnus-start "Starting your favorite newsreader." gnus-start-server "Server options at startup." gnus-group "Group buffers." :link (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") :prefix "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-exit "Exiting gnus." (custom-manual "(gnus)Exiting Gnus")] 10) #@42 Version number for this version of Gnus. (defconst gnus-version-number "5.6.44" (#$ . 4607)) #@42 Version string for this version of Gnus. (defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 4706)) (byte-code "\f&\f&!}\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"#####@A#BCD#EFG#HIJ#KLM#NOP#QRS#TUV#WXY#Z[\\#]^_#`ab#cde#fgh#ijk#lmn#opq#rst#uvw#xyz#{|}#~####!B‡" [custom-declare-variable gnus-inhibit-startup-message nil "If non-nil, the startup message will not be displayed.\nThis variable is used before `.gnus.el' is loaded, so it should\nbe set in `.emacs' instead." :group gnus-start :type boolean gnus-play-startup-jingle "If non-nil, play the Gnus jingle at startup." 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 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-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 gnus-buffers current-load-list] 8) #@67 Do the same as `get-buffer-create', but store the created buffer. (defalias 'gnus-get-buffer-create #[(name) " ! ! B@" [get-buffer name get-buffer-create gnus-buffers] 2 (#$ . 12116)]) #@53 Add the current buffer to the list of Gnus buffers. (defalias 'gnus-add-buffer #[nil "pB" [gnus-buffers] 2 (#$ . 12315)]) #@37 Return a list of live Gnus buffers. (defalias 'gnus-buffers #[nil "@!A\nA3\nA@!*\nA\nAA)" [gnus-buffers buffer-name buffers] 2 (#$ . 12447)]) (byte-code "! B\"#" [boundp gnus-group-buffer "*Group*" current-load-list autoload gnus-play-jingle "gnus-audio" custom-declare-face gnus-splash-face ((((class color) (background dark)) (:foreground "ForestGreen")) (((class color) (background light)) (:foreground "ForestGreen")) (t nil)) "Level 1 newsgroup face."] 4) (defalias 'gnus-splash #[nil "\n!! ? !\n *" [switch-to-buffer gnus-get-buffer-create gnus-group-buffer nil buffer-read-only erase-buffer gnus-inhibit-startup-message gnus-group-startup-message sit-for 0 gnus-play-startup-jingle gnus-play-jingle] 3]) #@47 Indent rigidly using only spaces and no tabs. (defalias 'gnus-indent-rigidly #[(start end arg) " } #eb#\"ɉ#+" [start end 8 tab-width indent-rigidly arg search-forward " " nil t replace-match " "] 4 (#$ . 13243)]) (byte-code "! B‡" [boundp gnus-simple-splash nil current-load-list] 2) #@43 Insert startup message in current buffer. (defalias 'gnus-group-startup-message #[(&optional x y) " \"ced Z]ɥ#ebyed\"\f \fZѥ_]\"c+ed$ebP!" [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 x 46 0 2 1 count-lines pheight window-height wheight rest make-string 3 10 put-text-property face gnus-splash-face " " gnus-version mode-line-buffer-identification t gnus-simple-splash set-buffer-modified-p] 6 (#$ . 13575)]) (byte-code "\n\" \" \"  !)!!!&&&" [format "%s" this-command command string-match "gnus" "gnus-other-frame" gnus-splash gnus-get-buffer-create gnus-group-buffer require custom gnus-util nnheader custom-declare-variable gnus-home-directory "~/" "Directory variable that specifies the \"home\" directory.\nAll other Gnus path variables are initialized from this variable." :group gnus-files :type directory gnus-directory (or (getenv "SAVEDIR") (nnheader-concat gnus-home-directory "News/")) "*Directory variable from which all other Gnus file variables are derived.\n\nNote that Gnus is mostly loaded when the `.gnus.el' file is read.\nThis means that other directory variables that are initialized from\nthis variable won't be set properly if you set this variable in `.gnus.el'.\nSet this variable in `.emacs' instead." gnus-default-directory nil "*Default directory for all Gnus buffers." (choice (const :tag "current" nil) directory)] 8) #@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 (#$ . 15594)) #@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" (#$ . 15873)) (custom-declare-variable (quote gnus-nntpserver-file) "/etc/nntpserver" "A file with only the name of the nntp server in it." :group (quote gnus-files) :group (quote gnus-server) :type (quote file)) (defalias 'gnus-getenv-nntpserver #[nil "!. !.!qp! !   \"?) p!*" [getenv "NNTPSERVER" file-readable-p gnus-nntpserver-file gnus-get-buffer-create " *gnus nntp*" buffer-disable-undo insert-file-contents buffer-string name string-match "^[ \n]*$" kill-buffer] 3]) (byte-code "\f&\f\f& \f&\f&\f&\f&" [custom-declare-variable gnus-select-method (condition-case nil (nconc (list (quote 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)) "*Default method for selecting a newsgroup.\nThis variable should be a list, where the first element is how the\nnews is to be fetched, the second is the address.\n\nFor instance, if you want to get your news via NNTP from\n\"flab.flab.edu\", you could say:\n\n(setq gnus-select-method '(nntp \"flab.flab.edu\"))\n\nIf you want to use your local spool, say:\n\n(setq gnus-select-method (list 'nnspool (system-name)))\n\nIf you use this variable, you must set `gnus-nntp-server' to nil.\n\nThere is a lot more to know about select methods and virtual servers -\nsee the manual for details." :group gnus-server :type 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))) "*Method used for archiving messages you've sent.\nThis should be a mail method.\n\nIt's probably not a very effective to change this variable once you've\nrun Gnus once. After doing that, you must edit this server from the\nserver buffer." gnus-message gnus-message-archive-group nil "*Name of the group in which to save the messages you've written.\nThis can either be a string; a list of strings; or an alist\nof regexps/functions/forms to be evaluated to return a string (or a list\nof strings). The functions are called with the name of the current\ngroup (or nil) as a parameter.\n\nIf you want to save your mail in one group and the news articles you\nwrite in another group, you could say something like:\n\n (setq gnus-message-archive-group\n '((if (message-news-p)\n \"misc-news\"\n \"misc-mail\")))\n\nNormally the group names returned by this variable should be\nunprefixed -- which implicitly means \"store on the archive server\".\nHowever, you may wish to store the message on some other server. In\nthat case, just return a fully prefixed name of the group --\n\"nnml+private:mail.misc\", for instance." (choice (const :tag "none" nil) sexp string) gnus-secondary-servers "List of NNTP servers that the user can choose between interactively.\nTo make Gnus query you for a server, you have to give `gnus' a\nnon-numeric prefix - `C-u M-x gnus', in short." (repeat string) gnus-nntp-server "*The name of the host running the NNTP server.\nThis variable is semi-obsolete. Use the `gnus-select-method'\nvariable instead." (choice (const :tag "disable" nil) string) gnus-secondary-select-methods "A list of secondary methods that will be used for reading news.\nThis is a list where each element is a complete select method (see\n`gnus-select-method').\n\nIf, for instance, you want to read your mail with the nnml backend,\nyou could set this variable:\n\n(setq gnus-secondary-select-methods '((nnml \"\")))" (repeat gnus-select-method)] 10) #@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 (quote ("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus")) (#$ . 20058)) (custom-declare-variable (quote gnus-local-domain) nil "Local domain name without a host name.\nThe DOMAINNAME environment variable is used instead if it is defined.\nIf the `system-name' function returns the full Internet name, there is\nno need to set this variable." :group (quote gnus-message) :type (quote (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 (#$ . 20685)) (byte-code "\f&\f&\f&\f\f& \f&\f&\f&\f\f& \f\f& \f&\f\f& \f\f& \f&\f&\f&@\f&AB\f&CD\f&E΁F\f&GH\f&IJK\fLM&N΁O\f&PQ\f&R΁S\f&T΁U\fV&WXY\fZ[&\\]\f&^_`\fab&cde\ff&ghijklmnopc\"BBBqB%rst\fuv&wx\fuy&z{\f|}&~\f|&\f&\f&\fM&\fM& \f&\f\f& \f&\f\fM& 䁠\f&" [custom-declare-variable gnus-refer-article-method nil "Preferred method for fetching an article by Message-ID.\nIf you are reading news from the local spool (with nnspool), fetching\narticles by Message-ID is painfully slow. By setting this method to an\nnntp method, you might get acceptable results.\n\nThe value of this variable must be a valid select method as discussed\nin the documentation of `gnus-select-method'." :group gnus-server :type (choice (const :tag "default" nil) gnus-select-method) gnus-group-faq-directory (quote ("/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/")) "*Directory where the group FAQs are stored.\nThis will most commonly be on a remote machine, and the file will be\nfetched by ange-ftp.\n\nThis variable can also be a list of directories. In that case, the\nfirst element in the list will be used by default. The others can\nbe used when being prompted for a site.\n\nNote that Gnus uses an aol machine as the default directory. If this\nfeels fundamentally unclean, just think of it as a way to finally get\nsomething of value back from them.\n\nIf the default site is too slow, try one of these:\n\n North America: mirrors.aol.com /pub/rtfm/usenet\n ftp.seas.gwu.edu /pub/rtfm\n rtfm.mit.edu /pub/usenet\n Europe: ftp.uni-paderborn.de /pub/FAQ\n src.doc.ic.ac.uk /usenet/news-FAQS\n ftp.sunet.se /pub/usenet\n sunsite.auc.dk /pub/usenet\n Asia: nctuccca.edu.tw /USENET/FAQ\n hwarang.postech.ac.kr /pub/usenet\n ftp.hk.super.net /mirror/faqs" gnus-group-various (choice directory (repeat directory)) gnus-use-cross-reference t "*Non-nil means that cross referenced articles will be marked as read.\nIf nil, ignore cross references. If t, mark articles as read in\nsubscribed newsgroups. If neither t nor nil, mark as read in all\nnewsgroups." (choice (const :tag "off" nil) (const :tag "subscribed" t) (sexp :format "all" :value always)) gnus-process-mark 35 "*Process mark." gnus-group-visual gnus-summary-marks character gnus-asynchronous "*If non-nil, Gnus will supply backends with data needed for async article fetching." boolean gnus-large-newsgroup 200 "*The number of articles which indicates a large newsgroup.\nIf the number of articles in a newsgroup is greater than this value,\nconfirmation is required for selecting the newsgroup." gnus-group-select integer gnus-use-long-file-name (not (memq system-type (quote (usg-unix-v xenix)))) "*Non-nil means that the default name of a file to save articles in is the group name.\nIf it's nil, the directory form of the group name is used instead.\n\nIf this variable is a list, and the list contains the element\n`not-score', long file names will not be used for score files; if it\ncontains the element `not-save', long file names will not be used for\nsaving; and if it contains the element `not-kill', long file names\nwill not be used for kill files.\n\nNote that the default for this variable varies according to what system\ntype you're using. On `usg-unix-v' and `xenix' this variable defaults\nto nil while on all other systems it defaults to t." gnus-start gnus-kill-files-directory gnus-directory "*Name of the directory where kill files will be stored (default \"~/News\")." gnus-score-files gnus-score-kill directory gnus-save-score "*If non-nil, save group scoring info." gnus-score-various gnus-use-undo "*If non-nil, allow undoing in Gnus group mode buffers." gnus-meta gnus-use-adaptive-scoring "*If non-nil, use some adaptive scoring scheme.\nIf a list, then the values `word' and `line' are meaningful. The\nformer will perform adaption on individual words in the subject\nheader while `line' will perform adaption on several headers." gnus-score-adapt (set (const word) (const line)) gnus-use-cache (quote passive) "*If nil, Gnus will ignore the article cache.\nIf `passive', it will allow entering (and reading) articles\nexplicitly entered into the cache. If anything else, use the\ncache to the full extent of the law." gnus-cache (choice (const :tag "off" nil) (const :tag "passive" passive) (const :tag "active" t)) gnus-use-trees "*If non-nil, display a thread tree buffer." gnus-use-grouplens "*If non-nil, use GroupLens ratings." gnus-keep-backlog "*If non-nil, Gnus will keep read articles for later re-retrieval.\nIf it is a number N, then Gnus will only keep the last N articles\nread. If it is neither nil nor a number, Gnus will keep all read\narticles. This is not a good idea." (choice (const :tag "off" nil) integer (sexp :format "all" :value t)) gnus-use-nocem "*If non-nil, Gnus will read NoCeM cancel messages." gnus-suppress-duplicates "*If non-nil, Gnus will mark duplicate copies of the same article as read." gnus-use-demon "If non-nil, Gnus might use some demons." gnus-use-scoring "*If non-nil, enable scoring." gnus-use-picons "*If non-nil, display picons." gnus-summary-prepare-exit-hook (quote (gnus-summary-expire-articles)) "*A hook called when preparing to exit from the summary buffer.\nIt calls `gnus-summary-expire-articles' by default." gnus-summary-exit hook gnus-novice-user "*Non-nil means that you are a usenet novice.\nIf non-nil, verbose messages may be displayed and confirmations may be\nrequired." gnus-expert-user "*Non-nil means that you will never be asked for confirmation about anything.\nThat doesn't mean *anything* anything; particularly destructive\ncommands will still require prompting." gnus-interactive-catchup "*If non-nil, require your confirmation when catching up a group." gnus-interactive-exit "*If non-nil, require your confirmation when exiting Gnus." gnus-exit gnus-extract-address-components (quote gnus-extract-address-components) "*Function for extracting address components from a From header.\nTwo pre-defined function exist: `gnus-extract-address-components',\nwhich is the default, quite fast, and too simplistic solution, and\n`mail-extract-address-components', which works much better, but is\nslower." gnus-summary-format (radio (function-item gnus-extract-address-components) (function-item mail-extract-address-components) (function :tag "Other")) gnus-carpal "*If non-nil, display clickable icons." gnus-shell-command-separator ";" "String used to separate to shell commands." gnus-files string gnus-valid-select-methods (quote (("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) ("nnlistserv" none) ("nnagent" post-mail))) "*An alist of valid select methods.\nThe first element of each list lists should be a string with the name\nof the select method. The other elements may be the category of\nthis method (i. e., `post', `mail', `none' or whatever) or other\nproperties that this method has (like being respoolable).\nIf you implement a new select method, all you should have to change is\nthis variable. I think." (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)))) define-widget gnus-select-method list "Widget for entering a select method." :args choice :tag "Method" mapcar #[(entry) " \f@!F" [const :format "%v\n" intern entry] 5] ((string :tag "Address") (editable-list :inline t (list :format "%v" variable (sexp :tag "Value")))) gnus-updated-mode-lines (quote (group article summary tree)) "List of buffers that should update their mode lines.\nThe list may contain the symbols `group', `article', `tree' and\n`summary'. If the corresponding symbol is present, Gnus will keep\nthat mode line updated with information that may be pertinent.\nIf this variable is nil, screen refresh may be quicker." gnus-various (set (const group) (const article) (const summary) (const tree)) gnus-mode-non-string-length "*Max length of mode-line non-string contents.\nIf this is nil, Gnus will take space as is needed, leaving the rest\nof the modeline intact. Note that the default of nil is unlikely\nto be desirable; see the manual for further details." (choice (const nil) integer) gnus-auto-expirable-newsgroups "*Groups in which to automatically mark read articles as expirable.\nIf non-nil, this should be a regexp that should match all groups in\nwhich to perform auto-expiry. This only makes sense for mail groups." nnmail-expire (choice (const nil) regexp) gnus-total-expirable-newsgroups "*Groups in which to perform expiry of all read articles.\nUse with extreme caution. All groups that match this regexp will be\nexpiring - which means that all read articles will be deleted after\n(say) one week. (This only goes for mail groups and the like, of\ncourse.)" (choice (const nil) regexp) gnus-group-uncollapsed-levels 1 "Number of group name elements to leave alone when making a short group name." gnus-group-use-permanent-levels "*If non-nil, once you set a level, Gnus will use this level." gnus-group-levels gnus-load-hook "A hook run while Gnus is loaded." gnus-apply-kill-hook (quote (gnus-apply-kill-file)) "A hook called to apply kill files to a group.\nThis hook is intended to apply a kill file to the selected newsgroup.\nThe function `gnus-apply-kill-file' is called by default.\n\nSince a general kill file is too heavy to use only for a few\nnewsgroups, I recommend you to use a lighter hook function. For\nexample, if you'd like to apply a kill file to articles which contains\na string `rmgroup' in subject in newsgroup `control', you can use the\nfollowing hook:\n\n (setq gnus-apply-kill-hook\n (list\n (lambda ()\n (cond ((string-match \"control\" gnus-newsgroup-name)\n (gnus-kill \"Subject\" \"rmgroup\")\n (gnus-expunge \"X\"))))))" :options (gnus-apply-kill-file) gnus-group-change-level-function "Function run when a group level is changed.\nIt is called with three parameters -- GROUP, LEVEL and OLDLEVEL." gnus-group-level function gnus-visual (quote (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)) "*Enable visual features.\nIf `visual' is disabled, there will be no menus and few faces. Most of\nthe visual customization options below will be ignored. Gnus will use\nless space and be faster as a result.\n\nThis variable can also be a list of visual elements to switch on. For\ninstance, to switch off all visual things except menus, you can say:\n\n (setq gnus-visual '(menu))\n\nValid elements include `summary-highlight', `group-highlight',\n`article-highlight', `mouse-face', `summary-menu', `group-menu',\n`article-menu', `tree-highlight', `menu', `highlight', `browse-menu',\n`server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu',\nand `grouplens-menu'." (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)) gnus-mouse-face (condition-case nil (if (gnus-visual-p (quote mouse-face) (quote highlight)) (if (boundp (quote gnus-mouse-face)) (or gnus-mouse-face (quote highlight)) (quote highlight)) (quote default)) (error (quote highlight))) "*Face used for group or summary buffer mouse highlighting.\nThe line beneath the mouse pointer will be highlighted with this\nface." face gnus-article-display-hook (if (and (string-match "XEmacs" emacs-version) (featurep (quote xface))) (quote (gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight gnus-article-display-x-face)) (quote (gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight))) "*Controls how the article buffer will look.\n\nIf you leave the list empty, the article will appear exactly as it is\nstored on the disk. The list entries will hide or highlight various\nparts of the article, making it easier to find the information you\nwant." gnus-article-highlight (gnus-article-add-buttons gnus-article-add-buttons-to-head gnus-article-emphasize gnus-article-fill-cited-article gnus-article-remove-cr gnus-article-de-quoted-unreadable gnus-summary-stop-page-breaking gnus-summary-toggle-mime gnus-article-hide gnus-article-hide-headers gnus-article-hide-boring-headers gnus-article-hide-signature gnus-article-hide-citation gnus-article-hide-pgp gnus-article-hide-pem gnus-article-highlight gnus-article-highlight-headers gnus-article-highlight-citation gnus-article-highlight-signature gnus-article-date-ut gnus-article-date-local gnus-article-date-lapsed gnus-article-date-original gnus-article-remove-trailing-blank-lines gnus-article-strip-leading-blank-lines gnus-article-strip-multiple-blank-lines gnus-article-strip-blank-lines gnus-article-treat-overstrike gnus-article-display-x-face gnus-smiley-display) gnus-article-save-directory "*Name of the directory articles will be saved in (default \"~/News\")." gnus-article-saving] 12) #@33 Whether Gnus is plugged or not. (defvar gnus-plugged t (#$ . 35897)) (byte-code "! B! B!! B!. BLJ" [boundp gnus-group-get-parameter-function gnus-group-get-parameter current-load-list gnus-original-article-buffer " *Original Article*" gnus-newsgroup-name nil gnus-ephemeral-servers] 2) #@47 Whether we want to use the Gnus agent or not. (defvar gnus-agent nil (#$ . 36225)) #@67 Dynamically bound variable that says what the current backend is. (defvar gnus-command-method nil (#$ . 36314)) #@47 The current method for selecting a newsgroup. (defvar gnus-current-select-method nil (#$ . 36432)) #@47 Buffer where Gnus thread trees are displayed. (defvar gnus-tree-buffer "*Tree*" (#$ . 36537)) (byte-code "! B! B!  B!- B‡" [boundp gnus-use-generic-from nil current-load-list gnus-method-history gnus-mail-method-history gnus-group-history] 2) #@28 List of available servers. (defvar gnus-server-alist nil (#$ . 36822)) (custom-declare-variable (quote gnus-cache-directory) (quote (nnheader-concat gnus-directory "cache/")) "*The directory where cached articles will be stored." :group (quote gnus-cache) :type (quote directory)) #@43 List of predefined (convenience) servers. (defvar gnus-predefined-server-alist (byte-code " D D \"DC" ["cache" nnspool nnspool-spool-directory gnus-cache-directory nnspool-nov-directory nnspool-active-file nnheader-concat "active"] 9) (#$ . 37109)) (byte-code "! B B! B!( B!5 B!B\n B!O B!\\\f B!i BLJ" [boundp gnus-topic-indentation "" current-load-list ((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache) (downloadable . download) (unsendable . unsend)) gnus-article-mark-lists gnus-headers-retrieved-by nil gnus-article-reply gnus-override-method 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)" (#$ . 37965)) #@46 Alist of major modes and related Info nodes. (defvar gnus-info-nodes (quote ((gnus-group-mode "(gnus)The Group Buffer") (gnus-summary-mode "(gnus)The Summary Buffer") (gnus-article-mode "(gnus)The Article Buffer") (mime/viewer-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"))) (#$ . 38103)) (byte-code "! B! B!! B!. B" [boundp gnus-group-buffer "*Group*" current-load-list gnus-summary-buffer "*Summary*" gnus-article-buffer "*Article*" gnus-server-buffer "*Server*"] 2) #@38 Whether this Gnus is a slave or not. (defvar gnus-slave nil (#$ . 38735)) #@52 Whether this Gnus is running in batch mode or not. (defvar gnus-batch-mode nil (#$ . 38815)) #@49 Gnus variables saved in the quick startup file. (defvar gnus-variable-list (quote (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)) (#$ . 38914)) #@104 Assoc list of read articles. gnus-newsrc-hashtb should be kept so that both hold the same information. (defvar gnus-newsrc-alist nil (#$ . 39217)) #@33 Hashtable of gnus-newsrc-alist. (defvar gnus-newsrc-hashtb nil (#$ . 39370)) #@28 List of killed newsgroups. (defvar gnus-killed-list nil (#$ . 39453)) #@44 Hash table equivalent of gnus-killed-list. (defvar gnus-killed-hashtb nil (#$ . 39529)) #@33 List of almost dead newsgroups. (defvar gnus-zombie-list nil (#$ . 39623)) #@29 Descriptions of newsgroups. (defvar gnus-description-hashtb nil (#$ . 39704)) #@64 List of newsgroups that have recently been killed by the user. (defvar gnus-list-of-killed-groups nil (#$ . 39788)) #@31 Hashtable of active articles. (defvar gnus-active-hashtb nil (#$ . 39910)) #@36 Hashtable of moderated newsgroups. (defvar gnus-moderated-hashtb nil (#$ . 39991)) (byte-code "! B! B B!% B\"&" [boundp gnus-prev-winconf nil current-load-list gnus-reffed-article-number rmail-default-rmail-file gnus-dead-summary mapcar #[(package) " >A@ A@= AAA A\")" [:interactive package interactive mapcar #[(function) "\n:\n>@\n@\n\f@ %)" [nil keymap function autoload package interactive] 6]] 4] (("metamail" metamail-buffer) ("info" Info-goto-node) ("hexl" hexl-hex-string-to-integer) ("pp" pp pp-to-string pp-eval-expression) ("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) ("nnmail" nnmail-split-fancy nnmail-article-group nnmail-date-to-time) ("nnvirtual" nnvirtual-catchup-group nnvirtual-convert-headers) ("timezone" timezone-make-date-arpa-standard timezone-fix-time timezone-make-sortable-date timezone-make-time-string) ("rmailout" rmail-output) ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages rmail-show-message) ("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-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-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-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-post-news) ("gnus-uu" gnus-uu-delete-work-dir gnus-quote-arg-for-sh-or-csh 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-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-clear-inboxes-moved 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-hack-decode-rfc1522) ("gnus-art" :interactive t gnus-article-hide-headers gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-word-wrap gnus-article-remove-cr gnus-article-remove-trailing-blank-lines gnus-article-display-x-face gnus-article-de-quoted-unreadable gnus-article-mime-decode-quoted-printable 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-decode-rfc1522 article-decode-rfc1522 gnus-start-date-timer gnus-stop-date-timer) ("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)) custom-declare-variable gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in the summary buffer.\n\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%N Article number, left padded with spaces (string)\n%S Subject (string)\n%s Subject if it is at the root of a thread, and \"\" otherwise (string)\n%n Name of the poster (string)\n%a Extracted name of the poster (string)\n%A Extracted address of the poster (string)\n%F Contents of the From: header (string)\n%x Contents of the Xref: header (string)\n%D Date of the article (string)\n%d Date of the article (string) in DD-MMM format\n%M Message-id of the article (string)\n%r References of the article (string)\n%c Number of characters in the article (integer)\n%L Number of lines in the article (integer)\n%I Indentation based on thread level (a string of spaces)\n%T A string with two possible values: 80 spaces if the article\n is on thread level two or larger and 0 spaces on level one\n%R \"A\" if this article has been replied to, \" \" otherwise (character)\n%U Status of this article (character, \"R\", \"K\", \"-\" or \" \")\n%[ Opening bracket (character, \"[\" or \"<\")\n%] Closing bracket (character, \"]\" or \">\")\n%> Spaces of length thread-level (string)\n%< Spaces of length (- 20 thread-level) (string)\n%i Article score (number)\n%z Article zcore (character)\n%t Number of articles under the current thread (number).\n%e Whether the thread is empty or not (character).\n%l GroupLens score (string).\n%V Total thread score (number).\n%P The line number (number).\n%O Download mark (character).\n%u User defined specifier. The next character in the format string should\n be a letter. Gnus will call the function gnus-user-format-function-X,\n where X is the letter following %u. The function will be passed the\n current header as argument. The function should return a string, which\n will be inserted into the summary just like information from any other\n summary specifier.\n\nText between %( and %) will be highlighted with `gnus-mouse-face'\nwhen the mouse point is placed inside the area. There can only be one\nsuch area.\n\nThe %U (status), %R (replied) and %z (zcore) specs have to be handled\nwith care. For reasons of efficiency, Gnus will compute what column\nthese characters will end up in, and \"hard-code\" that. This means that\nit is illegal to have these specs after a variable-length spec. Well,\nyou might not be arrested, but your summary buffer will look strange,\nwhich is bad enough.\n\nThe smart choice is to have these specs as for to the left as\npossible.\n\nThis restriction may disappear in later versions of Gnus." :type string :group gnus-summary-format] 8) (defalias 'gnus-suppress-keymap #[(keymap) " !  A@#)" [suppress-keymap keymap ([backspace] [delete] "" "") keys define-key undefined] 4]) (byte-code "!  ! ) B!%  ! ) B!:  ! ) B\"\"" [boundp gnus-article-mode-map make-keymap keymap gnus-suppress-keymap current-load-list gnus-summary-mode-map gnus-group-mode-map defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 3) (defalias 'gnus-header-from #[(header) "H" [header 2] 2]) #@40 Get hash value of STRING in HASHTABLE. (defalias 'gnus-gethash '(macro . #[(string hashtable) "\n ED" [symbol-value intern-soft string hashtable] 4 (#$ . 51953)])) #@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE. (defalias 'gnus-sethash '(macro . #[(string value hashtable) "\n E\fE" [set intern string hashtable value] 4 (#$ . 52126)])) (put (quote gnus-sethash) (quote edebug-form-spec) (quote (form form form))) #@64 Get the currently computed number of unread articles in GROUP. (defalias 'gnus-group-unread '(macro . #[(group) "\nBBD" [car gnus-gethash group (gnus-newsrc-hashtb)] 4 (#$ . 52398)])) #@33 Get the newsrc entry for GROUP. (defalias 'gnus-group-entry '(macro . #[(group) " BB" [gnus-gethash group (gnus-newsrc-hashtb)] 3 (#$ . 52592)])) #@27 Get active info on GROUP. (defalias 'gnus-active '(macro . #[(group) " BB" [gnus-gethash group (gnus-active-hashtb)] 3 (#$ . 52747)])) #@26 Set GROUP's active info. (defalias 'gnus-set-active '(macro . #[(group active) " \nBBB" [gnus-sethash group active (gnus-active-hashtb)] 4 (#$ . 52891)])) (defalias 'gnus-info-group '(macro . #[(info) "\nE" [nth 0 info] 3])) (defalias 'gnus-info-rank '(macro . #[(info) "\nE" [nth 1 info] 3])) (defalias 'gnus-info-read '(macro . #[(info) "\nE" [nth 2 info] 3])) (defalias 'gnus-info-marks '(macro . #[(info) "\nE" [nth 3 info] 3])) (defalias 'gnus-info-method '(macro . #[(info) "\nE" [nth 4 info] 3])) (defalias 'gnus-info-params '(macro . #[(info) "\nE" [nth 5 info] 3])) (defalias 'gnus-info-level '(macro . #[(info) " DDCBB" [let rank gnus-info-rank info ((if (consp rank) (car rank) rank))] 4])) (defalias 'gnus-info-score '(macro . #[(info) " DDCBB" [let rank gnus-info-rank info ((or (and (consp rank) (cdr rank)) 0))] 4])) (defalias 'gnus-info-set-group '(macro . #[(info group) " \nE" [setcar info group] 3])) (defalias 'gnus-info-set-rank '(macro . #[(info rank) " E\fE" [setcar nthcdr 1 info rank] 4])) (defalias 'gnus-info-set-read '(macro . #[(info read) " E\fE" [setcar nthcdr 2 info read] 4])) (defalias 'gnus-info-set-marks '(macro . #[(info marks &optional extend) "\f\n BBB\nE E" [extend gnus-info-set-entry info marks (3) setcar nthcdr 3] 4])) (defalias 'gnus-info-set-method '(macro . #[(info method &optional extend) "\f\n BBB\nE E" [extend gnus-info-set-entry info method (4) setcar nthcdr 4] 4])) (defalias 'gnus-info-set-params '(macro . #[(info params &optional extend) "\f\n BBB\nE E" [extend gnus-info-set-entry info params (5) setcar nthcdr 5] 4])) (defalias 'gnus-info-set-entry #[(info entry number) "G XC  " [info number nil entry] 2]) (defalias 'gnus-info-set-level '(macro . #[(info level) " DDCEEFE" [let rank cdr info if (consp (car rank)) setcar (car rank) level] 8])) (defalias 'gnus-info-set-score '(macro . #[(info score) " DDCEEEFE" [let rank cdr info if (consp (car rank)) setcdr (car rank) score setcar cons (car rank)] 10])) (defalias 'gnus-get-info '(macro . #[(group) " BBE" [nth 2 gnus-gethash group (gnus-newsrc-hashtb)] 5])) (byte-code " B" [gnus-visual current-load-list] 2) (defalias 'gnus-visual-p #[(&optional type class) " \n< >\n>Ç" [gnus-visual type class t] 2]) (byte-code "!!\f Bć" [require gnus-ems boundp gnus-shutdown-alist nil current-load-list] 2) #@52 Run FUNCTION whenever one of SYMBOLS is shut down. (defalias 'gnus-add-shutdown #[(function &rest symbols) " B\nB" [function symbols gnus-shutdown-alist] 2 (#$ . 55364)]) #@45 Shut down everything that waits for SYMBOL. (defalias 'gnus-shutdown #[(symbol) " A@\f\nA>\n@ *" [gnus-shutdown-alist nil entry alist symbol] 2 (#$ . 55545)]) #@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) "\nDD" [gnus-string-or-1 quote strings] 3 (#$ . 55730)])) (defalias 'gnus-string-or-1 #[(strings) "\n \nA@! \" )" [nil string strings eval string-match "^[ ]*$"] 4]) #@73 Version number of this version of Gnus. If ARG, insert string at point. (defalias 'gnus-version #[(&optional arg) " \n!c\n!" [arg message gnus-version] 2 (#$ . 56097) "P"]) #@44 Return VERSION as a floating point number. (defalias 'gnus-continuum-version #[(version) "\n\"\n\"Ĕ\n\"\n\"lj \n \f \"5\n\" \"!\n \"! єV \"!W\nU\f՝nւ\fםy؂\fٝڂ\f۝܂\fݝނ\fߝ\fᝅ $\n $!-" [string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version "^\\(.?\\)gnus-\\([0-9.]+\\)$" 1 match-string 2 nil least minor major number alpha "\\([0-9]\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?" error "Invalid version string: %s" string-to-number 3 0 format "%s00%02d%02d" ("(ding)" "d") "4.99" ("September" "s") "5.01" ("Red" "r") "5.03" ("Quassia" "q") "5.05" ("p") "5.07" ("o") "5.09" ("n") "5.11" "%d.%02d%02d"] 6 (#$ . 56283)]) #@34 Find Info documentation of Gnus. (defalias 'gnus-info-find-node #[nil " \fA@!p!)" [nil gnus-info-buffer Info-goto-node major-mode gnus-info-nodes gnus-configure-windows info] 3 (#$ . 57028) nil]) #@24 Current prefix symbol. (defvar gnus-current-prefix-symbol nil (#$ . 57239)) #@33 List of current prefix symbols. (defvar gnus-current-prefix-symbols nil (#$ . 57321)) #@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) " GW # Hɕ'\" U:\n $ UH\np# UW\np!\" Ub  Ur\n $ U|` U\n$ U\n$ U\n! U\n! U! U! U  U! U\n!! U-! U- U U\n! U,\n!! U8\n! UD\n! UP\n! U[; Uf= Uq  @UA`B\"CDC!)A`E\"F  GUHA`B\"CDC!)A`E\"F I8J!\fB U\fB\fBK\f\"," [0 nil prompt c out i string string-match ".\\([^\n]*\\)\n?" 1 match-string 97 completing-read obarray fboundp t 98 read-buffer 66 other-buffer 99 read-char 67 commandp 100 68 read-file-name default-directory 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 current-prefix-arg 80 114 gnus-prefix-nil 115 read-string 83 intern 118 read-variable 120 read-minibuffer eval-minibuffer 121 gnus-current-prefix-symbol 89 gnus-current-prefix-symbols 103 gnus-group-group-name 65 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject 72 3 gnus-newsgroup-data "Non-implemented spec" delq] 6 (#$ . 57414)]) #@67 Read a symbolic argument and a command, and then execute command. (defalias 'gnus-symbolic-argument #[(&optional arg) "  \n- !\" !!B\"\f@\n\"!-" [this-command-keys in-command command nil gnus-current-prefix-symbols gnus-current-prefix-symbol syms message "%s-" key-description intern char-to-string read-char read-key-sequence t call-interactively key-binding] 5 (#$ . 59016) "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) "" [G99219 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error))] 3 (#$ . 59447)]) (put (quote gnus-check-backend-function) (quote byte-optimizer) (quote 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) " Ə+?" [group gnus-newsgroup-name request-replace-article func G99219 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error))] 3 (#$ . 59911)]) #@48 Check whether GROUP is total-expirable or not. (defalias 'gnus-group-total-expirable-p #[(group) " !\f>Ƃ'\f A'' \"*" [gnus-group-find-parameter group nil val params total-expire t gnus-total-expirable-newsgroups string-match] 3 (#$ . 60407)]) #@47 Check whether GROUP is auto-expirable or not. (defalias 'gnus-group-auto-expirable-p #[(group) " !\f>Ƃ'\f A'' \"*" [gnus-group-find-parameter group nil val params auto-expire t gnus-auto-expirable-newsgroups string-match] 3 (#$ . 60683)]) #@38 Say whether GROUP is virtual or not. (defalias 'gnus-virtual-group-p #[(group) "\f!@! \">" [virtual assoc symbol-name gnus-find-method-for-group group gnus-valid-select-methods] 5 (#$ . 60955)]) #@64 Return non-nil if GROUP (and ARTICLE) come from a news server. (defalias 'gnus-news-group-p #[(group &optional article) "\n\"-\n\"-\f\fW\n\f\"=\f!-\n\fH\"=" [gnus-member-of-valid post group post-mail article 0 gnus-request-type news vectorp 4] 4 (#$ . 61161)]) (defalias 'gnus-writable-groups #[nil "\fA@@\n!\n B +" [gnus-newsrc-alist nil group groups alist gnus-group-read-only-p] 3]) (defalias 'gnus-use-long-file-name #[(symbol) "?" [gnus-use-long-file-name symbol] 2]) (defalias 'gnus-generate-new-group-name #[(leaf) " \"J\nT!R *" [leaf 0 num name intern-soft gnus-newsrc-hashtb "<" int-to-string ">"] 5]) #@40 Say whether GROUP is ephemeral or not. (defalias 'gnus-ephemeral-group-p #[(group) " #" [gnus-group-get-parameter group quit-config t] 4 (#$ . 61860)]) #@34 Return the quit-config of GROUP. (defalias 'gnus-group-quit-config #[(group) " #" [gnus-group-get-parameter group quit-config t] 4 (#$ . 62022)]) #@50 Remove ephemeral GROUP from relevant structures. (defalias 'gnus-kill-ephemeral-group #[(group) " \n\"L" [intern group gnus-newsrc-hashtb nil] 3 (#$ . 62178)]) #@32 Make mode lines a bit simpler. (defalias 'gnus-simplify-mode-line #[nil "A\n<!\n!\n8ƚ\nǠ" [gnus-mode-line-modified mode-line-modified mode-line-format make-local-variable copy-sequence 3 " " " "] 2 (#$ . 62347)]) (defalias 'gnus-server-add-address #[(method) " @!\n \">1\nP! 1 @ >1 \nP! A@DC\"2 )" [symbol-name method method-name address assoc gnus-valid-select-methods intern "-address" physical-address append] 5]) (put (quote gnus-server-add-address) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-server-get-method #[(group method) "; !\n\n@; \"2 2A@Ś2@!\n\">kP!k@\n>kP!A@DC\"l*" [method gnus-server-to-method gnus-select-method group gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append] 5]) (put (quote gnus-server-get-method) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Map virtual server names to select methods. (defalias 'gnus-server-to-method #[(server) " < R\nR\f\"AR \"ARM@@@@@A@#MA+@@)" [server "native" gnus-select-method assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s"] 5 (#$ . 63369)]) #@36 Say whether two servers are equal. (defalias 'gnus-method-equal '(macro . #[(ss1 ss2) "\nD\fDDBB" [let s1 ss1 s2 ss2 ((or (equal s1 s2) (and (= (length s1) (length s2)) (progn (while (and s1 (member (car s1) s2)) (setq s1 (cdr s1))) (null s1)))))] 4 (#$ . 63702)])) #@36 Say whether two methods are equal. (defalias 'gnus-server-equal #[(m1 m2) " ;!  ( ;' !(  \fP G\fGUP N @\fN A@ ?," [m1 gnus-select-method gnus-server-to-method m2 s2 s1] 4 (#$ . 63979)]) #@47 Return a list of known servers using BACKEND. (defalias 'gnus-servers-using-backend #[(backend) " \f @@@= @@\nB A\n*" [gnus-opened-servers nil out opened backend] 2 (#$ . 64219)]) #@55 Say whether the user wants to use the archive server. (defalias 'gnus-archive-server-wanted-p #[nil " \n‡ ÇA@! !)" [gnus-message-archive-method gnus-message-archive-group nil t nnfolder-active-file active file-exists-p] 3 (#$ . 64423)]) #@46 Return the whole name from GROUP and METHOD. (defalias 'gnus-group-prefixed-name #[(group method) "; !\"\f@\"@\"!\"0\n\"DA@DA@˘?DA@P\fR" [method gnus-server-to-method gnus-server-equal "native" group format "%s" assoc gnus-methods-using address gnus-message-archive-method "" "+" ":"] 5 (#$ . 64690)]) #@46 Return the prefix of the current group name. (defalias 'gnus-group-real-prefix #[(group) "\n\" \nÉOć" [string-match "^[^:]+:" group 0 ""] 3 (#$ . 65042)]) #@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) " !Ú\f Ɖ \n \n\":\nωSO! \nϕ\nGSO\nD\n\nGSO!  v @@@ =l @@ @@A@\nl @@ A D\"@\"@ \nD-)" [gnus-group-real-prefix group prefix "" gnus-select-method gnus-opened-servers nil found possible backend server servers string-match "^[^\\+]+\\+" intern 0 rassoc gnus-server-alist] 6 (#$ . 65212)]) #@53 Return whether METHOD is a secondary select method. (defalias 'gnus-secondary-method-p #[(method) "\n\n;\n!z\n  z\n@;+ + \n\"z\n? ?\nA@ǚ?\nz\n\n@!  \f\">x P!\nx\n@\f>x\n P!\nA@DC\"y\n**@\n;\n!\n \n@; \n\"\n \nA@ǚ\n\n\n@!  \f\"> P!\n\n@\f>\n P!\nA@DC\"\n**A*" [gnus-secondary-select-methods nil method group gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append gmethod methods] 7 (#$ . 65746)]) (put (quote gnus-secondary-method-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@59 Return a list of all groups that are fetched from SERVER. (defalias 'gnus-groups-from-server #[(server) "A\fA@# 8\" @\nB\n\"+" [gnus-newsrc-alist nil groups info alist gnus-server-equal 4 server sort string<] 3 (#$ . 66522)]) #@40 Say whether a group is foreign or not. (defalias 'gnus-group-foreign-p #[(group) " !? !?" [gnus-group-native-p group gnus-group-secondary-p] 2 (#$ . 66780)]) #@41 Say whether the group is native or not. (defalias 'gnus-group-native-p #[(group) "\n\"?" [string-match ":" group] 3 (#$ . 66950)]) #@44 Say whether the group is secondary or not. (defalias 'gnus-group-secondary-p #[(group) " ! \n\n;\n!\n \n@;1 1 \n\"\nE E\nA@ȚE\n\n\n@!\n\n \">~\nP!\n~\n@ >~\n\nP!\nA@DC\"\n**@\n;\n!\n\n@; \n\"\n \nA@Ț\n\n\n@!\n\n \">\nP!\n\n@ >\n\nP!\nA@DC\"\n**A+" [gnus-find-method-for-group group method gnus-secondary-select-methods nil gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append gmethod methods] 7 (#$ . 67090)]) #@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) "q \n!\f \f# *" [gnus-group-buffer gnus-group-get-parameter-function group parameters symbol gnus-group-parameter-value allow-list] 4 (#$ . 67799)]) #@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) " \f\"J88 # )" [5 2 intern-soft group gnus-newsrc-hashtb params symbol gnus-group-parameter-value allow-list] 5 (#$ . 68151)]) #@45 Return the value of SYMBOL in group PARAMS. (defalias 'gnus-group-parameter-value #[(params symbol &optional allow-list) " >@ ō)" [symbol params nil elem found (byte-code "A@) : @\n= A: A\"" [params elem symbol allow-list throw found] 3)] 2 (#$ . 68580)]) #@31 Add parameter PARAM to GROUP. (defalias 'gnus-group-add-parameter #[(group param) "\n \"J8(\n:@\"\f8B\n#)" [2 intern-soft group gnus-newsrc-hashtb info gnus-group-remove-parameter param gnus-group-set-info 5 params] 5 (#$ . 68877)]) #@39 Set parameter NAME to VALUE in GROUP. (defalias 'gnus-group-set-parameter #[(group name value) "\n \"J8N\n\"\f8BC \nG\n@<4\n@@=> \n@C\" \nA\n# \n#*)" [2 intern-soft group gnus-newsrc-hashtb info gnus-group-remove-parameter name 5 value new-params old-params append gnus-group-set-info params] 5 (#$ . 69142)]) #@35 Remove parameter NAME from GROUP. (defalias 'gnus-group-remove-parameter #[(group name) "\n \"J8:\f89\"3\"\f))" [2 intern-soft group gnus-newsrc-hashtb info 5 params delq name] 5 (#$ . 69499)]) #@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) "\n \"J8O\fA@:2 @\fA@:% A&)-\\N @\fA@:C AD)K\\B))" [2 intern-soft group gnus-newsrc-hashtb info rank 0 score 1] 5 (#$ . 69744)]) #@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) "$\n##Õ\f\\\f\n\"\n\"\n\" \n G#\n\"\n \\axWnxWxOP\n\\O\n+\n\"\n\\O\n\\O\n)\n\n\"V \nOP\nÕO\nZ P\n \nQЉ\n -" ["" name foreign 0 depth 1 skip levels string-match "\\." group ":" "+" plus colon dot nil "."] 5 (#$ . 70054)]) #@35 Narrow to the body of an article. (defalias 'gnus-narrow-to-body #[nil "eb#\fdd}" [search-forward "\n\n" nil t] 4 (#$ . 70623)]) #@92 Apply a kill file to the current newsgroup. Returns the number of articles marked as read. (defalias 'gnus-apply-kill-file #[nil "!! !! Ň" [file-exists-p gnus-newsgroup-kill-file nil gnus-newsgroup-name gnus-apply-kill-file-internal 0] 3 (#$ . 70766)]) (defalias 'gnus-kill-save-kill-buffer #[nil " !\n!\n!q  p!))" [gnus-newsgroup-kill-file gnus-newsgroup-name file get-file-buffer buffer-modified-p save-buffer kill-buffer] 2]) (custom-declare-variable (quote gnus-kill-file-name) "KILL" "Suffix of the kill files." :group (quote gnus-score-kill) :group (quote gnus-score-files) :type (quote 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) "\n \f\"!! Q\f\"! Q\f\"" [newsgroup "" expand-file-name gnus-kill-file-name gnus-kill-files-directory gnus-use-long-file-name not-kill gnus-newsgroup-savable-name "." gnus-newsgroup-directory-form "/"] 4 (#$ . 71406)]) #@59 Find out if GROUP has SYMBOL as part of its "valid" spec. (defalias 'gnus-member-of-valid #[(symbol group) "\f!@! \">" [symbol assoc symbol-name gnus-find-method-for-group group gnus-valid-select-methods] 5 (#$ . 71821)]) #@60 Return non-nil if select METHOD has OPTION as a parameter. (defalias 'gnus-method-option-p #[(method option) "; !\n@\"\">" [method gnus-server-to-method option assoc format "%s" gnus-valid-select-methods] 5 (#$ . 72054)]) (defalias 'gnus-similar-server-opened #[(method) "\n( (\nA@ @@A@ \n @@  A\n)?" [gnus-opened-servers opened method nil] 2]) (defalias 'gnus-server-extend-method #[(group method) " *\n*A@\n@@A@\"\n@@\"\nA*5AA7@A@ Q@\"!A@DAABBB" [method gnus-opened-servers opened nil "+" group intern format "%s-address"] 6]) #@30 Return the status of METHOD. (defalias 'gnus-server-status #[(method) " \n\"A@" [assoc method gnus-opened-servers] 3 (#$ . 72665)]) #@39 Guess a select method based on GROUP. (defalias 'gnus-group-name-to-method #[(group) "\n\"+\nÉO\f\"$\fÉO!\fÕOD)\f!D) " [string-match ":" group 0 server "\\+" intern nil "" gnus-select-method] 4 (#$ . 72805)]) #@41 Find the select method that GROUP uses. (defalias 'gnus-find-method-for-group #[(group &optional info) "y \f\ny  \"J80 80ʚ4\nx; M uP!u@>uP!A@DC\"w**" [gnus-override-method group gnus-select-method info 2 intern-soft gnus-newsrc-hashtb nil method 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append] 7 (#$ . 73043)]) #@37 Find all methods that have FEATURE. (defalias 'gnus-methods-using #[(feature) "\f @> @\nB A\n*" [gnus-valid-select-methods nil outs valids feature] 3 (#$ . 73890)]) #@65 Prompt the user for a group name. Disallow illegal group names. (defalias 'gnus-read-group #[(prompt &optional default) "\n* PB#\"\n\"\n*" ["" nil group prefix string-match "[: `'\"/]\\|^$" read-string prompt default 0 gnus-group-history format "Illegal group name: \"%s\". "] 7 (#$ . 74079)]) #@70 Prompt the user for a method. Allow completion over sensible values. (defalias 'gnus-read-method #[(prompt) " \n #\f&\n˚ \f\nT\n \"A\n!\n \"><!=DT\n\f\"N\nT\n!D*" [append gnus-valid-select-methods gnus-predefined-server-alist gnus-server-alist servers completing-read prompt nil t gnus-method-history method "" gnus-select-method assoc intern prompt-address read-string "Address: "] 8 (#$ . 74414)]) #@67 Read network news as a slave, without connecting to local server. (defalias 'gnus-slave-no-server #[(&optional arg) " \"" [gnus-no-server arg t] 3 (#$ . 74869) "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) " \n\"" [gnus-no-server-1 arg slave] 3 (#$ . 75045) "P"]) #@23 Read news as a slave. (defalias 'gnus-slave #[(&optional arg) " #" [gnus arg nil slave] 4 (#$ . 75481) "P"]) #@30 Pop up a frame to read news. (defalias 'gnus-other-frame #[(&optional arg) " !\n!!% GU! !%!)\n!" [get-buffer-window gnus-group-buffer window select-frame window-frame frame-list 1 make-frame other-frame gnus arg] 4 (#$ . 75600) "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) " \n #" [gnus-1 arg dont-connect slave] 4 (#$ . 75867) "P"]) (byte-code " !" [gnus-ems-redefine provide gnus] 2)