;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:06 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-start.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\313\"\210\307\315\313\"\210\316\317\320\321\322\323\324\325&\210\316\326\327\330\331\332\322\323\324\333&	\210\316\334\335\336\331\332\322\323\324\337&	\210\316\340\341\342\322\323\324\325&\210\316\343\344\345\322\323\324\346&\210\316\347\335\350\322\351\324\352&\210\316\353\354\355\322\351\324\356&\210\316\357\360\361\322\323\324\362&\210\316\363\354\364\322\365\324\352&\210\316\366\367\370\322\365\324\371&\207" [require gnus gnus-win gnus-int gnus-spec gnus-range gnus-util autoload message-make-date "message" gnus-agent-read-servers-validate "gnus-agent" gnus-agent-save-local gnus-agent-possibly-alter-active custom-declare-variable gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc") "Your `.newsrc' file.\n`.newsrc-SERVER' will be used instead if that exists." :group gnus-start :type file gnus-backup-startup-file 'never "Control use of version numbers for backups of `gnus-startup-file'.\nThis variable takes the same values as the `version-control'\nvariable." :version "22.1" (choice (const :tag "Never" never) (const :tag "If existing" nil) (other :tag "Always" t)) gnus-save-startup-file-via-temp-buffer t "Whether to write the startup file contents to a buffer then save\nthe buffer or write directly to the file.  The buffer is faster\nbecause all of the contents are written at once.  The direct write\nuses considerably less memory." (choice (const :tag "Write via buffer" t) (const :tag "Write directly to file" nil)) gnus-init-file (nnheader-concat gnus-home-directory ".gnus") "Your Gnus Emacs-Lisp startup file name.\nIf a file with the `.el' or `.elc' suffixes exists, it will be read instead." gnus-site-init-file (condition-case nil (concat (file-name-directory (directory-file-name installation-directory)) "site-lisp/gnus-init") (error nil)) "The site-wide Gnus Emacs-Lisp startup file name, or nil if none.\nIf a file with the `.el' or `.elc' suffixes exists, it will be read instead." (choice file (const nil)) gnus-use-dribble-file "*Non-nil means that Gnus will use a dribble file to store user updates.\nIf Emacs should crash without saving the .newsrc files, complete\ninformation can be restored from the dribble file." gnus-dribble-file boolean gnus-dribble-directory nil "*The directory where dribble files will be saved.\nIf this variable is nil, the directory where the .newsrc files are\nsaved will be used." (choice directory (const nil)) gnus-check-new-newsgroups 'ask-server "*Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.\nThis normally finds new newsgroups by comparing the active groups the\nservers have already reported with those Gnus already knows, either alive\nor killed.\n\nWhen any of the following are true, `gnus-find-new-newsgroups' will instead\nask the servers (primary, secondary, and archive servers) to list new\ngroups since the last time it checked:\n  1. This variable is `ask-server'.\n  2. This variable is a list of select methods (see below).\n  3. `gnus-read-active-file' is nil or `some'.\n  4. A prefix argument is given to `gnus-find-new-newsgroups' interactively.\n\nThus, if this variable is `ask-server' or a list of select methods or\n`gnus-read-active-file' is nil or `some', then the killed list is no\nlonger necessary, so you could safely set `gnus-save-killed-list' to nil.\n\nThis variable can be a list of select methods which Gnus will query with\nthe `ask-server' method in addition to the primary, secondary, and archive\nservers.\n\nE.g.:\n  (setq gnus-check-new-newsgroups\n	'((nntp \"some.server\") (nntp \"other.server\")))\n\nIf this variable is nil, then you have to tell Gnus explicitly to\ncheck for new newsgroups with \\<gnus-group-mode-map>\\[gnus-find-new-newsgroups]." (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"))) gnus-check-bogus-newsgroups "*Non-nil means that Gnus will check and remove bogus newsgroup at startup.\nIf this variable is nil, then you have to tell Gnus explicitly to\ncheck for bogus newsgroups with \\<gnus-group-mode-map>\\[gnus-group-check-bogus-groups]." gnus-start-server gnus-read-active-file 'some "*Non-nil means that Gnus will read the entire active file at startup.\nIf this variable is nil, Gnus will only know about the groups in your\n`.newsrc' file.\n\nIf this variable is `some', Gnus will try to only read the relevant\nparts of the active file from the server.  Not all servers support\nthis, and it might be quite slow with other servers, but this should\ngenerally be faster than both the t and nil value.\n\nIf you set this variable to nil or `some', you probably still want to\nbe told about new newsgroups that arrive.  To do that, set\n`gnus-check-new-newsgroups' to `ask-server'.  This may not work\nproperly with all servers." (choice (const nil) (const some) (const t))] 10)
#@72 Groups with levels less than or equal to this variable are subscribed.
(defconst gnus-level-subscribed 5 (#$ . 5631))
#@399 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.  Groups with
levels from `gnus-level-subscribed' (exclusive) upto this
variable (inclusive) are unsubscribed.  See also
`gnus-level-zombie', `gnus-level-killed' and the Info node `(gnus)Group
Levels' for details.
(defconst gnus-level-unsubscribed 7 (#$ . 5756))
#@43 Groups with this level are zombie groups.
(defconst gnus-level-zombie 8 (#$ . 6209))
#@36 Groups with this level are killed.
(defconst gnus-level-killed 9 (#$ . 6300))
(byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\311&\210\302\315\316\317\306\307\310\311&\210\302\320\321\322\306\307\310\323&\210\302\324\325\326\327\330\306\331\310\332&	\210\302\333\325\334\306\331\310\332&\210\302\335\325\336\306\331\310\337&\210\302\340\341\342\306\343\310\344&\210\302\345\346\347\306\343\310\350&\210\351\352\353\354#\210\355\354\211\203\221	@\352N\203\212\353N\204\212\356\353\352N#\210	A\211\204s*\357\352\353\360#\210\302\353\354\361\327\362\306\343\310\363&	\210\302\364\365\366\306\343\310\367&\210\302\370\354\371\306\343\310\332&\210\302\372\373\374\327\375\306\343\310\376&	\210\302\377\201@\201A\306\343\310\344&\210\302\201B\354\201C\306\343\310\201D&\210\302\201E\354\201F\306\343\310\201G&\210\302\201H\354\201I\306\331\310\332&\210\302\201J\354\201K\306\201L\310\363&\210\302\201M\354\201N\306\201O\310\363&\210\302\201P\354\201Q\306\201O\310\363&\210\302\201R\354\201S\306\201O\310\363&\210\302\201T\354\201U\306\201O\310\363&\210\302\201V\354\201W\327\362\306\343\310\363&	\210\302\201X\354\201Y\306\343\310\363&\210\302\201Z\201[\201\\\327\375\306\343\310\363&	\210\302\201]\354\201^\306\331\310\363&\210\302\201_\354\201`\306\331\310\363&\210\302\201a\354\201b\306\331\310\363&\210\302\201c\354\201d\306\331\310\363&\210\302\201e\354\201f\306\201g\201h\201i\310\363&	\210\302\201j\354\201k\306\331\310\332&\207" [prop --dolist-tail-- custom-declare-variable gnus-level-default-subscribed 3 "*New subscribed groups will be subscribed at this level." :group gnus-group-levels :type integer gnus-level-default-unsubscribed 6 "*New unsubscribed groups will be unsubscribed at this level." gnus-activate-level (1+ gnus-level-subscribed) "*Groups higher than this level won't be activated on startup.\nSetting this variable to something low might save lots of time when\nyou have many groups that you aren't interested in." gnus-activate-foreign-newsgroups 4 "*If nil, Gnus will not check foreign newsgroups at startup.\nIf it is non-nil, it should be a number between one and nine.  Foreign\nnewsgroups that have a level lower or equal to this number will be\nactivated on startup.  For instance, if you want to active all\nsubscribed newsgroups, but not the rest, you'd set this variable to\n`gnus-level-subscribed'.\n\nIf you subscribe to lots of newsgroups from different servers, startup\nmight take a while.  By setting this variable to nil, you'll save time,\nbut you won't be told how many unread articles there are in the\ngroups." (choice integer (const :tag "none" nil)) gnus-read-newsrc-file t "*Non-nil means that Gnus will read the `.newsrc' file.\nGnus always reads its own startup file, which is called\n\".newsrc.eld\".  The file called \".newsrc\" is in a format that can\nbe readily understood by other newsreaders.  If you don't plan on\nusing other newsreaders, set this variable to nil to save some time on\nentry." :version "21.1" gnus-newsrc boolean gnus-save-newsrc-file "*Non-nil means that Gnus will save the `.newsrc' file.\nGnus always saves its own startup file, which is called\n\".newsrc.eld\".  The file called \".newsrc\" is in a format that can\nbe readily understood by other newsreaders.  If you don't plan on\nusing other newsreaders, set this variable to nil to save some time on\nexit." gnus-save-killed-list "*If non-nil, save the list of killed groups to the startup file.\nIf you set this variable to nil, you'll save both time (when starting\nand quitting) and space (both memory and disk), but it will also mean\nthat Gnus has no record of which groups are new and which are old, so\nthe automatic new newsgroups subscription methods become meaningless.\n\nYou should always set `gnus-check-new-newsgroups' to `ask-server' or\nnil if you set this variable to nil.\n\nThis variable can also be a regexp.  In that case, all groups that do\nnot match this regexp will be removed before saving the list." (radio (sexp :format "Non-nil\n" :match (lambda (widget value) (and value (not (stringp value)))) :value t) (const nil) regexp) gnus-ignored-newsgroups (mapconcat 'identity '("^to\\." "^[0-9. 	]+\\( \\|$\\)" "^[\"][\"#'()]") "\\|") "*A regexp to match uninteresting newsgroups in the active file.\nAny lines in the active file matching this regular expression are\nremoved from the newsgroup list before anything else is done to it,\nthus making them effectively non-existent." gnus-group-new regexp gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies "*Function(s) called with a group name when new group is detected.\nA few pre-made functions are supplied: `gnus-subscribe-randomly'\ninserts new groups at the beginning of the list of groups;\n`gnus-subscribe-alphabetically' inserts new groups in strict\nalphabetic order; `gnus-subscribe-hierarchically' inserts new groups\nin hierarchical newsgroup order; `gnus-subscribe-interactively' asks\nfor your decision; `gnus-subscribe-killed' kills all new groups;\n`gnus-subscribe-zombies' will make all new groups into zombies;\n`gnus-subscribe-topics' will enter groups into the topics that\nclaim them." (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 (repeat function)) defvaralias gnus-subscribe-newsgroup-hooks gnus-subscribe-newsgroup-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3" "*Hooks run after you subscribe to a new group.\nThe hooks will be called with new group's name as argument." "22.1" hook gnus-subscribe-options-newsgroup-method 'gnus-subscribe-alphabetically "*Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.\nIf, for instance, you want to subscribe to all newsgroups in the\n\"no\" and \"alt\" hierarchies, you'd put the following in your\n.newsrc file:\n\noptions -n no.all alt.all\n\nGnus will then subscribe all new newsgroups in these hierarchies\nwith the subscription method in this variable." (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 (repeat function)) gnus-subscribe-hierarchical-interactive "*If non-nil, Gnus will offer to subscribe hierarchically.\nWhen a new hierarchy appears, Gnus will ask the user:\n\n'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys):\n\nIf the user pressed `d', Gnus will descend the hierarchy, `y' will\nsubscribe to all newsgroups in the hierarchy and `s' will skip this\nhierarchy in its entirety." gnus-auto-subscribed-categories '(mail post-mail) "*New groups from methods of these categories will be subscribed automatically.\nNote that this variable only deals with new groups.  It has no\neffect whatsoever on old groups.  The default is to automatically\nsubscribe all groups from mail-like backends." "24.1" (repeat symbol) gnus-auto-subscribed-groups "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir\\|^nnimap" "*All new groups that match this regexp will be subscribed automatically.\nNote that this variable only deals with new groups.  It has no effect\nwhatsoever on old groups.\n\nNew groups that match this regexp will not be handled by\n`gnus-subscribe-newsgroup-method'.  Instead, they will\nbe subscribed using `gnus-subscribe-options-newsgroup-method'." gnus-options-subscribe "*All new groups matching this regexp will be subscribed unconditionally.\nNote that this variable deals only with new newsgroups.  This variable\ndoes not affect old newsgroups.\n\nNew groups that match this regexp will not be handled by\n`gnus-subscribe-newsgroup-method'.  Instead, they will\nbe subscribed using `gnus-subscribe-options-newsgroup-method'." (choice regexp (const :tag "none" nil)) gnus-options-not-subscribe "*All new groups matching this regexp will be ignored.\nNote that this variable deals only with new newsgroups.  This variable\ndoes not affect old (already subscribed) newsgroups." (choice regexp (const :tag "none" nil)) gnus-modtime-botch "*Non-nil means .newsrc should be deleted prior to save.\nIts use is due to the bogus appearance that .newsrc was modified on\ndisc." gnus-check-bogus-groups-hook "A hook run after removing bogus groups." gnus-start-server gnus-startup-hook "A hook called at startup.\nThis hook is called after Gnus is connected to the NNTP server." gnus-start gnus-before-startup-hook "A hook called before startup.\nThis hook is called as the first thing when Gnus is started." gnus-started-hook "A hook called as the last thing after startup." gnus-setup-news-hook "A hook after reading the .newsrc file, but before generating the buffer." gnus-get-top-new-news-hook "A hook run just before Gnus checks for new news globally." gnus-get-new-news-hook "A hook run just before Gnus checks for new news." gnus-after-getting-new-news-hook '(gnus-display-time-event-handler) "*A hook run after Gnus checks for new news when Gnus is already running." gnus-read-newsrc-el-hook "A hook called after reading the newsrc.eld? file." gnus-save-newsrc-hook "A hook called before saving any of the newsrc files." gnus-save-quick-newsrc-hook "A hook called just before saving the quick newsrc file.\nCan be used to turn version control on or off." gnus-save-standard-newsrc-hook "A hook called just before saving the standard newsrc file.\nCan be used to turn version control on or off." gnus-group-mode-hook "Hook for Gnus group mode." gnus-group-various :options (gnus-topic-mode) gnus-always-read-dribble-file "Unconditionally read the dribble file."] 11)
#@30 Coding system for ding file.
(defvar gnus-ding-file-coding-system mm-universal-coding-system (#$ . 16311))
(defvar gnus-newsrc-file-version nil)
(defvar gnus-override-subscribe-method nil)
(defvar gnus-dribble-buffer nil)
#@35 Options line in the .newsrc file.
(defvar gnus-newsrc-options nil (#$ . 16539))
#@79 List of regexps representing groups to be subscribed/ignored unconditionally.
(defvar gnus-newsrc-options-n nil (#$ . 16625))
#@49 Date Gnus last asked server for new newsgroups.
(defvar gnus-newsrc-last-checked-date nil (#$ . 16757))
#@36 Startup file for the current host.
(defvar gnus-current-startup-file nil (#$ . 16867))
(defvar gnus-init-inhibit nil)
(defalias 'gnus-read-init-file #[(&optional inhibit-next) "\205J	\203\f\306\211\207\n\fD\306\211
\205I
@\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 (byte-code "\303\304	\211A@)#\207" [file var x error "Error in %s: %s"] 5))) --dolist-tail-- debug-on-error debug-on-quit] 5])
(defalias 'gnus-subscribe-hierarchical-interactive #[(groups) "\306\307\"\310\211\211\211\211\211\211\205\311C\203\203\312@@\312\313\"\203?\314\225\310O\202A)\"\204NA\202&@\211GS\312\315@\312\313\"\203n\314\225\310O\202p)
#\203\252
A\203\252
\311@\312\313\"\203\221\314\225\310O\202\223)\314\211\225OP\211\203\252
\312\211A@)\312\313\"\203\274\314\225\310O\202\276)\"\203\252
B\316\317\320GSO\"\210\321 \211\322>\204\361\323 \210\316\317\320GSO\"\210\202\326\f\324U\203=
\2037
@\211\312\313\"\203
\314\225\310O\202
)\211\2037
\312	\"\2037
 B \325!\"L\210A\211\204\373\nA\202\f\326U\203\210
\203\202
@\211\312\313\"\203^
\314\225\310O\202`
)\211\203\202
\312	\"\203\202
\325!\"L\210\327@!\210A\211\204G
\nA\202\f\330U\203\203@\211 B \325!\"L\210A\211\202\217
\316\331@\"\210\321 \211\332>\204\305
\323 \210\316\331@\"\210\202\260
@\f\333U\203\336
\327@!\210\325!\"L\210\202\f\330U\203\203@\211 B \325!\"L\210A\211\202\345
 B \325!\"L\210A\211\202.\207" [groups real-group starts group ans start 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 prefix prefixes gname x gnus-killed-list gnus-killed-hashtb] 9])
#@59 Subscribe new NEWSGROUP by making it the first newsgroup.
(defalias 'gnus-subscribe-randomly #[(newsgroup) "\301!\207" [newsgroup gnus-subscribe-newsgroup] 2 (#$ . 18999)])
#@61 Subscribe new NEWGROUP 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 (#$ . 19179)])
#@71 Subscribe new NEWGROUP and insert it in hierarchical newsgroup order.
(defalias 'gnus-subscribe-hierarchically #[(newgroup) "r\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\"*\321p!\210)\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 (#$ . 19481)])
#@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 (#$ . 20038)])
#@41 Make the new GROUP into a zombie group.
(defalias 'gnus-subscribe-zombies #[(group) "	B\211\207" [group gnus-zombie-list] 2 (#$ . 20389)])
#@36 Make the new GROUP a killed group.
(defalias 'gnus-subscribe-killed #[(group) "	B\211\207" [group gnus-killed-list] 2 (#$ . 20536)])
#@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\"\210\312\313\314#\210\315\316\"\210)\317\207" [newsgroup gnus-level-default-subscribed gnus-level-killed next gnus-newsrc-hashtb gnus-group-change-level intern-soft "dummy.group" gnus-request-update-group-status subscribe gnus-message 5 "Subscribe newsgroup: %s" run-hook-with-args gnus-subscribe-newsgroup-functions t] 7 (#$ . 20678)])
#@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 (#$ . 21259)])
#@20 Close all servers.
(defalias 'gnus-close-all-servers #[nil "\303\211\205\n@\304	@!\210\nA\211\204\303*\207" [gnus-opened-servers server --dolist-tail-- nil gnus-close-server] 3 (#$ . 21450) nil])
#@34 Clear all variables and buffers.
(defalias 'gnus-clear-system #[nil "\306\307\"\211\203	@\310L\210	A\211\204	)\310\211\310\211\310\211\310\211\310\211\310\211\310\211\310\211\310\211 !\310\211\"#\310\211$%\310\211&'\310\211()\310\211*+\310,\311\312!\210-\203\200\313-!\203\200\314\313-!!\210\315 \210\313\316\310!!\203\223\314\313\316\310!!!\210.\211/\2110\205\2540;\203\250\317\202\251\3200!)\203\277\321\317/!\"\314/!\210)\322 \3100\2111\203
1@\2110\211/\2110\205\3500;\203\344\317\202\345\3200!)\203\373\321\317/!\"\314/!\210)1A\2111\204\313*\323 \207" [gnus-variable-list variables gnus-list-of-killed-groups gnus-have-read-active-file gnus-agent-covered-methods gnus-agent-file-loading-local remove gnus-format-specs nil gnus-shutdown gnus get-file-buffer kill-buffer gnus-dribble-clear gnus-newsgroup-kill-file get-buffer buffer-name delete gnus-buffers gnus-kill-gnus-frames gnus-agent-file-loading-cache gnus-server-method-cache gnus-newsrc-alist gnus-newsrc-hashtb 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-extended-servers gnus-ephemeral-servers gnus-current-startup-file nntp-server-buffer buf buffer --dolist-tail--] 5 (#$ . 21661)])
#@369 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
(`gnus-level-default-subscribed' minus one).  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 (#$ . 23267) "P"])
#@213 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
\2038\320\321\322
B\"\210\203@\323 \210	\247\205L	\311V\205L	\324\325\216?\205e\326	\205a?!\211+\207" [gnus-group-buffer arg gnus-group-list-mode slave gnus-slave gnus-select-method 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 add-to-list gnus-predefined-server-alist "native" gnus-agentize nil ((byte-code "\204	\204\306 \210\202L\307\310!\210\311\n!\f\204
\203!\312 \210\313\314#\210\307\315!\210\2036\316\317\320\"\210\321 \210\322!\210\323 \210\324\325!\210\326 \210\307\327!\210\314\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 gnus-setup-news nil gnus-setup-news-hook gnus-request-create-group "queue" (nndraft "") 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 level gnus-agent] 4)) gnus-start-news-server gnus-agent did-connect level dont-connect] 4 (#$ . 23874) "P"])
#@35 Make sure the draft group exists.
(defalias 'gnus-start-draft-setup #[nil "\302\303\304\"\210\305\306\"J\204\307\310\306\311\312#\210)\305\306\"J\313\240\210\314\306\315\316#\317\232?\205.\320\306\315\321#\207" [gnus-newsrc-hashtb gnus-level-default-subscribed gnus-request-create-group "drafts" (nndraft #1="") intern-soft "nndraft:drafts" 1 gnus-subscribe-group nil (nndraft #1#) 0 gnus-group-get-parameter gnus-dummy t ((gnus-draft-mode)) gnus-group-set-parameter ((gnus-draft-mode))] 4 (#$ . 25458) nil])
(defvar gnus-dribble-ignore nil)
(defvar gnus-dribble-eval-file nil)
#@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 (#$ . 26048)])
#@96 Enter STRING into the dribble buffer.
If REGEXP is given, lines that match it will be deleted.
(defalias 'gnus-dribble-enter #[(string &optional regexp) "?\205S	\205S\306	!\205Sp	q\210\203;eb\210\307\310\307\311#\203:n\204,\312y\210`\313\224b\210\314 \f|\210\202)db\210
\315\261\210\316	!\210rq\210\317 \210)\nq)\207" [gnus-dribble-ignore gnus-dribble-buffer obuf regexp end string buffer-name nil re-search-forward t 1 0 point-at-bol "\n" bury-buffer gnus-group-set-mode-line gnus-group-buffer] 4 (#$ . 26307)])
#@27 Touch the dribble buffer.
(defalias 'gnus-dribble-touch #[nil "\300\301!\207" [gnus-dribble-enter ""] 2 (#$ . 26843)])
#@34 Read the dribble file from disk.
(defalias 'gnus-dribble-read-file #[nil "\306 \307\310!!\204\311\310!\312\"\210r\313\314!!\211q\210\315\302!\210\312\211\316 \210\317\312!\210\320 \210\321p!\210\322\323!\210\324 \312\323\211!\"#\307#!\204Q\307!\205\264\325#\"\203a\326#!\210\202e\326!\210\327\330 !\204p\322\312!\210\331 \210\307$!\203\216\307!\203\216\332$!\211\203\216\333
\"\210eb\210\334\335\323\312#\203\234\312!%\204\260\336!\203\253\337\202\254\340!\205\264\312\211&.\207" [dribble-file gnus-dribble-buffer file-precious-flag buffer-save-without-query buffer-file-name modes gnus-dribble-file-name file-exists-p file-name-directory make-directory t gnus-get-buffer-create file-name-nondirectory make-local-variable erase-buffer auto-save-mode buffer-disable-undo bury-buffer set-buffer-modified-p nil make-auto-save-file-name file-newer-than-file-p nnheader-insert-file-contents zerop buffer-size save-buffer file-modes gnus-set-file-modes search-forward "Gnus was exited on purpose" gnus-y-or-n-p "Gnus exited on purpose without saving; read auto-save file anyway? " "Gnus auto-save file exists.  Do you want to read it? " purpose gnus-dribble-ignore auto gnus-current-startup-file gnus-always-read-dribble-file gnus-dribble-eval-file] 5 (#$ . 26968)])
(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(rq\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!\205rq\210\302 )\207" [gnus-dribble-buffer buffer-name save-buffer] 2])
(defalias 'gnus-dribble-clear #[nil "\211\205	;\203\303\202\304	!)\205&rq\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\211\312\n!\210
;\203%

\211/\2036/<\2036/\206!
\313/0\"A\206!
/\314\232\203L1\206
\313/2\"A\206
\313/3\"A\206
455\203\210/\315\3165@@@5@@A@#\232\204\2105\211A5@\210\202d5\2116@@*\206
788\203\275/\315\3168\2116@@)8@A@#\232\204\2758\211A8@\210\202\2278@)\206
A\311\2119:;;\203
\317;\211A;@8\211:;\204\316/:\311\310<=:\320\321\215+\232\203\316:9\311\211;\204\3239+\211>\203
\313/0\"\204
/>B0B0>))\206&

\211:\203D
:;\204D
\322\313\315\323:@\"?\">\204D
\324::;\203f
\325:\326\327@:\"D\330\327@:\331P\"D\332BBBB:\313\3242\"\203\222
A\203\240
:\203\204
\313\3242\":\241\210\202\240
\333\313\3242\"2\"2\202\240
:\203\240
\324:B2B2)B\203\255
B\334=\203\260
\335 \210	\204\270
\336\337!C\203\300
\340 \210\f\203\321
D\204\316
E\203\321
\341 \210\f\203\335
E\203\335
\342 \210\343 \210\344\345!\203\n%;\203\n\311F\346\347%\")\203\nG\204\nH\204\nB\203\n\350 \210\f\203,I\203,J\204,\3511!\203,E\204,K\203,\352 \210\f\203I,\203IB\203IJ\204I\3531!\203I\354 \210\355 \210J?\205TBB\356JH\"+\207" [gnus-newsrc-alist gnus-active-hashtb rawfile nnmail-fetched-sources init gnus-message-archive-method require nnmail t nil gnus-read-newsrc-file assoc "native" format "%s:%s" 4 server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) respool "%s" "archive" nnfolder nnfolder-directory nnheader-concat nnfolder-active-file "/active" ((nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t)) delq some gnus-update-active-hashtb-from-killed 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-server-opened gnus-check-bogus-newsgroups gnus-master-read-slave-newsrc gnus-get-unread-articles server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers match method alist no-enter-cache nocache result gnus-valid-select-methods message-directory gnus-update-message-archive-method gnus-read-active-file gnus-use-cache gnus-use-dribble-file gnus-slave case-fold-search gnus-description-hashtb dont-connect gnus-check-new-newsgroups level gnus-plugged] 9 (#$ . 29109)])
#@98 Call METHOD to subscribe GROUP.
If no function returns `non-nil', call `gnus-subscribe-zombies'.
(defalias 'gnus-call-subscribe-functions #[(method group) "\302!\203\f	!\202<\203\303\304\215\202\305?\205\306	!\207" [method group functionp found (byte-code "\304\211\203\n@\211!\203\305\306\307\"\210\nA\211\204*\304\207" [method func --dolist-tail-- group nil throw found t] 4) nil gnus-subscribe-zombies] 2 (#$ . 32410)])
#@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\211:\204<\f\311=\203A\315 \202\224\316\317\211\320\321\322\"\210\204V\303 \210\323  \204b\324 \210\325\326!\"\210
\203p\327
!\210\316V\203\214\320\321\330\211\306V\203\206\331\202\207\332$\210\202\221\320\321\333\"\210+*\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-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?\205l\311	!\211\312=\203C
T\313	\n\"	L\210\314	\"\202k\f\315=\203M\316\202k
T\313	\n\"	L\210\203f	B\211\202k\314	\")\207" [sym group gnus-killed-hashtb gnus-newsrc-hashtb do-sub groups symbol-name boundp intern-soft gnus-matches-options-n subscribe intern gnus-call-subscribe-functions 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] 7 (#$ . 32864) "p"])
(defalias 'gnus-matches-options-n #[(group) "\203
\306	\"\203
\307\207\310\310\211\203*
@\311\f	\"\203#\312
A\211\204*\n)\2032\307\207\f\203A\306\f	\"\203A\307\207
\203P\306
	\"\203P\313\207\211\203o\306\211@@)	\"\204oA\211\204X\205|\211@A))\207" [gnus-options-subscribe group do-subscribe gnus-auto-subscribed-categories category --dolist-tail-- string-match subscribe nil gnus-member-of-valid t ignore gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-options-n regs x] 4])
(defalias 'gnus-ask-server-for-new-groups #[nil "\306 	\206\307 \205\310C\311\f:\205\f
\"\244B,\312-\313\211./\313\21101\313\211234\204;\314 \210\313,\211A,@1.1;\203N
1\2115\203`5<\203`5\206J
\31556\"A\206J
5\316\232\203u\206.
\31557\"A\206.
\31558\"A\206.
9::\203\2615\317\320:@@@:@@A@#\232\204\261:\211A:@\210\202\215:\211;@@*\206.

<<\203\3455\317\320<\211;@@)<@A@#\232\204\345<\211A<@\210\202\277<@)\206.
=A\313\211>1??\203+
\321?\211A?@8\2111;\204\36751\313\322@A1\323\324\215+\232\203\3671>\313\211?\204\374>+\211B\203G
\31556\"\204G
5BB6B6B))\202\315
1\232\203Y
\202\315
1@;\203n
.\203n
\325.1\"\202\315
1\203\212
.\204\212
1\211;A@)\326\232\203\212
1\202\315
11\3271@!C\330\315CD\">\203\312
\331C\332P!1\236\204\312
\3331@D\236>\203\312
\3111\331C\332P!1A@DC\"\202\314
1**\2111\203\313/13\3341!\203\335\n1\"\203\212\3220\336\337!2Eq\210\34012\341#\210)\342\3432\"\210/\203;\344/!\210\202;-\312V\203/\345\346\347-\211\350V\203)\351\202*\352$\210\2024\345\346\353\"\2100\203;/.\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 assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address gnus-check-server gnus-request-newgroups 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\205J\2038\311	
\"JL\210\312	!\211\313=\203XT\311	\"	L\210\314	\"\202\204\315=\203c\316\202\204T\311	\"	L\210\203	B\211\202\204\314	\")\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 gnus-call-subscribe-functions 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 server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods nntp-server-buffer] 7])
#@44 Subscribe 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 (#$ . 38633)])
(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\272\315\"\315 \" \202\354Y\203\354\f\203\354\316\307\f8@\"\306L\210\317\f8\203\344\310\317\f8@\"J\fA\241\210\fA\fAAA\241\210Y\203'
\316\"\306L\210U\203

B\202\370
U\203
\320!\"\210\202\370
 B \202\370
W\203;
\fAA@A\240\210\202\370
\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\244
$\211%\211&AA)\203\237
%A\211%\202\215
%)\n\211&AA)BA\203\312
A\f\241\210\316\"ABL\210\202\332
\f\241\210\316\"BL\210\fA\203\353
\310\fA@@\"J\f\241\210\312\313\324\n\"\325\326!\327Q\"\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 unintern t gnus-method-simplify gnus-group-method "(gnus-group-set-info '%S)" "^(gnus-group-set-info '(\"" regexp-quote "\"" 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 x gnus-group-change-level-function] 9])
#@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.
\203\257
\211A@\211@\315(\"J\204\316	8\203\250\316	8)*\306)));\203O
)\211+\203`+<\203`+\206K
\317+,\"A\206K
+\320\232\203v-\206/
\317+.\"A\206/
\317+/\"A\206/
011\203\262+\321\3221@@@1@@A@#\232\204\2621\211A1@\210\202\2161\2112@@*\206/
*33\203\347+\321\3223\2112@@)3@A@#\232\204\3473\211A3@\210\202\3013@)\206/
A\306\2114)55\203,
\3165\211A5@8\211);\204\370+)\306\31467)\323\324\215+\232\203\370)4\306\2115\204\3754+\2118\203H
\317+,\"\204H
+8B,B,8))\202\315
)-\232\203\\
-\202\315
)@;\203o
\203o
\325)\"\202\315
)\203\212
\204\212
)\2112A@)\326\232\203\212
)\202\315
))\327)@!9\330\3179:\">\203\312
\3319\332P!)\236\204\312
\333)@:\236>\203\312
\334)\3319\332P!)A@DC\"\202\314
)**;\211<\203\242\306<@));\203\345)\211+\203\366
+<\203\366
+\206\341\317+,\"A\206\341+\320\232\203\f-\206\305\317+.\"A\206\305\317+/\"A\206\305011\203H+\321\3221@@@1@@A@#\232\204H1\211A1@\210\202$1\2112@@*\206\305*33\203}+\321\3223\2112@@)3@A@#\232\204}3\211A3@\210\202W3@)\206\305A\306\2114)55\203\302\3165\211A5@8\211);\204\216+)\306\31467)\323\335\215+\232\203\216)4\306\2115\204\2234+\2118\203\336\317+,\"\204\336+8B,B,8))\202c)-\232\203\362-\202c)@;\203\203\325)\"\202c)\203 \204 )\2112A@)\326\232\203 )\202c))\327)@!9\330\3179:\">\203`\3319\332P!)\236\204`\333)@:\236>\203`\334)\3319\332P!)A@DC\"\202b)**;=\211>=\232\206\225>G=GU\205\225>\203\222>@=\235\203\222>A\211>\204\200>?*\204\242<A\211<\204\326
<+\203\fB\202?\203\302\336\321\337\fG\"\340\f\341$\210\202\347\f\211A@\211\203\347\315@\"J\211\203\302\342\nA\"\210\343B\"B\202\302\344\306C\211D\203%D@JCC\203\315C\211AC@\211(\"J\204\367D@\343D@J\"L\210\202\367DA\211D\204\361*\345\346!\210\307\310\347\"-\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 assoc "native" format "%s:%s" server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1="") format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) map-y-or-n-p "Remove bogus group %%s (of %d groups)? " #[(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 method gnus-secondary-select-methods server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x servers match alist no-enter-cache nocache result method-name gnus-valid-select-methods gmethod methods s2 s1 confirm gnus-newsrc-hashtb gnus-level-killed gnus-killed-list killed dead-lists] 7 (#$ . 40514)])
#@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 (#$ . 45141) nil])
#@357 Check whether a group has been activated or not.
If SCAN, request a scan of that group as well.  If METHOD, use
that select method instead of determining the method based on the
group name.  If DONT-CHECK, don't check check whether the group
actually exists.  If DONT-SUB-CHECK or DONT-CHECK, don't let the
backend check whether the group actually exists.
(defalias 'gnus-activate-group #[(group &optional scan dont-check method dont-sub-check) "\206	\306\206	\204\f\206\307	
\"J\204I
	@\310\311@\"\203;\312\313\314\315@\"\314\316@\"\2067\317#\202G\312\313\f@\f\211AA@)#)\211B\203YB<\203YB\206?
\320BC\"A\206?
B\321\232\203n\f\206#
\320BD\"A\206#
\320BE\"A\206#
FGG\203\252B\312\313G@@@G@@A@#\232\204\252G\211AG@\210\202\206G\211A@@*\206#
HII\203\337B\312\313I\211A@@)I@A@#\232\204\337I\211AI@\210\202\271I@)\206#
JA\306\211KLL\203 
\322L\211AL@8\211;\204\360B\306\323MN\324\325\215+\232\203\360K\306\211L\204\365K+\211O\203<
\320BC\"\204<
BOBCBCO))\206\326	!\206\n\206T
\316\307	
\"J8\306\211\203i
\322\n8\211\203i
\321\232\203m
\f\202;\203n\211B\203\204
B<\203\204
B\206j\320BC\"A\206jB\321\232\203\231
\f\206N\320BD\"A\206N\320BE\"A\206NFGG\203\325
B\312\313G@@@G@@A@#\232\204\325
G\211AG@\210\202\261
G\211A@@*\206NHII\203\nB\312\313I\211A@@)I@A@#\232\204\nI\211AI@\210\202\344
I@)\206NJA\306\211KLL\203K\322L\211AL@8\211;\204B\306\323MN\324\327\215+\232\203K\306\211L\204 K+\211O\203g\320BC\"\204gBOBCBCO))\202\265\211AA@);\203\264\330\331@!\332P!\211P\211AAA)\236\204\234\333PA@DC\")Q\306\211RSTR\204\367T\211AT@\211S\203\367@S@=\203\247SUV\334V\211AAA)!\334U\211AAA)!\306\211WXYZ\335\336\215.\203\247S\211R\203\254R,\206\265	F\306SG\203GG\203GG\211AG@@S@S@\232\203\n\211AA@)S\211AA@)\232\203\n\337S\"\204\n\306\211\204+\204V\211AAA)\204Z\202\260\330\312\340@\"!\211[\211AAA)\236\203\207@\211AA@)\341	Q\211AAA)BB\202\247@\211AA@)\341	Q[\211AA@)D\211AAA)BBB\211QBQ)*\202\265\211\211AA@)\317\232\203\306\202\211AA@)\204\327@\317D\202\331@!\\\342\320\\]\">\203\330\\\332P!\236\204\343@]\236>\203\333\330\\\332P!A@DC\"\202***\306^\211\306_\211\206\"\f\306O\211;\203%\211B\203=B<\203=B\206#\320BC\"A\206#B\321\232\203R\f\206\320BD\"A\206\320BE\"A\206FGG\203\216B\312\313G@@@G@@A@#\232\204\216G\211AG@\210\202jG\211A@@*\206HII\203\303B\312\313I\211A@@)I@A@#\232\204\303I\211AI@\210\202\235I@)\206JA\306\211KLL\203\322L\211AL@8\211;\204\324B\306\323MN\324\344\215+\232\203\324K\306\211L\204\331K+\211O\203 \320BC\"\204 BOBCBCO))\345!\203/\323\202\216_\204M\346\347\350@A@\317\232\203E\317\202K\312\351A@\"$\210\352\353!\210\354!\211O_\204\216\346O\203f\347\202g\355\356@A@\317\232\203v\317\202|\312\351A@\"O\203\205\357\202\214\312\360\361@!\"%\210,\205M
`\203\252\362@a\306\363\364\217*\203\252\365	\"\210b\204\264c\203\254\f	d\206\274e\316\307	
\"J8fef\206\337		\306\206\336		\204\337\f\206\336	\307	
\"J\204	@\310\311@\"\203\312\313\314\315@\"\314\316@\"\206\317#\202\312\313\f@\f\211AA@)#)\211B\203$B<\203$B\206\n\320BC\"A\206\nB\321\232\2039\f\206\356\320BD\"A\206\356\320BE\"A\206\356FGG\203uB\312\313G@@@G@@A@#\232\204uG\211AG@\210\202QG\211A@@*\206\356HII\203\252B\312\313I\211A@@)I@A@#\232\204\252I\211AI@\210\202\204I@)\206\356JA\306\211KLL\203\353\322L\211AL@8\211;\204\273B\306\323MN\324\366\215+\232\203\273K\306\211L\204\300K+\211O\203\320BC\"\204BOBCBCO))\206\336	\326	!\206\336	\n\206\316\307	
\"J8\306\211\2034\322\n8\211\2034\321\232\2038\f\202\335	;\2039\211B\203OB<\203OB\2065\320BC\"A\2065B\321\232\203d\f\206\320BD\"A\206\320BE\"A\206FGG\203\240B\312\313G@@@G@@A@#\232\204\240G\211AG@\210\202|G\211A@@*\206HII\203\325B\312\313I\211A@@)I@A@#\232\204\325I\211AI@\210\202\257I@)\206JA\306\211KLL\203\322L\211AL@8\211;\204\346B\306\323MN\324\367\215+\232\203\346K\306\211L\204\353K+\211O\2032\320BC\"\2042BOBCBCO))\202\200	\211AA@);\203	\330\331@!\332P!\211P\211AAA)\236\204g\333PA@DC\")Q\306\211RSTR\204\302T\211AT@\211S\203\302@S@=\203rSUV\334V\211AAA)!\334U\211AAA)!\306\211WXYZ\335\370\215.\203rS\211R\203wR,\206\200		F\306SG\203	G\203	G\211AG@@S@S@\232\203\325\211AA@)S\211AA@)\232\203\325\337S\"\204\325\306\211\204\331+\204!	\211AAA)\204%	\202{	\330\312\340@\"!\211[\211AAA)\236\203R	@\211AA@)\341	Q\211AAA)BB\202r	@\211AA@)\341	Q[\211AA@)D\211AAA)BBB\211QBQ)*\202\200	\211\211AA@)\317\232\203\221	\202\335	\211AA@)\204\242	@\317D\202\335	\331@!\\\342\320\\]\">\203\333	\330\\\332P!\236\204\333	\343@]\236>\203\333	\333\330\\\332P!A@DC\"\202\334	***\211f;\203\342\nf\211B\203\371	B<\203\371	B\206\337\n\320BC\"A\206\337\nB\321\232\203\n\f\206\303\n\320BD\"A\206\303\n\320BE\"A\206\303\nFGG\203J\nB\312\313G@@@G@@A@#\232\204J\nG\211AG@\210\202&\nG\211A@@*\206\303\nHII\203\nB\312\313I\211A@@)I@A@#\232\204\nI\211AI@\210\202Y\nI@)\206\303\nJA\306\211KLL\203\300\n\322L\211AL@8\211;\204\220\nB\306\323MN\324\371\215+\232\203\220\nK\306\211L\204\225\nK+\211O\203\334\n\320BC\"\204\334\nBOBCBCO))ff\372\306gh\211\204\363\n\373\374!\210;\203\362\211B\203\nB<\203\nB\206\360\320BC\"A\206\360B\321\232\203\f\206\324\320BD\"A\206\324\320BE\"A\206\324FGG\203[B\312\313G@@@G@@A@#\232\204[G\211AG@\210\2027G\211A@@*\206\324HII\203\220B\312\313I\211A@@)I@A@#\232\204\220I\211AI@\210\202jI@)\206\324JA\306\211KLL\203\321\322L\211AL@8\211;\204\241B\306\323MN\324\375\215+\232\203\241K\306\211L\204\246K+\211O\203\355\320BC\"\204\355BOBCBCO))i\203\f\376!\203\f@\202
\f\377\201q!\210\201q)\202\f@\211j\201rNkhk\236\211l\204F\fh\330\312\201sjh#!Bl\201tj\201rlkB#\210lA)a\201ua!\204\201\f@\204`\f\373\201v!\210\377@!\210\201ua!\204\201\fg\203y\f\306a\202\201\f\373\201wa\"\210a.	@\310\201x@\"\203\235\f@\201y\225\306O\202\237\f@)fA@e\n$-\202\264\f\306\201z\201{\217\205M
e?\205M
\201| ^\201}^@\206\317\f\201y!\203\365\f\201}^A\206\337\f\201y!\203\365\f\307	m\"J\203\365\f\307	m\"J\202M
n\2035
	^^o\2053
\307	o\"J\211p\2052
p@^@W\203\"
^p@\240\210pA^AV\2052
^pA\241)*\210i\203B
\201~	^\"\210\330	m\"^L\210^*\207" [method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-opened gnus-message 5 "Opening %s server%s..." " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server 3 "Opening %s server%s...%s" "done" "failed: %s" nnheader-get-report-string request-scan (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 #14=(byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#8=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#9=(server-alist) "\301\302\"\207" [server-alist mapc #[#10=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #11=(nil #1#) format #12="%s" #13="%s:%s" assoc x name name-method no-enter-cache] 5) #15=(byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#8# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#9# "\301\302\"\207" [server-alist mapc #[#10# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #11# format #12# #13# assoc x name name-method no-enter-cache] 5) #16=(byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) #17=(byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#8# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#9# "\301\302\"\207" [server-alist mapc #[#10# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #11# format #12# #13# assoc x name name-method no-enter-cache] 5) request-group error #18="Attempted use of a nil select method" #19=(byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#8# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#9# "\301\302\"\207" [server-alist mapc #[#10# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #11# format #12# #13# assoc x name name-method no-enter-cache] 5) gnus-online require gname x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods active silent scan func debug-on-error debug-on-quit dont-sub-check dont-check gnus-command-method noerror function gnus-agent method-sym method-fns method-fnlist-elt gnus-active-hashtb gnus-use-cache gnus-cache-active-hashtb cache-active nnagent gnus-method-functions #20="%s-%s" put fboundp #21="Trying to require a method that doesn't exist" #22="No such function: %s" #23="^[^:]+:" 0 (byte-code "	\206\n\306\307\f\"J844\206/\3105\206.\204*6\206.\307\f\"J\204b
7\311\3127\"\203Q\313\314\315\3167\"\315\3067\"\206M\317#\202_\313\3146@6\2118A@)#)\2119\203q9<\203q9\206X
\3209:\"A\206X
9\321\232\203\2076\206<
\3209;\"A\206<
\3209<\"A\206<
=>>\203\3039\313\314>@@@>@@A@#\232\204\303>\211A>@\210\202\237>\2118@@*\206<
?@@\203\3709\313\314@\2118@@)@@A@#\232\204\370@\211A@@\210\202\322@@)\206<
AA\310\211BCC\2039
\322C\211AC@8\211;\204	
9\310\323DE\324\325\215+\232\203	
B\310\211C\204
B+\211F\203U
\3209:\"\204U
9FB:B:F))\206.\326!\206.
\206m
\306\307\f\"J8\310\211\203\202
\322
8\211\203\202
\321\232\203\207
6\202-;\203\211\2119\203\236
9<\203\236
9\206\205\3209:\"A\206\2059\321\232\203\264
6\206i\3209;\"A\206i\3209<\"A\206i=>>\203\360
9\313\314>@@@>@@A@#\232\204\360
>\211A>@\210\202\314
>\2118@@*\206i?@@\203%9\313\314@\2118@@)@@A@#\232\204%@\211A@@\210\202\377
@@)\206iAA\310\211BCC\203f\322C\211AC@8\211;\20469\310\323DE\324\327\215+\232\2036B\310\211C\204;B+\211F\203\202\3209:\"\204\2029FB:B:F))\202\320\2118A@);\203\317\330\331@!\332P!\211G\2118AA)\236\204\267\333GA@DC\")H\310\211IJKI\204K\211AK@\211J\203@J@=\203\302JLM\334M\2118AA)!\334L\2118AA)!\310\211NOPQ\335\336\215.\203\302J\211I\203\307I,\206\320=\310J>\203b>\203b>\211A>@@J@J@\232\203%\2118A@)J\2118A@)\232\203%\337J\"\204%\310\211\204)+\204q\2118AA)\204u\202\313\330\313\340@\"!\211R\2118AA)\236\203\242@\2118A@)\341Q\2118AA)BB\202\302@\2118A@)\341QR\2118A@)D\2118AA)BBB\211HBH)*\202\320\211\2118A@)\317\232\203\341\202-\2118A@)\204\362@\317D\202-\331@!S\342\320ST\">\203+\330S\332P!\236\204+\343@T\236>\203+\333\330S\332P!A@DC\"\202,***\2114;\20334\2119\203I9<\203I9\2060\3209:\"A\20609\321\232\203_6\206\3209;\"A\206\3209<\"A\206=>>\203\2339\313\314>@@@>@@A@#\232\204\233>\211A>@\210\202w>\2118@@*\206?@@\203\3209\313\314@\2118@@)@@A@#\232\204\320@\211A@@\210\202\252@@)\206AA\310\211BCC\203\322C\211AC@8\211;\204\3419\310\323DE\324\344\215+\232\203\341B\310\211C\204\346B+\211F\203-\3209:\"\204-9FB:B:F))44\345\310UV\211\204D\346\347!\210;\203D\2119\203[9<\203[9\206B\3209:\"A\206B9\321\232\203q6\206&\3209;\"A\206&\3209<\"A\206&=>>\203\2559\313\314>@@@>@@A@#\232\204\255>\211A>@\210\202\211>\2118@@*\206&?@@\203\3429\313\314@\2118@@)@@A@#\232\204\342@\211A@@\210\202\274@@)\206&AA\310\211BCC\203#\322C\211AC@8\211;\204\3639\310\323DE\324\350\215+\232\203\363B\310\211C\204\370B+\211F\203?\3209:\"\204?9FB:B:F))W\203_\351!\203V@\202[\352\353!\210\353)\202a@\211X\354NYVY\236\211Z\204\214V\330\313\355XV#!BZ\356X\354ZYB#\210ZA)[\357[!\204\277@\204\242\346\360!\210\352@!\210\357[!\204\277U\203\271\310[\202\277\346\361[\"\210[.7\311\3627\"\203\3277\363\225\310O\202\3317)4A@\n
$-\207" [group dont-sub-check dont-check method gnus-newsrc-hashtb info 2 intern-soft nil string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 #1# assoc "native" 4 t server-name #14# gnus-group-name-to-method #15# intern symbol-name "-address" append copy-sequence --cl-block-nil-- #16# gnus-methods-sloppily-equal "%s-address" "+" address physical-address #17# request-group error #18# #19# gnus-online require nnagent gnus-method-functions #20# put fboundp #21# #22# #23# 0 gnus-command-method gnus-override-method gnus-select-method gname x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func] 7) ((quit (byte-code "\203\302\303!\210\202\304\305	\"\210\306\207" [debug-on-quit group debug "Quit" message "Quit activating %s" nil] 3))) gnus-parse-active zerop gnus-agent-possibly-alter-active] 11 (#$ . 45403)])
(defalias 'gnus-get-unread-articles-in-group #[(info active &optional update) "\205n	\205n\n\203i\306\211@\307\f\206]\204
\206]\310)\"J\204Z
*\311\312*\"\203G\313\314\315\316*\"\315\317*\"\206C\320#\202S\313\314
@
\211+A@)#)\211,\203e,<\203e,\206P
\321,-\"A\206P
,\322\232\203z
\2064
\321,.\"A\2064
\321,/\"A\2064
011\203\266,\313\3141@@@1@@A@#\232\204\2661\211A1@\210\202\2221\211+@@*\2064
233\203\353,\313\3143\211+@@)3@A@#\232\204\3533\211A3@\210\202\3053@)\2064
4A\307\2115677\2031
\3237\211A7@8\2116;\204\375,6\307\324896\325\326\215+\232\203\37565\307\2117\204
5+\211:\203M
\321,-\"\204M
,:B-B-:))\206]\327!\206]\206f
\317\310)\"J8\3076\211\203~
\3238\2116\203~
6\322\232\203\202

\202\\6;\203\2126\211,\203\233
,<\203\233
,\206\206\321,-\"A\206\206,\322\232\203\260

\206j\321,.\"A\206j\321,/\"A\206j011\203\354
,\313\3141@@@1@@A@#\232\204\354
1\211A1@\210\202\310
1\211+@@*\206j233\203!,\313\3143\211+@@)3@A@#\232\204!3\211A3@\210\202\373
3@)\206j4A\307\2115677\203g\3237\211A7@8\2116;\2043,6\307\324896\325\330\215+\232\203365\307\2117\20485+\211:\203\203\321,-\"\204\203,:B-B-:))\202\3636\211+A@);\203\36166\331\3326@!\333P!\211;6\211+AA)\236\204\300\3346;6A@DC\"6)<\307\211=>?=\204?\211A?@\211>\2036@>@=\203\3136>@A\335A\211+AA)!\335@\211+AA)!\307\211BCDE\336\337\215.\203\313>\211=\203\320=,\206\36366660\307>16\203v1\203v1\211A1@@>6@>@\232\20346\211+A@)>\211+A@)\232\2034\3406>\"\2044\307\2116\20496+\204\2076\211+AA)\204\2146\202\355\331\313\3416@\"!\211F6\211+AA)\236\203\2766@6\211+A@)\342Q6\211+AA)BB\202\3426@6\211+A@)\342QF6\211+A@)D6\211+AA)BBB\2116<B<6)*\202\3636\2116\211+A@)\320\232\2036\202\\6\211+A@)\2046@\320D\202\\66\3326@!G\343\321GH\">\203Y\331G\333P!6\236\204Y\3446@H\236>\203Y\3346\331G\333P!6A@DC\"\202[6***\"\203i\345@\307\324#\210\3178I\346JK\203\260\203\260@	L\205\256\310L\"J\211M\205\255M@	@W\203\237	M@\240\210MA	AV\205\255	MA\241)*\210N\203\300\203\300\347@	#\210\350	A!\203\315\346J\202RI\204\335	AT	@ZJ\202RIA<\204IA	@W\203\364I	@S\241\210IA	AV\203I	A\241\210\346	AIATI@ZZ]J\202RIA\203\221	@I\211+A@):\2044I\211+A@)\2069IA@@Y\203\221I@\247\203jI\211@I\211+A@)\247\203_I\211+A@)\206dIA@AB\240\210\202\203I@IA@\247\203|IA@\206\201IA@A\241\210I\211+\211AA)\241\210\202I@:\203\256I\211+@A)	@W\203\256I@	@S\241\210I\211OA\203\342O\211+A@):\204\316O\211+A@)\206\323OA@@	AX\203\342OA\211O\202\263OA\203\355O\307\241\210O@:\203	O\211+@A)	AV\203	O@	A\241\210)I\203IJI@:\204I@\206&I\211+@A)TI@:\2044I@\206<I\211+@@)Z\\JIA\211I\204\346	AJZ]J\203k\310@)\"J\203k\310@)\"JJ\240\210J*\207" [info active update group gnus-override-method gnus-select-method gnus-request-update-info nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-activate-group 0 gnus-agent-possibly-alter-active zerop gnus-newsrc-hashtb gname x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods range num gnus-use-cache gnus-cache-active-hashtb cache-active gnus-agent srange] 9])
(defalias 'gnus-get-unread-articles #[(&optional level dont-connect one-level) "\306\307\310!\210	A\206\f\206
T@\2068A\203)A\247\204)
T\2025A\247\2034A\2025\311@^B\306\211CD\311E\312\211F<\203PF\2067
\313F\"A\2067
F\314\232\203eG\206
\313FH\"A\206
\313FI\"A\206
JKK\203\241F\315\316K@@@K@@A@#\232\204\241K\211AK@\210\202}K\211L@@*\206
MNN\203\326F\315\316N\211L@@)N@A@#\232\204\326N\211AN@\210\202\260N@)\206
	A\306\211OPQQ\203
\317Q\211AQ@8\211P;\204\347FP\306\320RSP\321\322\215+\232\203\347PO\306\211Q\204\354O+\211T\2034
\313F\"\2044
FTBBT))U\306\211VW\306\211XY\306\211PZ\306\211[\\\306]\323\324\325\"\210\n\203j
\326\n\211A@\211W@\211X^\"JY\317W8\211P\204\202
GP\202\313PC\"\211Z\203\226
ZAP\202P;\203\232P\211F\203\257
F<\203\257
F\206\226\313F\"A\206\226F\314\232\203\304
G\206}\313FH\"A\206}\313FI\"A\206}JKK\203F\315\316K@@@K@@A@#\232\204K\211AK@\210\202\334
K\211L@@*\206}MNN\2035F\315\316N\211L@@)N@A@#\232\2045N\211AN@\210\202N@)\206}	A\306\211OPQQ\203z\317Q\211AQ@8\211P;\204FFP\306\320RSP\321\327\215+\232\203FPO\306\211Q\204KO+\211T\203\223\313F\"\204\223FTBBT))\202\367W@WWX_\206\366X\204\262G\206\366\326X`\"J\204\356Xa\330\331a\"\203\334\315\316\332\333a\"\332\334a\"\206\330\335#\202\352\315\316G@G\211LA@)#)\211F\203\374F<\203\374F\206\343\313F\"A\206\343F\314\232\203G\206\312\313FH\"A\206\312\313FI\"A\206\312JKK\203MF\315\316K@@@K@@A@#\232\204MK\211AK@\210\202)K\211L@@*\206\312MNN\203\202F\315\316N\211L@@)N@A@#\232\204\202N\211AN@\210\202\\N@)\206\312	A\306\211OPQQ\203\307\317Q\211AQ@8\211P;\204\223FP\306\320RSP\321\336\215+\232\203\223PO\306\211Q\204\230O+\211T\203\340\313F\"\204\340FTBBT))\206\366\337X!\206\366W\206\374\334\326X`\"J8\306P\211W\203\317W8\211P\203P\314\232\203G\202\365P;\203P\211F\2034F<\2034F\206\313F\"A\206F\314\232\203IG\206\313FH\"A\206\313FI\"A\206JKK\203\205F\315\316K@@@K@@A@#\232\204\205K\211AK@\210\202aK\211L@@*\206MNN\203\272F\315\316N\211L@@)N@A@#\232\204\272N\211AN@\210\202\224N@)\206	A\306\211OPQQ\203\377\317Q\211AQ@8\211P;\204\313FP\306\320RSP\321\340\215+\232\203\313PO\306\211Q\204\320O+\211T\203\313F\"\204FTBBT))\202\214P\211LA@);\203\212PP\341\342P@!\343P!\211bP\211LAA)\236\204U\344PbPA@DC\"P)c\306\211defd\204\262f\211Af@\211e\203\262P@e@=\203`Pegh\345h\211LAA)!\345g\211LAA)!\306\211ijkl\346\347\215.\203`e\211d\203ed,\206\214XPPXPPJ\306eKP\203
K\203
K\211AK@@eP@e@\232\203\313P\211LA@)e\211LA@)\232\203\313\350Pe\"\204\313\306\211P\204\320P+\204P\211LAA)\204#P\202\206\341\315\351P@\"!\211mP\211LAA)\236\203VP@P\211LA@)\352XQP\211LAA)BB\202{P@P\211LA@)\352XQmP\211LA@)DP\211LAA)BBB\211PcBcP)*\202\214P\211P\211LA@)\335\232\203\237P\202\365P\211LA@)\204\262P@\335D\202\365PP\342P@!n\353\313no\">\203\362\341n\343P!P\236\204\362\354P@o\236>\203\362\344P\341n\343P!PA@DC\"\202\364P***ZPZBCBCZP\313PD\"\211\\\204\n
PPM\306PPXP;\203$P\211F\2039F<\2039F\206 \313F\"A\206 F\314\232\203NG\206\313FH\"A\206\313FI\"A\206JKK\203\212F\315\316K@@@K@@A@#\232\204\212K\211AK@\210\202fK\211L@@*\206MNN\203\277F\315\316N\211L@@)N@A@#\232\204\277N\211AN@\210\202\231N@)\206	A\306\211OPQQ\203\317Q\211AQ@8\211P;\204\320FP\306\320RSP\321\355\215+\232\203\320PO\306\211Q\204\325O+\211T\203\313F\"\204FTBBT))\202\245PG\232\2031G\202\245P@;\203FX\203F\356XP\"\202\245P\203bX\204bP\211LA@)\335\232\203bP\202\245PP\342P@!n\353\313no\">\203\242\341n\343P!P\236\204\242\354P@o\236>\203\242\344P\341n\343P!PA@DC\"\202\244P**p\211f\203z\n\306f@PXP;\203\272	P\211F\203\317F<\203\317F\206\266	\313F\"A\206\266	F\314\232\203\344G\206\235	\313FH\"A\206\235	\313FI\"A\206\235	JKK\203 	F\315\316K@@@K@@A@#\232\204 	K\211AK@\210\202\374K\211L@@*\206\235	MNN\203U	F\315\316N\211L@@)N@A@#\232\204U	N\211AN@\210\202/	N@)\206\235		A\306\211OPQQ\203\232	\317Q\211AQ@8\211P;\204f	FP\306\320RSP\321\357\215+\232\203f	PO\306\211Q\204k	O+\211T\203\263	\313F\"\204\263	FTBBT))\202;\nPG\232\203\307	G\202;\nP@;\203\334	X\203\334	\356XP\"\202;\nP\203\370	X\204\370	P\211LA@)\335\232\203\370	P\202;\nPP\342P@!n\353\313no\">\2038\n\341n\343P!P\236\2048\n\354P@o\236>\2038\n\344P\341n\343P!PA@DC\"\202:\nP**pq\211rq\232\206m\nrGqGU\205m\nr\203j\nr@q\235\203j\nrA\211r\204X\nr?*\204z\nfA\211f\204\256f+\204\216\n\360 \203\222\n\361UP\"\203\222\n\362\202\371\fGPg\211h\204\243\nG\202\251h;\203\247h\211F\203\274\nF<\203\274\nF\206\243\313F\"A\206\243F\314\232\203\321\nG\206\212\313FH\"A\206\212\313FI\"A\206\212JKK\203
F\315\316K@@@K@@A@#\232\204
K\211AK@\210\202\351\nK\211L@@*\206\212MNN\203BF\315\316N\211L@@)N@A@#\232\204BN\211AN@\210\202N@)\206\212	A\306\211OPQQ\203\207\317Q\211AQ@8\211P;\204SFP\306\320RSP\321\363\215+\232\203SPO\306\211Q\204XO+\211T\203\240\313F\"\204\240FTBBT))\202\251hg\204\263G\202\271\fg;\203\267\fg\211F\203\314F<\203\314F\206\263\f\313F\"A\206\263\fF\314\232\203\341G\206\232\f\313FH\"A\206\232\f\313FI\"A\206\232\fJKK\203\fF\315\316K@@@K@@A@#\232\204\fK\211AK@\210\202\371K\211L@@*\206\232\fMNN\203R\fF\315\316N\211L@@)N@A@#\232\204R\fN\211AN@\210\202,\fN@)\206\232\f	A\306\211OPQQ\203\227\f\317Q\211AQ@8\211P;\204c\fFP\306\320RSP\321\364\215+\232\203c\fPO\306\211Q\204h\fO+\211T\203\260\f\313F\"\204\260\fFTBBT))\202\271\fgg\211hgq\211rq\232\206\357\frGqGU\205\357\fr\203\354\fr@q\235\203\354\frA\211r\204\332\fr?.\203\370\f\365\202\371\f\366[P[\306\211F\211\\DBDs\203
\367\202
\370WA@\211t:\203%
t@\202'
t)\\\211LA@)\366=\203:
B\202<
@\"\203P
\\AAW\334\\8B\240\210\202Z
Y\204Z
\326X`\"J\211]\203Z
]\320\240\210\202Z
\371D\237\372\"D\306fD\306u\211v\203\375
v@\211u\211wG\317U\203\231
w\211Aw@\202\241
\373\374\306wGD\"Pw\211Aw@[w\211Aw@Vw@xfJ\375P!\203\347
\376P@Xy\306\377\201\212\217*\203\347
\356V@@P\"PuP\240\210P\201\213DfBf.vA\211v\204\200
+z\204MGMB\306P\211v\203Lv@P\313PD\"\204C\201\214P@Xy\306\201\215\201\216\217*\203Cr{q\210\201\217P\306\"\210)vA\211v\204*D\306u\211v\203\357v@\211u\211|G\317U\203q|\211A|@\202y\373\374\306|GD\"P|\211A|@[|\211A|@V|@xP\203\345V\203\345\376P@Xy\306\201\220\201\221\217*\203\345\201\222P!\204\345\306\201\223\201\224\217\203\345\201\225P!\204\324\201\226P!\210\201\225P!\203\345\201\227P\306\"\210-vA\211v\204X*\306\211}~D\306u\211v\203\350v@\211u\211G\317U\203\211A@\202\"\373\374\306GD\"P\211A@[\211A@V@xP@P\211LA@)D}P\203\336V\203\336\201\222P!\204\336\306\201\230\201\231\217\204t\201\232uD\"D\202\336\201\225P!\204\204\201\226P!\210}~\235\204\336\201\225P!\203\336\376P@Xy\306\201\233\201\234\217*\203\336}~B~\201\235P@Xy\306\201\236\201\237\217*\203\316\201\240\306P\"\210\201\241u\233\201\227PV\"\240\210-vA\211v\204
,D\306u\211v\203Dv@\211u\211\200G\317U\203
\200\211A\200@\202\373\374\306\200GD\"P\200\211A\200@[\200\211A\200@V\200@\201P\203:V\203:\201\222P!\204:\201\242P@Xy\306\201\243\201\244\217*\202\201\245PV\201#\210V\306W\211v\2039v@\211W\326W@^\"J\202\203Y\211W\205.Y\205.\203\203\201\246W\211@\306WX_\206\365X\204\253G\206\365\326X`\"J\204\351Xa\330\331a\"\203\325\315\316\332\333a\"\332\334a\"\206\321\335#\202\343\315\316G@G\211LA@)#)\211F\203\365F<\203\365F\206\336\313F\"A\206\336F\314\232\203\nG\206\305\313FH\"A\206\305\313FI\"A\206\305JKK\203FF\315\316K@@@K@@A@#\232\204FK\211AK@\210\202\"K\211L@@*\206\305MNN\203{F\315\316N\211L@@)N@A@#\232\204{N\211AN@\210\202UN@)\206\305	A\306\211OPQQ\203\302\317Q\211AQ@8\211P;\204\214FP\306\320RSP\321\201\247\215+\232\203\214PO\306\211Q\204\221O+\211T\203\333\313F\"\204\333FTBBT))\206\365\337X!\206\365W\206\367\334\326X`\"J8\306P\211W\203\317W8\211P\203P\314\232\203G\202\364P;\203P\211F\203/F<\203/F\206\313F\"A\206F\314\232\203DG\206\377\313FH\"A\206\377\313FI\"A\206\377JKK\203\200F\315\316K@@@K@@A@#\232\204\200K\211AK@\210\202\\K\211L@@*\206\377MNN\203\265F\315\316N\211L@@)N@A@#\232\204\265N\211AN@\210\202\217N@)\206\377	A\306\211OPQQ\203\374\317Q\211AQ@8\211P;\204\306FP\306\320RSP\321\201\250\215+\232\203\306PO\306\211Q\204\313O+\211T\203\313F\"\204FTBBT))\202\213P\211LA@);\203\211PP\341\342P@!\343P!\211bP\211LAA)\236\204R\344PbPA@DC\"P)c\306\211defd\204\261f\211Af@\211e\203\261P@e@=\203]Pegh\345h\211LAA)!\345g\211LAA)!\306\211ijkl\346\201\251\215.\203]e\211d\203bd,\206\213XPPXPPJ\306eKP\203\fK\203\fK\211AK@@eP@e@\232\203\312P\211LA@)e\211LA@)\232\203\312\350Pe\"\204\312\306\211P\204\317P+\204P\211LAA)\204\"P\202\205\341\315\351P@\"!\211mP\211LAA)\236\203UP@P\211LA@)\352XQP\211LAA)BB\202zP@P\211LA@)\352XQmP\211LA@)DP\211LAA)BBB\211PcBcP)*\202\213P\211P\211LA@)\335\232\203\236P\202\364P\211LA@)\204\261P@\335D\202\364PP\342P@!n\353\313no\">\203\361\341n\343P!P\236\204\361\354P@o\236>\203\361\344P\341n\343P!PA@DC\"\202\363P***\"\203\201\252W@\306\320#\210\334W8\204\311\205\206\203VW\203VW@YYX\207\205T\326X\207\"J\211\210\205S\210@Y@W\203CY\210@\240\210\210AYAV\205SY\210A\241)*\210\203lW\203l\201\253W@YW#\210\201\254YA!\203|\311\205\202\204\204\216YATY@Z\205\202\204A<\204\313\204AY@W\203\247\204Y@S\241\210\204AYAV\203\270\204YA\241\210\311YA\204AT\204@ZZ]\205\202\204A\203HY@\204\211LA@):\204\353\204\211LA@)\206\360\204A@@Y\203H\204@\247\203!\204\211@\204\211LA@)\247\203\204\211LA@)\206\204A@AB\240\210\202:\204@\204A@\247\2033\204A@\2068\204A@A\241\210\204\211L\211AA)\241\210\202\313\204@:\203g\204\211L@A)Y@W\203g\204@Y@S\241\210\204\211\211A\203\234\211\211LA@):\204\207\211\211LA@)\206\214\211A@@YAX\203\234\211A\211\211\202l\211A\203\247\211\306\241\210\211@:\203\305\211\211L@A)YAV\203\305\211@YA\241\210)\204\203\205\204@:\204\332\204@\206\342\204\211L@A)T\204@:\204\360\204@\206\370\204\211L@@)Z\\\205\204A\211\204\204\313\311YA\205Z]\205W\203+\326W@`\"J\203+\326W@`\"J\205\240\210\205*+\210vA\211v\204l+-vA\211v\204\364*\323\324\201\255\".\207" [gnus-server-method-cache gnus-newsrc-alist newsrc level gnus-activate-level gnus-level-subscribed nil require gnus-agent 0 "archive" assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4=(nil #7="") format #5="%s" #6="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-message 6 "Checking new news..." intern-soft (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" match-string 1 2 #7# (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match #13="/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) gnus-server-extend-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) gnus-archive-server-wanted-p gnus-methods-equal-p secondary (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) primary foreign = <= sort #[(c1 c2) "\303\211A@)@\"\303\n\211A@)\n@\"W\207" [c1 x c2 gnus-method-rank] 5] signal wrong-number-of-arguments gnus-similar-server-opened retrieve-group-data-early (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 #12="%s-%s"] 6) alevel gnus-activate-foreign-newsgroups foreign-level methods-cache type-cache gnus-agent-article-local-times server gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers match method alist no-enter-cache nocache result archive-method infos info group active cmethod method-type method-group-list entry gnus-active-hashtb gnus-override-method gnus-newsrc-hashtb gname slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods gmethod s2 s1 one-level rank elem --dolist-tail-- #8=#:--cl-rest-- dummy func dont-connect nntp-server-buffer #9=#:--cl-rest-- sanity-spec done-methods #10=#:--cl-rest-- #11=#:--cl-rest-- early-data updatep update range num gnus-use-cache gnus-cache-active-hashtb cache-active srange ((error)) ok request-list (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 #12#] 6) ((error)) gnus-read-active-file-1 (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 #12#] 6) ((error)) gnus-method-denied-p (byte-code "\301\302\"\207" [method gnus-get-function open-server] 3) ((error)) gnus-server-opened gnus-open-server gnus-retrieve-group-data-early (byte-code "\301\302\"\207" [method gnus-get-function open-server] 3) ((error)) delq (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 #12#] 6) ((error)) request-scan (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 #12#] 6) ((error)) gnus-request-scan 3 request-update-info (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 #12#] 6) ((error)) gnus-read-active-for-groups gnus-request-update-info (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match #13# directory-file-name s1] 4) gnus-activate-group gnus-agent-possibly-alter-active zerop "Checking new news...done"] 9])
(defalias 'gnus-method-rank #[(type method) "@\303=\203	\304\207	\305=\203\306\207	\307=\203 \310\311\312\215\210\n)\207\313\207" [method type i nnvirtual 200 primary 1 secondary 2 --cl-block-nil-- (byte-code "\305\211\203 \n@	\232\203\306\307\f\"\210\fT\nA\211\204*\305\207" [gnus-secondary-select-methods smethod --dolist-tail-- method i nil throw --cl-block-nil--] 4) 100] 2])
(defalias 'gnus-read-active-for-groups #[(method infos early-data) "rq\210	\203-\306\n@\307\310\311\217*\203-\312\n!\203!\313\n!\203-\314\n
	#\210\315\n!\202\312\316\n@\307\317\320\217*\203\222\321\n@\307\322\323\217*\203L\324\307\n\"\210\307\325
\307 \211!\203\205!@\211 @\"\326\327\"\"\203t\"\330\225\307O\202v\")B!A\211!\204Z\307 \237*\n\")\202\312\331\n@\307\332\333\217*\203\246\334\n\307\"\202\312
\307 \211!\205\311!@ \335 @\307\211\n\336%\210!A\211!\204\260\307*)\207" [nntp-server-buffer early-data method group func infos finish-retrieve-group-infos nil (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 #1="%s-%s"] 6) ((error)) gnus-agent-method-p gnus-online gnus-finish-retrieve-group-infos gnus-agent-save-active retrieve-groups (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 #1#] 6) ((error)) request-scan (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 #1#] 6) ((error)) gnus-request-scan gnus-read-active-file-2 string-match "^[^:]+:" 0 request-list (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 #1#] 6) ((error)) gnus-read-active-file-1 gnus-activate-group t groups info --dolist-tail-- gname] 7])
(defalias 'gnus-make-hashtable-from-newsrc-alist #[nil "	\306\211\211\211\211\307G!\211@@)\310\232\203'\202.\310\311\306EB\211\211\211\203\226@\312
8\211\203[\f\n\235\211\203W\312
\233@\240\210\202[\f\nB\313
@	\"J\203r\211\211AA)\241\210\202\215\314
@	\"\205\204\313
@\"J@BL\210A\211\2049\n\205\261\n\211A@\315\f\"\211\203\226\f\241\210\202\226.\207" [gnus-newsrc-alist gnus-newsrc-hashtb methods rest method info nil gnus-make-hashtable "dummy.group" 0 4 intern-soft intern rassoc prev ohashtb alist x gnus-server-alist] 8])
#@55 Create a hash table from the killed and zombie lists.
(defalias 'gnus-make-hashtable-from-killed #[nil "\305\306\307\nGG\\!	\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 (#$ . 93458)])
#@46 Parse active info in the nntp server buffer.
(defalias 'gnus-parse-active #[nil "rq\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 (#$ . 93802)])
#@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\3068\313\211\203H\314\211A@\211\f\"\203+
B\202+
\205fAA\315\3068
\237\"\240\210\316\307\"J\"\210\317\320\",\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-get-unread-articles-in-group gnus-group-update-group t article articles gnus-active-hashtb] 6 (#$ . 94042)])
#@45 Mark ascending ARTICLES in GROUP as unread.
(defalias 'gnus-make-ascending-articles-unread #[(group articles) "\306	\"J\206\306\307\310\n\"\203\n\311\225\312O\202\n)	\"J\3138\313\f8\211\312\203
\211A@
@\211:\204\216\204Q\312\211\202	
W\203b
\210
A\211\202	
U\205	

\211\211A@)\240\210
\211\211AA)\241\210
@\203\207\314\202\210\315\312\202	
@A\211V\203\303
\211\211A@)\240\210
\211\211AA)\241\210
@\203\274\314\202\275\315
\202
U\203\324
\240\210
\202
W\203\345
\210
A\211\202
W\203\361\312\202

TB
AB\241\210S\241\210\314
*)\204<)\202.\2059
\315=\203$
\316\312\"\fAA\240\210\317\f\306\"J\"\210\320\314\"-\207" [group gnus-newsrc-hashtb gname entry info ranges intern-soft string-match "^[^:]+:" 0 nil 2 t remove-null delq gnus-get-unread-articles-in-group gnus-group-update-group r modified articles article range x max min gnus-active-hashtb] 6 (#$ . 94603)])
(defalias 'gnus-update-active-hashtb-from-killed #[nil "\306\307!\211	\nD\310\f\2050\f@\211\203(\311\312@!
\"\310L\210A\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 mm-string-as-unibyte] 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 (#$ . 95889)])
(defalias 'gnus-read-active-file #[(&optional force not-native) "\306 \210\307\310\311\204\312	!\203	\nB\202\n\313 \205\314C\"\"\315\315rq\210\f\211A@\211\205\\\f\235\204*\315\316\317\217\203*\204K\203T\320\"\210\202*\315\321\322\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) ";\203j
\306	;\203\372	\211\203<\203\206\366\307\f\"A\206\366\310\232\203/
\206\337\307\"A\206\337\307\"A\206\337\203h\311\312@@@@@A@#\232\204h\211A@\210\202E\211@@*\206\337\203\234\311\312\211@@)@A@#\232\204\234\211A@\210\202w@)\206\337A\306\211  \203\334\313 \211A @8\211;\204\255	\306\314!\"\315\316\215+\232\203\255	\306\211 \204\262+\211#\203\363\307\f\"\204\363#B\fB#))\202h
	
\232\203

\202h
	@;\203
\n\203
\317\n	\"\202h
	\203-
\n\204-
	\211A@)\320\232\203-
	\202h
	\321	@!$\322\307$%\">\203f
\323$\324P!	\236\204f
\325	@%\236>\203f
\326	\323$\324P!	A@DC\"\202g
	**\207\207" [m method group server gnus-server-method-cache gnus-select-method nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods] 6] append gnus-check-server gnus-archive-server-wanted-p "archive" nil (byte-code "\301\302\"\207" [method gnus-get-function open-server] 3) ((error)) gnus-read-active-file-1 (gnus-read-active-file-1 method force) ((quit (byte-code "\203\301\302!\210\202\303\304!\210\301\207" [debug-on-quit debug "Quit" message "Quit reading the active file"] 2))) nntp-server-buffer debug-on-error debug-on-quit force] 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\316#\210\317\n!\205\333\2036\320\n!\204:\204L\321\n@\306\322\323\217*\203L\324\306\n\"\210@\325=\203\240\326\n@\306\327\330\217*\203\240A\204\240BA\306\n\n;\203n
\n\211C\203\203C<\203\203C\206j
\331CD\"A\206j
C\332\232\203\231E\206N
\331CF\"A\206N
\331CG\"A\206N
HII\203\325C\307\333I@@@I@@A@#\232\204\325I\211AI@\210\202\261I\211J@@*\206N
KLL\203\n
C\307\333L\211J@@)L@A@#\232\204\n
L\211AL@\210\202\344L@)\206N
BA\306\211MNN\203K
\334N\211AN@8\211;\204
C\n\306\335OP\336\337\215+\232\203
\nM\306\211N\204 
M+\211Q\203g
\331CD\"\204g
CQBDBDQ))\202\336
\nE\232\203z
E\202\336
\n@;\203\213
\f\203\213
\340\f\n\"\202\336
\n\203\243
\f\204\243
\n\211JA@)\313\232\203\243
\n\202\336
\n\341\n@!R\342\331RS\">\203\334
\343R\344P!\n\236\204\334
\345\n@S\236>\203\334
\346\n\343R\344P!\nA@DC\"\202\335
\n**\306\211TUVWW\211AW@\211T\203\227T@TTX\206\f\204\fE\206\347\fY\"J\204E\fZ\350\351Z\"\2034\307\333\352\353Z\"\352\354Z\"\2060\313#\202B\307\333E@E\211JA@)#)\211C\203TC<\203TC\206;\331CD\"A\206;C\332\232\203jE\206\331CF\"A\206\331CG\"A\206HII\203\246C\307\333I@@@I@@A@#\232\204\246I\211AI@\210\202\202I\211J@@*\206KLL\203\333C\307\333L\211J@@)L@A@#\232\204\333L\211AL@\210\202\265L@)\206BA\306\211MNN\203\334N\211AN@8\211;\204\354C\n\306\335OP\336\355\215+\232\203\354\nM\306\211N\204\361M+\211Q\2038\331CD\"\2048CQBDBDQ))\206\356\f!\206T\206R\354\347\fY\"J8\306\211T\203i\334T8\211\203i\n\332\232\203nE\202\n;\203p\n\211C\203\205C<\203\205C\206l\331CD\"A\206lC\332\232\203\233E\206P\331CF\"A\206P\331CG\"A\206PHII\203\327C\307\333I@@@I@@A@#\232\204\327I\211AI@\210\202\263I\211J@@*\206PKLL\203\fC\307\333L\211J@@)L@A@#\232\204\fL\211AL@\210\202\346L@)\206PBA\306\211MNN\203M\334N\211AN@8\211;\204C\n\306\335OP\336\357\215+\232\203\nM\306\211N\204\"M+\211Q\203i\331CD\"\204iCQBDBDQ))\202\267\n\211JA@);\203\266\n\343\341\n@!\344P!\211[\n\211JAA)\236\204\236\346\n[\nA@DC\")\\\306\211]^_]\204\371_\211A_@\211^\203\371\n@^@=\203\251\n^`a\360a\211JAA)!\360`\211JAA)!\306\211bcde\361\362\215.\203\251^\211]\203\256],\206\267\f\n\nH\306^I\n\203II\203II\211AI@@^\n@^@\232\203\f\n\211JA@)^\211JA@)\232\203\f\363\n^\"\204\f\306\211\204\n+\204X\n\211JAA)\204\\\n\202\262\343\307\364\n@\"!\211f\n\211JAA)\236\203\211\n@\n\211JA@)\365\fQ\n\211JAA)BB\202\251\n@\n\211JA@)\365\fQf\n\211JA@)D\n\211JAA)BBB\211\\B\\\n)*\202\267\n\211\211JA@)\313\232\203\310\n\202\n\211JA@)\204\331\n@\313D\202\n\341\n@!R\342\331RS\">\203\343R\344P!\n\236\204\345\n@S\236>\203\346\n\343R\344P!\nA@DC\"\202\n***V`\211a\204%E\202+a;\203)a\211C\203>C<\203>C\206%\331CD\"A\206%C\332\232\203TE\206	\331CF\"A\206	\331CG\"A\206	HII\203\220C\307\333I@@@I@@A@#\232\204\220I\211AI@\210\202lI\211J@@*\206	KLL\203\305C\307\333L\211J@@)L@A@#\232\204\305L\211AL@\210\202\237L@)\206	BA\306\211MNN\203\334N\211AN@8\211;\204\326C\n\306\335OP\336\366\215+\232\203\326\nM\306\211N\204\333M+\211Q\203\"\331CD\"\204\"CQBDBDQ))\202+a`\2045E\202;`;\2039`\211C\203NC<\203NC\2065\331CD\"A\2065C\332\232\203dE\206\331CF\"A\206\331CG\"A\206HII\203\240C\307\333I@@@I@@A@#\232\204\240I\211AI@\210\202|I\211J@@*\206KLL\203\325C\307\333L\211J@@)L@A@#\232\204\325L\211AL@\210\202\257L@)\206BA\306\211MNN\203\334N\211AN@8\211;\204\346C\n\306\335OP\336\367\215+\232\203\346\nM\306\211N\204\353M+\211Q\2032\331CD\"\2042CQBDBDQ))\202;``\211a`g\211hg\232\206qhGgGU\205qh\203nh@g\235\203nhA\211h\204\\h?.\203\351
T@Z\350\370Z\"\203\214Z\371\225\306O\202\216Z)UBU\202\351
\372U\n\",\202\333\n\204\250\335\202\333\373\n!\204\277\ni\232?\205\333\374\353\375\n@#\202\333\314\315\316#\210\376\nj\306\335$\210\377\201k\n\"\210\314\315\201l#*\207" [mesg where method gnus-agent group func nil format "Reading active file%s via %s..." zerop " from " #2="" gnus-message 5 "%s" gnus-check-server gnus-online request-scan (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 #1="%s-%s"] 6) ((error)) gnus-request-scan some retrieve-groups (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 #1#] 6) ((error)) assoc "native" "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4=(server-alist) "\301\302\"\207" [server-alist mapc #[#5=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6=(nil #2#) format #7="%s" #8="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method symbol-name address intern "-address" physical-address append intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" match-string 1 2 (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4# "\301\302\"\207" [server-alist mapc #[#5# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6# format #7# #8# assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4# "\301\302\"\207" [server-alist mapc #[#5# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6# format #7# #8# assoc x name name-method no-enter-cache] 5) copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4# "\301\302\"\207" [server-alist mapc #[#5# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6# format #7# #8# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#3# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#4# "\301\302\"\207" [server-alist mapc #[#5# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #6# format #7# #8# assoc x name name-method no-enter-cache] 5) "^[^:]+:" 0 gnus-read-active-file-2 gnus-request-list gnus-error "Cannot read active file from %s server" gnus-active-to-gnus-format add-to-list gnus-read-active-file force gnus-newsrc-alist server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers match alist no-enter-cache nocache result method-name gnus-valid-select-methods info groups gmethod newsrc gnus-override-method gnus-newsrc-hashtb gname slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot s2 s1 gnus-message-archive-method gnus-active-hashtb gnus-have-read-active-file "%sdone"] 7])
#@72 Read an active file for GROUPS in METHOD using `gnus-retrieve-groups'.
(defalias 'gnus-read-active-file-2 #[(groups method) "\2053r	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 (#$ . 108670)])
(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!\211\311\211\21112eb\2103\312\230\203H\313\314!\210\202O\313\3153P!\210eb\210\316\317\311\320#\204kdb\210\321\322\311\320#\203k\323c\210\202]4\2035\203\324!\203\325!\210\326\3111;\203\206
\2116\203\2346<\203\2346\206\202
\32767\"A\206\202
6\330\232\203\261	\206f
\32768\"A\206f
\32769\"A\206f
:;;\203\3556\331\332;@@@;@@A@#\232\204\355;\211A;@\210\202\311;\211<@@*\206f
=>>\203\"
6\331\332>\211<@@)>@A@#\232\204\"
>\211A>@\210\202\374>@)\206f
?A\311\211@AA\203c
\333A\211AA@8\211;\2043
6\311\320BC\334\335\215+\232\2033
@\311\211A\2048
@+\211D\203
\32767\"\204
6DB7B7D))\202\367
	\232\203\220
	\202\367
@;\203\243
1\203\243
\3361\"\202\367
\203\274
1\204\274
\211<A@)\312\232\203\274
\202\367
\337@!E\340\327EF\">\203\365
\341E\342P!\236\204\365
\343@F\236>\203\365
\344\341E\342P!A@DC\"\202\366
**\311	1;\203\376\2116\2036<\2036\206\372\32767\"A\206\3726\330\232\203)	\206\336\32768\"A\206\336\32769\"A\206\336:;;\203e6\331\332;@@@;@@A@#\232\204e;\211A;@\210\202A;\211<@@*\206\336=>>\203\2326\331\332>\211<@@)>@A@#\232\204\232>\211A>@\210\202t>@)\206\336?A\311\211@AA\203\333\333A\211AA@8\211;\204\2536\311\320BC\334\345\215+\232\203\253@\311\211A\204\260@+\211D\203\367\32767\"\204\3676DB7B7D))\202o	\232\203	\202o@;\2031\203\3361\"\202o\20341\2044\211<A@)\312\232\2034\202o\337@!E\340\327EF\">\203m\341E\342P!\236\204m\343@F\236>\203m\344\341E\342P!A@DC\"\202n**\"\204\226\346\312\"Geb\210m\204\225g\347U\203\212\350u\210Gc\210\351\350y!\204})\352\353!HrHq\210\354\216\355 \210\3562!\210p2eb\210m?\205\302\311\357\360\217\210~\210\350y\210\202\260.\207" [method gnus-select-method hashtb gnus-active-hashtb min max gnus-make-hashtable count-lines 4096 nil #1="" delete-matching-lines "^to\\." "^to\\.\\|" re-search-forward "[\\\"]" t re-search-backward "[][';?()#]" 92 gnus-online gnus-agent-save-active gnus-server-equal assoc "native" format "%s:%s" 4 server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method symbol-name address intern "-address" physical-address append (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) gnus-group-prefixed-name 34 1 zerop generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#8=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte insert-buffer-substring (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 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" point-at-bol point-at-eol] 5))) group cur gnus-ignored-newsgroups gnus-agent real-active server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods prefix #8#] 8])
(defalias 'gnus-groups-to-gnus-format #[(method &optional hashtb real-active) "p\206	\203\n\203\n\202\306\307ed\"!\211	\205\366\310\311		;\203
	\211\2036\f<\2036\f\206
\312\f
\"A\206
\f\313\232\203I%\206\371\312\f&\"A\206\371\312\f'\"A\206\371())\203\202\f\314\315)@@@)@@A@#\232\204\202)\211A)@\210\202_)\211*@@*\206\371+,,\203\266\f\314\315,\211*@@),@A@#\232\204\266,\211A,@\210\202\221,@)\206\371-A\311\211.//\203\366\316/\211A/@8\211;\204\307\f	\311\31701\320\321\215+\232\203\307	.\311\211/\204\314.+\2112\203

\312\f
\"\204

\f2B
B2))\202\204
	%\232\203 
%\202\204
	@;\2031
\2031
\322	\"\202\204
	\203I
\204I
	\211*A@)\323\232\203I
	\202\204
	\324	@!3\325\31234\">\203\202
\3263\327P!	\236\204\202
\330	@4\236>\203\202
\331	\3263\327P!	A@DC\"\202\203
	**\311%	;\203|	\211\203\236
\f<\203\236
\f\206x\312\f
\"A\206x\f\313\232\203\261
%\206a\312\f&\"A\206a\312\f'\"A\206a())\203\352
\f\314\315)@@@)@@A@#\232\204\352
)\211A)@\210\202\307
)\211*@@*\206a+,,\203\f\314\315,\211*@@),@A@#\232\204,\211A,@\210\202\371
,@)\206a-A\311\211.//\203^\316/\211A/@8\211;\204/\f	\311\31701\320\332\215+\232\203/	.\311\211/\2044.+\2112\203u\312\f
\"\204u\f2B
B2))\202\354	%\232\203\210%\202\354	@;\203\231\203\231\322	\"\202\354	\203\261\204\261	\211*A@)\323\232\203\261	\202\354	\324	@!3\325\31234\">\203\352\3263\327P!	\236\204\352\330	@4\236>\203\352\331	\3263\327P!	A@DC\"\202\353	**\"?\205\366\333\323	\"567\203 8\203 \334	!\203 \335	!\203 \336	\317\"\210\337	\3118$\202`eb\2105\203G\311\211\211\2119:;m?\205C\311\340\341\217\210\342y\210\2023,\202`\311\211\211:;m?\205_\311\343\344\217\210\342y\210\202O++\207" [hashtb method gnus-active-hashtb group server gnus-server-method-cache gnus-make-hashtable count-lines gnus-server-equal nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1="") format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) gnus-group-prefixed-name gnus-online gnus-agent-method-p gnus-agent-save-active gnus-active-to-gnus-format (byte-code "\306!\210\306!\210\306!\306!`\307\310w\210\fc\210b\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-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods prefix cur gnus-agent real-active opoint max min] 10])
#@67 Read startup file.
If FORCE is non-nil, the .newsrc file is read.
(defalias 'gnus-read-newsrc-file #[(&optional force) "\306\307\"\211\203	@\310L\210	A\211\204	)\n\211\311P\212\312\f!\210
\203b\313\n!\203b\204E\314\f\"\203@\314\f\315P\"\204E\204b\212\316\317\320#\210\321!q\210\322 \210\323 \210\324p!\210\316\317\325#\210)\326 +\207" [gnus-variable-list variables gnus-current-startup-file newsrc-file quick-file gnus-read-newsrc-file remove gnus-format-specs 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 (#$ . 118249)])
#@64 Convert old newsrc formats into the current format, if needed.
(defalias 'gnus-convert-old-newsrc #[nil "\205\306!\306 \211\205\376\307\310\311\312\313\"\314\"\2031\n\211@@)Y\2031\211A@\210\202\205\375\n\211@@)W\205\375\203\365\n\211@@)W\203\365\211@@)	X\203\365\211A@\211&A@'\315&8(\316&8)(\203\204\317)!\204\204\320(\321\"\210\f\204\353\322)!\203\353\307\321\323*+,\324\325-#\210\326 \211,\327=\204\260,\330=\203\266\331\332!\202\347,\333=\204\304,\334=\203\312\321\307\202\347,\335=\203\335\324\336!\210\337\340!\210\321\202\347\341\316\342\"\210\337\316!\210\321+\204\217)'!\210,\202@\343\344\345-#!**\207" [gnus-newsrc-file-version gcv fcv converters prompt-displayed x gnus-continuum-version nil sort mapcar #[(date-func) "\301@!B\207" [date-func gnus-continuum-version] 2] (("September Gnus v0.1" nil gnus-convert-old-ticks) ("Oort Gnus v0.08" "legacy-gnus-agent" gnus-agent-convert-to-compressed-agentview) ("Gnus v5.10.7" "legacy-gnus-agent" gnus-agent-unlist-expire-days) ("Gnus v5.10.7" "legacy-gnus-agent" gnus-agent-unhook-expire-days)) car-less-than-car 2 3 fboundp load t gnus-convert-converter-needs-prompt 0 message "Convert gnus from version '%s' to '%s'? (n/y/?)" read-char-exclusive 110 78 error "Can not start gnus without converting" 121 89 63 "This conversion is irreversible.  To be safe, you should backup your files before proceeding." sit-for 5 gnus-message "Ignoring unexpected input" gnus-dribble-enter format ";Converted gnus from version '%s' to '%s'." converter-spec convert-to load-from func echo-keystrokes cursor-in-echo-area c gnus-version] 6 (#$ . 119020)])
#@234 Indicate whether CONVERTER requires gnus-convert-old-newsrc to
  display the conversion prompt.  NO-PROMPT may be nil (prompt),
  t (no prompt), or any form that can be called as a function.
  The form should return either t or nil.
(defalias 'gnus-convert-mark-converter-prompt #[(converter no-prompt) "\302\303	#\207" [converter no-prompt put gnus-convert-no-prompt] 4 (#$ . 120696)])
(defalias 'gnus-convert-converter-needs-prompt #[(converter) "\302N\211\303>\203	\202	 )?\207" [converter no-prompt gnus-convert-no-prompt (t nil)] 3])
(defalias 'gnus-convert-old-ticks #[(converting-to) "A\306\211\211\211
\211A@\211\205C\3078\211\203\302\f\236A\310\f\236A\n\204/	\203AA\311\3128\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])
#@64 Load FILE, but in such a way that read errors can be reported.
(defalias 'gnus-load #[(file) "\302\303!rq\210\304\216\305	!\210m?\205\306\307\310\217\210\202+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents type (byte-code "\301p!\302!\210)\301\207" [form read eval] 2) ((error (byte-code "@\303=\204!\304\305	\306e`\"#\307 \210\310\n\311P!\204 \312\313\n\"\210)\303\207" [type file errmsg end-of-file format "Error in %s line %d" count-lines ding gnus-yes-or-no-p "; continue? " error "%s"] 6)))] 3 (#$ . 121562)])
(defalias 'gnus-read-newsrc-el-file #[(file) "\306P\307	!\2034\310\311\312	#\210\313\314	!\210\205\315!\211\203(\f\316W\203+
)\n\2033\n)\313\211\203[@\211@\203R\317@!\240\210A\211\204?*\320 \210\321	\"\203p\310\311\312#\210\322!\210)\323\324!\207" [file ding-file gnus-newsrc-assoc gnus-newsrc-file-version version gnus-default-format-specs "d" file-exists-p gnus-message 5 "Reading %s..." nil gnus-load gnus-continuum-version 5.090009 mm-string-as-unibyte gnus-make-hashtable-from-newsrc-alist file-newer-than-file-p gnus-read-old-newsrc-el-file gnus-run-hooks gnus-read-newsrc-el-hook gnus-format-specs gnus-newsrc-alist elem --dolist-tail--] 5])
(defalias 'gnus-read-old-newsrc-el-file #[(file) "\306\211\211\211\211\211\306\211\211\211\306\307\310\217\210,\306
\211A@\211\203\316\311\312\n@\"J8\211\203\210AA\n\211AA)\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\211AA)E\211B\313\n@\"\211\203*\314\233\204\273\306C\244\210\314\233\315\316\317	A\320\"\321\"BC\240\210\202*\f\211\203\345
\211\211@@)\240\210
A\211\204\324\f#$\203
\322\323$\"\204\373\324$P$\322\325$\"\204	
$\326P$$\327\230\204
\330$!\210\237\331 .\207" [info m group marked killed newsrc nil (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 (#$ . 124018)])
(defalias 'gnus-newsrc-to-gnus-format #[nil "\306\307\n\204\f\310\311!pG\312V\307\211\211\211\211\211\211\211+,-./012eb\210\313\314\n\"\211.\307L\210\313\315\n\"\211,\307L\210m\204\344
`\316\307w\210`}\210eb\210edU?\205`\n3\3172!)+~\210+.=\204t+,=\203\216\320 \321\322\307\323#\203\204\320 \206\205`{P\324y\210\202\336
+\203\336
+\247\203\242\313\325+!\n\"+\326+!\204\256+\307L\210\307f\327=/\330+!0\307l\203\306\331 \210\202\312\332\307w\210\333\334!\203
\335\224\335\225}\210\3172!~\210\307f\336=\203
\312u\210\333\334!\204\364\f
B\202\f
\f\335\224\335\225}\210\3172!B
B~\210\202\f
\f
B\307f\337=?\202-
\307f\337=\2047
m\204,
\3070\340\341\342\320 \343 {#\210\307\2037
\344\307w\210\202\3120\203\336
\345\34604\"J8\3075\2116\203\271
6AA
\237\240\2106A@\2117:\203g
7@\202i
7)\21158X\203\211
/\204\211

\203\201
9\202\204
9T5\202\232
58V\203\232
/\203\232
:56A\2117@:\203\257
7@5\240\210\202\265
75\240\210)\202\326
0/\203\305
:\202\321

\203\317
8T\202\321
9
\237E66-B-*\312y\210\202B-\237-1\203RA\307\211;<=\211>\203Q\347>@8\203D\350>\211?@@)-\"\204D\350=\211?@@)-\"\211<\203<<->\211;>@;AB\241\210\202D>@-B->=>A\211>\204\377
,-\351 \210\306\230?\205b\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 point-at-bol re-search-forward "^[^ 	]" move -1 int-to-string boundp 58 symbol-name beginning-of-line "!: 	" looking-at "[0-9]+" 0 45 10 gnus-error 3.1 "Mangled line: %s" 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" point-at-eol 2 "[^ 	,\n]+" 0 33 "^" "\\($\\|\\.\\)" ignore match-string subscribe] 4])
(byte-code "\300\301\302\303!\203\f\303\202
\304\"\207" [defalias gnus-long-file-names fboundp msdos-long-file-names #[nil "\300\207" [t] 1]] 4)
#@20 Save .newsrc file.
(defalias 'gnus-save-newsrc-file #[(&optional force) "\204	\205r
\n\205r
\203\306\f!\210\212
\204<\203B\f\204B=\203;\307=!\203;\310r=q\210\311 )!\203B\312\313\314\"\202q
\315\316!\210<\203Q\317 \210\202l
>\203e\312\320\321\n#\210\322 \210\312\320\323\n#\210\324\325!q\210\326\327!\210?\n\330P@\331@!A\332 \210\333 \210\312\334\335\n#\210B\203\243CpDE\336 \210\315\337!\210\340 \210*\202:
C?\n\330P\331\n!\341\342FGHIE\343J\344=\203\314\345 \204\314\346\202\315\347HFT\211F#G\350G!\204\273\351\216\352K\353K\354\"L\354M\341N\355D\336 \210\315\337!\210M\354V\203
\356E\357L\354MO\341GN\360%\210)-\341I\361\362I!OP@Q\363 \210\364GI\361#\210\365IO\"\210.p\211R\211S\205R
S;\203N
\366\202O
\307S!)\203e
\367\366R!T\"T\370R!\210)\312\334\371\n#\210\372 \210\373 )\207" [gnus-newsrc-alist gnus-killed-list gnus-current-startup-file gnus-agent force gnus-use-dribble-file gnus-agent-save-local 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 ".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 nil -1 format ms-dos gnus-long-file-names "%s#%d.tm#" "%s#tmp#%d" file-exists-p ((byte-code "\300\301\302\217\207" [nil (delete-file working-file) ((file-error))] 3)) 131072 make-string 0 #[(c) "	\nI\210	T\211U\205\306\307\f
\310%\210\311\312\211\207" [#1=#:output-buffer #2=#:output-buffer-length c #3=#:output-buffer-size working-file #4=#:output-buffer-append write-region nil no-msg 0 t] 6] no-conversion write-region no-msg t file-modes backup-buffer rename-file gnus-set-file-modes get-buffer delete kill-buffer "Saving %s.eld...done" gnus-dribble-delete-file gnus-group-set-mode-line gnus-slave gnus-dribble-buffer gnus-save-newsrc-file gnus-backup-startup-file buffer-file-name default-directory gnus-save-startup-file-via-temp-buffer gnus-ding-file-coding-system standard-output coding-system-for-write i working-file working-dir startup-file system-type #3# #1# #2# #4# setmodes file-precious-flag buffer-backed-up buf buffer gnus-buffers] 7 (#$ . 127180)])
#@66 Print Gnus variables such as `gnus-newsrc-alist' in Lisp format.
(defalias 'gnus-gnus-to-quick-newsrc-format #[(&optional minimal name &rest specific-variables) "\306\307\310\"!\210	\203\306\307\311	\"!\210\202\306\312!\210\n\204/\306\313!\210\306\314!\210\306\315!!\210\306\316!\210\317\211\320\317\320\211\320\317 \203U ;\203U\321 \202W!\206o \203h\"\202o\322\323\324\"!\"#$A$\320%#\205\257\325#\211A#@\211%!\203y%J\203y\306\326!\210\306\327%!!\210\306\330!\210\331%J!\210\306\316!\210\202y.\f\207" [gnus-ding-file-coding-system name minimal gnus-version print-quoted print-readably princ format ";; -*- mode:emacs-lisp; coding: %s; -*-\n" ";; %s\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 " gnus-prin1-to-string ")\n" t nil gnus-strip-killed-list delq gnus-killed-list copy-sequence boundp "\n(setq " symbol-name " '" prin1 print-escape-multibyte print-escape-nonascii print-length print-level print-circle print-escape-newlines gnus-save-killed-list specific-variables gnus-variable-list variables gnus-newsrc-alist variable] 5 (#$ . 129580)])
#@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 (#$ . 130834)])
(defalias 'gnus-gnus-to-newsrc-format #[(&optional foreign-ok) "r\306!q\210	Ap\307\211\211\211'()\310)!*\311 \210\312 \210\313 \210+\2030+c\210(\211A(@\211\203G\314
8\211\203\256\n\315\232\204\256\n,-\211.\204Z,\202_
.;\203]
.\211/\203s/<\203s/\206Y
\316/0\"A\206Y
/\315\232\203\211,\206=
\316/1\"A\206=
\316/2\"A\206=
344\203\305/\317\3204@@@4@@A@#\232\204\3054\211A4@\210\202\2414\2115@@*\206=
677\203\372/\317\3207\2115@@)7@A@#\232\204\3727\211A7@\210\202\3247@)\206=
	A\307\211899\203:
\3149\211A9@8\211;\204\n
/\n\307\321:;\322\323\215+\232\203\n
\n8\307\2119\204
8+\211<\203V
\316/0\"\204V
/<B0B0<))\202_
.-\204i
,\202n-;\203l-\211/\203\202
/<\203\202
/\206h\316/0\"A\206h/\315\232\203\230
,\206L\316/1\"A\206L\316/2\"A\206L344\203\324
/\317\3204@@@4@@A@#\232\204\324
4\211A4@\210\202\260
4\2115@@*\206L677\203	/\317\3207\2115@@)7@A@#\232\204	7\211A7@\210\202\343
7@)\206L	A\307\211899\203I\3149\211A9@8\211;\204/\n\307\321:;\322\324\215+\232\203\n8\307\2119\2048+\211<\203e\316/0\"\204e/<B0B0<))\202n--\211.-=\211>=\232\206\244>G=GU\205\244>\203\241>@=\235\203\241>A\211>\204\217>?.\204\256?\2030
@
A@\211@:\203\300@@\202\302@)AV\203\315\325\202\316\326\261\210\327
8\211\203A\330c\210\fA<\204\f@\fAU\203\362\331\f@!\210\202A\331\f@!\210\332c\210\331\fA!\210\202A\f\211A@\211\203A:\203@AU\203*\331:\204#\206%@!\210\2027\331@!\210\332c\210\331A!\210\f\203\333c\210\202\334c\210\2020\335\336!\210\337B\203[\340C!\210\202^\341 \210\342\343!\210\344D\345 \210)\346p!.\207" [gnus-current-startup-file gnus-newsrc-alist method range ranges info create-file-buffer nil file-name-directory buffer-disable-undo erase-buffer mm-disable-multibyte 4 "native" assoc format "%s:%s" t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4=(nil "") format #5="%s" #6="%s:%s" assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# assoc x name name-method no-enter-cache] 5) "!" ":" 2 " " princ "-" "," "\n" make-local-variable version-control never delete-file clear-visited-file-modtime gnus-run-hooks gnus-save-standard-newsrc-hook raw-text save-buffer kill-buffer standard-output newsrc buffer-file-name default-directory gnus-newsrc-options gnus-select-method m2 m1 server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers match alist no-enter-cache nocache result s2 s1 foreign-ok rank gnus-level-subscribed gnus-modtime-botch gnus-startup-file coding-system-for-write] 7 nil (list (gnus-y-or-n-p "write foreign groups too? "))])
(defvar gnus-slave-mode nil)
#@30 Minor mode for slave Gnusae.
(defalias 'gnus-slave-mode #[nil "\300\301\302\303 #\210\304\305!\207" [add-minor-mode gnus-slave-mode " Slave" make-sparse-keymap gnus-run-hooks gnus-slave-mode-hook] 4 (#$ . 135053)])
(defalias 'gnus-slave-save-newsrc #[nil "rq\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 mm-make-temp-file "-slave-" nil (byte-code "\301\302P!\207" [gnus-current-startup-file file-modes ".eld"] 3) ((error)) gnus-write-buffer gnus-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\"\210r\317\320!q\210\321\322\323\n\"\324\"\211\203Q\325 \210\n@A@\326	!\210\313\327\330\217\203J\204J\313\331\332\217\210\nA\211\204.)\333 \210\314\315\334\"*\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)) (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\366\211\203<\203\206\364\307\f\"A\206\364\310\232\203.	\206\335\307
\"A\206\335\3075\"A\206\335677\203f\311\3127@@@7@@A@#\232\204f7\211A7@\210\202C7\2118@@*\206\3359::\203\232\311\312:\2118@@):@A@#\232\204\232:\211A:@\210\202u:@)\206\335;A\306\211<==\203\332\313=\211A=@8\211;\204\253\306\314>?\315\316\215+\232\203\253<\306\211=\204\260<+\211@\203\361\307\f\"\204\361@B\fB@))A\204
\317BG!A\320\321\322\"A\"\323L\210\324\325\326@#\210\327\330\314#\204 
\314\202\326\331!\204/
\324\332\333\"\210\306\202\326\334!\204>
\324\332\335\"\210\306\202\326\212\214Cq\210eb\210\336\337\306\314#\204T
db\203[
\340 \210e`}\210\203v\306;\203S\211\203w
<\203w
\206O\307\f\"A\206O\310\232\203\211
	\2068\307
\"A\2068\3075\"A\2068677\203\301
\311\3127@@@7@@A@#\232\204\301
7\211A7@\210\202\236
7\2118@@*\20689::\203\365
\311\312:\2118@@):@A@#\232\204\365
:\211A:@\210\202\320
:@)\2068;A\306\211<==\2035\313=\211A=@8\211;\204\306\314>?\315\341\215+\232\203<\306\211=\204<+\211@\203L\307\f\"\204L@B\fB@))\202\301	\232\203]	\202\301@;\203n\n\203n\342\n\"\202\301\203\206\n\204\206\2118A@)\322\232\203\206\202\301\343@!D\344\307DE\">\203\277\320D\345P!\236\204\277\346@E\236>\203\277\347\320D\345P!A@DC\"\202\300**\306	;\203\266\211\203\332<\203\332\206\262\307\f\"A\206\262\310\232\203\354	\206\233\307
\"A\206\233\3075\"A\206\233677\203$\311\3127@@@7@@A@#\232\204$7\211A7@\210\202
7\2118@@*\206\2339::\203X\311\312:\2118@@):@A@#\232\204X:\211A:@\210\2023:@)\206\233;A\306\211<==\203\230\313=\211A=@8\211;\204i\306\314>?\315\350\215+\232\203i<\306\211=\204n<+\211@\203\257\307\f\"\204\257@B\fB@))\202$	\232\203\300	\202$@;\203\321\n\203\321\342\n\"\202$\203\351\n\204\351\2118A@)\322\232\203\351\202$\343@!D\344\307DE\">\203\"\320D\345P!\236\204\"\346@E\236>\203\"\347\320D\345P!A@DC\"\202#**F\211G\2041	\202%G;\203#G\211\203G<\203G\206\307\f\"A\206\310\232\203Y	\206\307
\"A\206\3075\"A\206677\203\221\311\3127@@@7@@A@#\232\204\2217\211A7@\210\202n7\2118@@*\2069::\203\305\311\312:\2118@@):@A@#\232\204\305:\211A:@\210\202\240:@)\206;A\306\211<==\203\313=\211A=@8\211;\204\326\306\314>?\315\351\215+\232\203\326<\306\211=\204\333<+\211@\203\307\f\"\204@B\fB@))\202%GF\204.	\202\"F;\203 F\211\203D<\203D\206\307\f\"A\206\310\232\203V	\206\307
\"A\206\3075\"A\206677\203\216\311\3127@@@7@@A@#\232\204\2167\211A7@\210\202k7\2118@@*\2069::\203\302\311\312:\2118@@):@A@#\232\204\302:\211A:@\210\202\235:@)\206;A\306\211<==\203\313=\211A=@8\211;\204\323\306\314>?\315\352\215+\232\203\323<\306\211=\204\330<+\211@\203\307\f\"\204@B\fB@))\202\"FF\211GFH\211IH\232\206XIGHGU\205XI\203UI@H\235\203UIA\211I\204CI?.\204v\321\322\"Jeb\210m\204uJc\210\353\332y!\204f)eb\210m\204\317\306\354\355\217\356\306w\210\n9\203\311`\306\210`{K\343\n!L\357L\"\206\251\360L!\206\251MNK\203\303N\203\303\361\362!\203\303\363KN\"K\nKL\210+\332y\210\202y*\324\325\364\"\210\314*\207" [method gnus-select-method group server gnus-server-method-cache gnus-server-alist nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1="") format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-make-hashtable intern gnus-group-prefixed-name #1# "Has read" gnus-message 5 "Reading descriptions file via %s..." gnus-get-function request-list-newsgroups gnus-check-server 1 "Couldn't open server" gnus-request-list-newsgroups "Couldn't read newsgroups descriptions" search-forward "\n.\n" beginning-of-line (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) gnus-server-extend-method symbol-name address "-address" physical-address append (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) zerop (byte-code "\303\n!)\207" [gnus-description-hashtb obarray nntp-server-buffer read] 2) ((error 0)) " 	" gnus-group-name-charset gnus-parameter-charset featurep mule mm-decode-coding-string "Reading descriptions file...done" gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result gnus-description-hashtb gnus-active-hashtb nntp-server-buffer method-name gnus-valid-select-methods m2 m1 s2 s1 prefix str name gnus-default-charset charset] 7])
#@66 Get the description of a group by sending XGTITLE to the server.
(defalias 'gnus-group-get-description #[(group) "\302!\205r	q\210eb\210\303\304!\205\305\306!)\207" [group nntp-server-buffer gnus-request-group-description looking-at "[^ 	]+[ 	]+\\(.*\\)" match-string 1] 2 (#$ . 144609)])
#@58 Declare back end NAME with ABILITIES as a Gnus back end.
(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 (#$ . 144909)])
#@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 (#$ . 145168)])
(defalias 'gnus-display-time-event-handler #[nil "\300\301!\205\302\303!\205\301 \207" [fboundp display-time-event-handler gnus-boundp display-time-timer] 2])
(defalias 'gnus-check-reasonable-setup #[nil "\306\307!\203\n\307\202\310\311\211\211\211
\311\211\205b
@\211\211\2035<\2035\206
\312\"A\206
\313\232\203K\206\374\312
\"A\206\374\312\"A\206\374\203\206\314\315@@@@@A@#\232\204\206\211A@\210\202b\211 @@*\206\374!\"\"\203\273\314\315\"\211 @@)\"@A@#\232\204\273\"\211A\"@\210\202\225\"@)\206\374#A\311\211$$\203\372\316$\211A$@8\211;\204\313\311\317%&\320\321\215+\232\203\313\311\211$\204\320+\211'\203
\312\"\204
'BB'))\322\314\323@\"!@\324\235\203X
\325!\203X
\326\n!\203X
\312\nJ	\"\211\203Q
\f\327\314\330@\211 A@)@$\"\210\nJD	BA\211\204\311.\207" [match actives active method display-warn gnus-server-alist fboundp display-warning #[(type message) "\203\n\302\304	\n#\207\305r\306\307!q\210db\210n\204\310c\210\311\312	\n#c\210\313p!\314\315\316!Zy\210`db\210\"*\207" [noninteractive type message window "Warning (%s): %s" nil get-buffer-create "*Warnings*" "\n" format "Warning (%s): %s\n" display-buffer set-window-start 1 window-height] 5] nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) intern "%s-active-file" (nnml nnfolder) gnus-server-opened boundp gnus-server "%s and %s share the same active file %s" server --dolist-tail-- gnus-server-method-cache gnus-select-method gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist alist no-enter-cache nocache result] 8])
(provide 'gnus-start)