;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:31 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-start.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-start.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require gnus gnus-win gnus-int gnus-spec gnus-range gnus-util message] 2) #@76 Your `.newsrc' file. `.newsrc-SERVER' will be used instead if that exists. (custom-declare-variable 'gnus-startup-file '(nnheader-concat gnus-home-directory ".newsrc") '(#$ . 827) :group 'gnus-start :type 'file) #@118 Your Gnus Emacs-Lisp startup file name. If a file with the `.el' or `.elc' suffixes exists, it will be read instead. (custom-declare-variable 'gnus-init-file '(nnheader-concat gnus-home-directory ".gnus") '(#$ . 1046) :group 'gnus-start :type 'file) #@143 The site-wide Gnus Emacs-Lisp startup file name, or nil if none. If a file with the `.el' or `.elc' suffixes exists, it will be read instead. (custom-declare-variable 'gnus-site-init-file '(condition-case nil (concat (file-name-directory (directory-file-name installation-directory)) "site-lisp/gnus-init") (error nil)) '(#$ . 1303) :group 'gnus-start :type '(choice file (const nil))) #@246 List of newsgroups to subscribe, when a user runs Gnus the first time. The value should be a list of strings. If it is t, Gnus will not do anything special the first time it is started; it'll just use the normal newsgroups subscription methods. (custom-declare-variable 'gnus-default-subscribed-newsgroups 'nil '(#$ . 1696) :group 'gnus-start :type '(choice (repeat string) (const :tag "Nothing special" t))) #@189 *Non-nil means that Gnus will use a dribble file to store user updates. If Emacs should crash without saving the .newsrc files, complete information can be restored from the dribble file. (custom-declare-variable 'gnus-use-dribble-file 't '(#$ . -2112) :group 'gnus-dribble-file :type 'boolean) #@138 *The directory where dribble files will be saved. If this variable is nil, the directory where the .newsrc files are saved will be used. (custom-declare-variable 'gnus-dribble-directory 'nil '(#$ . -2414) :group 'gnus-dribble-file :type '(choice directory (const nil))) #@1242 *Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup. This normally finds new newsgroups by comparing the active groups the servers have already reported with those Gnus already knows, either alive or killed. When any of the following are true, `gnus-find-new-newsgroups' will instead ask the servers (primary, secondary, and archive servers) to list new groups since the last time it checked: 1. This variable is `ask-server'. 2. This variable is a list of select methods (see below). 3. `gnus-read-active-file' is nil or `some'. 4. A prefix argument is given to `gnus-find-new-newsgroups' interactively. Thus, if this variable is `ask-server' or a list of select methods or `gnus-read-active-file' is nil or `some', then the killed list is no longer necessary, so you could safely set `gnus-save-killed-list' to nil. This variable can be a list of select methods which Gnus will query with the `ask-server' method in addition to the primary, secondary, and archive servers. Eg. (setq gnus-check-new-newsgroups '((nntp "some.server") (nntp "other.server"))) If this variable is nil, then you have to tell Gnus explicitly to check for new newsgroups with \\[gnus-find-new-newsgroups]. (custom-declare-variable 'gnus-check-new-newsgroups ''ask-server '(#$ . -2692) :group 'gnus-start :type '(choice (const :tag "no" nil) (const :tag "by brute force" t) (const :tag "ask servers" ask-server) (repeat :menu-tag "ask additional servers" :tag "ask additional servers" :value ((nntp "")) (sexp :format "%v")))) #@230 *Non-nil means that Gnus will check and remove bogus newsgroup at startup. If this variable is nil, then you have to tell Gnus explicitly to check for bogus newsgroups with \\[gnus-group-check-bogus-groups]. (custom-declare-variable 'gnus-check-bogus-newsgroups 'nil '(#$ . -4260) :group 'gnus-start-server :type 'boolean) #@634 *Non-nil means that Gnus will read the entire active file at startup. If this variable is nil, Gnus will only know about the groups in your `.newsrc' file. If this variable is `some', Gnus will try to only read the relevant parts of the active file from the server. Not all servers support this, and it might be quite slow with other servers, but this should generally be faster than both the t and nil value. If you set this variable to nil or `some', you probably still want to be told about new newsgroups that arrive. To do that, set `gnus-check-new-newsgroups' to `ask-server'. This may not work properly with all servers. (custom-declare-variable 'gnus-read-active-file ''some '(#$ . -4611) :group 'gnus-start-server :type '(choice (const nil) (const some) (const t))) #@72 Groups with levels less than or equal to this variable are subscribed. (defconst gnus-level-subscribed 5 (#$ . 5397)) #@185 Groups with levels less than or equal to this variable are unsubscribed. Groups with levels less than `gnus-level-subscribed', which should be less than this variable, are subscribed. (defconst gnus-level-unsubscribed 7 (#$ . 5522)) #@43 Groups with this level are zombie groups. (defconst gnus-level-zombie 8 (#$ . 5761)) #@36 Groups with this level are killed. (defconst gnus-level-killed 9 (#$ . 5852)) #@58 *New subscribed groups will be subscribed at this level. (custom-declare-variable 'gnus-level-default-subscribed '3 '(#$ . -5936) :group 'gnus-group-levels :type 'integer) #@62 *New unsubscribed groups will be unsubscribed at this level. (custom-declare-variable 'gnus-level-default-unsubscribed '6 '(#$ . -6114) :group 'gnus-group-levels :type 'integer) #@183 *Groups higher than this level won't be activated on startup. Setting this variable to something low might save lots of time when you have many groups that you aren't interested in. (custom-declare-variable 'gnus-activate-level '(1+ gnus-level-subscribed) '(#$ . -6299) :group 'gnus-group-levels :type 'integer) #@571 *If nil, Gnus will not check foreign newsgroups at startup. If it is non-nil, it should be a number between one and nine. Foreign newsgroups that have a level lower or equal to this number will be activated on startup. For instance, if you want to active all subscribed newsgroups, but not the rest, you'd set this variable to `gnus-level-subscribed'. If you subscribe to lots of newsgroups from different servers, startup might take a while. By setting this variable to nil, you'll save time, but you won't be told how many unread articles there are in the groups. (custom-declare-variable 'gnus-activate-foreign-newsgroups '4 '(#$ . -6618) :group 'gnus-group-levels :type '(choice integer (const :tag "none" nil))) #@322 *Non-nil means that Gnus will read the `.newsrc' file. Gnus always reads its own startup file, which is called ".newsrc.eld". The file called ".newsrc" is in a format that can be readily understood by other newsreaders. If you don't plan on using other newsreaders, set this variable to nil to save some time on entry. (custom-declare-variable 'gnus-read-newsrc-file 't '(#$ . -7346) :group 'gnus-newsrc :type 'boolean) #@321 *Non-nil means that Gnus will save the `.newsrc' file. Gnus always saves its own startup file, which is called ".newsrc.eld". The file called ".newsrc" is in a format that can be readily understood by other newsreaders. If you don't plan on using other newsreaders, set this variable to nil to save some time on exit. (custom-declare-variable 'gnus-save-newsrc-file 't '(#$ . -7775) :group 'gnus-newsrc :type 'boolean) #@586 *If non-nil, save the list of killed groups to the startup file. If you set this variable to nil, you'll save both time (when starting and quitting) and space (both memory and disk), but it will also mean that Gnus has no record of which groups are new and which are old, so the automatic new newsgroups subscription methods become meaningless. You should always set `gnus-check-new-newsgroups' to `ask-server' or nil if you set this variable to nil. This variable can also be a regexp. In that case, all groups that do not match this regexp will be removed before saving the list. (custom-declare-variable 'gnus-save-killed-list 't '(#$ . -8203) :group 'gnus-newsrc :type 'boolean) #@242 *A regexp to match uninteresting newsgroups in the active file. Any lines in the active file matching this regular expression are removed from the newsgroup list before anything else is done to it, thus making them effectively non-existent. (custom-declare-variable 'gnus-ignored-newsgroups '(mapconcat 'identity '("^to\\." "^[0-9. ]+ " "^[\"][]\"[#'()]") "\\|") '(#$ . -8896) :group 'gnus-group-new :type 'regexp) #@591 *Function called with a group name when new group is detected. A few pre-made functions are supplied: `gnus-subscribe-randomly' inserts new groups at the beginning of the list of groups; `gnus-subscribe-alphabetically' inserts new groups in strict alphabetic order; `gnus-subscribe-hierarchically' inserts new groups in hierarchical newsgroup order; `gnus-subscribe-interactively' asks for your decision; `gnus-subscribe-killed' kills all new groups; `gnus-subscribe-zombies' will make all new groups into zombies; `gnus-subscribe-topics' will enter groups into the topics that claim them. (custom-declare-variable 'gnus-subscribe-newsgroup-method ''gnus-subscribe-zombies '(#$ . -9319) :group 'gnus-group-new :type '(radio (function-item gnus-subscribe-randomly) (function-item gnus-subscribe-alphabetically) (function-item gnus-subscribe-hierarchically) (function-item gnus-subscribe-interactively) (function-item gnus-subscribe-killed) (function-item gnus-subscribe-zombies) (function-item gnus-subscribe-topics) function)) #@361 *This function is called to subscribe newsgroups mentioned on "options -n" lines. If, for instance, you want to subscribe to all newsgroups in the "no" and "alt" hierarchies, you'd put the following in your .newsrc file: options -n no.all alt.all Gnus will the subscribe all new newsgroups in these hierarchies with the subscription method in this variable. (custom-declare-variable 'gnus-subscribe-options-newsgroup-method ''gnus-subscribe-alphabetically '(#$ . -10353) :group 'gnus-group-new :type '(radio (function-item gnus-subscribe-randomly) (function-item gnus-subscribe-alphabetically) (function-item gnus-subscribe-hierarchically) (function-item gnus-subscribe-interactively) (function-item gnus-subscribe-killed) (function-item gnus-subscribe-zombies) function)) #@346 *If non-nil, Gnus will offer to subscribe hierarchically. When a new hierarchy appears, Gnus will ask the user: 'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys): If the user pressed `d', Gnus will descend the hierarchy, `y' will subscribe to all newsgroups in the hierarchy and `s' will skip this hierarchy in its entirety. (custom-declare-variable 'gnus-subscribe-hierarchical-interactive 'nil '(#$ . -11135) :group 'gnus-group-new :type 'boolean) #@346 *All new groups that match this regexp will be subscribed automatically. Note that this variable only deals with new groups. It has no effect whatsoever on old groups. New groups that match this regexp will not be handled by `gnus-subscribe-newsgroup-method'. Instead, they will be subscribed using `gnus-subscribe-options-newsgroup-method'. (custom-declare-variable 'gnus-auto-subscribed-groups '"nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl" '(#$ . -11612) :group 'gnus-group-new :type 'regexp) #@353 *All new groups matching this regexp will be subscribed unconditionally. Note that this variable deals only with new newsgroups. This variable does not affect old newsgroups. New groups that match this regexp will not be handled by `gnus-subscribe-newsgroup-method'. Instead, they will be subscribed using `gnus-subscribe-options-newsgroup-method'. (custom-declare-variable 'gnus-options-subscribe 'nil '(#$ . -12120) :group 'gnus-group-new :type '(choice regexp (const :tag "none" nil))) #@179 *All new groups matching this regexp will be ignored. Note that this variable deals only with new newsgroups. This variable does not affect old (already subscribed) newsgroups. (custom-declare-variable 'gnus-options-not-subscribe 'nil '(#$ . -12619) :group 'gnus-group-new :type '(choice regexp (const :tag "none" nil))) #@131 *Non-nil means .newsrc should be deleted prior to save. Its use is due to the bogus appearance that .newsrc was modified on disc. (custom-declare-variable 'gnus-modtime-botch 'nil '(#$ . -12948) :group 'gnus-newsrc :type 'boolean) #@41 A hook run after removing bogus groups. (custom-declare-variable 'gnus-check-bogus-groups-hook 'nil '(#$ . 13185) :group 'gnus-start-server :type 'hook) #@91 A hook called at startup. This hook is called after Gnus is connected to the NNTP server. (custom-declare-variable 'gnus-startup-hook 'nil '(#$ . 13344) :group 'gnus-start :type 'hook) #@95 A hook called at before startup. This hook is called as the first thing when Gnus is started. (custom-declare-variable 'gnus-before-startup-hook 'nil '(#$ . 13535) :group 'gnus-start :type 'hook) #@48 A hook called as the last thing after startup. (custom-declare-variable 'gnus-started-hook 'nil '(#$ . 13737) :group 'gnus-start :type 'hook) #@74 A hook after reading the .newsrc file, but before generating the buffer. (custom-declare-variable 'gnus-setup-news-hook 'nil '(#$ . 13885) :group 'gnus-start :type 'hook) #@50 A hook run just before Gnus checks for new news. (custom-declare-variable 'gnus-get-new-news-hook 'nil '(#$ . 14062) :group 'gnus-group-new :type 'hook) #@74 *A hook run after Gnus checks for new news when Gnus is already running. (custom-declare-variable 'gnus-after-getting-new-news-hook '(when (gnus-boundp 'display-time-timer) '(display-time-event-handler)) '(#$ . -14221) :group 'gnus-group-new :type 'hook) #@54 A hook called before saving any of the newsrc files. (custom-declare-variable 'gnus-save-newsrc-hook 'nil '(#$ . 14482) :group 'gnus-newsrc :type 'hook) #@104 A hook called just before saving the quick newsrc file. Can be used to turn version control on or off. (custom-declare-variable 'gnus-save-quick-newsrc-hook 'nil '(#$ . 14642) :group 'gnus-newsrc :type 'hook) #@107 A hook called just before saving the standard newsrc file. Can be used to turn version control on or off. (custom-declare-variable 'gnus-save-standard-newsrc-hook 'nil '(#$ . 14858) :group 'gnus-newsrc :type 'hook) #@40 Unconditionally read the dribble file. (custom-declare-variable 'gnus-always-read-dribble-file 'nil '(#$ . 15079) :group 'gnus-newsrc :type 'boolean) #@34 *Coding system for startup file. (defvar gnus-startup-file-coding-system 'binary (#$ . -15235)) (byte-code "\304\300!\204\305\300 B\304\302!\204\305\302 B\304\303!\204 \305\303 B\305\207" [gnus-newsrc-file-version current-load-list gnus-override-subscribe-method gnus-dribble-buffer boundp nil] 2) #@35 Options line in the .newsrc file. (defvar gnus-newsrc-options nil (#$ . 15550)) #@79 List of regexps representing groups to be subscribed/ignored unconditionally. (defvar gnus-newsrc-options-n nil (#$ . 15636)) #@49 Date Gnus last asked server for new newsgroups. (defvar gnus-newsrc-last-checked-date nil (#$ . 15768)) #@36 Startup file for the current host. (defvar gnus-current-startup-file nil (#$ . 15878)) (byte-code "\302B\303\301!\204\f\304\301B\304\207" [current-load-list gnus-init-inhibit gnus-group-line-format boundp nil] 2) (defalias 'gnus-read-init-file #[(&optional inhibit-next) "\205K \203\f\306\211\207\n \fD\306\205J\211A@\211\203\307 !\2032\310 !\203B\307 \311P!\204B\307 \312P!\203\313\314\315\217\210\202*\207" [init-file-user gnus-init-inhibit inhibit-next gnus-site-init-file gnus-init-file file nil file-exists-p file-directory-p ".el" ".elc" var (byte-code "\303\n\304\305#\210)\304\207" [gnus-startup-file-coding-system coding-system-for-read file load nil t] 4) ((error (error "Error in %s: %s" file var))) files] 3]) (defalias 'gnus-subscribe-hierarchical-interactive #[(groups) "\306\307\"\310\211\211\211\211\211\205t\311C\203\203\312@@\"\2045A\202#@\211GS\312\313@\f#\203 A\203 \311@\314\211\225OP\211\203 \312 A@\"\203  B\315\316 \317 GSO\"\210\320 \211\321>\204\212\322 \210\315\316 \317 GSO\"\210\202q \323U\203\271\203\263\312 @\211\"\203\263\nB\324\n\"\nL\210A\211\204\224 A\202 \325U\203\347\203\341\312 @\211\"\203\341\324\n\"\nL\210\326@!\210A\211\204\303 A\202 \327U\203\203@\211B\324\n\"\nL\210A\211\202\356\315\330@\"\210\320 \211\331>\204$\322 \210\315\330@\"\210\202@ \332U\203=\326@!\210\324\n\"\nL\210\202m \327U\203_\203m@\211B\324\n\"\nL\210A\211\202D\nB\324\n\"\nL\210A\211\202.\207" [groups starts group ans start prefix sort string< nil "^" string-match "[^\\.]\\." 0 message "Descend hierarchy %s? ([y]nsq): " 1 read-char-exclusive (121 10 13 110 115 113) ding 110 intern 115 gnus-subscribe-alphabetically 113 "Subscribe %s? ([n]yq)" (121 10 13 113 110) 121 prefixes gnus-killed-list gnus-killed-hashtb] 8]) #@59 Subscribe new NEWSGROUP by making it the first newsgroup. (defalias 'gnus-subscribe-randomly #[(newsgroup) "\301!\207" [newsgroup gnus-subscribe-newsgroup] 2 (#$ . 17790)]) #@62 Subscribe new NEWSGROUP and insert it in alphabetical order. (defalias 'gnus-subscribe-alphabetically #[(newgroup) "A\304 \204#\n\203# \n@@\231\203\n@@\211\202\nA\202\305 \"*\207" [gnus-newsrc-alist before groups newgroup nil gnus-subscribe-newsgroup] 4 (#$ . 17970)]) #@72 Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order. (defalias 'gnus-subscribe-hierarchically #[(newgroup) "\212\305!q\210 \306\n\204@ \203@eb\210\307\310 !\311Q\312\f\306\313#\203.\314\315!\211 \231\204)\316\317 \"\205< \315\224\315\225O\202\n\320 \n\"\210*\321p!)\207" [gnus-current-startup-file newgroup before groupkey groupkey-re nnheader-find-file-noselect nil "^\\(" regexp-quote ".*\\)[!:]" re-search-forward t match-string 1 string-match "^\\(.*\\)\\.[^.]+$" gnus-subscribe-newsgroup kill-buffer] 5 (#$ . 18259)]) #@125 Subscribe the new GROUP interactively. It is inserted in hierarchical newsgroup order if subscribed. If not, it is killed. (defalias 'gnus-subscribe-interactively #[(group) "\302\303\304\"!\203 \305!\207 B\211\207" [group gnus-killed-list gnus-y-or-n-p format "Subscribe new newsgroup: %s " gnus-subscribe-hierarchically] 4 (#$ . 18820)]) #@41 Make the new GROUP into a zombie group. (defalias 'gnus-subscribe-zombies #[(group) " B\211\207" [group gnus-zombie-list] 2 (#$ . 19171)]) #@36 Make the new GROUP a killed group. (defalias 'gnus-subscribe-killed #[(group) " B\211\207" [group gnus-killed-list] 2 (#$ . 19318)]) #@117 Subscribe new NEWSGROUP. If NEXT is non-nil, it is inserted before NEXT. Otherwise it is made the first newsgroup. (defalias 'gnus-subscribe-newsgroup #[(newsgroup &optional next) "\212eb\210\305 \n\306 \206\307\f\"J$\210\310\311\312#)\207" [newsgroup gnus-level-default-subscribed gnus-level-killed next gnus-newsrc-hashtb gnus-group-change-level intern-soft "dummy.group" gnus-message 5 "Subscribe newsgroup: %s"] 7 (#$ . 19460)]) #@70 Say whether the active file has been read from `gnus-select-method'. (defalias 'gnus-read-active-file-p #[nil " >\207" [gnus-select-method gnus-have-read-active-file] 2 (#$ . 19904)]) (byte-code "\301B\302B\303B\304B\305B\306B\307B\310B\311B\312B\301\207" [current-load-list gnus-current-headers gnus-thread-indent-array gnus-newsgroup-name gnus-newsgroup-headers gnus-group-list-mode gnus-group-mark-positions gnus-newsgroup-data gnus-newsgroup-unreads nnoo-state-alist gnus-current-select-method] 2) #@34 Clear all variables and buffers. (defalias 'gnus-clear-system #[nil "\211\203 @\306L\210 A\211\204)\306\306\306\306\306\306\306\306\306\306\306\306\306\306\306\306\306\306\306 \306!\306\"\306#\306$\307\310!\210%\203k\311%!\203k\312\311%!!\210\313 \210\311\314\306!!\203~\312\311\314\306!!!\210&\211'\211(\205\227(;\203\223\315\202\224\316(!)\203\240\312'!\210)\317 \211)\203\257\320\312)\"\210)\321 \207" [gnus-variable-list variables gnus-list-of-killed-groups gnus-have-read-active-file gnus-newsrc-alist gnus-newsrc-hashtb nil gnus-shutdown gnus get-file-buffer kill-buffer gnus-dribble-clear gnus-newsgroup-kill-file get-buffer buffer-name gnus-buffers mapcar gnus-kill-gnus-frames gnus-killed-list gnus-zombie-list gnus-killed-hashtb gnus-active-hashtb gnus-moderated-hashtb gnus-description-hashtb gnus-current-headers gnus-thread-indent-array gnus-newsgroup-headers gnus-newsgroup-name gnus-server-alist gnus-group-list-mode gnus-opened-servers gnus-group-mark-positions gnus-newsgroup-data gnus-newsgroup-unreads nnoo-state-alist gnus-current-select-method gnus-ephemeral-servers gnus-current-startup-file nntp-server-buffer buf buffer buffers] 5 (#$ . 20433)]) #@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-1 #[(&optional arg slave) "\206 S\305\n\306 #\210\307\304!\210\n\211)\207" [arg gnus-level-default-subscribed val slave gnus-group-use-permanent-levels gnus t make-local-variable] 4 (#$ . 21673) "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-1 #[(&optional arg dont-connect slave) "\306 \203\307!\210\310 \247\205 \311V\205\n@ ]!\207\312 \210\313 \210\314\315!\210\316 \210 \317 \210 \203Q\320\203>\321 \210\202Q\322=\203Q\323 \324 TU\203Q\325 \210 \247\205] \311V\205] \320\326\216?\205v\327 \205r?!\211+\207" [gnus-group-buffer arg gnus-group-list-mode slave gnus-slave gnus-simple-splash gnus-alive-p switch-to-buffer gnus-group-get-new-news 0 gnus-clear-system gnus-splash gnus-run-hooks gnus-before-startup-hook nnheader-init-server-buffer gnus-read-init-file nil gnus-xmas-splash x frame-height window-height gnus-x-splash ((byte-code "\204 \204\306 \210\202O\307\310!\210\311\n!\f\204 \203!\312 \210\203.\313 \210\314\315\316\"\210\317\320#\210\307\321!\210\322 \210\323!\210\324 \210\325\326!\210\327 \210\307\330!\210\320\207" [dont-connect did-connect gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook gnus-use-grouplens level] 4)) gnus-start-news-server gnus-xemacs window-system did-connect level dont-connect] 3 (#$ . 22232) "P"]) #@35 Make sure the draft group exists. (defalias 'gnus-start-draft-setup #[nil "\302\303\304\"\210\305\306\"J?\205\307\310\306\311\312#\210)\313\306\314\315#\207" [gnus-newsrc-hashtb gnus-level-default-subscribed gnus-request-create-group "drafts" (nndraft "") intern-soft "nndraft:drafts" 1 gnus-subscribe-group nil (nndraft "") gnus-group-set-parameter gnus-dummy ((gnus-draft-mode))] 4 (#$ . 23889)]) #@27 Unload all Gnus features. (defalias 'gnus-unload #[nil "\303\300!\204\n\304\305!\210\306\211\2052\307\310\n@@\"\203*\311\n@\236A\211\203*\312 \313\"\210\nA\211\204\306*\207" [load-history feature history boundp error "Sorry, `gnus-unload' is not implemented in this Emacs version" nil string-match "^\\(gnus\\|nn\\)" provide unload-feature force] 4 (#$ . 24298) nil]) (byte-code "\303\300!\204\304\300 B\303\302!\204\304\302 B\304\207" [gnus-dribble-ignore current-load-list gnus-dribble-eval-file boundp nil] 2) #@50 Return the dribble file for the current .newsrc. (defalias 'gnus-dribble-file-name #[nil "\203\302!\303 !P\202 \304P\207" [gnus-dribble-directory gnus-current-startup-file file-name-as-directory file-name-nondirectory "-dribble"] 3 (#$ . 24836)]) #@39 Enter STRING into the dribble buffer. (defalias 'gnus-dribble-enter #[(string) "?\2052 \2052\305 !\2052p q\210db\210 \306\261\210\307\310p!d\"\210\311 !\210\212\fq\210\312 \210)\nq)\207" [gnus-dribble-ignore gnus-dribble-buffer obuf string gnus-group-buffer buffer-name "\n" set-window-point get-buffer-window bury-buffer gnus-group-set-mode-line] 3 (#$ . 25095)]) #@27 Touch the dribble buffer. (defalias 'gnus-dribble-touch #[nil "\300\301!\207" [gnus-dribble-enter ""] 2 (#$ . 25472)]) #@34 Read the dribble file from disk. (defalias 'gnus-dribble-read-file #[nil "\306 \212\307\310!!\211q\210\311 \210\312\313!\210\314 \210\315p!\210\316\317!\210\320 \313\317\321 !\2044\321!\205~\322 \"\203B\323 !\210\202F\323!\210\324 \325U\204Q\316\313!\210\326 \210\321!\203o\321!\203o\327!\211\203o\330 \"\210\204z\331\332!\205~\313\211-\207" [dribble-file gnus-dribble-buffer buffer-file-name modes gnus-dribble-ignore auto gnus-dribble-file-name gnus-get-buffer-create file-name-nondirectory erase-buffer auto-save-mode t buffer-disable-undo bury-buffer set-buffer-modified-p nil make-auto-save-file-name file-exists-p file-newer-than-file-p nnheader-insert-file-contents buffer-size 0 save-buffer file-modes set-file-modes gnus-y-or-n-p "Gnus auto-save file exists. Do you want to read it? " gnus-current-startup-file gnus-always-read-dribble-file gnus-dribble-eval-file] 3 (#$ . 25597)]) (defalias 'gnus-dribble-eval-file #[nil "\205\303\212\304\nq\210\305p!*\207" [gnus-dribble-eval-file gnus-dribble-ignore gnus-dribble-buffer nil t eval-buffer] 2]) (defalias 'gnus-dribble-delete-file #[nil "\302\303 !\203\f\304\303 !\210\205(\212q\210\305 \302 !\203!\304 !\210\306 \210\307\310!*\207" [gnus-dribble-buffer auto file-exists-p gnus-dribble-file-name delete-file make-auto-save-file-name erase-buffer set-buffer-modified-p nil] 2]) (defalias 'gnus-dribble-save #[nil "\205\301!\205\212q\210\302 )\207" [gnus-dribble-buffer buffer-name save-buffer] 2]) (defalias 'gnus-dribble-clear #[nil "\211\205 ;\203\303\202\304 !)\205&\212q\210\305 \210\306\307!\210\310 \211)\207" [gnus-dribble-buffer buffer buffer-saved-size get-buffer buffer-name erase-buffer set-buffer-modified-p nil buffer-size] 3]) #@145 Setup news information. If RAWFILE is non-nil, the .newsrc file will also be read. If LEVEL is non-nil, the news will be set up at level LEVEL. (defalias 'gnus-setup-news #[(&optional rawfile level dont-connect) "\306\307!\210\205 \205\n??\310C\211\203\311\311\312\n!\210 \2036\313\314\315#\"#\"#\315 B#B#\203B\316=\203E\317 \210\203U$\204U\320\311%\"\210 \204]\321\322!&\203e\323 \210\f\203v'\204s(\203v\324 \210\f\203\202(\203\202\325 \210\326 \210\327\330!\203\251\311)\331\332\")\203\251*\204\251%\204\251\203\251\333 \210\f\203\313+\203\313$\204\313\334,!\203\313(\204\313-\203\313\335 \210.\203\335$\204\335%\204\335\336 \210\337 \210$?\205\350\340$!\210)\f\205 \"\205 \205 $?\205 \341,!\205 \342 *\207" [gnus-newsrc-alist gnus-active-hashtb rawfile nnmail-fetched-sources init gnus-message-archive-method require nnmail t nil gnus-read-newsrc-file delq assoc "archive" some gnus-update-active-hashtb-from-killed gnus-read-active-file gnus-make-hashtable 4096 gnus-cache-open gnus-dribble-eval-file gnus-dribble-clear gnus-update-format-specifications boundp gnus-group-line-format string-match "%[-,0-9]*D" gnus-read-all-descriptions-files gnus-check-server gnus-find-new-newsgroups gnus-nocem-scan-groups gnus-master-read-slave-newsrc gnus-get-unread-articles gnus-server-opened gnus-check-bogus-newsgroups gnus-server-alist level dont-connect gnus-use-cache gnus-use-dribble-file gnus-slave case-fold-search gnus-description-hashtb gnus-check-new-newsgroups gnus-select-method gnus-plugged gnus-use-nocem] 5 (#$ . 27366)]) #@366 Search for new newsgroups and add them. Each new newsgroup will be treated with `gnus-subscribe-newsgroup-method'. The `-n' option line from .newsrc is respected. With 1 C-u, use the `ask-server' method to query the server for new groups. With 2 C-u's, use most complete method possible to query the server for new groups, and subscribe the new groups as zombies. (defalias 'gnus-find-new-newsgroups #[(&optional arg) " \206\306\307U\203\n<\203 \203 \310=\203\311\2020 \206$\306\312U\203/\313\314\2020\n\315 ?\205\226\f:\204B\f\311=\203G\316 \202\226\317\320\211\321\322\323\"\210\204\\\303 \210\324  !\204h\325 \210\326\327\"\"\210 \203v\330 !\210\317V\203\221\321\322\331\211\306V\203\214\332\202\215\333$\202\225\321\322\334\"+*\207" [gnus-subscribe-newsgroup-method arg gnus-check-new-newsgroups gnus-read-active-file check new-newsgroups 1 4 some ask-server 16 gnus-subscribe-zombies t gnus-check-first-time-used gnus-ask-server-for-new-groups 0 nil gnus-message 5 "Looking for new newsgroups..." current-time-string gnus-make-hashtable-from-killed mapatoms #[(sym) "\306!\211?\206#\307!?\206#J?\206#\310 \n\"J\206#\310 \"J?\205j\311 !\211\312=\203B T\313 \n\" L\210 !\202i\f\314=\203L\315\202i T\313 \n\" L\210\203e B\211\202i !)\207" [sym group gnus-killed-hashtb gnus-newsrc-hashtb do-sub groups symbol-name boundp intern-soft gnus-matches-options-n subscribe intern ignore nil gnus-subscribe-options-newsgroup-method gnus-subscribe-hierarchical-interactive new-newsgroups gnus-subscribe-newsgroup-method] 4] gnus-subscribe-hierarchical-interactive "%d new newsgroup%s arrived." "s have" " has" "No new newsgroups." group groups gnus-have-read-active-file gnus-newsrc-last-checked-date gnus-killed-hashtb gnus-active-hashtb] 6 (#$ . 28992) "p"]) (defalias 'gnus-matches-options-n #[(group) "\203 \306 \"\203 \307\207\n\203\306\n \"\203\307\207 \203'\306 \"\203'\310\207\f\211\203=\306 @@ \"\204= A\211\204- \205D @A)\207" [gnus-options-subscribe group gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-options-n regs string-match subscribe ignore] 4]) (defalias 'gnus-ask-server-for-new-groups #[nil "\206\306 \n\307 \205\310C\311 :\205 \f\"\244B\312'\306 (\313)\313*\313+\313,\313-\313./\204<\314 \210\313 \211A@,),;\203S\315,!\202\316,\n\232\203^\n\202\316,@;\203s)\203s\316),\"\202\316,\203\213)\204\213,A@\317\232\203\213,\202\316,,\320,@!0\321\32201\">\203\313\3230\324P!,\236\204\313\325,@1\236>\203\313\311,\3230\324P!,A@DC\"\202\315,**\211,\203\313*,.\326,!\203\327 ,\"\203\212\330+\331\332!-2q\210\333,-\334#\210)\335\336-\"\210*\203<\337*!\210\202<'\312V\2030\340\341\342'\211\343V\203*\344\202+\345$\210\2025\340\341\346\"\210+\203=(+.\n\207" [gnus-newsrc-last-checked-date date gnus-select-method gnus-check-new-newsgroups gnus-secondary-select-methods methods current-time-string gnus-archive-server-wanted-p "archive" append 0 nil gnus-make-hashtable-from-killed gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address gnus-check-server gnus-request-newgroups t gnus-make-hashtable 100 gnus-active-to-gnus-format ignore mapatoms #[(group-sym) "\306!\211?\206'\307!?\206'J?\206'\310 \n\"J\206' \235\206' \f\235?\205\203J\2038\311 \"JL\210\312 !\211\313=\203WT\311 \" L\210 !\202\202\314=\203b\315\202\202T\311 \" L\210\203~ B\211\202\202 !)\207" [group-sym group gnus-newsrc-hashtb gnus-zombie-list gnus-killed-list gnus-active-hashtb symbol-name boundp intern-soft intern gnus-matches-options-n subscribe ignore nil do-sub groups gnus-killed-hashtb gnus-subscribe-options-newsgroup-method gnus-subscribe-hierarchical-interactive new-newsgroups gnus-subscribe-newsgroup-method] 4] gnus-subscribe-hierarchical-interactive gnus-message 5 "%d new newsgroup%s arrived" 1 "s have" " has" "No new newsgroups" groups new-date group new-newsgroups got-new method hashtb gnus-override-subscribe-method gnus-killed-hashtb method-name gnus-valid-select-methods nntp-server-buffer] 6]) (defalias 'gnus-check-first-time-used #[nil "\300\301\215\207" [ended (byte-code "\211\306P\307P \211\306P \307P\257\n\203'\310\n\211A@!\203\311\312\313\"\210\202)\314\315\316\"\210\317 \2048\320\303 \210)\321  \313\211\320=?\205\214\206O\322\323\"\210\203z\324@\"J\203q\325@#\210A\211\204\\\212q\210\326 \210) \205\214\314\327\330\"*\207" [gnus-current-startup-file gnus-startup-file files gnus-read-active-file gnus-newsrc-last-checked-date gnus-default-subscribed-newsgroups ".el" ".eld" file-exists-p throw ended nil gnus-message 6 "First time user; subscribing you to default groups" gnus-read-active-file-p t current-time-string mapatoms #[(sym) "\306!\211\205/\307 !\211\310=\203\311 \" L\210\f !\202.\n\312=\203)\313\202. B\211)\207" [sym group do-sub gnus-killed-hashtb gnus-subscribe-options-newsgroup-method gnus-killed-list symbol-name gnus-matches-options-n subscribe intern ignore nil] 4] intern-soft gnus-group-change-level gnus-group-make-help-group 7 "`A k' to list killed groups" group groups gnus-backup-default-subscribed-newsgroups gnus-active-hashtb gnus-level-default-subscribed gnus-level-killed gnus-group-buffer gnus-novice-user] 8)] 2]) #@43 Subcribe GROUP and put it after PREVIOUS. (defalias 'gnus-subscribe-group #[(group &optional previous method) "\305\203\306 \n\307\211\257\202 \n \f\306%\210\306\207" [method group gnus-level-default-subscribed gnus-level-killed previous gnus-group-change-level t nil] 7 (#$ . 34424)]) (defalias 'gnus-group-change-level #[(entry level &optional oldlevel previous fromkilled) "\306\211\211\211\f:\203 \203\fA@\202\"\307\f8@\202\"\f\f;\203;\203;W\203;\310\f\"J\204_\f:\203_\307\f8A@\211:\203W@\202Y)\202h\206f;\203w\310\"JY\205\205\310 \"J?\205\371\311 !\204\241\312\313\314 \3078@ &!\210Y\203\305U\203\273\315 \"\202\367\315 \"\202\367Y\203\367\f\203\367\316\307\f8@\"\306L\210\317\f8\203\357\310\317\f8@\"J\fA\241\210\fA\fAAA\241\210Y\203'\316 \"\306L\210\320 !\204\352U\203 B\202\352 B\202\352W\203;\fAA@A\240\210\202\352\f<\203I\fA\f@\202\203\310 \"J\211\203] AT @Z\202^\321\322\206h\323 !!\211 \203| \306\211 \257\202\202 \306E)\204\240!\211\"AA\203\233\"A\211\"\202\215\")\nAABA\203\302A\f\241\210\316 \"ABL\210\202\322\f\241\210\316 \"BL\210\fA\203\343\310\fA@@\"J\f\241\210\312\313\324\n\"!\210#\205\371# $,\207" [num active info group entry fromkilled nil 2 intern-soft gnus-ephemeral-group-p gnus-dribble-enter format "(gnus-group-change-level %S %S %S %S %S)" delete intern 3 gnus-group-foreign-p t gnus-method-simplify gnus-group-method "(gnus-group-set-info '%S)" oldlevel gnus-level-zombie gnus-newsrc-hashtb rank gnus-level-killed previous level gnus-zombie-list gnus-killed-list gnus-active-hashtb gnus-override-subscribe-method method gnus-newsrc-alist p gnus-group-change-level-function] 9]) #@40 Obsolete function. Kills a newsgroup. (defalias 'gnus-kill-newsgroup #[(newsgroup) "\303\304 \"J\n\"\207" [newsgroup gnus-newsrc-hashtb gnus-level-killed gnus-group-change-level intern-soft] 4 (#$ . 36250)]) #@106 Remove bogus newsgroups. If CONFIRM is non-nil, the user has to confirm the deletion of every newsgroup. (defalias 'gnus-check-bogus-newsgroups #[(&optional confirm) "A\306\211\211\211\307\310\311\"\210\312 \204\313\314!\210\312 \205\274 \203A \211A@\211@\315 \"J\204\316 8\204 \fB\202\203P\317\320\321\f\322$\210\202u\f\211A@\211\203u\315 \"J\211\203P\323\n\"\210\324 \"\202P\325\306\211\203\263@J\203\252\315\211A@\211\"J\204\205@\324 @J\"L\210\202\205A\211\204*\326\327!\210\307\310\330\"-\207" [gnus-newsrc-alist info entry group bogus newsrc nil gnus-message 5 "Checking bogus newsgroups..." gnus-read-active-file-p gnus-read-active-file t intern-soft 4 map-y-or-n-p "Remove bogus group %s? " #[(group) "\305 \"J\211\205\306\n \"\210\307\f\"\211\207" [group gnus-newsrc-hashtb entry gnus-level-killed gnus-killed-list intern-soft gnus-group-change-level delete] 3] ("group" "groups" "remove") gnus-group-change-level delete (gnus-killed-list gnus-zombie-list) gnus-run-hooks gnus-check-bogus-groups-hook "Checking bogus newsgroups...done" gnus-active-hashtb confirm gnus-newsrc-hashtb gnus-level-killed gnus-killed-list killed dead-lists] 6 (#$ . 36467)]) #@51 Remove duplicates from the list of killed groups. (defalias 'gnus-check-duplicate-killed-groups #[nil "\211\205\302\303\304 G#\210 \305 @ A\"\241\210 A\211\204\306)\207" [gnus-killed-list killed gnus-message 9 "%d" delete nil] 5 (#$ . 37711) nil]) (defalias 'gnus-activate-group #[(group &optional scan dont-check method) "\206\243 \306 \206\242 \204\f\206\242\307 \"J\204\"\310 !\206\242\n\206-\311\307 \"J8\306\211\203B\312\n8\211\203B\313\232\203F\f\202\241;\203\330\211*\203]*<\203]*\206\324*\313\232\203h\f\206\324\314*+\"A\206\324\314*,\"A\206\324-..\203\243*\315\316.@@@.@@A@#\232\204\243.\211A.\210\202\200.@@)\206\324/00\203\320*\315\3160@@0@A@#\232\204\3200\211A0\210\202\2570@))\202LA@;\203K -.\203.\203A@.@@A@\232\203@.@@@\232\203.@@\232\204\306.\211A.\210\202\351*\204*AA\204.\202G@A@\317 Q\320\315\321@\"!A@DAABBB*\202L\211A@\322\232\203Y\202\241A@\204f@\322D\202\241\323@!1\324\31412\">\203\237\3201\325P!\236\204\237\326@2\236>\203\237\327\3201\325P!A@DC\"\202\240***\3063\211\3064\211\206\261\f\211;\203\273\330!\331!\203\305\332\202\3634\204\343\333\334\335@A@\322\232\203\333\322\202\341\315\336A@\"$\210\337\340!\210\341!4\204\363\342\322!\210+\205E5\203 \343\344@\"\203 \345 \"\210\306\346\347\217\205E\350 \2113\205E3@\351U\203:3A\351U\203:\307 6\"J\203:\307 6\"J\202E\320 6\"3L\2103*\207" [method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft gnus-group-name-to-method 2 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append gnus-server-to-method gnus-server-opened t gnus-message 5 "Opening %s server%s..." " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server message gnus-check-backend-function request-scan gnus-request-scan (byte-code " \n \206\256\306 \206\255\204'\206\255\307(\"J\204*\310!\206\255\f\2066\311\307(\"J8\306\211\203K\312\f8\211\203K\n\313\232\203P'\202\254\n;\203\343\n\211)\203g)<\203g)\206\337)\313\232\203s'\206\337\314)*\"A\206\337\314)+\"A\206\337,--\203\256)\315\316-@@@-@@A@#\232\204\256-\211A-\210\202\213-@@)\206\337.//\203\333)\315\316/@@/@A@#\232\204\333/\211A/\210\202\272/@))\202W\nA@;\203V\n\n,-\n\203*-\203*\nA@-@@A@\232\203 \n@-@@@\232\203 \n-@@\232\204 \306-\211A-\210\202\364\n*\2045\nAA\2049\n\202R\n@\nA@\317Q\320\315\321\n@\"!\nA@D\nAABBB*\202W\n\211A@\322\232\203d\n\202\254\nA@\204q\n@\322D\202\254\n\323\n@!0\324\31401\">\203\252\3200\325P!\n\236\204\252\326\n@1\236>\203\252\327\n\3200\325P!\nA@DC\"\202\253\n***\211;\203@ \211)\203\306)<\203\306)\206>)\313\232\203\322'\206>\314)*\"A\206>\314)+\"A\206>,--\203 )\315\316-@@@-@@A@#\232\204 -\211A-\210\202\352-@@)\206>.//\203:)\315\316/@@/@A@#\232\204:/\211A/\210\202/@)) \330\30623\211\204P\331\332!\210\n;\203Y\333\n!4\203d\334\n!\202f\n@\2115\335N636\236\2117\204\2213\320\315\33653#!B7\3375\33576B#\2107A)8\3408!\204\304\n@\204\247\331\341!\210\342\n@!\210\3408!\204\3042\203\276\3068\202\304\331\3438\"\2108.9\344\3459\"\203\3349\346\225\306O\202\3369) A@ #,\207" [group dont-check method gnus-command-method info gnus-override-method nil intern-soft gnus-group-name-to-method 2 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append request-group error "Attempted use of a nil select method" gnus-server-to-method gnus-agent-get-function gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" require "No such function: %s" string-match "^[^:]+:" 0 gnus-select-method gnus-newsrc-hashtb server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func gname] 7) ((quit)) gnus-parse-active 0 server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods active silent scan gnus-active-hashtb] 8]) (defalias 'gnus-get-unread-articles-in-group #[(info active &optional update) "\205\332 \203\n\211@\306\f\206\316 \204 \206\316\307 #\"J\204)\310 !\206\316\n\2065\311\307 #\"J8\306$\211\203M\312\n8\211$\203M$\313\232\203Q \202\315$;\203\345$\211%\203j%<\203j%\206\341%\313\232\203u \206\341\314%&\"A\206\341\314%'\"A\206\341())\203\260%\315\316)@@@)@@A@#\232\204\260)\211A)\210\202\215)@@)\206\341*++\203\335%\315\316+@@+@A@#\232\204\335+\211A+\210\202\274+@))\202l$A@;\203j $$$$()$\2036)\2036$A@)@@A@\232\203,$@)@@@\232\203,$)@@\232\204,\306$)\211A)\210\202\373$*\204C$AA\204H$\202f$@$A@\317 Q\320\315\321$@\"!$A@D$AABBB*\202l$\211$A@\322\232\203{$\202\315$A@\204\212$@\322D\202\315$$\323$@!,\324\314,-\">\203\312\320,\325P!$\236\204\312\326$@-\236>\203\312\327$\320,\325P!$A@DC\"\202\314$***..;\203\336\330.!.\331.@/\332\333\334\217*\205\335.\331\"\n@0\336\3370\"\2030\340\225\306O\202 0)\n.A@#*\203\341\n@\306\342#\210\311\n81\34023\203b\n\203b\n@4\203a\307 4\"J\2115\205_5@@W\203Q5@\240\2105AAV\205_5A\241)\210*A\340U\203o\3402\202\3101\204AT@Z2\202\3101A<\204\2671A@W\203\2261@S\241\2101AAV\203\2451A\241\210\340A1AT1@ZZ]2\202\3101A\203@1A@:\204\3161A@\206\3231A@@Y\2031@\247\203\3741\211@1A@\247\203\3611A@\206\3661A@AB\240\210\2021@1A@\247\2031A@\2061A@A\241\2101\211AA\241\210\202\2671@:\20381@A@W\20381@@S\241\2101\2116A\203d6A@:\204P6A@\206U6A@@AX\203d6A\2116\202=6A\203o6\306\241\2106@:\203\2076@AAV\203\2076@A\241\210)1\203\27721@:\204\2341@\206\2401@AT1@:\204\2561@\206\2621@@Z\\21A\2111\204\215\340A2Z]2\n\203\327\307\n@#\"J2\240\2102*\207" [active update info group gnus-override-method gnus-select-method nil intern-soft gnus-group-name-to-method 2 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append gnus-server-to-method request-update-info #1=#:G82013 (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)) gnus-get-function string-match "^[^:]+:" 0 gnus-activate-group t gnus-newsrc-hashtb method server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods gnus-command-method func gname range num gnus-use-cache gnus-cache-active-hashtb cache-active srange] 8]) (defalias 'gnus-get-unread-articles #[(&optional level) "A\n\206 \206 \fT \203 \247\204\fT\202& \247\203% \202&\306\n^@\307A\307B\307C\307D\307E\307F\310\311\312\"\210 \203|\f\313 \211A@\211B@\211CG\"JD\314B8\211E\203\237H\307EECE;\203x\315E!\202\365EH\232\203\205H\202\365E@;\203\232C\203\232\316CE\"\202\365E\203\262C\204\262EA@\317\232\203\262E\202\365EE\320E@!I\321\322IJ\">\203\362\323I\324P!E\236\204\362\325E@J\236>\203\362\326E\323I\324P!EA@DC\"\202\364E**\211EK\211L\204H\202L;\203\315L!\202LK\204H\202.K;\203,\315K!\202.KK\211LKM\211NM\232\206dNGMGU\205dN\203aN@M\235\203aNA\211N\204ON?.\204\237EEO\307EECE;\203\203\315E!\202EH\232\203\220H\202E@;\203\245C\203\245\316CE\"\202E\203\275C\204\275EA@\317\232\203\275E\202EE\320E@!I\321\322IJ\">\203\375\323I\324P!E\236\204\375\325E@J\236>\203\375\326E\323I\324P!EA@DC\"\202\377E**P\211Q\203\332\307Q@ECE;\203\315E!\202\233EH\232\203+H\202\233E@;\203@C\203@\316CE\"\202\233E\203XC\204XEA@\317\232\203XE\202\233EE\320E@!I\321\322IJ\">\203\230\323I\324P!E\236\204\230\325E@J\236>\203\230\326E\323I\324P!EA@DC\"\202\232E**PM\211NM\232\206\315NGMGU\205\315N\203\312N@M\235\203\312NA\211N\204\270N?*\204\332QA\211Q\204 Q+\204\237BA@\211R:\203\361R@\202\363R)@X\2033\327C\330\"DS\203/T\203/D\203/\331ECU\332\333U\"\203(U\306\225\307O\202*U)D#\210CC\334\322\320\335C!@!J\">)\204CC\211C\307BCV\206C\204]H\206\313CW\"J\204n\336C!\206B\206|\337\313CW\"J8\307E\211B\203\226\314B8\211E\203\226E\340\232\203\233H\202E;\2030E\211X\203\264X<\203\264X\206,X\340\232\203\300H\206,\322XY\"A\206,\322XZ\"A\206,[\\\\\203\373X\341\342\\@@@\\@@A@#\232\204\373\\\211A\\\210\202\330\\@@)\206,O]]\203(X\341\342]@@]@A@#\232\204(]\211A]\210\202]@))\202\272EA@;\203\270CEECEE[\\E\203\203\\\203\203EA@\\@@A@\232\203yE@\\@@@\232\203yE\\@@\232\204y\307E\\\211A\\\210\202HE*\204\220EAA\204\225E\202\264E@EA@\343CQ\323\341\344E@\"!EA@DEAABBB*\202\272E\211EA@\317\232\203\311E\202EA@\204\330E@\317D\202EE\320E@!I\321\322IJ\">\203\323I\324P!E\236\204\325E@J\236>\203\326E\323I\324P!EA@DC\"\202E***^\345^\346\"CU\332\333U\"\2039U\306\225\307O\202;U)^A@\"\210*\347\323\320E@!\350P!!\2033BE^B^;\203e\315^!^\351^@C_\352\353\354\217*\203\233\345^\351\"B@U\332\333U\"\203\220U\306\225\307O\202\222U)B^A@#\210*\2023BA@\211R:\203\260R@\202\262R)\nV\203\276\355D\2023`\2043\356CC_\357\360\361\217*\203\375\322EF\"\203\360\322EF\"C\322EF\"AB\241\210\2023ECDFBF\2023\362a\206b<\203b\202bC\236\204&EA\235\203&\327C!D\2024\327C\330\"DEABAC\211C\307BCV\206\fC\204MH\206\f\313CW\"J\204^\336C!\206\fB\206l\337\313CW\"J8\307E\211B\203\206\314B8\211E\203\206E\340\232\203\213H\202 E;\203 E\211X\203\244X<\203\244X\206X\340\232\203\260H\206\322XY\"A\206\322XZ\"A\206[\\\\\203\353X\341\342\\@@@\\@@A@#\232\204\353\\\211A\\\210\202\310\\@@)\206O]]\203X\341\342]@@]@A@#\232\204]\211A]\210\202\367]@))\202\252EA@;\203\250CEECEE[\\E\203s\\\203sEA@\\@@A@\232\203iE@\\@@@\232\203iE\\@@\232\204i\307E\\\211A\\\210\2028E*\204\200EAA\204\205E\202\244E@EA@\343CQ\323\341\344E@\"!EA@DEAABBB*\202\252E\211EA@\317\232\203\271E\202 EA@\204\310E@\317D\202 EE\320E@!I\321\322IJ\">\203\323I\324P!E\236\204\325E@J\236>\203\326E\323I\324P!EA@DC\"\202\nE***^\345^\346\"CU\332\333U\"\203)U\306\225\307O\202+U)^A@\"\210*D\355=\204AD\203]\fBD\363cDBD\203Y\fc\203}\nB\211@\307BCV\206+\nC\204lH\206+\n\313CW\"J\204}\336C!\206+\nB\206\213\337\313CW\"J8\307E\211B\203\245\314B8\211E\203\245E\340\232\203\252H\202*\nE;\203? E\211X\203\303X<\203\303X\206; X\340\232\203\317H\206; \322XY\"A\206; \322XZ\"A\206; [\\\\\203\n X\341\342\\@@@\\@@A@#\232\204\n \\\211A\\\210\202\347\\@@)\206; O]]\2037 X\341\342]@@]@A@#\232\2047 ]\211A]\210\202 ]@))\202\311 EA@;\203\307 CEECEE[\\E\203\222 \\\203\222 EA@\\@@A@\232\203\210 E@\\@@@\232\203\210 E\\@@\232\204\210 \307E\\\211A\\\210\202W E*\204\237 EAA\204\244 E\202\303 E@EA@\343CQ\323\341\344E@\"!EA@DEAABBB*\202\311 E\211EA@\317\232\203\330 E\202*\nEA@\204\347 E@\317D\202*\nEE\320E@!I\321\322IJ\">\203'\n\323I\324P!E\236\204'\n\325E@J\236>\203'\n\326E\323I\324P!EA@DC\"\202)\nE***^B^;\203<\n\315^!^\351^@C_\364\365\366\217*\205q\n\345^\351\"B@U\332\333U\"\203g\nU\306\225\307O\202i\nU)B^A@#*\203}\n\327B@\307\363#\210\337B8d\306ef\203\317\nB\203\317\nB@DDCg\203\316\n\313Cg\"J\211h\205\314\nh@D@W\203\274\nDh@\240\210hADAV\205\314\nDhA\241)\210*DA\306U\203\335\n\306e\202D\fd\204\357\nDATD@Ze\202D\fdA<\204, dAD@W\203 dD@S\241\210dADAV\203 dDA\241\210\306DAdATd@ZZ]e\202D\fdA\203\225 D@dA@:\204D dA@\206I dA@@Y\203\225 d@\247\203r d\211@dA@\247\203g dA@\206l dA@AB\240\210\202\213 d@dA@\247\203\204 dA@\206\211 dA@A\241\210d\211AA\241\210\202, d@:\203\260 d@AD@W\203\260 d@D@S\241\210d\211iA\203\335 iA@:\204\310 iA@\206\315 iA@@DAX\203\335 iA\211i\202\265 iA\203\350 i\307\241\210i@:\203\fi@ADAV\203\fi@DA\241\210)d\203:\fed@:\204\fd@\206\fd@ATd@:\204)\fd@\206-\fd@@Z\\edA\211d\204\f\306DAeZ]eB\203U\f\313B@W\"Je\240\210e*\210+\202A\323CG\"\307L\210\313CW\"J\211j\203x\fj\363\240\210)\202AF\203#F\211AF@\211k@\206\221\fHEkAl\367E!\210\370E@C_\371\372\373\217*\203\263\f\374\307E\"\210\375\376\377l\"E\"\210l\307C\211m\203m@C\313\337\313CW\"J8\211B@G\"J\211D\203BD\363cDBD\203\377c\203#B\211@\307BCV\206\321C\204 H\206\321\313CW\"J\204# \336C!\206\321B\2061 \337\313CW\"J8\307E\211B\203K \314B8\211E\203K E\340\232\203P H\202\320E;\203\345 E\211X\203i X<\203i X\206\341 X\340\232\203u H\206\341 \322XY\"A\206\341 \322XZ\"A\206\341 [\\\\\203\260 X\341\342\\@@@\\@@A@#\232\204\260 \\\211A\\\210\202\215 \\@@)\206\341 O]]\203\335 X\341\342]@@]@A@#\232\204\335 ]\211A]\210\202\274 ]@))\202oEA@;\203mCEECEE[\\E\2038\\\2038EA@\\@@A@\232\203.E@\\@@@\232\203.E\\@@\232\204.\307E\\\211A\\\210\202\375 E*\204EEAA\204JE\202iE@EA@\343CQ\323\341\344E@\"!EA@DEAABBB*\202oE\211EA@\317\232\203~E\202\320EA@\204\215E@\317D\202\320EE\320E@!I\321\322IJ\">\203\315\323I\324P!E\236\204\315\325E@J\236>\203\315\326E\323I\324P!EA@DC\"\202\317E***^B^;\203\342\315^!^\351^@C_\364\365\366\217*\205\345^\351\"B@U\332\333U\"\203 U\306\225\307O\202U)B^A@#*\203#\327B@\307\363#\210\337B8d\306ef\203uB\203uB@DDCg\203t\313Cg\"J\211h\205rh@D@W\203bDh@\240\210hADAV\205rDhA\241)\210*DA\306U\203\203\306e\202\352d\204\225DATD@Ze\202\352dA<\204\322dAD@W\203\256dD@S\241\210dADAV\203\277dDA\241\210\306DAdATd@ZZ]e\202\352dA\203;D@dA@:\204\352dA@\206\357dA@@Y\203;d@\247\203d\211@dA@\247\203 dA@\206dA@AB\240\210\2021d@dA@\247\203*dA@\206/dA@A\241\210d\211AA\241\210\202\322d@:\203Vd@AD@W\203Vd@D@S\241\210d\211iA\203\203iA@:\204niA@\206siA@@DAX\203\203iA\211i\202[iA\203\216i\307\241\210i@:\203\250i@ADAV\203\250i@DA\241\210)d\203\340ed@:\204\275d@\206\301d@ATd@:\204\317d@\206\323d@@Z\\edA\211d\204\256\306DAeZ]eB\203\373\313B@W\"Je\240\210e*\210+\202\323CG\"\307L\210\313CW\"J\363\240\210mA\211m\204\310\f-\202|\f\310\311\201n\". \207" [gnus-newsrc-alist newsrc level gnus-activate-level gnus-level-subscribed gnus-activate-foreign-newsgroups 0 nil gnus-message 5 "Checking new news..." intern-soft 4 gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append gnus-activate-group scan gnus-agent-save-group-info string-match "^[^:]+:" virtual gnus-find-method-for-group gnus-group-name-to-method 2 "native" format "%s:%s" "+" "%s-address" gnus-get-function close-group fboundp "-request-update-info" request-update-info #1=#:G82014 (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)) ignore retrieve-groups #2=#:G82015 (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)) directory t #3=#:G82013 (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)) gnus-check-server request-scan #4=#:G82016 (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)) gnus-request-scan gnus-read-active-file-2 mapcar #[(group) "\302\303 \"\203 \304\225\305O\202 )\207" [group gname string-match "^[^:]+:" 0 nil] 3] foreign-level scanned-methods info group active method retrievegroups gnus-active-hashtb gnus-select-method method-name gnus-valid-select-methods m2 m1 s2 s1 gnus-secondary-select-methods gmethod methods rank gnus-agent gnus-plugged gname gnus-override-method gnus-newsrc-hashtb server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened servers gnus-command-method func gnus-read-active-file mail-sources nnmail-spool-file update range num gnus-use-cache gnus-cache-active-hashtb cache-active srange tmp mg groups #5=#:--dolist-temp--82017 "Checking new news...done"] 10]) (defalias 'gnus-make-hashtable-from-newsrc-alist #[nil " \305\306\fG!@@\307\232\203\202\307\310\305E\fB\211\211\211\205F\311\f@@ \" \2058\312\f@@ \"J@\nBL\210\f\fA\211\204&\305+\207" [gnus-newsrc-alist gnus-newsrc-hashtb prev ohashtb alist nil gnus-make-hashtable "dummy.group" 0 intern intern-soft] 5]) #@55 Create a hash table from the killed and zombie lists. (defalias 'gnus-make-hashtable-from-killed #[nil "\305\306\307\nG G\\! \205* \211A@J\203\f\310@\f\"\211A@L\210\202*\207" [list lists gnus-killed-list gnus-zombie-list gnus-killed-hashtb (gnus-killed-list gnus-zombie-list) nil gnus-make-hashtable intern] 3 (#$ . 55225)]) #@46 Parse active info in the nntp server buffer. (defalias 'gnus-parse-active #[nil "\212q\210eb\210\301\302!\205\303\224b\210\304p!\304p!B)\207" [nntp-server-buffer looking-at "[0-9]+ [0-9]+ \\([0-9]+\\) [0-9]+" 1 read] 3 (#$ . 55569)]) #@35 Mark ARTICLES in GROUP as unread. (defalias 'gnus-make-articles-unread #[(group articles) "\306\307 \"J\206 \307\310\311\n\"\203\n\312\225\313O\202\n) \"J8\306 8\313\313\203H\314\211A@\211\f\"\203+ B\202+ \205\\ AA\315\306 8 \237\"\240\210\316\317\",\207" [group gnus-newsrc-hashtb gname info ranges news 2 intern-soft string-match "^[^:]+:" 0 nil gnus-member-of-range gnus-remove-from-range gnus-group-update-group t article articles] 5 (#$ . 55812)]) (defalias 'gnus-update-active-hashtb-from-killed #[nil "\306\307!\211 \nD\310\f\205.\f@\211\203&\311 @ \"\310L\210 A\211\204\fA\211\204\310+\207" [gnus-active-hashtb gnus-killed-list gnus-zombie-list killed lists hashtb gnus-make-hashtable 4096 nil intern] 4]) #@69 Go through the active hashtb and mark all unknown groups as killed. (defalias 'gnus-get-killed-groups #[nil "\303 \204 \304\300 \210) \204\305 \210\306\307\n\"\210\310 \207" [gnus-read-active-file gnus-killed-hashtb gnus-active-hashtb gnus-read-active-file-p t gnus-make-hashtable-from-killed mapatoms #[(sym) "\306\307! ?\206\310 \"J\206\310 \f\"J?\205=\311 !\211\312=\206) \313=?\205<\nT  B \314 \" L)*\207" [sym group groups gnus-killed-hashtb gnus-newsrc-hashtb do-sub 0 symbol-name intern-soft gnus-matches-options-n subscribe ignore intern gnus-killed-list] 4] gnus-dribble-touch] 3 (#$ . 56574)]) (defalias 'gnus-read-active-file #[(&optional force not-native) "\306 \210\307\310\311\204\312 !\203 \nB\202\n\313 \205\314C\"\"\315\315\212q\210\f\211A@\211\205B \f\235\204*\315\316\317\217\210\202*+\207" [not-native gnus-select-method gnus-secondary-select-methods method methods gnus-have-read-active-file gnus-group-set-mode-line mapcar #[(m) ";\203z\306 ;\203\307 !\202x \232\203 \202x @;\203/\n\203/\310\n \"\202x \203C\n\204C A@\311\232\203C \202x \312 @!\313\314\f \">\203v\315\f\316P! \236\204v\317 @ \236>\203v\320 \315\f\316P! A@DC\"\202w **\207\207" [m 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] 5] append gnus-check-server gnus-archive-server-wanted-p "archive" nil (gnus-read-active-file-1 method force) ((quit)) nntp-server-buffer] 5]) (defalias 'gnus-read-active-file-1 #[(method force) "\306\211\nA@\307\310 \203 G\311U\204\312 P\202\313\n@#\314\315\"\210\316\n!\205j\317\n@\320\321\322\217*\203=\323\306\n\"\210 \324=\2033\325\n@\326\327\330\217*\20334\20435A\306\n\n;\203g\331\n!\202\323\n6\232\203s6\202\323\n@;\203\204 \203\204\332 \n\"\202\323\n\203\230 \204\230\nA@\313\232\203\230\n\202\323\n\333\n@!7\334\33578\">\203\321\3367\337P!\n\236\204\321\340\n@8\236>\203\321\341\n\3367\337P!\nA@DC\"\202\322\n**\306\2119:;<<\211A<@\2119\203*9@99=\206\226 \2046\206\226\342 >\"J\204\343 !\206\2269\206\344\342 >\"J8\306\2119\2034\34598\211\2034\n\346\232\20396\202\225\n;\203\314\n\211?\203P?<\203P?\206\310?\346\232\203\\6\206\310\335?@\"A\206\310\335?A\"A\206\310BCC\203\227?\307\347C@@@C@@A@#\232\204\227C\211AC\210\202tC@@)\206\310DEE\203\304?\307\347E@@E@A@#\232\204\304E\211AE\210\202\243E@))\202@\nA@;\203? \n\nBC\n\203C\203\nA@C@@A@\232\203 \n@C@@@\232\203 \nC@@\232\204 \306C\211AC\210\202\335\n*\204\nAA\204\"\n\202;\n@\nA@\350 Q\336\307\351\n@\"!\nA@D\nAABBB*\202@\n\211A@\313\232\203M\n\202\225\nA@\204Z\n@\313D\202\225\n\333\n@!7\334\33578\">\203\223\3367\337P!\n\236\204\223\340\n@8\236>\203\223\341\n\3367\337P!\nA@DC\"\202\224\n***;F\211G\204\2466\202\265G;\203\263\331G!\202\265GF\204\2776\202\316F;\203\314\331F!\202\316FF\211GFH\211IH\232\206IGHGU\205I\203I@H\235\203IA\211I\204\357I?.\203\3369@J\352\353J\"\203J\311\225\306O\202!J):B:\202\336\354:\n\",\202j\n\204;\355\202j\356\n!\204R\nK\232?\205j\357\360\361\n@#\202j\314\315\"\210\362\nL\306\355$\210\nMBM\314\315\363#*\207" [mesg where method group func gnus-read-active-file nil format "Reading active file%s via %s..." 0 " from " "" gnus-message 5 gnus-check-server request-scan #1=#:G82018 (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)) gnus-request-scan some retrieve-groups #2=#:G82019 (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)) gnus-server-to-method gnus-server-extend-method symbol-name address assoc intern "-address" physical-address append intern-soft gnus-group-name-to-method 2 4 "native" "%s:%s" "+" "%s-address" string-match "^[^:]+:" gnus-read-active-file-2 t gnus-request-list gnus-error 1 "Cannot read active file from %s server" gnus-active-to-gnus-format "%sdone" force gnus-newsrc-alist gnus-select-method method-name gnus-valid-select-methods info groups gmethod newsrc gnus-override-method gnus-newsrc-hashtb server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers m2 m1 s2 s1 gname gnus-message-archive-method gnus-active-hashtb gnus-have-read-active-file] 7]) #@70 Read an active file for GROUPS in METHOD using gnus-retrieve-groups. (defalias 'gnus-read-active-file-2 #[(groups method) "\2053\212 q\210\305\n!\210\306\n\"\211\204\307\310\311\n@#\2022 \312=\203-\313\n\f\314\315$\2022\316\n\f\315#*\207" [groups nntp-server-buffer method list-type gnus-active-hashtb gnus-check-server gnus-retrieve-groups gnus-error 1.2 "Cannot read partial active file from %s server." active gnus-active-to-gnus-format nil t gnus-groups-to-gnus-format] 6 (#$ . 61273)]) (defalias 'gnus-active-to-gnus-format #[(&optional method hashtb ignore-errors real-active) "\204 p\n\206- \203 \232\204 \202- \232\203(\306\307ed\"!\202+\306\310!\211eb\210 \311\230\203?\312\313!\210\202E\312\314 P!\210eb\210\315\316\317\320#\204adb\210\321\322\317\320#\203a\323c\210\202S&\203t'\203t(\203t\324!\210\325\317);\203\205\326!\202\362 \232\203\217 \202\362@;\203\242)\203\242\327)\"\202\362\203\267)\204\267A@\311\232\203\267\202\362\330@!*\331\332*+\">\203\360\333*\334P!\236\204\360\335@+\236>\203\360\336\333*\334P!A@DC\"\202\361**\317 );\203\326!\202p \232\203  \202p@;\203 )\203 \327)\"\202p\2035)\2045A@\311\232\2035\202p\330@!*\331\332*+\">\203n\333*\334P!\236\204n\335@+\236>\203n\336\333*\334P!A@DC\"\202o**\"\204\227\337\311\",eb\210m\204\226g\340U\203\213\341u\210,c\210\341y\342U\204~)eb\210\317\211\211-.)m?\205\265\343\344\345\217\210~\210\341y\210\202\243-\207" [method gnus-select-method hashtb gnus-active-hashtb cur gnus-ignored-newsgroups gnus-make-hashtable count-lines 4096 "" delete-matching-lines "^to\\." "^to\\.\\|" re-search-forward "[\\\"]" nil t re-search-backward "[][';?()#]" 92 gnus-agent-save-active gnus-server-equal gnus-server-to-method gnus-server-extend-method symbol-name address assoc intern "-address" physical-address append gnus-group-prefixed-name 34 1 0 err (byte-code "`\306 }\210\307\n!)\211;\203\310 \"\307\n!\211\247\203d\307\n!\211\247\203d\311\312w\210\312f\313=\204d\312f\314=\204d\312f\315=\204d \fBL\210\312f\316=\203h\204W\317 \310\320 !\"\321L\210\202h \312L\210\312\207" [hashtb obarray cur group max min gnus-point-at-eol read intern " " nil 61 120 106 109 gnus-make-hashtable symbol-name t gnus-moderated-hashtb] 4) ((error (byte-code "\203 9\203 \302L\210 \204\303\304\305\306 \307 {#\210\302\207" [group ignore-errors nil gnus-message 3 "Warning - invalid active: %s" gnus-point-at-bol gnus-point-at-eol] 5))) gnus-agent real-active gnus-plugged group method-name gnus-valid-select-methods prefix min max] 7]) (defalias 'gnus-groups-to-gnus-format #[(method &optional hashtb real-active) "p\206 \203\n\203\n\202\306\307ed\"!\211 \205\310\311  ;\203-\312 !\202\223 \f\232\2037\f\202\223 @;\203H \203H\313 \"\202\223 \203\\ \204\\ A@\314\232\203\\ \202\223 \315 @!\316\317 \">\203\221\320 \321P! \236\204\221\322 @\236>\203\221\323 \320 \321P! A@DC\"\202\222 **\311\f ;\203\243\312 !\202  \f\232\203\255\f\202  @;\203\276 \203\276\313 \"\202  \203\322 \204\322 A@\314\232\203\322 \202  \315 @!\316\317 \">\203\320 \321P! \236\204\322 @\236>\203\323 \320 \321P! A@DC\"\202 **\"?\205\324\314 \" \203;!\203;\"\203;\325 !\203;\326 !\210\327 \311!$\202{eb\210\203b\311\211\211\211#$%m?\205^\311\330\331\217\210\332y\210\202N,\202{\311\211\211$%m?\205z\311\333\334\217\210\332y\210\202j++\207" [hashtb method gnus-active-hashtb group gnus-select-method method-name gnus-make-hashtable count-lines gnus-server-equal nil gnus-server-to-method gnus-server-extend-method "" symbol-name address assoc intern "-address" physical-address append gnus-group-prefixed-name gnus-agent-method-p gnus-agent-save-groups gnus-active-to-gnus-format (byte-code "\306!\210\306!\210\306!\306!`\307\310w\210\fc\210 b\210  \306!) \nBL\207" [cur min max opoint prefix hashtb read " " nil obarray] 3) ((error (byte-code "\203 9\203 \301L\210\301\207" [group nil] 2))) 1 (byte-code "\306f\307=\203$\310!\210\310!\210\310!\310! \310!)\211 \nBL\210\306\207" [cur min max hashtb obarray group nil 50 read] 3) ((error (byte-code "\203 9\203 \301L\210\301\207" [group nil] 2))) gnus-valid-select-methods prefix cur gnus-agent real-active gnus-plugged opoint max min] 9]) #@67 Read startup file. If FORCE is non-nil, the .newsrc file is read. (defalias 'gnus-read-newsrc-file #[(&optional force) "\211\203 @\306L\210 A\211\204)\n\211\307P\212\310\f!\210 \203_\311\n!\203_\204B\312 \f\"\203=\312 \f\313P\"\204B\204_\212\314\315\316 #\210\317 !q\210\320 \210\321 \210\322p!\210\314\315\323 #\210)\324 +\207" [gnus-variable-list variables gnus-current-startup-file newsrc-file quick-file gnus-read-newsrc-file nil ".el" gnus-read-newsrc-el-file file-exists-p file-newer-than-file-p "d" gnus-message 5 "Reading %s..." nnheader-find-file-noselect buffer-disable-undo gnus-newsrc-to-gnus-format kill-buffer "Reading %s...done" gnus-convert-old-newsrc force gnus-newsrc-alist] 5 (#$ . 65672)]) #@52 Convert old newsrc into the new format, if needed. (defalias 'gnus-convert-old-newsrc #[nil "\205\302!\211\204\303\202 \302\304!W\205\305 )\207" [gnus-newsrc-file-version fcv gnus-continuum-version nil "September Gnus v0.1" gnus-convert-old-ticks] 4 (#$ . 66407)]) (defalias 'gnus-convert-old-ticks #[nil "A\306\211\211\211 \211A@\211\205C\307 8\211\203 \302\f\236A\310\f\236A\n\204/ \203 AA\311\312 8\313\n!\313 !\244\"\240\210\202 -\207" [gnus-newsrc-alist ticked dormant info marks newsrc nil 3 tick gnus-add-to-range 2 gnus-uncompress-range] 6]) (defalias 'gnus-read-newsrc-el-file #[(file) "\304P\305\306\307 #\210\310\310\311\312\217\210\n\203\n)\313 \210\314 \"\205+\305\306\307#\210\315!)\207" [file ding-file gnus-newsrc-assoc gnus-newsrc-alist "d" gnus-message 5 "Reading %s..." nil (byte-code "\303\n\304\211\211$\210)\303\207" [gnus-startup-file-coding-system coding-system-for-read ding-file load t] 5) ((error (byte-code "\301 \210\302\303\304\"!\204\305\306\"\210\301\207" [ding-file ding gnus-yes-or-no-p format "Error in %s; continue? " error "Error in %s"] 4))) gnus-make-hashtable-from-newsrc-alist file-newer-than-file-p gnus-read-old-newsrc-el-file] 4]) (defalias 'gnus-read-old-newsrc-el-file #[(file) "\306\211\211\211\211\211\306\211\211\211\307\310\311\217\210,\306 \211A@\211\203\306\312\313\n@\"J8\211\203\204AA\nAA\240\210A\211 @:\203i @\nA@\203b!\202d\"\240\210\202z \nA@\203v!\202x\"\240\210)B\202\236\n@\nA@\203\221!\202\223\"\nAAE\211B\314\n@ \"\211\203*\315\233\204\263\306C\244\210\315\233\316\317\320 A\321\"\322\"BC\240\210\202*\f\211\203\331 \211@@\240\210 A\211\204\314\f#$\203 \323\324$\"\204\357\325$P$\323\326$\"\204\375$\327P$$\330\230\204 \331$!\210\237\332 .\207" [info m group marked killed newsrc nil #1=#:G82020 (byte-code "\301\302\211\211$\207" [file load t] 5) ((error)) 2 intern-soft assoc 3 tick gnus-compress-sequence sort < t string-match "^ *options" "options " "\n$" "\n" "" gnus-newsrc-parse-options gnus-make-hashtable-from-newsrc-alist gnus-newsrc-assoc gnus-newsrc-alist gnus-marked-assoc gnus-killed-assoc gnus-newsrc-hashtb rank gnus-level-default-subscribed gnus-level-default-unsubscribed gnus-killed-list gnus-newsrc-options] 7]) #@74 Make server dependent file name by catenating FILE and server host name. (defalias 'gnus-make-newsrc-file #[(file) "\303\304\"\211\305 A@Q\306\n!\204\"\306\n\307P!\204\"\306\n\310P!\203&\n\202'*\207" [file gnus-select-method real-file expand-file-name nil "-" file-exists-p ".el" ".eld"] 4 (#$ . 68745)]) (defalias 'gnus-newsrc-to-gnus-format #[nil "\306\307\n\204\f\310\311!p G\312V\307\211\211\211\211\211\211\211*+,-./01eb\210\313\314\n\"\211-\307L\210\313\315\n\"\211+\307L\210m\204\346`\316\307w\210`}\210eb\210edU?\205`\n2\3171!)*~\210*-=\204t*+=\203\220\320 \321\322\307\323#\203\206\324y\210`\206\207`{P\325y\210\202\340*\203\340*\247\203\244\313\326*!\n\"*\327*!\204\260*\307L\210\307f\330=.\331*!/\307l\203\310\324y\210\202\314\332\307w\210\333\334!\203\324\224\324\225}\210\3171!~\210\307f\335=\203\n\312u\210\333\334!\204\366\f B\202\f\324\224\324\225}\210\3171!B B~\210\202\f B\307f\336=?\202/\307f\336=\2049m\204.\307/\337\340\341\320 \342 {#\210\307\2039\343\307w\210\202\314/\203\340\344\345/3\"J8\3074\2115\203\2735AA \237\240\2105A@\2116:\203i6@\202k6)\21147X\203\213.\204\213 \203\2038\202\2068T4\202\23447V\203\234.\203\234945A\2116@:\203\2616@4\240\210\202\26764\240\210)\202\330/.\203\3079\202\323 \203\3217T\202\3238 \237E55,B,*\312y\210\202B,\237,0\203L A \307\211:;<\211=\203K\346=@8\203>\347=@@,\"\204>\347<@@,\"\211;\2036;,>\211:=@:AB\241\210\202>=@,B,=<=A\211=\204,,\350 \210\306\230?\205\\\351!.\n\207" [gnus-newsrc-options gnus-newsrc-options-n gnus-active-hashtb gnus-newsrc-alist num1 reads "" nil gnus-make-hashtable 4096 1 intern "options" "Options" "^ !:\n" read gnus-point-at-bol re-search-forward "^[^ ]" move 0 -1 int-to-string boundp 58 symbol-name "!: " looking-at "[0-9]+" 45 10 gnus-error 3.1 "Mangled line: %s" gnus-point-at-eol ", " 2 intern-soft 4 assoc gnus-make-hashtable-from-newsrc-alist gnus-newsrc-parse-options symbol Options-symbol newsrc options-symbol subscribed group already-read buf obarray gnus-newsrc-hashtb level info rank gnus-level-subscribed gnus-level-default-unsubscribed gnus-level-default-subscribed mentry entry prev rc] 11]) (defalias 'gnus-newsrc-parse-options #[(options) "\304\211\212\305 \210\306\n!c\210eb\210\307\310\304\311#\203!\312\313\311\211#\210\202eb\210\307\314\304\311#\2035\312\315\311\211#\210\202$eb\210\307\316\304\311#\203J\312\313!\210\317u\210\2028eb\210\307\320\304\311#\203\230\212\307\320\321 \311#\205b`\322Z)\206h\321 \307\323\311#\203M\324\224f\325=\203\212\326\324\224T\324\225{\327Q\330B B\202i\326\331\324!\327Q\332B B\202i \211+\207" [eol out options gnus-newsrc-options-n nil gnus-set-work-buffer regexp-quote re-search-forward "\n[ ]+" t replace-match " " "\\ball\\b" ".+" "[ ]-[^n][^-]*" -1 "[ ]-n" gnus-point-at-eol 2 "[^ ,\n]+" 0 33 "^" "\\($\\|\\.\\)" ignore match-string subscribe] 4]) #@20 Save .newsrc file. (defalias 'gnus-save-newsrc-file #[(&optional force) "\204 \205\235\n\205\235\212 \204\f\2039 \2049%\2032\306%!\2032\212%q\210\307 )\310U\2039\311\312\313\"\202\234\314\315!\210\f\203G\316 \210\202\227&\203[\311\317\320\n#\210\321 \210\311\317\322\n#\210\323\324!q\210\325\326!\210\327\n\330P'\331'!(\332 \210\333 \210\311\334\335\n#\210\336 \210\314\337!\210)*\340 \210)\341p!\210\311\334\342\n#\210\343 \210\344 )\207" [gnus-newsrc-alist gnus-killed-list gnus-current-startup-file gnus-use-dribble-file gnus-slave force buffer-name buffer-size 0 gnus-message 4 "(No changes need to be saved)" gnus-run-hooks gnus-save-newsrc-hook gnus-slave-save-newsrc 8 "Saving %s..." gnus-gnus-to-newsrc-format "Saving %s...done" gnus-get-buffer-create " *Gnus-newsrc*" make-local-variable version-control never ".eld" file-name-directory buffer-disable-undo erase-buffer 5 "Saving %s.eld..." gnus-gnus-to-quick-newsrc-format gnus-save-quick-newsrc-hook save-buffer kill-buffer "Saving %s.eld...done" gnus-dribble-delete-file gnus-group-set-mode-line gnus-dribble-buffer gnus-save-newsrc-file buffer-file-name default-directory gnus-startup-file-coding-system coding-system-for-write] 4 (#$ . 71742)]) #@65 Insert Gnus variables such as gnus-newsrc-alist in lisp format. (defalias 'gnus-gnus-to-quick-newsrc-format #[nil "\306\211\307c\210\310c\210\311c\210\312\313\n!\314\261\210 \203# ;\203#\315 \202$\f \203- \2023\316\304\317 !\"A\320\205l\321\211A@\211!\203=J\203=\322\323!\324\261\210\325J!\210\314c\210\202=.\207" [print-escape-newlines print-quoted gnus-version gnus-save-killed-list gnus-killed-list gnus-variable-list t ";; -*- emacs-lisp -*-\n" ";; Gnus startup file.\n" ";; Never delete this file -- if you want to force Gnus to read the\n;; .newsrc file (if you have one), touch .newsrc instead.\n" "(setq gnus-newsrc-file-version " prin1-to-string ")\n" gnus-strip-killed-list delq copy-sequence nil boundp "(setq " symbol-name " '" gnus-prin1 variables gnus-newsrc-alist variable] 4 (#$ . 72984)]) #@77 Return the killed list minus the groups that match `gnus-save-killed-list'. (defalias 'gnus-strip-killed-list #[nil "\304\n\203\305 \n@\"\203\n@ B\n\211A\210\202 \237*\207" [gnus-killed-list olist list gnus-save-killed-list nil string-match] 3 (#$ . 73833)]) (defalias 'gnus-gnus-to-newsrc-format #[nil "\212\306!q\210 Ap\307\211\211\211 !\310!!\"\311 \210\312 \210#\203-#c\210 \211A @\211\203S\313 8\211\203\272\n\314\232\204\272\n$%\211&\204W$\202f&;\203d\315&!\202f&%\204p$\202%;\203}\315%!\202%%\211&%'\211('\232\206\265(G'GU\205\265(\203\262(@'\235\203\262(A\211(\204\240(?.\203- @ A@\211):\203\314)@\202\316))*V\203\331\316\202\332\317\261\210\320 8\211\203M\321c\210\fA<\204\f@\fAU\203\376\322\f@!\210\202M\322\f@!\210\323c\210\322\fA!\210\202M\f\211A@\211\203M :\203% @ AU\2036\322 :\204/ \2061 @!\210\202C\322 @!\210\323c\210\322 A!\210\f\203\324c\210\202\325c\210\202-\326\327!\210\330+\203g\331,!\210\202j\332 \210\333\334!\210\335 \210\336p!.\207" [gnus-current-startup-file gnus-newsrc-alist method range ranges info create-file-buffer nil file-name-directory buffer-disable-undo erase-buffer 4 "native" gnus-server-to-method "!" ":" 2 " " princ "-" "," "\n" make-local-variable version-control never delete-file clear-visited-file-modtime gnus-run-hooks gnus-save-standard-newsrc-hook save-buffer kill-buffer standard-output newsrc buffer-file-name default-directory gnus-newsrc-options gnus-select-method m2 m1 s2 s1 rank gnus-level-subscribed gnus-modtime-botch gnus-startup-file] 7]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-slave-mode current-load-list boundp nil] 2) #@30 Minor mode for slave Gnusae. (defalias 'gnus-slave-mode #[nil "\300\301\302\303 #\210\304\305!\207" [gnus-add-minor-mode gnus-slave-mode " Slave" make-sparse-keymap gnus-run-hooks gnus-slave-mode-hook] 4 (#$ . 75551)]) (defalias 'gnus-slave-save-newsrc #[nil "\212q\210\304 \305P!\306\307\310\217\311 !\210\n\205\312 \n\"+\207" [gnus-dribble-buffer gnus-current-startup-file modes slave-name make-temp-name "-slave-" #1=#:G82021 (byte-code "\301\302P!\207" [gnus-current-startup-file file-modes ".eld"] 3) ((error)) gnus-write-buffer set-file-modes] 4]) (defalias 'gnus-master-read-slave-newsrc #[nil "\304\305!\306\307\310\311!\312P!P\306$\313\211\205Y\314\315\316\"\210\212\317\320!q\210\321\322\323\n\"\324\"\211\203Q\325 \210\n@A@\326 !\210\313\327\330\217\203J \204J\331\332\333\217\210\nA\211\204.)\334 \210\314\315\335\"*\207" [gnus-current-startup-file file slave-files gnus-slave directory-files file-name-directory t "^" regexp-quote file-name-nondirectory "-slave-" nil gnus-message 7 "Reading slave newsrcs..." gnus-get-buffer-create " *gnus slave*" sort mapcar #[(file) "\301\302!8D\207" [file 5 file-attributes] 3] #[(f1 f2) "@@ @@W\206@A@ @A@W\207" [f1 f2] 2] erase-buffer insert-file-contents (byte-code "\300p!\210\301\207" [eval-buffer t] 2) ((error (gnus-error 3.2 "Possible error in %s" file) nil)) #1=#:G82022 (delete-file file) ((error)) gnus-dribble-touch "Reading slave newsrcs...done"] 8]) (defalias 'gnus-read-all-descriptions-files #[nil "\303 \205\304C \244B\211\203\305\n@!\210\nA\211\204)\306\207" [gnus-select-method gnus-secondary-select-methods methods gnus-archive-server-wanted-p "archive" gnus-read-descriptions-file t] 4]) (defalias 'gnus-read-descriptions-file #[(&optional method) "\206 \306\211;\203\307! \204\310\fG!\311\312\313\" \"\314L\210\315\316\317@#\210\320\321\322#\2047\322\202\366\323!\204F\315\324\325\"\210\306\202\366\326!\204U\315\324\327\"\210\306\202\366\212\214 q\210eb\210\330\331\306\322#\204jdb\203q\332y\210e`}\210\203\233\333\334\306\"\334\306 \"\"\204\233\312\313\"'eb\210m\204\232'c\210\324y\332U\204\213)eb\210m\204\357\306\335\336\217\337\306w\210\n9\203\351`\306\210`{(\204\306\340\341!\205\321!\205\321\342\343!\205\321\343\344\n!!)*)\203\343\345*)@\"*\n*L\210*\324y\210\202\236*\315\316\346\"\210\322*\207" [method gnus-select-method group gnus-description-hashtb gnus-active-hashtb nntp-server-buffer nil gnus-server-to-method gnus-make-hashtable intern gnus-group-prefixed-name "" "Has read" gnus-message 5 "Reading descriptions file via %s..." gnus-get-function request-list-newsgroups t gnus-check-server 1 "Couldn't open server" gnus-request-list-newsgroups "Couldn't read newsgroups descriptions" search-forward "\n.\n" 0 gnus-server-equal gnus-server-get-method (byte-code "\303\n!)\207" [gnus-description-hashtb obarray nntp-server-buffer read] 2) ((error 0)) " " boundp enable-multibyte-characters fboundp gnus-mule-get-coding-system symbol-name mm-decode-coding-string "Reading descriptions file...done" prefix gnus-xemacs coding str] 6]) #@66 Get the description of a group by sending XGTITLE to the server. (defalias 'gnus-group-get-description #[(group) "\302!\205\212 q\210eb\210\303\304!\205\305\306!)\207" [group nntp-server-buffer gnus-request-group-description looking-at "[^ ]+[ ]+\\(.*\\)" match-string 1] 2 (#$ . 78665)]) #@56 Declare backend NAME with ABILITIES as a Gnus backend. (defalias 'gnus-declare-backend #[(name &rest abilities) "\303\304 \n#C\244\211\207" [gnus-valid-select-methods name abilities apply list] 5 (#$ . 78967)]) #@122 Set the default directory in the current buffer to `gnus-default-directory'. If this variable is nil, don't do anything. (defalias 'gnus-set-default-directory #[nil "\203\302!\203\303\304!!\202 \211\207" [gnus-default-directory default-directory file-exists-p file-name-as-directory expand-file-name] 3 (#$ . 79187)]) (provide 'gnus-start)