;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:43:59 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-start.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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") '(#$ . 807) :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") '(#$ . 1026) :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)) '(#$ . 1283) :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 '(#$ . 1676) :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 '(#$ . -2092) :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 '(#$ . -2394) :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 '(#$ . -2672) :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 '(#$ . -4240) :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 '(#$ . -4591) :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 (#$ . 5377)) #@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 (#$ . 5502)) #@43 Groups with this level are zombie groups. (defconst gnus-level-zombie 8 (#$ . 5741)) #@36 Groups with this level are killed. (defconst gnus-level-killed 9 (#$ . 5832)) #@58 *New subscribed groups will be subscribed at this level. (custom-declare-variable 'gnus-level-default-subscribed '3 '(#$ . -5916) :group 'gnus-group-levels :type 'integer) #@62 *New unsubscribed groups will be unsubscribed at this level. (custom-declare-variable 'gnus-level-default-unsubscribed '6 '(#$ . -6094) :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) '(#$ . -6279) :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 '(#$ . -6598) :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 '(#$ . -7326) :version "21.1" :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 '(#$ . -7771) :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 '(#$ . -8199) :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. ]+ " "^[\"][]\"[#'()]") "\\|") '(#$ . -8892) :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 '(#$ . -9315) :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 '(#$ . -10349) :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 '(#$ . -11131) :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" '(#$ . -11608) :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 '(#$ . -12116) :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 '(#$ . -12615) :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 '(#$ . -12944) :group 'gnus-newsrc :type 'boolean) #@41 A hook run after removing bogus groups. (custom-declare-variable 'gnus-check-bogus-groups-hook 'nil '(#$ . 13181) :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 '(#$ . 13340) :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 '(#$ . 13531) :group 'gnus-start :type 'hook) #@48 A hook called as the last thing after startup. (custom-declare-variable 'gnus-started-hook 'nil '(#$ . 13733) :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 '(#$ . 13881) :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 '(#$ . 14058) :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)) '(#$ . -14217) :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 '(#$ . 14478) :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 '(#$ . 14638) :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 '(#$ . 14854) :group 'gnus-newsrc :type 'hook) #@40 Unconditionally read the dribble file. (custom-declare-variable 'gnus-always-read-dribble-file 'nil '(#$ . 15075) :group 'gnus-newsrc :type 'boolean) #@30 Coding system for ding file. (defvar gnus-ding-file-coding-system mm-universal-coding-system (#$ . 15231)) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\305\305\207" [current-load-list gnus-newsrc-file-version gnus-override-subscribe-method gnus-dribble-buffer boundp nil] 2) #@35 Options line in the .newsrc file. (defvar gnus-newsrc-options nil (#$ . 15558)) #@79 List of regexps representing groups to be subscribed/ignored unconditionally. (defvar gnus-newsrc-options-n nil (#$ . 15644)) #@49 Date Gnus last asked server for new newsgroups. (defvar gnus-newsrc-last-checked-date nil (#$ . 15776)) #@36 Startup file for the current host. (defvar gnus-current-startup-file nil (#$ . 15886)) (byte-code "\302B\301B\303\301!\204\304\304\207" [current-load-list gnus-init-inhibit gnus-group-line-format boundp nil] 2) (defalias 'gnus-read-init-file #[(&optional inhibit-next) "\205J \203\f\306\211\207\n \fD\306\211 \203H @\211\203?\307 !\203?\2041\203:\310 \306\311#\210\202?\312\313\314\217\210 A\211 \204*\306\207" [init-file-user gnus-init-inhibit inhibit-next gnus-site-init-file gnus-init-file file nil locate-library load t var (load file nil t) ((error (error "Error in %s: %s" file var))) #1=#:--dolist-temp--97316 debug-on-error debug-on-quit] 5]) (defalias 'gnus-subscribe-hierarchical-interactive #[(groups) "\306\307\"\310\211\211\211\211\211\205x\311C\203\203\312@@\"\2045A\202#@\211GS\312\313@\f#\203 A\203 \311@\314\211\225OP\211\203 \312 \211A@)\"\203  B\315\316 \317 GSO\"\210\320 \211\321>\204\216\322 \210\315\316 \317 GSO\"\210\202u \323U\203\275\203\267\312 @\211\"\203\267\nB\324\n\"\nL\210A\211\204\230 A\202 \325U\203\353\203\345\312 @\211\"\203\345\324\n\"\nL\210\326@!\210A\211\204\307 A\202 \327U\203\203@\211B\324\n\"\nL\210A\211\202\362\315\330@\"\210\320 \211\331>\204(\322 \210\315\330@\"\210\202@ \332U\203A\326@!\210\324\n\"\nL\210\202q \327U\203c\203q@\211B\324\n\"\nL\210A\211\202H\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 x 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 (#$ . 17733)]) #@62 Subscribe new NEWSGROUP and insert it in alphabetical order. (defalias 'gnus-subscribe-alphabetically #[(newgroup) "A\305 \204)\n\203) \n\211@@)\231\203#\n\211@@)\211\202\nA\202\306 \"*\207" [gnus-newsrc-alist before groups newgroup x nil gnus-subscribe-newsgroup] 4 (#$ . 17913)]) #@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 (#$ . 18216)]) #@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 (#$ . 18777)]) #@41 Make the new GROUP into a zombie group. (defalias 'gnus-subscribe-zombies #[(group) " B\211\207" [group gnus-zombie-list] 2 (#$ . 19128)]) #@36 Make the new GROUP a killed group. (defalias 'gnus-subscribe-killed #[(group) " B\211\207" [group gnus-killed-list] 2 (#$ . 19275)]) #@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 (#$ . 19417)]) #@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 (#$ . 19861)]) (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$\306%\307\310!\210&\203n\311&!\203n\312\311&!!\210\313 \210\311\314\306!!\203\201\312\311\314\306!!!\210'\211(\211)\205\232);\203\226\315\202\227\316)!)\203\243\312(!\210)\317 \211*\203\262\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 nnmail-split-history gnus-ephemeral-servers gnus-current-startup-file nntp-server-buffer buf buffer buffers] 5 (#$ . 20390)]) #@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 (#$ . 21660) "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 \203P\320\321\322!\203?\323 \210\202P\203P\324 \325 TU\203P\326 \210 \247\205\\ \311V\205\\ \320\327\216?\205u\330 \205q?!\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 featurep xemacs gnus-xmas-splash 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 window-system did-connect level dont-connect] 3 (#$ . 22219) "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 (#$ . 23882)]) #@203 Unload all Gnus features. (For some value of `all' or `Gnus'.) Currently, features whose names have prefixes `gnus-', `nn', `mm-' or `rfc' are unloaded. Use cautiously -- unloading may cause trouble. (defalias 'gnus-unload #[nil "\303\211\203 \n@\304\305\306 !\"\203\307 \310\"\210\nA\211\204*\303\207" [features feature #1=#:--dolist-temp--97317 nil string-match "^\\(gnus-\\|nn\\|mm-\\|rfc\\)" symbol-name unload-feature force] 5 (#$ . 24292) nil]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list gnus-dribble-ignore 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 (#$ . 24915)]) #@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 (#$ . 25174)]) #@27 Touch the dribble buffer. (defalias 'gnus-dribble-touch #[nil "\300\301!\207" [gnus-dribble-enter ""] 2 (#$ . 25551)]) #@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\325 !\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 zerop buffer-size 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 (#$ . 25676)]) (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 (#$ . 27449)]) #@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..." message-make-date 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 (#$ . 29075) "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\203A\306 \211 @@) \"\204A A\211\204- \205L \211 @A))\207" [gnus-options-subscribe group gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-options-n regs string-match subscribe ignore x] 4]) (defalias 'gnus-ask-server-for-new-groups #[nil "\306  \206 \307 \205\310C\311\f:\205\f \"\244B#\312$\313%\313&\313'\313(\313)\313*+\204;\314 \210\313#\211A#@(%(;\203T\315(!\202\220( \232\203_ \202\220(@;\203t%\203t\316%(\"\202\220(\203\214%\204\214\317(!\320\232\203\214(\202\220\321(!*\211(\203\326\313&(*\322(!\203\311\323\n(\"\203\311\212\324'\325\326!),q\210\327()\330#\210)\331\332)\"\210&\203;\333&!\210\202;$\312V\203\362\334\335\336$\211\337V\203\354\340\202\355\341$\210\202\367\334\335\342\"\210'\203\376'.\n\207" [new-date gnus-newsrc-last-checked-date date gnus-select-method gnus-check-new-newsgroups gnus-secondary-select-methods message-make-date gnus-archive-server-wanted-p "archive" append 0 nil gnus-make-hashtable-from-killed gnus-server-to-method gnus-server-extend-method cadr "" gnus-server-add-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" methods groups group new-newsgroups got-new method hashtb gnus-override-subscribe-method gnus-killed-hashtb 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\310\211\203, @\311\n!\203%\312\313\310\"\210 A\211\204*\314\315\316\"\210\317 \204=\320\304 \210)\321 \206G\310\211\320=\205\227\322\323\"\210\310\211\203\204@\324\"J\203{\325 #\210A\211\204c*\212!q\210\326 \210)\"\205\227\314\327\330\"*\207" [gnus-current-startup-file gnus-startup-file file #1=#:--dolist-temp--97318 gnus-read-active-file gnus-newsrc-last-checked-date ".el" ".eld" nil file-exists-p throw ended gnus-message 6 "First time user; subscribing you to default groups" gnus-read-active-file-p t message-make-date 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" gnus-default-subscribed-newsgroups gnus-backup-default-subscribed-newsgroups group groups gnus-active-hashtb #2=#:--dolist-temp--97319 gnus-level-default-subscribed gnus-level-killed gnus-group-buffer gnus-novice-user] 9)] 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 (#$ . 34427)]) (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 \311 !\204\241\312\313\314 \3078@ &!\210Y\203\305U\203\273\315 \"\202\373\315 \"\202\373Y\203\373\f\203\373\316\307\f8@\"\306L\210\317\f8\203\357\310\317\f8@\"J\fA\241\210\fA\f\211AA)A\241\210Y\203+\316 \"\306L\210\320 !\204\376U\203\" B\202\376 B\202\376W\203C\f\211AA)@A\240\210\202\376\f<\203Q\fA\f@\202\213\310 \"J\211\203e AT @Z\202f\321\322 \206p\323 !!\211!\203\204 \306\211!\257\202\212 \306E)\204\254\"\211#\211AA)\203\247#A\211#\202\225#)\n\211AA)BA\203\322A\f\241\210\316 \"ABL\210\202\342\f\241\210\316 \"BL\210\fA\203\367\310\f\211A@)@\"J\f\241\210\312\313\324\n\"!\210$\205 $ $,\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 x 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 (#$ . 36285)]) #@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 (#$ . 36502)]) #@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 (#$ . 37746) nil]) (defalias 'gnus-activate-group #[(group &optional scan dont-check method) "\206 \306 \206~ \204\f\206~\307 \"J\204\"\310 !\206~\n\206-\311\307 \"J8\306\211\203B\312\n8\211\203B\313\232\203F\f\202};\203Q\314!\202`\315!;\203_\316 \"\202`\315!\317\232\203m\202}\315!\204z@\317D\202}\320!**\306$\211\306%\211\206\215\f\211;\203\227\314!\321!\203\241\322\202\317%\204\277\323\324\325@A@\317\232\203\267\317\202\275\326\327A@\"$\210\330\331!\210\332!%\204\317\333\317!\210+\205!&\203\345\334\335@\"\203\345\336 \"\210\306\337\340\217\205!\341 \211$\205!\342$@!\203\342$A!\203\307 '\"J\203\307 '\"J\202!\343 '\"$L\210$*\207" [method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft gnus-group-name-to-method 2 4 "native" gnus-server-to-method cadr gnus-server-extend-method "" gnus-server-add-address gnus-server-opened t gnus-message 5 "Opening %s server%s..." format " 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\211\306 \206\210\204%\206\210\307&\"J\204*\310!\206\210\f\2066\311\307&\"J8\306\211\203K\312\f8\211\203K\n\313\232\203P%\202\207\n;\203[\314\n!\202j\315\n!;\203i\316\n\"\202j\n\315\n!\317\232\203w\n\202\207\315\n!\204\204\n@\317D\202\207\320\n!**\211;\203 \211'\203\241'<\203\241'\206'\313\232\203\255%\206\321'(\"A\206\321')\"A\206*++\203\351'\322\323\324+!@\324+!A@#\232\204\351+\211A+@\210\202\305\324+!)\206,--\203'\322\323\324-!\325-!@#\232\204-\211A-@\210\202\365-@)) \326\306./\211\204-\327\330!\210\n;\2036\314\n!0\203A\331\n!\202C\n@\2111\332N2/2\236\2113\204n/\333\322\3341/#!B3\3351\33232B#\2103A)4\3364!\204\241\n@\204\204\327\337!\210\340\n@!\210\3364!\204\241.\203\233\3064\202\241\327\3414\"\2104.5\342\3435\"\203\2715\344\225\306O\202\2735) A@ #,\207" [group dont-check method gnus-command-method info gnus-override-method nil intern-soft gnus-group-name-to-method 2 4 "native" gnus-server-to-method cadr gnus-server-extend-method "" gnus-server-add-address assoc format "%s:%s" caar cdar request-group error "Attempted use of a nil select method" gnus-agent-get-function gnus-method-functions intern "%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 noerror function gnus-agent method-sym method-fns method-fnlist-elt func gname] 8) ((quit (message "Quit activating %s" group) nil)) gnus-parse-active zerop intern active silent scan gnus-active-hashtb] 9]) (defalias 'gnus-get-unread-articles-in-group #[(info active &optional update) "\205\334 \203\341\n\211@\306\f\206\224 \204 \206\224\307 \"J\204)\310 !\206\224\n\2065\311\307 \"J8\306\211\203M\312\n8\211\203M\313\232\203Q \202\223;\203^\314!\202p\315!;\203n\316 \"\202p\315!\317\232\203\200\202\223\315!\204\217@\317D\202\223\320!**;\203\244\314!\321@\322\323\324\217*\205\326\325\321\"\n@ \326\327 \"\203\315 \330\225\306O\202\317 )\nA@#*\203\341\331\n@\306\332#\210\311\n8!\330\"#\203(\n\203(\n@$\203'\307 $\"J\211%\205%%@@W\203%@\240\210%AAV\205%%A\241)\210*\333A!\2035\330\"\202\312!\204EAT@Z\"\202\312!A<\204}!A@W\203\\!@S\241\210!AAV\203k!A\241\210\330A!AT!@ZZ]\"\202\312!A\203@!\211&A@):\204\234!\211&A@)\206\245!\211&A@)@Y\203!@\247\203\332!\211@!\211&A@)\247\203\313!\211&A@)\206\324!\211&A@)AB\240\210\202\367!@!A@\247\203\354!A@\206\365!\211&A@)A\241\210!\211&\211AA)\241\210\202}!@:\203\"!\211&@A)@W\203\"!@@S\241\210!\211'A\203Z'\211&A@):\204B'\211&A@)\206K'\211&A@)@AX\203Z'A\211'\202''A\203e'\306\241\210'@:\203\201'\211&@A)AV\203\201'@A\241\210)!\203\301\"!@:\204\226!@\206\236!\211&@A)T!@:\204\254!@\206\264!\211&@@)Z\\\"!A\211!\204\207\330A\"Z]\"\n\203\331\307\n@\"J\"\240\210\"*\207" [active update info group gnus-override-method gnus-select-method nil intern-soft gnus-group-name-to-method 2 4 "native" gnus-server-to-method cadr gnus-server-extend-method "" gnus-server-add-address request-update-info #1=#:G97322 (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 zerop gnus-newsrc-hashtb method gnus-command-method func gname range num gnus-use-cache gnus-cache-active-hashtb cache-active x srange] 6]) (defalias 'gnus-get-unread-articles #[(&optional level) "A\n\206 \206 \fT \203 \247\204\fT\202& \247\203% \202&\306\n^;\307<\307=\307>\307?\307@\307A\310\311\312\"\210 \203\372\313 \211A@\211=@\211>B\"J?\314=8\211@\203C\307@@>@;\203x\315@!\202\266@C\232\203\205C\202\266@@;\203\232>\203\232\316>@\"\202\266@\203\262>\204\262\317@!\320\232\203\262@\202\266\321@!*\211@D\211E\204\307C\202\326E;\203\324\315E!\202\326ED\204\340C\202\357D;\203\355\315D!\202\357DD\211EDF\211GF\232\206%GGFGU\205%G\203\"G@F\235\203\"GA\211G\204G?.\204@@H\322\307@\"I\211J\203\201\322\307J@\"IF\211GF\232\206tGGFGU\205tG\203qG@F\235\203qGA\211G\204_G?*\204\201JA\211J\204=J+\204=A@\211K:\203\230K@\202\232K);X\203\262\323>\324\"\211?\203\262L\203\332M\203\332?\203\332\325@>N\326\327N\"\203\323N\306\225\307O\202\325N)?#\210>>\330\331\332\333>!@!O\">)\204\262>\211>\307=>P\206\212>\204C\206\212\313>Q\"J\204\334>!\206\212=\206'\335\313>Q\"J8\307@\211=\203A\314=8\211@\203A@\336\232\203FC\202\211@;\203S\315@!\202f\317@!;\203d\316>@\"\202f@@\317@!\320\232\203v@\202\211\317@!\204\205@@\320D\202\211\321@!**R\337R\340\">N\326\327N\"\203\247N\306\225\307O\202\251N)RA@\")\210)\341\342\332@@!\343P!!\203\262=@R=R;\203\324\315R!R\344R@>S\345\346\347\217*\203\n\337R\344\"=@N\326\327N\"\203\377N\306\225\307O\202N)=RA@#\210*\202\262=A@\211K:\203K@\202!K)\nV\203-\350?\202\262T\204\262\351>>S\352\353\354\217*\203l\331@A\"\203_\331@A\">\331@A\"AB\241\210\202\262@>DABA\202\262U\204\211\355V\206\205W<\203\202W\202\205WC\236\204\232@<\235\203\232\323>!?\202\250\323>\324\"?@!\210?\350=\204A?\203\333=?\357X?=?\203\327X\203\277=\211@\307=>P\206m>\204\353C\206m\313>Q\"J\204\374\334>!\206m=\206\n\335\313>Q\"J8\307@\211=\203$\314=8\211@\203$@\336\232\203)C\202l@;\2036\315@!\202I\317@!;\203G\316>@\"\202I@@\317@!\320\232\203Y@\202l\317@!\204h@@\320D\202l\321@!**R=R;\203~\315R!R\344R@>S\345\346\347\217*\205\263\337R\344\"=@N\326\327N\"\203\251N\306\225\307O\202\253N)=RA@#*\203\277\323=@\307\357#\210\335=8Y\306Z[\203=\203=@??>\\\203\313>\\\"J\211]\205]@?@W\203\376?]@\240\210]A?AV\205?]A\241)\210*\360?A!\203\306Z\202\302Y\2041?AT?@ZZ\202\302YA<\204nYA?@W\203JY?@S\241\210YA?AV\203[Y?A\241\210\306?AYATY@ZZ]Z\202\302YA\203\367?@Y\211^A@):\204\216Y\211^A@)\206\227Y\211^A@)@Y\203\367Y@\247\203\314Y\211@Y\211^A@)\247\203\275Y\211^A@)\206\306Y\211^A@)AB\240\210\202\351Y@YA@\247\203\336YA@\206\347Y\211^A@)A\241\210Y\211^\211AA)\241\210\202nY@:\203Y\211^@A)?@W\203Y@?@S\241\210Y\211_A\203O_\211^A@):\2046_\211^A@)\206?_\211^A@)@?AX\203O_A\211_\202_A\203Z_\307\241\210_@:\203x_\211^@A)?AV\203x_@?A\241\210)Y\203\270ZY@:\204\215Y@\206\225Y\211^@A)TY@:\204\243Y@\206\253Y\211^@@)Z\\ZYA\211Y\204~\306?AZZ]Z=\203\323\313=@Q\"JZ\240\210Z*\210+\202A\342>B\"\307L\210\313>Q\"J\211`\203\366`\357\240\210)\202AA\203\243\nA\211AA@\211a@\206C@aAb\361@!\203\237\n\362@@>S\363\364\365\217*\2033\366\307@\"\210\367\370\371b\"@\"\210b\307>\211c\203\236\nc@>\313\335\313>Q\"J8\211=@B\"J\211?\203\202\n=?\357X?=?\203~\nX\203f=\211@\307=>P\206>\204\222C\206\313>Q\"J\204\243\334>!\206=\206\261\335\313>Q\"J8\307@\211=\203\313\314=8\211@\203\313@\336\232\203\320C\202@;\203\335\315@!\202\360\317@!;\203\356\316>@\"\202\360@@\317@!\320\232\203@\202\317@!\204@@\320D\202\321@!**R=R;\203%\315R!R\344R@>S\345\346\347\217*\205Z\337R\344\"=@N\326\327N\"\203PN\306\225\307O\202RN)=RA@#*\203f\323=@\307\357#\210\335=8Y\306Z[\203\270=\203\270=@??>\\\203\267\313>\\\"J\211]\205\265]@?@W\203\245?]@\240\210]A?AV\205\265?]A\241)\210*\360?A!\203\306\306Z\202i\nY\204\330?AT?@ZZ\202i\nYA<\204 YA?@W\203\361Y?@S\241\210YA?AV\203 Y?A\241\210\306?AYATY@ZZ]Z\202i\nYA\203\236 ?@Y\211^A@):\2045 Y\211^A@)\206> Y\211^A@)@Y\203\236 Y@\247\203s Y\211@Y\211^A@)\247\203d Y\211^A@)\206m Y\211^A@)AB\240\210\202\220 Y@YA@\247\203\205 YA@\206\216 Y\211^A@)A\241\210Y\211^\211AA)\241\210\202 Y@:\203\275 Y\211^@A)?@W\203\275 Y@?@S\241\210Y\211_A\203\366 _\211^A@):\204\335 _\211^A@)\206\346 _\211^A@)@?AX\203\366 _A\211_\202\302 _A\203\n_\307\241\210_@:\203\n_\211^@A)?AV\203\n_@?A\241\210)Y\203_\nZY@:\2044\nY@\206<\nY\211^@A)TY@:\204J\nY@\206R\nY\211^@@)Z\\ZYA\211Y\204%\n\306?AZZ]Z=\203z\n\313=@Q\"JZ\240\210Z*\210+\202\225\n\342>B\"\307L\210\313>Q\"J\357\240\210cA\211c\204H*+\202\372\310\311\372\". \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 cadr "" gnus-server-add-address gnus-server-get-method gnus-activate-group scan gnus-agent-save-group-info string-match "^[^:]+:" virtual assoc symbol-name gnus-find-method-for-group gnus-group-name-to-method 2 "native" gnus-get-function close-group fboundp intern "-request-update-info" request-update-info #1=#:G97322 (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=#:G97321 (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 gnus-close-group t zerop gnus-check-server request-scan #3=#:G97322 (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] "Checking new news...done" foreign-level scanned-methods info group active method retrievegroups gnus-active-hashtb gnus-select-method m2 m1 s2 s1 gnus-secondary-select-methods gmethod methods rank gnus-agent gnus-plugged gname gnus-valid-select-methods gnus-override-method gnus-newsrc-hashtb gnus-command-method func gnus-read-active-file nnmail-scan-directory-mail-source-once mail-sources nnmail-spool-file update range num gnus-use-cache gnus-cache-active-hashtb cache-active x srange tmp mg groups #4=#:--dolist-temp--97320] 8]) (defalias 'gnus-make-hashtable-from-newsrc-alist #[nil " \306\307\fG!\211@@)\310\232\203\202 \310\311\306E\fB\211\211\211\205O\312\f\211@@) \" \205A\313\f\211@@) \"J@\nBL\210\f\fA\211\204)\306+\207" [gnus-newsrc-alist gnus-newsrc-hashtb prev ohashtb alist x 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 (#$ . 50260)]) #@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 (#$ . 50604)]) #@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 (#$ . 50847)]) (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 (#$ . 51609)]) (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) ";\203H\304 ;\203\305 !\202F \232\203 \202F @;\203/\n\203/\306\n \"\202F \203C\n\204C\307 !\310\232\203C \202F\311 !*\207\207" [m method group gnus-select-method nil gnus-server-to-method gnus-server-extend-method cadr "" gnus-server-add-address] 3] append gnus-check-server gnus-archive-server-wanted-p "archive" nil (gnus-read-active-file-1 method force) ((quit (message "Quit reading the active file"))) nntp-server-buffer] 5]) (defalias 'gnus-read-active-file-1 #[(method force) "\306\211\nA@\307\310 \203\311 G!\204\312 P\202\313\n@#\314\315\"\210\316\n!\205 \317\n@\320\321\322\217*\203=\323\306\n\"\210 \324=\203\326\325\n@\326\327\330\217*\203\326-\204\326.A\306\n\n;\203g\331\n!\202\233\n/\232\203s/\202\233\n@;\203\204 \203\204\332 \n\"\202\233\n\203\230 \204\230\333\n!\313\232\203\230\n\202\233\334\n!*\306\21101233\211A3@\2110\203\3150@004\2069 \204\311/\2069\335 5\"J\204\330\336 !\20690\206\345\337\335 5\"J8\306\2110\203\374\34008\211\203\374\n\341\232\203/\2028\n;\203\f\331\n!\202\333\n!;\203\332 \n\"\202\n\333\n!\313\232\203(\n\2028\333\n!\2045\n@\313D\2028\334\n!**26\2117\204I/\202X7;\203V\3317!\202X76\204b/\202q6;\203o\3316!\202q66\211768\21198\232\206\2479G8GU\205\2479\203\2449@8\235\203\2449A\2119\204\2229?.\203\2460@:\342\343:\"\203\302:\344\225\306O\202\304:)1B1\202\246\3451\n\",\202 \n\204\336\346\202 \347\n!\204\365\n;\232?\205 \350\351\352\n@#\202 \314\315\"\210\353\n<\306\346$\210\n=B=\314\315\354#*\207" [mesg where method group func gnus-read-active-file nil format "Reading active file%s via %s..." zerop " from " "" gnus-message 5 gnus-check-server request-scan #1=#:G97323 (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=#:G97324 (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 cadr gnus-server-add-address intern-soft gnus-group-name-to-method 2 4 "native" string-match "^[^:]+:" 0 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 info groups gmethod newsrc gnus-override-method gnus-newsrc-hashtb m2 m1 s2 s1 gname gnus-message-archive-method gnus-active-hashtb gnus-have-read-active-file] 6]) #@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 (#$ . 55319)]) (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\272 \232\203\217 \202\272@;\203\242$\203\242\327$\"\202\272\203\267$\204\267\330!\311\232\203\267\202\272\331!*\317 $;\203\313\326!\202 \232\203\325 \202@;\203\350$\203\350\327$\"\202\203\375$\204\375\330!\311\232\203\375\202\331!*\"\204'\332\311\"%eb\210m\204&g\333U\203\334u\210%c\210\335\334y!\204)eb\210\317\211\211&'$m?\205E\336\337\340\217\210~\210\334y\210\2023-\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 cadr gnus-server-add-address gnus-group-prefixed-name 34 1 zerop 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 prefix min max] 5]) (defalias 'gnus-groups-to-gnus-format #[(method &optional hashtb real-active) "p\206 \203\n\203\n\202\306\307ed\"!\211 \205\253\310\311  ;\203-\312 !\202_ \f\232\2037\f\202_ @;\203H \203H\313 \"\202_ \203\\ \204\\\314 !\315\232\203\\ \202_\316 !*\311\f ;\203o\312 !\202\241 \f\232\203y\f\202\241 @;\203\212 \203\212\313 \"\202\241 \203\236 \204\236\314 !\315\232\203\236 \202\241\316 !*\"?\205\253\317\315 \"\203\322\203\322\203\322\320 !\203\322\321 !\210\322 \311$\202eb\210 \203\370\311\211\211\211m?\205\364\311\323\324\217\210\325y\210\202\344,\202\311\211\211m?\205\311\326\327\217\210\325y\210\202++\207" [hashtb method gnus-active-hashtb group gnus-select-method prefix gnus-make-hashtable count-lines gnus-server-equal nil gnus-server-to-method gnus-server-extend-method cadr "" gnus-server-add-address 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))) cur gnus-agent real-active gnus-plugged opoint max min] 7]) #@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 (#$ . 59189)]) #@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 (#$ . 59924)]) (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-ding-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\316\312\313\n@\"J8\211\203\210AA\n\211 AA)\240\210A\211!@:\203m!@\nA@\203f\"\202h#\240\210\202~!\nA@\203z\"\202|#\240\210)B\202\246\n@\nA@\203\225\"\202\227#\n\211 AA)E\211B\314\n@ \"\211\203*\315\233\204\273\306C\244\210\315\233\316\317\320 A\321\"\322\"BC\240\210\202*\f\211\203\345 \211 \211@@)\240\210 A\211\204\324\f$%\203\323\324%\"\204\373\325%P%\323\326%\"\204 %\327P%%\330\230\204\331%!\210\237\332 .\207" [info m group marked killed newsrc nil #1=#:G97325 (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 x 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 (#$ . 62279)]) (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+,-./012eb\210\313\314\n\"\211.\307L\210\313\315\n\"\211,\307L\210m\204\346`\316\307w\210`}\210eb\210edU?\205`\n3\3172!)+~\210+.=\204t+,=\203\220\320 \321\322\307\323#\203\206\324 \210`\206\207`{P\325y\210\202\340+\203\340+\247\203\244\313\326+!\n\"+\327+!\204\260+\307L\210\307f\330=/\331+!0\307l\203\310\324 \210\202\314\332\307w\210\333\334!\203\335\224\335\225}\210\3172!~\210\307f\336=\203\n\312u\210\333\334!\204\366\f B\202\f\335\224\335\225}\210\3172!B B~\210\202\f B\307f\337=?\202/\307f\337=\2049m\204.\3070\340\341\342\320 \343 {#\210\307\2039\344\307w\210\202\3140\203\340\345\34604\"J8\3075\2116\203\2736AA \237\240\2106A@\2117:\203i7@\202k7)\21158X\203\213/\204\213 \203\2039\202\2069T5\202\23458V\203\234/\203\234:56A\2117@:\203\2617@5\240\210\202\26775\240\210)\202\3300/\203\307:\202\323 \203\3218T\202\3239 \237E66-B-*\312y\210\202B-\237-1\203T A \307\211;<=\211>\203S\347>@8\203F\350>\211?@@)-\"\204F\350=\211?@@)-\"\211<\203><->\211;>@;AB\241\210\202F>@-B->=>A\211>\204,-\351 \210\306\230?\205d\352!.\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 beginning-of-line -1 int-to-string boundp 58 symbol-name "!: " looking-at "[0-9]+" 0 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 x] 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\307\212%q\210\310 )!\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 zerop buffer-size 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-ding-file-coding-system coding-system-for-write] 4 (#$ . 65309)]) #@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 (#$ . 66552)]) #@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 (#$ . 67401)]) (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 "\301B\302\301!\204\f\303\303\207" [current-load-list gnus-slave-mode 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 (#$ . 69121)]) (defalias 'gnus-slave-save-newsrc #[nil "\212q\210\306 \307P!\310\311\312\217\f\313 !\210)\n\205\314 \n\"+\207" [gnus-dribble-buffer gnus-current-startup-file modes slave-name gnus-ding-file-coding-system coding-system-for-write make-temp-name "-slave-" #1=#:G97326 (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) "\211@@)\n\211@@)W\206@A@\n@A@W\207" [f1 x f2] 3] erase-buffer nnheader-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=#:G97327 (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\367\323!\204F\315\324\325\"\210\306\202\367\326!\204U\315\324\327\"\210\306\202\367\212\214 q\210eb\210\330\331\306\322#\204jdb\203q\332 \210e`}\210\203\233\333\334\306\"\334\306 \"\"\204\233\312\313\"*eb\210m\204\232*c\210\335\324y!\204\213)eb\210m\204\360\306\336\337\217\340\306w\210\n9\203\352`\306\210`{\341\342!\204\307\343\344!\205\322$\205\322\345\346!\205\322\346\347\n!!+,+\203\344\350,+@\",\n,L\210*\324y\210\202\236*\315\316\351\"\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" beginning-of-line gnus-server-equal gnus-server-get-method zerop (byte-code "\303\n!)\207" [gnus-description-hashtb obarray nntp-server-buffer read] 2) ((error 0)) " " featurep xemacs boundp enable-multibyte-characters fboundp gnus-mule-get-coding-system symbol-name mm-decode-coding-string "Reading descriptions file...done" prefix 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 (#$ . 72350)]) #@56 Declare backend NAME with ABILITIES as a Gnus backend. (defalias 'gnus-declare-backend #[(name &rest abilities) "\303\304 \n#C\244\305 \207" [gnus-valid-select-methods name abilities apply list gnus-redefine-select-method-widget] 5 (#$ . 72652)]) #@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 (#$ . 72908)]) (provide 'gnus-start)