%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\307!\210\310\311\312\"\210\310\313\314\"\210\310\315\314\"\210\310\316\314\"\210\317\320\321\322\323DD\324\325\326\327\330&\210\317\331\321\322\332DD\333\334\335\325\326\327\336& \210\317\337\321\322\340DD\341\334\335\325\326\327\342& \210\317\343\321\322\344DD\345\325\326\327\330&\210\317\346\321\322\347DD\350\325\326\327\351&\210\317\352\321\322\353DD\354\325\355\327\356&\210\317\357\321\322\360DD\361\325\355\327\362&\210\317\363\321\322\364DD\365\325\326\327\366&\210\317\367\321\322\370DD\371\325\372\327\356&\210\317\373\321\322\374DD\375\325\372\327\376&\207" [require gnus gnus-win gnus-int gnus-spec gnus-range gnus-util gnus-cloud 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 funcall function #[0 "\301\302\"\207" [gnus-home-directory nnheader-concat ".newsrc"] 3] "Your `.newsrc' file.\n`.newsrc-SERVER' will be used instead if that exists." :group gnus-start :type file gnus-backup-startup-file #[0 "\300\207" [never] 1] "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 #[0 "\300\207" [t] 1] "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 #[0 "\301\302\"\207" [gnus-home-directory nnheader-concat ".gnus"] 3] "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 #[0 "\3011
\302\303!!\304P0\207\210\305\207" [installation-directory (error) file-name-directory directory-file-name "site-lisp/gnus-init" nil] 3] "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 #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [ask-server] 1] "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. Option `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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [some] 1] "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 (#$ . 5838))
#@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 (#$ . 5963))
#@43 Groups with this level are zombie groups.
(defconst gnus-level-zombie 8 (#$ . 6416))
#@36 Groups with this level are killed.
(defconst gnus-level-killed 9 (#$ . 6507))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\323&\210\300\324\302\303\325DD\326\327\330\306\331\310\332& \210\300\333\302\303\334DD\335\306\331\310\332&\210\300\336\302\303\337DD\340\306\331\310\341&\210\300\342\302\303\343DD\344\306\345\310\346&\210\300\347\302\303\350DD\351\306\345\310\352&\210\353\354\355\356#\210\357\211\203\261 \211@\354N\203\252 \355N\204\252 \360\355\354N#\210A\266\202\202\220 \210\361\354\355\362#\210\300\355\302\303\363DD\364\327\365\306\345\310\366& \210\300\367\302\303\370DD\371\306\345\310\372&\210\300\373\302\303\374DD\375\306\345\310\332&\210\300\376\302\303\377DD\201@ \327\201A \306\345\310\201B & \210\300\201C \302\303\201D DD\201E \306\345\310\346&\210\300\201F \302\303\201G DD\201H \306\345\310\201I &\210\300\201J \302\303\201K DD\201L \306\345\310\201M &\210\300\201N \302\303\201O DD\201P \306\331\310\332&\210\300\201Q \302\303\201R DD\201S \306\201T \310\366&\210\300\201U \302\303\201V DD\201W \306\201X \310\366&\210\300\201Y \302\303\201Z DD\201[ \306\201X \310\366&\210\300\201\\ \302\303\201] DD\201^ \327\201_ \306\201X \310\366& \210\300\201` \302\303\201a DD\201b \306\201X \310\366&\210\300\201c \302\303\201d DD\201e \306\201X \310\366&\210\300\201f \302\303\201g DD\201h \327\365\306\345\310\366& \210\300\201i \302\303\201j DD\201k \306\345\310\366&\210\300\201l \302\303\201m DD\201n \327\201A \306\345\310\366& \210\300\201o \302\303\201p DD\201q \306\331\310\366&\210\300\201r \302\303\201s DD\201t \306\331\310\366&\210\300\201u \302\303\201v DD\201w \306\331\310\366&\210\300\201x \302\303\201y DD\201z \306\331\310\366&\210\300\201{ \302\303\201| DD\201} \306\201~ \201 \201\200 \310\366& \210\300\201\201 \302\303\201\202 DD\201\203 \306\331\310\332&\207" [custom-declare-variable gnus-level-default-subscribed funcall function #[0 "\300\207" [3] 1] "New subscribed groups will be subscribed at this level." :group gnus-group-levels :type integer gnus-level-default-unsubscribed #[0 "\300\207" [6] 1] "New unsubscribed groups will be unsubscribed at this level." gnus-activate-level #[0 "T\207" [gnus-level-subscribed] 1] "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 #[0 "\300\207" [4] 1] "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 #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [t] 1] "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 #[0 "\300\301\302\303#\207" [mapconcat identity ("^to\\." "^[0-9. ]+\\( \\|$\\)" "^[\"][\"#'()]") "\\|"] 4] "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 #[0 "\300\207" [gnus-subscribe-zombies] 1] "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" #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [gnus-subscribe-alphabetically] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [(mail post-mail)] 1] "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 #[0 "\300\207" [#1="^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir\\|^nnimap"] 1 #1#] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "A hook run after removing bogus groups." gnus-start-server gnus-startup-hook #[0 "\300\207" [nil] 1] "A hook called at startup.\nThis hook is called after Gnus is connected to the NNTP server." gnus-start gnus-before-startup-hook #[0 "\300\207" [nil] 1] "A hook called before startup.\nThis hook is called as the first thing when Gnus is started.\nSee also `gnus-before-resume-hook'." gnus-before-resume-hook #[0 "\300\207" [nil] 1] "A hook called before resuming Gnus after suspend.\nThis hook is called as the first thing when Gnus is resumed after a suspend.\nSee also `gnus-before-startup-hook'." "24.4" gnus-started-hook #[0 "\300\207" [nil] 1] "A hook called as the last thing after startup." gnus-setup-news-hook #[0 "\300\207" [nil] 1] "A hook after reading the .newsrc file, but before generating the buffer." gnus-get-top-new-news-hook #[0 "\300\207" [nil] 1] "A hook run just before Gnus checks for new news globally." gnus-get-new-news-hook #[0 "\300\207" [nil] 1] "A hook run just before Gnus checks for new news." gnus-after-getting-new-news-hook #[0 "\300\207" [(gnus-display-time-event-handler)] 1] "A hook run after Gnus checks for new news when Gnus is already running." gnus-read-newsrc-el-hook #[0 "\300\207" [nil] 1] "A hook called after reading the newsrc.eld? file." gnus-save-newsrc-hook #[0 "\300\207" [nil] 1] "A hook called before saving any of the newsrc files." gnus-save-quick-newsrc-hook #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "A hook called just before saving the standard newsrc file.\nCan be used to turn version control on or off." gnus-group-mode-hook #[0 "\300\207" [nil] 1] "Hook for Gnus group mode." gnus-group-various :options (gnus-topic-mode) gnus-always-read-dribble-file #[0 "\300\207" [nil] 1] "Unconditionally read the dribble file."] 10)
#@30 Coding system for ding file.
(defvar gnus-ding-file-coding-system mm-universal-coding-system (#$ . 17892))
(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 (#$ . 18120))
#@79 List of regexps representing groups to be subscribed/ignored unconditionally.
(defvar gnus-newsrc-options-n nil (#$ . 18206))
#@49 Date Gnus last asked server for new newsgroups.
(defvar gnus-newsrc-last-checked-date nil (#$ . 18338))
#@36 Startup file for the current host.
(defvar gnus-current-startup-file nil (#$ . 18448))
(defvar gnus-init-inhibit nil)
#@31
(fn &optional INHIBIT-NEXT)
(defalias 'gnus-read-init-file #[256 "\205R \203\f \306\211\207\211\n D\211\205P \211@\211\203I \307!\203I \f\204)
\2032 \310\306\311#\210\202I \3121? \310\306\311#0\202H \313\314A@#\262\210A\266\202\202 \262\207" [init-file-user gnus-init-inhibit gnus-site-init-file gnus-init-file debug-on-error debug-on-quit nil locate-library load t (error) error "Error in %s: %s"] 8 (#$ . 18572)])
#@15
(fn GROUPS)
(defalias 'gnus-subscribe-hierarchical-interactive #[257 "\302\303\"\304\211\211\211\211\211\205\354\305C\262\203\n \203\n \306@@\306\307\"\2032 \310\311\225\"\2023 \211\262\"\204@ A\262\202 @\262GS\262\306\312@\306\307\"\203] \310\311\225\"\202^ \211\262#\203A\203\305\310@\306\307\"\203\200 \310\311\225\"\202\201 \211\262\311\211\225#P\211\262\203\306A@\306\307\"\203\243 \310\311\225\"\202\244 \211\262\"\203B\262\313\314\310\315 GS#\"\210\316 \211\262\317>\204\332 \320 \210\313\314\310\315 GS#\"\210\202\275 \321U\203\211\203\211@\306\306\307\"\203\373 \310\311\225\"\202\374 \211\262\"\203\f\211B\322\323 #\210A\266\202\202\342 \210\211A\262\202 \324U\203\\\211\203T\211@\306\306\307\"\203<\310\311\225\"\202=\211\262\"\203M\322\323 #\210\325!\210A\266\202\202#\210\211A\262\202 \326U\203 \211\203{\211@\211B\322\323 #\210A\266\202\202d\210\202 \313\327@\"\210\316 \211\262\330>\204\235\320 \210\313\327@\"\210\202\206@\262\331U\203\267\325@!\210\322\323 #\210\202\344\326U\203\332\211\203\326\211@\211B\322\323 #\210A\266\202\202\277\210\202\344B\322\323 #\210A\262\202 \207" [gnus-killed-list gnus-killed-hashtb sort string< nil "^" string-match "^[^:]+:" substring 0 "[^\\.]\\." message "Descend hierarchy %s? ([y]nsq): " 1 read-char-exclusive (121 10 13 110 115 113) ding 110 puthash t 115 gnus-subscribe-alphabetically 113 "Subscribe %s? ([n]yq)" (121 10 13 113 110) 121] 16 (#$ . 19010)])
#@75 Subscribe new NEWSGROUP by making it the first newsgroup.
(fn NEWSGROUP)
(defalias 'gnus-subscribe-randomly #[257 "\300!\207" [gnus-subscribe-newsgroup] 3 (#$ . 20580)])
#@76 Subscribe new NEWGROUP and insert it in alphabetical order.
(fn NEWGROUP)
(defalias 'gnus-subscribe-alphabetically #[257 "\301\302\303\304\305\306!\307\"\310\311%A\"\312\"\207" [gnus-group-list seq-find make-byte-code 257 "\300\231\207" vconcat vector [] 3 "\n\n(fn GROUP)" gnus-subscribe-newsgroup] 8 (#$ . 20758)])
#@86 Subscribe new NEWGROUP and insert it in hierarchical newsgroup order.
(fn NEWGROUP)
(defalias 'gnus-subscribe-hierarchically #[257 "r\301!q\210\211\302\211\204@ \203@ eb\210\303\304!\305Q\306\302\307#\203, \310\311!\262\231\204 \210\312\313\"\205; \314\311\224\311\225#\262\202 \315\"\266\202\316p!\210)\207" [gnus-current-startup-file nnheader-find-file-noselect nil "^\\(" regexp-quote ".*\\)[!:]" re-search-forward t match-string 1 string-match "^\\(.*\\)\\.[^.]+$" substring gnus-subscribe-newsgroup kill-buffer] 8 (#$ . 21088)])
#@137 Subscribe the new GROUP interactively.
It is inserted in hierarchical newsgroup order if subscribed. If not,
it is killed.
(fn GROUP)
(defalias 'gnus-subscribe-interactively #[257 "\300\301\302\"!\203
\303!\207\304!\207" [gnus-y-or-n-p format "Subscribe new newsgroup %s? " gnus-subscribe-hierarchically gnus-subscribe-killed] 5 (#$ . 21644)])
#@53 Make the new GROUP into a zombie group.
(fn GROUP)
(defalias 'gnus-subscribe-zombies #[257 "\211\235\203\n \202
\211B\211\207" [gnus-zombie-list] 3 (#$ . 22000)])
#@48 Make the new GROUP a killed group.
(fn GROUP)
(defalias 'gnus-subscribe-killed #[257 "\211\235\203\n \202
\211B\211\207" [gnus-killed-list] 3 (#$ . 22175)])
#@148 Subscribe new NEWSGROUP.
If NEXT is non-nil, it is inserted before NEXT. Otherwise it is made
the first newsgroup.
(fn NEWSGROUP &optional NEXT)
(defalias 'gnus-subscribe-newsgroup #[513 "\212eb\210\302 \206
\303$\210\304\305\"\210\306\307\310#\210\311\312\"\210)\313\207" [gnus-level-default-subscribed gnus-level-killed gnus-group-change-level "dummy.group" gnus-request-update-group-status subscribe gnus-message 5 "Subscribe newsgroup: %s" run-hook-with-args gnus-subscribe-newsgroup-functions t] 7 (#$ . 22345)])
#@70 Say whether the active file has been read from `gnus-select-method'.
(defalias 'gnus-read-active-file-p #[0 " >\207" [gnus-select-method gnus-have-read-active-file] 2 (#$ . 22878)])
#@20 Close all servers.
(defalias 'gnus-close-all-servers #[0 "\211\205 \211@\301@!\210A\266\202\202 \207" [gnus-opened-servers gnus-close-server] 4 (#$ . 23067) nil])
#@34 Clear all variables and buffers.
(defalias 'gnus-clear-system #[0 "\306\307\"\211\203 \211@\310L\210\211A\262\202 \210\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\21101\311\312!\2102\203\201 \3132!\203\201 \314\3132!!\210\315 \210\313\316\310!!\203\224 \314\313\316\310!!!\2103\211 4\211\205\253 \317\3204!\2114!\205\253 4)\203\266 \314!\210\321 \210\210\322\323!\210\324 \211\203\376 \211@r\211q\210\325\310!\210\326\327!\203\324 \310)\211\211 4\211\205\353 \317\3204!\2114!\205\353 4)\203\366 \314!\210\321 \210\210A\266\202\202\275 \210\330 \207" [gnus-variable-list gnus-list-of-killed-groups gnus-have-read-active-file gnus-agent-covered-methods gnus-agent-file-loading-local gnus-agent-file-loading-cache remove gnus-format-specs nil gnus-shutdown gnus get-file-buffer kill-buffer gnus-dribble-clear gnus-newsgroup-kill-file buffer-live-p get-buffer gnus-prune-buffers do-auto-save t gnus-buffers set-buffer-modified-p local-variable-p kill-buffer-hook gnus-kill-gnus-frames gnus-server-method-cache gnus-newsrc-alist gnus-group-list 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 buffer] 7 (#$ . 23241)])
#@395 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.
(fn &optional ARG SLAVE)
(defalias 'gnus-no-server-1 #[512 "\206 S\302\303#\210\304\301!\210\211\211\207" [gnus-level-default-subscribed gnus-group-use-permanent-levels gnus t make-local-variable] 7 (#$ . 24967)])
#@252 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.
(fn &optional ARG DONT-CONNECT SLAVE)
(defalias 'gnus-1 #[768 "\305 \203 \306\307!\210\310!\210\311\247\205 \312V\205 @]!\207\313 \210\314 \210\306\315!\210\316 \210\211\317 \210 \203< \320\321\322 B\"\210\f\203C \323 \210\247\205O \312V\205O \324C\325\312\326\327\330#\331\"\332$\216?\205r \211\333\205p ?!\240)\207" [gnus-group-buffer gnus-group-list-mode gnus-slave gnus-select-method gnus-agent gnus-alive-p gnus-run-hooks gnus-before-resume-hook switch-to-buffer gnus-group-get-new-news 0 gnus-clear-system gnus-splash gnus-before-startup-hook nnheader-init-server-buffer gnus-read-init-file add-to-list gnus-predefined-server-alist "native" gnus-agentize nil make-byte-code "\300\204\f \302\242\204\f \306 \207\307\310!\210\311 !
\204 \203 \312 \210\313\314\301\300#\210\307\315!\210\2034 \316\317\320\"\210\321 \210\322\301!\210\323 \210\324\325!\210\326 \210\307\327!\207" vconcat vector [gnus-startup-file gnus-current-startup-file gnus-slave 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 gnus-use-dribble-file gnus-agent] 4 gnus-start-news-server] 13 (#$ . 25563)])
#@35 Make sure the draft group exists.
(defalias 'gnus-start-draft-setup #[0 "\302\303\304\"\210\305\306\"\204 \307\310\306\311\312#\210)\305\306\"\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="") gethash "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 (#$ . 27171) 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 #[0 "\203 \302!\303 !P\202 \304P\207" [gnus-dribble-directory gnus-current-startup-file file-name-as-directory file-name-nondirectory "-dribble"] 3 (#$ . 27753)])
#@126 Enter STRING into the dribble buffer.
If REGEXP is given, lines that match it will be deleted.
(fn STRING &optional REGEXP)
(defalias 'gnus-dribble-enter #[513 "?\205R \303 !\205R p q\210\2036 eb\210\304\305\304\306#\2035 n\204& \307y\210`\262\310\224b\210\311 |\210\202 \210db\210\312\313\314#\313\261\210\315 !\210r\nq\210\316 \210)\211q\262\207" [gnus-dribble-ignore gnus-dribble-buffer gnus-group-buffer buffer-live-p nil re-search-forward t 1 0 point-at-bol replace-regexp-in-string "\n" "\\\\n" bury-buffer gnus-group-set-mode-line] 8 (#$ . 28011)])
#@27 Touch the dribble buffer.
(defalias 'gnus-dribble-touch #[0 "\300\301!\207" [gnus-dribble-enter ""] 2 (#$ . 28583)])
#@34 Read the dribble file from disk.
(defalias 'gnus-dribble-read-file #[0 "\306 \307\310!!\204 \311\310!\312\"\210r\313\314!!\211q\210\315\301!\210\312\211\316 \210\211\315\304!\210\312\317\312!\210\320 \210\321p!\210\322\323!\210\324 \312\323\211 \307!\204P \307!\205\253 \325\"\203_ \326!\210\202c \326!\210\327 \330U\204n \322\312!\210\331 \210\332!!\211\262\203\206 \307!\203\206 \333\"\210eb\210\334\335\323\312#\203\224 \312\262\"\204\247 \336\203\242 \337\202\243 \340!\205\253 \312\211#)\266\204)\207" [gnus-dribble-buffer file-precious-flag buffer-save-without-query buffer-file-name auto-save-include-big-deletions gnus-dribble-ignore 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 buffer-size 0 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? " gnus-current-startup-file gnus-always-read-dribble-file gnus-dribble-eval-file] 10 (#$ . 28706)])
(defalias 'gnus-dribble-eval-file #[0 "\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 #[0 "\301\302 !\203\f \303\302 !\210\205) rq\210\304 \301!\203 \303!\210\305 \210\306\307!\262)\207" [gnus-dribble-buffer file-exists-p gnus-dribble-file-name delete-file make-auto-save-file-name erase-buffer set-buffer-modified-p nil] 3])
(defalias 'gnus-dribble-save #[0 "\301!\205 rq\210\302 \303V\205 \304 )\207" [gnus-dribble-buffer buffer-live-p buffer-size 0 save-buffer] 2])
(defalias 'gnus-dribble-clear #[0 "\211\205 \303\304 !\211!\205 )\205% rq\210\305 \210\306\307!\210\310 \211)\207" [gnus-dribble-buffer buffer buffer-saved-size buffer-live-p get-buffer erase-buffer set-buffer-modified-p nil buffer-size] 4])
#@188 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.
(fn &optional RAWFILE LEVEL DONT-CONNECT)
(defalias 'gnus-setup-news #[768 "\306\307!\210\205 \205 ??\310C\211\203 \311\211\312!\210 ;\203j \211\2031 \211<\2031 \211\206e\313\f\"A\206e\211\314\232\203C
\206Q\313=\"A\206Q\313>\"A\206Q?\211\203t \315\316@@@@@A@#\232\204t \211A\266\202\202W \211@@\262\206Q@\211\203\231 \315\316@@@A@#\232\204\231 \211A\266\202\202~ \211@\262\206QA\311\211\203O\211A\262\242\3178\262\262;\204\244 \311\310C\3202@\211\242\206\313
\240\210\204\342 \321\322\323\324\325\326!\327\"\317\330%\f\"\210=>D\211\203\211@\321\322\323\331\325\326!\332\"\317\330%\"\210A\266\202\202\347 \210\211\242A@\333\235\203\315\334\242@\"\202\"\315\316\242@\242A@#\211\242B\211\f\235\204<\204<\313@\f\"\204<\211\fB\266\2020\266\204\232\203\244 \262\311\262\202\244 \266\202\211\203b\313\f\"\204bB\fB\211\262\262\206k \211\203\205\211;\204\205\335\313\315\334@\"A\">\204\205\336\262\211;\203\244\337\340\341B\"D\342\341B\343P\"D\344BBBB\262\313\336=\"\203\316C\203\332\211\203\300\313\336=\"\241\210\202\332\345\313\336=\"=\"=\202\332\211\203\332\336B=B=\210D\203\347D\346=\203\352\347 \210 \204\376\350 E\351\352E\206\371\353\354\355$)F\203\356 \210\211\203G\204H\203\357 \210\211\203#H\203#\360 \210\361 \210\362\363!\203O3;\203O\311 I\364\3653\")\203OJ\204O\204OD\203O\366 \210\211\203oK\203o\204o\367
!\203oH\204oL\203o\370 \210\211\203\212:\203\212D\203\212\204\212\371
!\203\212\372 \210\373 \210?\205\224D D\374\"*\207" [gnus-newsrc-alist gnus-active-hashtb nnmail-fetched-sources gnus-message-archive-method gnus-server-method-cache gnus-select-method require nnmail t nil gnus-read-newsrc-file assoc "native" format "%s:%s" 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" respool "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 4000 make-hash-table :size 300 :test equal 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 gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-valid-select-methods message-directory gnus-update-message-archive-method gnus-read-active-file size gnus-use-cache gnus-use-dribble-file gnus-slave case-fold-search gnus-description-hashtb gnus-check-new-newsgroups gnus-plugged] 23 (#$ . 30870)])
#@117 Call METHOD to subscribe GROUP.
If no function returns `non-nil', call `gnus-subscribe-zombies'.
(fn METHOD GROUP)
(defalias 'gnus-call-subscribe-functions #[514 "\300!\203\f !\2025 <\2034 \30125 \211\203. \211@\211!\203' \302\301\303\"\210A\266\202\202 \210\3040\2025 \304?\205< \305!\207" [functionp found throw t nil gnus-subscribe-zombies] 7 (#$ . 34035)])
#@386 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.
(fn &optional ARG)
(defalias 'gnus-find-new-newsgroups #[256 "\211\206 \306\307U\203 <\203 \n\203 \n\310=\203 \311\2020 \211\206$ \306\312U\203/ \313\314\2020 \211:\204; \211\311=\203@ \315 \202\236 \316C\317C\320\321\322\"\210 \204P \302 \210\323
\204Z \324 \210\325\326\327\330\331\332\"\333\"\334\335%#\"\210\211\242\203x \336\242!\210\242\316V\203\225 \320\321\337\242\242\306V\203\217 \340\202\220 \341$\210\202\232 \320\321\342\"\210\242\266\202)\207" [gnus-subscribe-newsgroup-method gnus-check-new-newsgroups gnus-read-active-file gnus-have-read-active-file gnus-newsrc-last-checked-date gnus-killed-hashtb 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 maphash make-byte-code 514 "\306\n\"\206 \306 \"?\205O \307!\211\310\267\202/ \300\211\242T\240\210\311\312\n#\210\313\f\"\202M \314\202M \300\211\242T\240\210\311\312\n#\210
\203H \301\301\242B\240\202M \313
\"\262\207" vconcat vector [gnus-killed-hashtb gnus-newsrc-hashtb gnus-subscribe-options-newsgroup-method gnus-subscribe-hierarchical-interactive gethash gnus-matches-options-n #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (subscribe 24 ignore 43)) puthash t gnus-call-subscribe-functions nil gnus-subscribe-newsgroup-method] 7 "\n\n(fn G-NAME ACTIVE)" gnus-subscribe-hierarchical-interactive "%d new newsgroup%s arrived." "s have" " has" "No new newsgroups." gnus-active-hashtb] 12 (#$ . 34413) "p"])
#@14
(fn GROUP)
(defalias 'gnus-matches-options-n #[257 "\203
\305\"\203
\306\207\307 \211\203& \211@\310\"\203 \311\262A\266\202\202 \210\211\262\203/ \306\207\n\203< \305\n\"\203< \306\207 \203I \305 \"\203I \312\207\f\211\203^ \305@@\"\204^ \211A\262\202J \211\205e \211@A\207" [gnus-options-subscribe gnus-auto-subscribed-categories gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-options-n string-match subscribe nil gnus-member-of-valid t ignore] 7 (#$ . 36365)])
(defalias 'gnus-ask-server-for-new-groups #[0 "\306 \206 \211 \307 \205 \310C\311\n:\205 \n \"\244B\312C\313\211C\313\211\211\211
\204+ \314 \210\313\211A\262 \242\211;\203\210\211\211\203F \211<\203F \211\206\203\315?\"A\206\203\211\316\232\203Y \206l\315@\"A\206l\315A\"A\206lB\211\203\212 \317\320@@@@@A@#\232\204\212 \211A\266\202\202m \211@@\262\206l \211\203\256 \317\320@@@A@#\232\204\256 \211A\266\202\202\223 \211@\262\206lCA\313\211\203j\211A\262\242\3218\262\262;\204\272 \313\322C\3232[\211\242\206\341 \240\210\204\371 \324\325\326\327\330\331!\332\"\321\333%?\"\210@AD\211\203 \211@\324\325\326\334\330\331!\335\"\321\333%\"\210A\266\202\202\376 \210\211\242A@\336\235\203/\317\337\242@\"\2029\317\320\242@\242A@#\211\242B\211?\235\204W\204W\315@?\"\204W\211?B?\266\2020\266\204\232\203\272 \262\313\262\202\272 \266\202\211\203\200\315?\"\204\200B?B?\211\262\266\203\202\362\211 \232\203\224 \266\202\202\362\211@;\203\247\203\247\340\"\266\202\202\362\211\203\274\204\274\211A@\341\232\203\274\262\202\362\211\342@!\343\315D\">\203\357\344\345P!\236\204\357\346@D\236>\203\357\311\344\345P!A@DC\"\202\360\266\204\211\262\203N\313\240\210\347!\203A\350\"\203A\212\322\262\351 E\352\353E\206\354\355\356$)\262Fq\210\357\360#\210)\361\325\362\363\330\331 #\364\"\365\366%\"\210\242\203+ \367\242!\210\202+ \242\312V\203m\370\371\372\242 \242\373V\203g\374\202h\375$\210\202r\370\371\376\"\210\203y\242)\207" [gnus-newsrc-last-checked-date gnus-select-method gnus-check-new-newsgroups gnus-secondary-select-methods gnus-override-subscribe-method gnus-killed-hashtb 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 mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address gnus-check-server gnus-request-newgroups 100 make-hash-table :size 300 :test equal gnus-active-to-gnus-format ignore maphash 514 "\211?\206 \306 \"\206 \f\235\206
\235?\205h \211\203$ \307\f#\210\310!\211\311\267\202F \300\211\242T\240\210\307\301
#\210\312\"\202f \313\202f \300\211\242T\240\210\307\301
#\210\203a \302\302\242B\240\202f \312\"\262\207" [gnus-newsrc-hashtb gnus-zombie-list gnus-killed-list gethash puthash gnus-matches-options-n #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (subscribe 45 ignore 66)) gnus-call-subscribe-functions nil gnus-active-hashtb gnus-killed-hashtb gnus-subscribe-options-newsgroup-method gnus-subscribe-hierarchical-interactive gnus-subscribe-newsgroup-method] 7 "\n\n(fn G-NAME VAL)" gnus-subscribe-hierarchical-interactive gnus-message 5 "%d new newsgroup%s arrived" 1 "s have" " has" "No new newsgroups" gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-newsrc-alist gnus-valid-select-methods size nntp-server-buffer] 29])
#@82 Subscribe GROUP and put it after PREVIOUS.
(fn GROUP &optional PREVIOUS METHOD)
(defalias 'gnus-subscribe-group #[769 "\302\203 \303\304\211\257\202 \303%\210\303\207" [gnus-level-default-subscribed gnus-level-killed gnus-group-change-level t nil] 10 (#$ . 40193)])
#@943 Change level of group ENTRY to LEVEL.
This is the fundamental function for changing subscription levels
of newsgroups. This might mean just changing from level 1 to 2,
which is pretty trivial, from 2 to 6 or back again, which
subscribes/unsubscribes a group, which is equally trivial.
Changing from 1-7 to 8-9 means that you kill a group, and from
8-9 to 1-7 means that you remove the group from the list of
killed (or zombie) groups and add them to the (kinda) subscribed
groups. And last but not least, moving from 8 to 9 and 9 to 8,
which is trivial. ENTRY can either be a string (newsgroup name)
or a list (if FROMKILLED is t, it's a list on the format (NUM
INFO-LIST), otherwise it's a list in the format of the
`gnus-newsrc-hashtb' entries. LEVEL is the new level of the
group, OLDLEVEL is the old level and PREVIOUS is the group (a
string name) to insert this group before.
(fn ENTRY LEVEL &optional OLDLEVEL PREVIOUS FROMKILLED)
(defalias 'gnus-group-change-level #[1282 "\306\211\211\211:\203 \203 A@\202 A@@\262\202# \262;\203< \203< W\203< \307 \"\262 \204` :\203` A@\211A@\211:\203X \211@\202Y \211\266\202\262\202h \206f \n\262\307 \"\204x \310\306#\266Y\205\203 \307 \"?\205\314\311!\204\242 \312\313\314 \f\235A@ &!\210Y\203\270 \315
\"\315\"\202\335 Y\203\335 \203\335 \316 A@@ \"\210\317\f\"\320\321 \" \" Y\203\316 \"\210\317\f\"U\203\374
B\202\275\nU\203 \316 \"\210\202\275B\202\275W\203'A@A\240\210\202\275<\203:A\262@\262\202f\307 \"\262\203MAT@Z\202N\322\262\323 \206Y\324!! \306\211\306\257\262\210 \211AB\241\266\310D #\210;\203\204\307 \"\262\325\fA@@\"\206\221\fG\211\211\326X\203\241\f\233B\202\255\211S\f\233\f\233B\241\210\266\312\313\327\"\330\331!\332Q\"\210 \205\314 $\207" [gnus-level-zombie gnus-newsrc-hashtb gnus-level-killed gnus-active-hashtb gnus-group-list gnus-zombie-list nil gethash puthash gnus-ephemeral-group-p gnus-dribble-enter format "(gnus-group-change-level %S %S %S %S %S)" delete remhash remove delq assoc t gnus-method-simplify gnus-group-method seq-position 0 "(gnus-group-set-info '%S)" "^(gnus-group-set-info '(\"" regexp-quote "\"" gnus-killed-list gnus-newsrc-alist gnus-override-subscribe-method gnus-group-change-level-function] 17 (#$ . 40479)])
#@130 Remove bogus newsgroups.
If CONFIRM is non-nil, the user has to confirm the deletion of every
newsgroup.
(fn &optional CONFIRM)
(defalias 'gnus-check-bogus-newsgroups #[256 "A\306\211\211C\306\307\310\311\"\210\312 \204 \313\314!\210\312 \205k\203\347\211A\262\242\262\211@\262\315 \"\204 \3168\203\337\3168\n\306\211;\203\206\211\211\203P \211<\203P \211\206\201\317 \"A\206\201\211\320\232\203b \f\206m\317
\"A\206m\3174\"A\206m5\211\203\222 \321\322@@@@@A@#\232\204\222 \211A\266\202\202u \211@@\262\206m\n\211\203\266 \321\322@@@A@#\232\204\266 \211A\266\202\202\233 \211@\262\206mA\306\211\203k\211A\262\242\3168\262\262;\204\301 \306\314C\3232\\\211\242\206\350 \f\240\210\204\377 \324\325\326\327\330\331!\332\"\316\333% \"\210
4D\211\203!\211@\324\325\326\334\330\331!\335\"\316\333%\"\210A\266\202\202\210\211\242A@\336\235\2034\321\337\242@\"\202>\321\322\242@\242A@#\211\242B\211 \235\204X\204X\317@ \"\204X\211 B\266\2020\266\204\232\203\301 \262\306\262\202\301 \266\202\211\203~\317 \"\204~B B\211\262\266\203\202\360\211\f\232\203\222\f\266\202\202\360\211@;\203\245\203\245\340\"\266\202\202\360\211\203\272\204\272\211A@\341\232\203\272\262\202\360\211\342@!\343\3176\">\203\355\344\345P!\236\204\355\346@6\236>\203\355\347\344\345P!A@DC\"\202\356\266\204\203\331\306@\211;\203@\211\211\203\n\211<\203\n\211\206;\317 \"A\206;\211\320\232\203 \f\206'\317
\"A\206'\3174\"A\206'5\211\203L\321\322@@@@@A@#\232\204L\211A\266\202\202/\211@@\262\206'\n\211\203p\321\322@@@A@#\232\204p\211A\266\202\202U\211@\262\206'A\306\211\203%\211A\262\242\3168\262\262;\204{\306\314C\3232\211\242\206\242\f\240\210\204\271\324\325\326\327\330\331!\332\"\316\333% \"\210
4D\211\203\333\211@\324\325\326\334\330\331!\335\"\316\333%\"\210A\266\202\202\275\210\211\242A@\336\235\203\356\321\337\242@\"\202\370\321\322\242@\242A@#\211\242B\211 \235\204\204\317@ \"\204\211 B\266\2020\266\204\232\203{\262\306\262\202{\266\202\211\2038\317 \"\2048B B\211\262\266\203\202\252\211\f\232\203L\f\266\202\202\252\211@;\203_\203_\340\"\266\202\202\252\211\203t\204t\211A@\341\232\203t\262\202\252\211\342@!\343\3176\">\203\247\344\345P!\236\204\247\346@6\236>\203\247\347\344\345P!A@DC\"\202\250\266\204\232\206\315GGU\205\315\203\313@\235\203\313A\262\202\271?\266\202\204\331A\262\202\360\266\203\203 B\262\202 \203\350\321\351G\"\325\326\352\330\331!\353\"\310\354%\355$\210\202.\211A\262\242\211\262\203.\3157\"\240\203\356\2428\"\210\3579\"9\202\360\306\203a@J\262\211\203Z\315\211A\262\242\211\262 \"\2049@\357@J\"L\210\2029A\262\2020\266\361\362!\210\307\310\363\"\207" [gnus-newsrc-alist gnus-active-hashtb gnus-secondary-select-methods gnus-server-method-cache gnus-select-method gnus-server-alist nil gnus-message 5 "Checking bogus newsgroups..." gnus-read-active-file-p gnus-read-active-file t gethash 4 assoc "native" format "%s:%s" server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append map-y-or-n-p "Remove bogus group %%s (of %d groups)? " "\300\304 \"\240\205 \305\300\242\n\"\210\306 \"\211\207" [gnus-newsrc-hashtb gnus-level-killed gnus-killed-list gethash gnus-group-change-level delete] "\n\n(fn GROUP)" ("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-predefined-server-alist gnus-opened-servers gnus-valid-select-methods gnus-newsrc-hashtb gnus-level-killed gnus-killed-list] 29 (#$ . 42874)])
#@51 Remove duplicates from the list of killed groups.
(defalias 'gnus-check-duplicate-killed-groups #[0 "\211\205 \301\302\303G#\210\211\304@A\"\241\210\211A\262\202 \207" [gnus-killed-list gnus-message 9 "%d" delete] 5 (#$ . 46944) nil])
#@411 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 whether the group
actually exists. If DONT-SUB-CHECK or DONT-CHECK, don't let the
backend check whether the group actually exists.
(fn GROUP &optional SCAN DONT-CHECK METHOD DONT-SUB-CHECK)
(defalias 'gnus-activate-group #[1281 "\206\242\306\206\240\204 \206\240\307\n\"\204\206\310\311\"\2033 \312\313\314\315\"\314\316\"\206/ \317#\202; \312\313 @ A@#\262\211\203J \211<\203J \211\206{\320 \"A\206{\211\321\232\203\\ \206g\320\f\"A\206g\320
\"A\206g@\211\203\213 \312\313@@@@@A@#\232\204\213 \211A\266\202\202n \211@@\262\206gA\211\203\260 \312\313@@@A@#\232\204\260 \211A\266\202\202\225 \211@\262\206gBA\306\211\203e\211A\262\242\3228\262\262;\204\274 \306\323C\3242V\211\242\206\343 \240\210\204\372 \325\326\327\330\331\332!\333\"\322\334% \"\210\f
D\211\203\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\375 \210\211\242A@\337\235\203.\312\340\242@\"\2028\312\313\242@\242A@#\211\242B\211 \235\204R\204R\320@ \"\204R\211 B\266\2020\266\204\232\203\274 \262\306\262\202\274 \266\202\211\203x\320 \"\204xB B\211\262\262\206\240\341!\206\240\211\206\223\307\n\"A@\262\306\203\247\3228\211\262\203\247\211\321\232\203\253 \202\236\211;\203\364\211\211\203\276\211<\203\276\211\206\357\320 \"A\206\357\211\321\232\203\320 \206\333\320\f\"A\206\333\320
\"A\206\333@\211\203\377\312\313@@@@@A@#\232\204\377\211A\266\202\202\342\211@@\262\206\333A\211\203$\312\313@@@A@#\232\204$\211A\266\202\202 \211@\262\206\333BA\306\211\203\331\211A\262\242\3228\262\262;\2040\306\323C\3242\312\211\242\206W \240\210\204n\325\326\327\330\331\332!\333\"\322\334% \"\210\f
D\211\203\217\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202q\210\211\242A@\337\235\203\242\312\340\242@\"\202\254\312\313\242@\242A@#\211\242B\211 \235\204\306\204\306\320@ \"\204\306\211 B\266\2020\266\204\232\2030\262\306\262\2020\266\202\211\203\354\320 \"\204\354B B\211\262\262\202M\211A@;\203L\211\342\343@!\344P!\211AA\236\204\345A@DC\"\262\210C\306\211\211\204\277\211A\262\242\211\262\203\277@@=\203 \346AA!\346AA!\306\211\3472\264\211A\262\242\211\262\203\261@\236\211\262\204a\350\347\306\"\210\351\"\262\232\204FA@;\203{\211A@;\204\203\350\347\306\"\210\202FA@A@\310\352\"\203\225\353!\262\310\352\"\203\241\353!\262\232\204\254\350\347\306\"\210\266\202F?0\266\206\203 \262\202 \266\203\206M\211@\306\203\372\203\372\211A\262\242@\262@@\232\203\312A@A@\232\203\312\354\"\204\312\306\262\202\312?\266\203\203\211AA\204\f\262\202M\342\312\355@\"!\211AA\236\203+@A@\356QAABB\202>@A@\356QA@DAABBB\262CBC\266\203\202M\211\262\211A@\317\232\203[\211\202\236\211A@\204h\211@\317D\202\236\211\343@!\357\320D\">\203\233\342\344P!\236\204\233\360@D\236>\203\233\345\342\344P!A@DC\"\202\234\266\202\266\202\266\202\306\306 E\211 F\206\256 \306 G\211 F;\203\374F\211\203\307\211<\203\307\211\206\370\320 \"A\206\370\211\321\232\203\331 \206\344\320\f\"A\206\344\320
\"A\206\344@\211\203\312\313@@@@@A@#\232\204\211A\266\202\202\353\211@@\262\206\344A\211\203-\312\313@@@A@#\232\204-\211A\266\202\202\211@\262\206\344BA\306\211\203\342\211A\262\242\3228\262\262;\2049\306\323C\3242\323\211\242\206` \240\210\204w\325\326\327\330\331\332!\361\"\322\334% \"\210\f
D\211\203\230\211@\325\326\327\335\331\332!\362\"\322\334%\"\210A\266\202\202z\210\211\242A@\363\235\203\253\312\340\242@\"\202\265\312\313\242@\242A@#\211\242B\211 \235\204\317\204\317\320@ \"\204\317\211 B\266\2020\266\204\232\2039\262\306\262\2029\266\202\211\203\365\320 \"\204\365B B\211\262\262F\364F!\203\323\202pE\204(\365\366\367F@FA@\317\232\203 \317\202&\312\370FA@\"$\210\371\372!\210\373F!\211GE\204p\365G\203B\366\202C\374\375F@FA@\317\232\203T\317\202[\312\370FA@\"G\203d\376\202n\312\377\201Y F@!\"%\210,\205 \203\305\201Z @\201[ 1\266\211;\203\221\201\\ !@\202\222\211\201] !\204\240\201^ !\210\201_ \342\312\201` #!!\2620\266\202\202\272\210\306\266\202\203\305\201a \"\210H\204\317I\203!\206\326 \307\n\"A@\262 J K L MK\206\231 M\306\206\227 \204\375 \206\227 \307\n\"\204w\310\311\"\203 \312\313\314\315\"\314\316\"\206\317#\202&\312\313 @ A@#\262\211\2035\211<\2035\211\206l\320 \"A\206l\211\321\232\203G \206X\320\f\"A\206X\320
\"A\206X@\211\203v\312\313@@@@@A@#\232\204v\211A\266\202\202Y\211@@\262\206XA\211\203\233\312\313@@@A@#\232\204\233\211A\266\202\202\200\211@\262\206XBA\306\211\203V\211A\262\242\3228\262\262;\204\247\306\323C\3242G\211\242\206\316 \240\210\204\347\325\326\327\330\331\332!\201b \"\322\334% \"\210\f
D\211\203\n\211@\325\326\327\335\331\332!\201c \"\322\334%\"\210A\266\202\202\352\210\211\242A@\201d \235\203 \312\340\242@\"\202)\312\313\242@\242A@#\211\242B\211 \235\204C\204C\320@ \"\204C\211 B\266\2020\266\204\232\203\247\262\306\262\202\247\266\202\211\203i\320 \"\204iB B\211\262\262\206\227 \341!\206\227 \211\206\204\307\n\"A@\262\306\203\230\3228\211\262\203\230\211\321\232\203\234 \202\225 \211;\203\353 \211\211\203\257\211<\203\257\211\206\346 \320 \"A\206\346 \211\321\232\203\301 \206\322 \320\f\"A\206\322 \320
\"A\206\322 @\211\203\360\312\313@@@@@A@#\232\204\360\211A\266\202\202\323\211@@\262\206\322 A\211\203 \312\313@@@A@#\232\204 \211A\266\202\202\372\211@\262\206\322 BA\306\211\203\320 \211A\262\242\3228\262\262;\204! \306\323C\3242\301 \211\242\206H \240\210\204a \325\326\327\330\331\332!\201b \"\322\334% \"\210\f
D\211\203\204 \211@\325\326\327\335\331\332!\201c \"\322\334%\"\210A\266\202\202d \210\211\242A@\201d \235\203\231 \312\340\242@\"\202\243 \312\313\242@\242A@#\211\242B\211 \235\204\275 \204\275 \320@ \"\204\275 \211 B\266\2020\266\204\232\203! \262\306\262\202! \266\202\211\203\343 \320 \"\204\343 B B\211\262\262\202D \211A@;\203C \211\342\343@!\344P!\211AA\236\204\n\345A@DC\"\262\210C\306\211\211\204\266\n\211A\262\242\211\262\203\266\n@@=\203\n\346AA!\346AA!\306\211\3472\253\n\211A\262\242\211\262\203\250\n@\236\211\262\204X\n\350\347\306\"\210\351\"\262\232\204=\nA@;\203r\n\211A@;\204z\n\350\347\306\"\210\202=\nA@A@\310\352\"\203\214\n\353!\262\310\352\"\203\230\n\353!\262\232\204\243\n\350\347\306\"\210\266\202=\n?0\266\206\203\n\262\202\n\266\203\206D \211@\306\203\361\n\203\361\n\211A\262\242@\262@@\232\203\301\nA@A@\232\203\301\n\354\"\204\301\n\306\262\202\301\n?\266\203\203\376\n\211AA\204 \262\202D \342\312\355@\"!\211AA\236\203\" @A@\356QAABB\2025 @A@\356QA@DAABBB\262CBC\266\203\202D \211\262\211A@\317\232\203R \211\202\225 \211A@\204_ \211@\317D\202\225 \211\343@!\357\320D\">\203\222 \342\344P!\236\204\222 \360@D\236>\203\222 \345\342\344P!A@DC\"\202\223 \266\202\266\202\266\202\211 K;\203\352\fK\211\203\257 \211<\203\257 \211\206\346\f\320 \"A\206\346\f\211\321\232\203\301 \206\322\f\320\f\"A\206\322\f\320
\"A\206\322\f@\211\203\360 \312\313@@@@@A@#\232\204\360 \211A\266\202\202\323 \211@@\262\206\322\fA\211\203\f\312\313@@@A@#\232\204\f\211A\266\202\202\372 \211@\262\206\322\fBA\306\211\203\320\f\211A\262\242\3228\262\262;\204!\f\306\323C\3242\301\f\211\242\206H\f \240\210\204a\f\325\326\327\330\331\332!\201e \"\322\334% \"\210\f
D\211\203\204\f\211@\325\326\327\335\331\332!\201f \"\322\334%\"\210A\266\202\202d\f\210\211\242A@\201g \235\203\231\f\312\340\242@\"\202\243\f\312\313\242@\242A@#\211\242B\211 \235\204\275\f\204\275\f\320@ \"\204\275\f\211 B\266\2020\266\204\232\203!\f\262\306\262\202!\f\266\202\211\203\343\f\320 \"\204\343\fB B\211\262\262KK\201h \306 N O\211 F\204
\201i \201j !\210F;\203RF\211\203
\211<\203
\211\206N\320 \"A\206N\211\321\232\203)
\206:\320\f\"A\206:\320
\"A\206:@\211\203X
\312\313@@@@@A@#\232\204X
\211A\266\202\202;
\211@@\262\206:A\211\203}
\312\313@@@A@#\232\204}
\211A\266\202\202b
\211@\262\206:BA\306\211\2038\211A\262\242\3228\262\262;\204\211
\306\323C\3242)\211\242\206\260
\240\210\204\311
\325\326\327\330\331\332!\201e \"\322\334% \"\210\f
D\211\203\354
\211@\325\326\327\335\331\332!\201f \"\322\334%\"\210A\266\202\202\314
\210\211\242A@\201g \235\203\312\340\242@\"\202 \312\313\242@\242A@#\211\242B\211 \235\204%\204%\320@ \"\204%\211 B\266\2020\266\204\232\203\211
\262\306\262\202\211
\266\202\211\203K\320 \"\204KB B\211\262\262FP\203yF F\201k F!\203jF@\202u\201^ \201l !\210\201l )\202|F@\211 Q\201m N ROR\236\211 S\204\257O\342\312\201` QO#!BS\201n Q\201m SRB#\210SA) T\201_ T!\204\362F@\204\314\201i \201o !\210\201^ F@!\210\201_ T!\204\362N\203\350\306T\202\362\201i \201p T\"\210T.M U\310\201q U\"\203\201r U\201s \225\"\202U)KA@LJ$-\202\226\201t 1z\206. \307\n\"A@\262 J K L MK\206\361M\306\206\357\204U \206\357\307\n\"\204\317\310\311\"\203v\312\313\314\315\"\314\316\"\206r\317#\202~\312\313 @ A@#\262\211\203\215\211<\203\215\211\206\304\320 \"A\206\304\211\321\232\203\237 \206\260\320\f\"A\206\260\320
\"A\206\260@\211\203\316\312\313@@@@@A@#\232\204\316\211A\266\202\202\261\211@@\262\206\260A\211\203\363\312\313@@@A@#\232\204\363\211A\266\202\202\330\211@\262\206\260BA\306\211\203\256\211A\262\242\3228\262\262;\204\377\306\323C\3242\237\211\242\206& \240\210\204?\325\326\327\330\331\332!\201b \"\322\334% \"\210\f
D\211\203b\211@\325\326\327\335\331\332!\201c \"\322\334%\"\210A\266\202\202B\210\211\242A@\201d \235\203w\312\340\242@\"\202\201\312\313\242@\242A@#\211\242B\211 \235\204\233\204\233\320@ \"\204\233\211 B\266\2020\266\204\232\203\377\262\306\262\202\377\266\202\211\203\301\320 \"\204\301B B\211\262\262\206\357\341!\206\357\211\206\334\307\n\"A@\262\306\203\360\3228\211\262\203\360\211\321\232\203\364 \202\355\211;\203C\211\211\203\211<\203\211\206>\320 \"A\206>\211\321\232\203 \206*\320\f\"A\206*\320
\"A\206*@\211\203H\312\313@@@@@A@#\232\204H\211A\266\202\202+\211@@\262\206*A\211\203m\312\313@@@A@#\232\204m\211A\266\202\202R\211@\262\206*BA\306\211\203(\211A\262\242\3228\262\262;\204y\306\323C\3242\211\242\206\240 \240\210\204\271\325\326\327\330\331\332!\201b \"\322\334% \"\210\f
D\211\203\334\211@\325\326\327\335\331\332!\201c \"\322\334%\"\210A\266\202\202\274\210\211\242A@\201d \235\203\361\312\340\242@\"\202\373\312\313\242@\242A@#\211\242B\211 \235\204\204\320@ \"\204\211 B\266\2020\266\204\232\203y\262\306\262\202y\266\202\211\203;\320 \"\204;B B\211\262\262\202\234\211A@;\203\233\211\342\343@!\344P!\211AA\236\204f\345A@DC\"\262\210C\306\211\211\204\211A\262\242\211\262\203@@=\203k\346AA!\346AA!\306\211\3472\211A\262\242\211\262\203 @\236\211\262\204\260\350\347\306\"\210\351\"\262\232\204\225A@;\203\312\211A@;\204\322\350\347\306\"\210\202\225A@A@\310\352\"\203\344\353!\262\310\352\"\203\360\353!\262\232\204\373\350\347\306\"\210\266\202\225?0\266\206\203k\262\202k\266\203\206\234\211@\306\203I\203I\211A\262\242@\262@@\232\203A@A@\232\203\354\"\204\306\262\202?\266\203\203V\211AA\204[\262\202\234\342\312\355@\"!\211AA\236\203z@A@\356QAABB\202\215@A@\356QA@DAABBB\262CBC\266\203\202\234\211\262\211A@\317\232\203\252\211\202\355\211A@\204\267\211@\317D\202\355\211\343@!\357\320D\">\203\352\342\344P!\236\204\352\360@D\236>\203\352\345\342\344P!A@DC\"\202\353\266\202\266\202\266\202\211 K;\203BK\211\203\211<\203\211\206>\320 \"A\206>\211\321\232\203 \206*\320\f\"A\206*\320
\"A\206*@\211\203H\312\313@@@@@A@#\232\204H\211A\266\202\202+\211@@\262\206*A\211\203m\312\313@@@A@#\232\204m\211A\266\202\202R\211@\262\206*BA\306\211\203(\211A\262\242\3228\262\262;\204y\306\323C\3242\211\242\206\240 \240\210\204\271\325\326\327\330\331\332!\201e \"\322\334% \"\210\f
D\211\203\334\211@\325\326\327\335\331\332!\201f \"\322\334%\"\210A\266\202\202\274\210\211\242A@\201g \235\203\361\312\340\242@\"\202\373\312\313\242@\242A@#\211\242B\211 \235\204\204\320@ \"\204\211 B\266\2020\266\204\232\203y\262\306\262\202y\266\202\211\203;\320 \"\204;B B\211\262\262KK\201h \306 N O\211 F\204Z\201i \201j !\210F;\203\252F\211\203o\211<\203o\211\206\246\320 \"A\206\246\211\321\232\203\201 \206\222\320\f\"A\206\222\320
\"A\206\222@\211\203\260\312\313@@@@@A@#\232\204\260\211A\266\202\202\223\211@@\262\206\222A\211\203\325\312\313@@@A@#\232\204\325\211A\266\202\202\272\211@\262\206\222BA\306\211\203\220\211A\262\242\3228\262\262;\204\341\306\323C\3242\201\211\242\206 \240\210\204!\325\326\327\330\331\332!\201e \"\322\334% \"\210\f
D\211\203D\211@\325\326\327\335\331\332!\201f \"\322\334%\"\210A\266\202\202$\210\211\242A@\201g \235\203Y\312\340\242@\"\202c\312\313\242@\242A@#\211\242B\211 \235\204}\204}\320@ \"\204}\211 B\266\2020\266\204\232\203\341\262\306\262\202\341\266\202\211\203\243\320 \"\204\243B B\211\262\262FP\203\321F F\201k F!\203\302F@\202\315\201^ \201l !\210\201l )\202\324F@\211 Q\201m N ROR\236\211 S\204O\342\312\201` QO#!BS\201n Q\201m SRB#\210SA) T\201_ T!\204JF@\204$\201i \201o !\210\201^ F@!\210\201_ T!\204JN\203@\306T\202J\201i \201p T\"\210T.M U\310\201q U\"\203i\201r U\201s \225\"\202kU)KA@LJ$-0\202\226\210I\203\213\201u \201v !\210\202\225\201w \201x \"\210\306\205 ?\205 \201y \262\211@\206\254\201s \201s U\203\324\211A\206\273\201s \201s U\203\324\307V\"\203\324\307V\"\202 W\203X\205\307X\"\211\205\211@@W\203\367@\240\210\211AAV\205A\241\262\266P\203\201z \"\210\201{ V#\210\211\207" [gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) 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" gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods silent method result debug-on-error debug-on-quit info gnus-command-method dont-check group noerror function gnus-agent method-sym method-fns method-fnlist-elt func gname gnus-active-hashtb gnus-use-cache gnus-cache-active-hashtb nnheader-get-report-string request-scan (error) gnus-find-method-for-group featurep require fboundp "%s-%s" gnus-request-scan [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) request-group error "Attempted use of a nil select method" gnus-online nnagent gnus-method-functions put "Trying to require a method that doesn't exist" "No such function: %s" "^[^:]+:" substring 0 (quit) debug "Quit" message "Quit activating %s" gnus-parse-active gnus-agent-possibly-alter-active puthash] 30 (#$ . 47193)])
#@37
(fn INFO ACTIVE &optional UPDATE)
(defalias 'gnus-get-unread-articles-in-group #[770 "\205O\205O\211\203\270\306\211@\307\206\253\204 \206\253\310\n\"\204\221\311\312\"\203> \313\314\315\316\"\315\317\"\206: \320#\202F \313\314 @ A@#\262\211\203U \211<\203U \211\206\206\321 \"A\206\206\211\322\232\203g \206r\321\f\"A\206r\321
\"A\206r5\211\203\226 \313\314@@@@@A@#\232\204\226 \211A\266\202\202y \211@@\262\206r6\211\203\273 \313\314@@@A@#\232\204\273 \211A\266\202\202\240 \211@\262\206r7A\307\211\203p\211A\262\242\3238\262\262;\204\307 \307\324C\3252a\211\242\206\356 \240\210\204\326\327\330\331\332\333!\334\"\323\335% \"\210\f
D\211\203&\211@\326\327\330\336\332\333!\337\"\323\335%\"\210A\266\202\202\210\211\242A@\340\235\2039\313\341\242@\"\202C\313\314\242@\242A@#\211\242B\211 \235\204]\204]\321@ \"\204]\211 B\266\2020\266\204\232\203\307 \262\307\262\202\307 \266\202\211\203\203\321 \"\204\203B B\211\262\262\206\253\342!\206\253\211\206\236\310\n\"A@\262\307\203\262\3238\211\262\203\262\211\322\232\203\266 \202\251\211;\203\377\211\211\203\311\211<\203\311\211\206\372\321 \"A\206\372\211\322\232\203\333 \206\346\321\f\"A\206\346\321
\"A\206\3465\211\203\n\313\314@@@@@A@#\232\204\n\211A\266\202\202\355\211@@\262\206\3466\211\203/\313\314@@@A@#\232\204/\211A\266\202\202\211@\262\206\3467A\307\211\203\344\211A\262\242\3238\262\262;\204;\307\324C\3252\325\211\242\206b \240\210\204y\326\327\330\331\332\333!\334\"\323\335% \"\210\f
D\211\203\232\211@\326\327\330\336\332\333!\337\"\323\335%\"\210A\266\202\202|\210\211\242A@\340\235\203\255\313\341\242@\"\202\267\313\314\242@\242A@#\211\242B\211 \235\204\321\204\321\321@ \"\204\321\211 B\266\2020\266\204\232\203;\262\307\262\202;\266\202\211\203\367\321 \"\204\367B B\211\262\262\202X\211A@;\203W\211\343\344@!\345P!\211AA\236\204\"\346A@DC\"\262\2108\307\211\211\204\312\211A\262\242\211\262\203\312@@=\203'\347AA!\347AA!\307\211\3502\277\211A\262\242\211\262\203\274@\236\211\262\204l\351\350\307\"\210\352\"\262\232\204QA@;\203\206\211A@;\204\216\351\350\307\"\210\202QA@A@\311\353\"\203\240\354!\262\311\353\"\203\254\354!\262\232\204\267\351\350\307\"\210\266\202Q?0\266\206\203'\262\202'\266\203\206X\2115\307\203\203\211A\262\242@\262@@\232\203\325A@A@\232\203\325\355\"\204\325\307\262\202\325?\266\203\203\211AA\204\262\202X\343\313\356@\"!\211AA\236\2036@A@\357QAABB\202I@A@\357QA@DAABBB\2628B8\266\203\202X\211\262\211A@\320\232\203f\211\202\251\211A@\204s\211@\320D\202\251\211\344@!\360\3219\">\203\246\343\345P!\236\204\246\361@9\236>\203\246\346\343\345P!A@DC\"\202\247\266\202\266\202\266\202\"\203\270\362@\307\324#\210\3178\363:\203\363\203\363@;\205\361\310;\"\211\205\357\211@@W\203\343@\240\210\211AAV\205\357A\241\262\266<\203\203\364@#\210A\363U\203\363\262\2029\204 AT@Z\262\2029A<\204QA@W\2034@S\241\210AAV\203AA\241\210\363AAT@ZZ]\262\2029A\203\253@A@:\204eA@\206iA@@Y\203\253@\247\203\215\211@A@\247\203\203A@\206\207A@AB\240\210\202\242@A@\247\203\234A@\206\240A@A\241\210\211AA\241\210\202Q@:\203\301@A@W\203\301@@S\241\210\211A\203\345\211A@:\204\324\211A@\206\330\211A@@AX\203\345\211A\262\202\302\211A\203\356\211\307\241\210\211@:\203\211@AAV\203\211@A\241\210\210\2031\211@:\204@\206@AT@:\204#@\206&@@Z\\\262A\262\202\363AZ]\262\203M\310@\n\"\203M\310@\n\"\240\210\262\207" [gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-request-update-info nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-activate-group 0 gnus-agent-possibly-alter-active gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods gnus-use-cache gnus-cache-active-hashtb gnus-agent] 27 (#$ . 63791)])
#@47
(fn &optional LEVEL DONT-CONNECT ONE-LEVEL)
(defalias 'gnus-get-unread-articles #[768 "\306\307\310!\210 A\206 \n\206 T\2060 \f\203$ \f\247\204$ T\202. \f\247\203- \f\202. \311^\306\211\311 \312\211\203B \211<\203B \211\206x\313\"A\206x\211\314\232\203U @\206d\313A\"A\206d\313B\"A\206dC\211\203\206 \315\316@@@@@A@#\232\204\206 \211A\266\202\202i \211@@\262\206dD\211\203\253 \315\316@@@A@#\232\204\253 \211A\266\202\202\220 \211@\262\206d A\306\211\203b\211A\262\242\3178\262\262;\204\266 \306\320C\3212S\211\242\206\336 @\240\210\204\365 \322\323\324\325\326\327!\330\"\317\331%\"\210ABD\211\203\211@\322\323\324\332\326\327!\333\"\317\331%\"\210A\266\202\202\372 \210\211\242A@\334\235\203+\315\335\242@\"\2025\315\316\242@\242A@#\211\242B\211\235\204O\204O\313@\"\204O\211B\266\2020\266\204\232\203\266 \262\306\262\202\266 \266\202\211\203u\313\"\204uBB\211\262\262\306\211\211\211\211\211\211\211\336\337\340\"\210
\203\341\211A\262\242\211\262\n\211@\262\211\262 E\"\262\3178\211\262\204\264@\262\202\323\313\f\"\211\262\203\306A\262\202\323;\203\211\203\331\211<\203\331\211\206\313\"A\206\211\314\232\203\354@\206\373\313A\"A\206\373\313B\"A\206\373C\211\203 \315\316@@@@@A@#\232\204 \211A\266\202\202 \211@@\262\206\373D\211\203B\315\316@@@A@#\232\204B\211A\266\202\202'\211@\262\206\373 A\306\211\203\371\211A\262\242\3178\262\262;\204M\306\320C\3212\352\211\242\206u@\240\210\204\214\322\323\324\325\326\327!\330\"\317\331%\"\210ABD\211\203\257\211@\322\323\324\332\326\327!\333\"\317\331%\"\210A\266\202\202\221\210\211\242A@\334\235\203\302\315\335\242@\"\202\314\315\316\242@\242A@#\211\242B\211\235\204\346\204\346\313@\"\204\346\211B\266\2020\266\204\232\203M\262\306\262\202M\266\202\211\203\f\313\"\204\fBB\211\262\262\202\306@F\206\304\204'@\206\304\341G\"\204\243\342\343\"\203I\315\316\344\345\"\344\346\"\206E\347#\202S\315\316@@@A@#\262\211\203b\211<\203b\211\206\230\313\"A\206\230\211\314\232\203u@\206\204\313A\"A\206\204\313B\"A\206\204C\211\203\246\315\316@@@@@A@#\232\204\246\211A\266\202\202\211\211@@\262\206\204D\211\203\313\315\316@@@A@#\232\204\313\211A\266\202\202\260\211@\262\206\204 A\306\211\203\202\211A\262\242\3178\262\262;\204\326\306\320C\3212s\211\242\206\376@\240\210\204\322\323\324\325\326\327!\350\"\317\331%\"\210ABD\211\2038\211@\322\323\324\332\326\327!\351\"\317\331%\"\210A\266\202\202\210\211\242A@\352\235\203K\315\335\242@\"\202U\315\316\242@\242A@#\211\242B\211\235\204o\204o\313@\"\204o\211B\266\2020\266\204\232\203\326\262\306\262\202\326\266\202\211\203\225\313\"\204\225BB\211\262\262\206\304\353!\206\304\211\206\261\341G\"A@\262\306\203\305\3178\211\262\203\305\211\314\232\203\312@\202\302\211;\203\211\211\203\335\211<\203\335\211\206\313\"A\206\211\314\232\203\360@\206\377\313A\"A\206\377\313B\"A\206\377C\211\203!\315\316@@@@@A@#\232\204!\211A\266\202\202\211@@\262\206\377D\211\203F\315\316@@@A@#\232\204F\211A\266\202\202+\211@\262\206\377 A\306\211\203\375\211A\262\242\3178\262\262;\204Q\306\320C\3212\356\211\242\206y@\240\210\204\220\322\323\324\325\326\327!\350\"\317\331%\"\210ABD\211\203\263\211@\322\323\324\332\326\327!\351\"\317\331%\"\210A\266\202\202\225\210\211\242A@\352\235\203\306\315\335\242@\"\202\320\315\316\242@\242A@#\211\242B\211\235\204\352\204\352\313@\"\204\352\211B\266\2020\266\204\232\203Q\262\306\262\202Q\266\202\211\203\313\"\204BB\211\262\262\202q\211A@;\203p\211\354\355@!\356P!\211AA\236\204;\357A@DC\"\262\210H\306\211\211\204\343\211A\262\242\211\262\203\343@@=\203@\360AA!\360AA!\306\211\3612\330\211A\262\242\211\262\203\325@\236\211\262\204\205\362\361\306\"\210\363\"\262\232\204jA@;\203\237\211A@;\204\247\362\361\306\"\210\202jA@A@\342\364\"\203\271\365!\262\342\364\"\203\305\365!\262\232\204\320\362\361\306\"\210\266\202j?0\266\206\203@\262\202@\266\203\206q\211C\306\203 \203 \211A\262\242@\262@@\232\203\356A@A@\232\203\356\366\"\204\356\306\262\202\356?\266\203\203+\211AA\2040\262\202q\354\315\367@\"!\211AA\236\203O@A@\370QAABB\202b@A@\370QA@DAABBB\262HBH\266\203\202q\211\262\211A@\347\232\203\211\202\302\211A@\204\214\211@\347D\202\302\211\355@!\371\313I\">\203\277\354\356P!\236\204\277\372@I\236>\203\277\357\354\356P!A@DC\"\202\300\266\202\266\202\266\202\262B B\262 \262\313 \"\262\204\253D\306\211;\2031 \211\211\203\366\211<\203\366\211\206, \313\"A\206, \211\314\232\203 @\206 \313A\"A\206 \313B\"A\206 C\211\203:\315\316@@@@@A@#\232\204:\211A\266\202\202 \211@@\262\206 D\211\203_\315\316@@@A@#\232\204_\211A\266\202\202D\211@\262\206 A\306\211\203 \211A\262\242\3178\262\262;\204j\306\320C\3212 \211\242\206\222@\240\210\204\251\322\323\324\325\326\327!\373\"\317\331%\"\210ABD\211\203\314\211@\322\323\324\332\326\327!\374\"\317\331%\"\210A\266\202\202\256\210\211\242A@\375\235\203\337\315\335\242@\"\202\351\315\316\242@\242A@#\211\242B\211\235\204 \204 \313@\"\204 \211B\266\2020\266\204\232\203j\262\306\262\202j\266\202\211\203) \313\"\204) BB\211\262\266\203\202\235 \211@\232\203? @\266\202\202\235 \211@;\203R \203R \376\"\266\202\202\235 \211\203g \204g \211A@\347\232\203g \262\202\235 \211\355@!\371\313I\">\203\232 \354\356P!\236\204\232 \372@I\236>\203\232 \357\354\356P!A@DC\"\202\233 \266\204\203\215 \306@\211;\203\362\n\211\211\203\267 \211<\203\267 \211\206\355\n\313\"A\206\355\n\211\314\232\203\312 @\206\331\n\313A\"A\206\331\n\313B\"A\206\331\nC\211\203\373 \315\316@@@@@A@#\232\204\373 \211A\266\202\202\336 \211@@\262\206\331\nD\211\203 \n\315\316@@@A@#\232\204 \n\211A\266\202\202\n\211@\262\206\331\n A\306\211\203\327\n\211A\262\242\3178\262\262;\204+\n\306\320C\3212\310\n\211\242\206S\n@\240\210\204j\n\322\323\324\325\326\327!\373\"\317\331%\"\210ABD\211\203\215\n\211@\322\323\324\332\326\327!\374\"\317\331%\"\210A\266\202\202o\n\210\211\242A@\375\235\203\240\n\315\335\242@\"\202\252\n\315\316\242@\242A@#\211\242B\211\235\204\304\n\204\304\n\313@\"\204\304\n\211B\266\2020\266\204\232\203+\n\262\306\262\202+\n\266\202\211\203\352\n\313\"\204\352\nBB\211\262\266\203\202^ \211@\232\203 @\266\202\202^ \211@;\203 \203 \376\"\266\202\202^ \211\203( \204( \211A@\347\232\203( \262\202^ \211\355@!\371\313I\">\203[ \354\356P!\236\204[ \372@I\236>\203[ \357\354\356P!A@DC\"\202\\ \266\204\232\206\201 GGU\205\201 \203 @\235\203 A\262\202m ?\266\202\204\215 A\262\202\235 \266\203\204\243 \377 \203\251 \201M \"\203\251 \201N \202\234@\204\265 @\202\n
;\203
\211\203\310 \211<\203\310 \211\206
\313\"A\206
\211\314\232\203\333 @\206\360\f\313A\"A\206\360\f\313B\"A\206\360\fC\211\203\f\f\315\316@@@@@A@#\232\204\f\f\211A\266\202\202\357 \211@@\262\206\360\fD\211\2031\f\315\316@@@A@#\232\2041\f\211A\266\202\202\f\211@\262\206\360\f A\306\211\203\356\f\211A\262\242\3178\262\262;\204<\f\306\320C\3212\337\f\211\242\206d\f@\240\210\204}\f\322\323\324\325\326\327!\201O \"\317\331%\"\210ABD\211\203\242\f\211@\322\323\324\332\326\327!\201P \"\317\331%\"\210A\266\202\202\202\f\210\211\242A@\201Q \235\203\267\f\315\335\242@\"\202\301\f\315\316\242@\242A@#\211\242B\211\235\204\333\f\204\333\f\313@\"\204\333\f\211B\266\2020\266\204\232\203<\f\262\306\262\202<\f\266\202\211\203
\313\"\204
BB\211\262\262\202\n
\204
@\202h;\203g\211\203&
\211<\203&
\211\206b\313\"A\206b\211\314\232\2039
@\206N\313A\"A\206N\313B\"A\206NC\211\203j
\315\316@@@@@A@#\232\204j
\211A\266\202\202M
\211@@\262\206ND\211\203\217
\315\316@@@A@#\232\204\217
\211A\266\202\202t
\211@\262\206N A\306\211\203L\211A\262\242\3178\262\262;\204\232
\306\320C\3212=\211\242\206\302
@\240\210\204\333
\322\323\324\325\326\327!\201O \"\317\331%\"\210ABD\211\203 \211@\322\323\324\332\326\327!\201P \"\317\331%\"\210A\266\202\202\340
\210\211\242A@\201Q \235\203\315\335\242@\"\202 \315\316\242@\242A@#\211\242B\211\235\2049\2049\313@\"\2049\211B\266\2020\266\204\232\203\232
\262\306\262\202\232
\266\202\211\203_\313\"\204_BB\211\262\262\202h\232\206\214GGU\205\214\203\212@\235\203\212A\262\202x?\266\202\266\204\203\231\201R \202\234\201S \262\306\211F\211\262\nB\262\n \203\266 \247\203\353\203\301\201T \202\304\201U \211A@\211:\203\323\211@\202\324\211\266\202A@\201S =\203\345
\202\347\"\203\371AA\3468B\240\210\202\207\204\207\341G\"\211\262\203\207\211\320\240\210\202\207\201V \n\237\201W \"\262\n\306\n\211\203\300\211@\211\211G\317U\2036\211A\262\242\202C\201X \201Y \201Z GD\"\211A\262\242\211A\262\242@ C\201[ !\203\254\201\\ @\201] 1\231\211;\203v\201^ !@\202w\211\201_ !\204\203\307!\210\201` \354\315\201a #!!\2620\266\202\202\235\210\306\266\202\203\254\376@@\"\262\240\210\201b DB\262)\266A\266\202\202 \266\2042@DB\211\2031\211@\313
\"\204*\201c @\201] 1\211;\203\363\201^ !@\202\364\211\201_ !\204 \307!\210\201` \354\315\201a #!!\2620\266\202\202\210\306\266\202\203*rJq\210\201d \306\"\210)A\266\202\202\314\210 \211\203\370\211@\211\211G\317U\203K\211A\262\242\202X\201X \201Y \201e GD\"\211A\262\242\211A\262\242@\203\357\203\357\201\\ @\201] 1\252\211;\203\207\201^ !@\202\210\211\201_ !\204\224\307!\210\201` \354\315\201a #!!\2620\266\202\202\256\210\306\266\202\203\357\201f !\204\357\201g 1\313\201h \201i \"0\202\317\210\202\357\203\357\201j !\204\340\201k !\210\201j !\203\357\201l \306\"\210\266A\266\202\2024\210\306\211 \211\2032\211@\211\211G\317U\203\211A\262\242\202!\201X \201Y \201m GD\"\211A\262\242\211A\262\242@@A@D\262\203)\203)\201f !\204)\201n 1Y\201h \201i \"0\202[\210\306\204i\363\"\262\202)\201j !\204w\201k !\210 \235\204)\201j !\203)\201\\ @\201] 1\303\211;\203\240\201^ !@\202\241\211\201_ !\204\255\307!\210\201` \354\315\201a #!!\2620\266\202\202\307\210\306\266\202\203) B\262 \201o @\201] 1
\211;\203\352\201^ !@\202\353\211\201_ !\204\367\307!\210\201` \354\315\201a #!!\2620\266\202\202\210\306\266\202\203\201p \306\"\210\201q \233\201l \"\240\210\266A\266\202\202\375\266 \211\203K\211@\211\211G\317U\203M\211A\262\242\202Z\201X \201Y \201r GD\"\211A\262\242\211A\262\242@\203B\203B\201f !\204B\201s @\201] 1\264\211;\203\221\201^ !@\202\222\211\201_ !\204\236\307!\210\201` \354\315\201a #!!\2620\266\202\202\270\210\306\266\202\201t #\210\211\203@\211@\211\341@E\"\2057\2057\211\203\234\201u \211@\306F\206\215\204\360@\206\215\341G\"\204l\342\343\"\203\315\316\344\345\"\344\346\"\206\347#\202 \315\316@@@A@#\262\211\203+\211<\203+\211\206a\313\"A\206a\211\314\232\203>@\206M\313A\"A\206M\313B\"A\206MC\211\203o\315\316@@@@@A@#\232\204o\211A\266\202\202R\211@@\262\206MD\211\203\224\315\316@@@A@#\232\204\224\211A\266\202\202y\211@\262\206M A\306\211\203K\211A\262\242\3178\262\262;\204\237\306\320C\3212<\211\242\206\307@\240\210\204\336\322\323\324\325\326\327!\350\"\317\331%\"\210ABD\211\203\211@\322\323\324\332\326\327!\351\"\317\331%\"\210A\266\202\202\343\210\211\242A@\352\235\203\315\335\242@\"\202 \315\316\242@\242A@#\211\242B\211\235\2048\2048\313@\"\2048\211B\266\2020\266\204\232\203\237\262\306\262\202\237\266\202\211\203^\313\"\204^BB\211\262\262\206\215\353!\206\215\211\206z\341G\"A@\262\306\203\216\3178\211\262\203\216\211\314\232\203\223@\202\213\211;\203\341\211\211\203\246\211<\203\246\211\206\334\313\"A\206\334\211\314\232\203\271@\206\310\313A\"A\206\310\313B\"A\206\310C\211\203\352\315\316@@@@@A@#\232\204\352\211A\266\202\202\315\211@@\262\206\310D\211\203\315\316@@@A@#\232\204\211A\266\202\202\364\211@\262\206\310 A\306\211\203\306\211A\262\242\3178\262\262;\204\306\320C\3212\267\211\242\206B@\240\210\204Y\322\323\324\325\326\327!\350\"\317\331%\"\210ABD\211\203|\211@\322\323\324\332\326\327!\351\"\317\331%\"\210A\266\202\202^\210\211\242A@\352\235\203\217\315\335\242@\"\202\231\315\316\242@\242A@#\211\242B\211\235\204\263\204\263\313@\"\204\263\211B\266\2020\266\204\232\203\262\306\262\202\266\202\211\203\331\313\"\204\331BB\211\262\262\202:\211A@;\2039\211\354\355@!\356P!\211AA\236\204\357A@DC\"\262\210H\306\211\211\204\254\211A\262\242\211\262\203\254@@=\203 \360AA!\360AA!\306\211\3612\241\211A\262\242\211\262\203\236@\236\211\262\204N\362\361\306\"\210\363\"\262\232\2043A@;\203h\211A@;\204p\362\361\306\"\210\2023A@A@\342\364\"\203\202\365!\262\342\364\"\203\216\365!\262\232\204\231\362\361\306\"\210\266\2023?0\266\206\203 \262\202 \266\203\206:\211C\306\203\347\203\347\211A\262\242@\262@@\232\203\267A@A@\232\203\267\366\"\204\267\306\262\202\267?\266\203\203\364\211AA\204\371\262\202:\354\315\367@\"!\211AA\236\203@A@\370QAABB\202+@A@\370QA@DAABBB\262HBH\266\203\202:\211\262\211A@\347\232\203H\211\202\213\211A@\204U\211@\347D\202\213\211\355@!\371\313I\">\203\210\354\356P!\236\204\210\372@I\236>\203\210\357\354\356P!A@DC\"\202\211\266\202\266\202\266\202\"\203\234\201v @\306\320#\210\3468\311K\203\327\203\327@L\205\325\341L\"\211\205\323\211@@W\203\307@\240\210\211AAV\205\323A\241\262\266\203\352\203\352\201w @#\210A\311U\203\367\311\262\202 \204AT@Z\262\202 A<\2047A@W\203@S\241\210AAV\203'A\241\210\311AAT@ZZ]\262\202 A\203\221@A@:\204KA@\206OA@@Y\203\221@\247\203s\211@A@\247\203iA@\206mA@AB\240\210\202\210@A@\247\203\202A@\206\206A@A\241\210\211AA\241\210\2027@:\203\247@A@W\203\247@@S\241\210\211A\203\313\211A@:\204\272\211A@\206\276\211A@@AX\203\313\211A\262\202\250\211A\203\324\211\306\241\210\211@:\203\351\211@AAV\203\351\211@A\241\210\210\203\211@:\204\372@\206\375@AT@:\204 @\206\f@@Z\\\262A\262\202\352\311AZ]\262\2035\341@G\"\2035\341@G\"\240\210\262\266A\266\202\202\301\266\266A\266\202\2026\210\336\337\201x \")\207" [gnus-server-method-cache gnus-newsrc-alist gnus-activate-level gnus-level-subscribed gnus-activate-foreign-newsgroups gnus-agent-article-local-times nil require gnus-agent 0 "archive" assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-message 6 "Checking new news..." gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" match-string 1 2 #1# [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-server-extend-method gnus-archive-server-wanted-p gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-active-hashtb gnus-override-method gnus-newsrc-hashtb gnus-extended-servers gnus-valid-select-methods nntp-server-buffer gnus-use-cache gnus-cache-active-hashtb gnus-methods-equal-p secondary [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) primary foreign = <= sort #[514 "\300A@@\"\300A@@\"W\207" [gnus-method-rank] 6 "\n\n(fn C1 C2)"] signal wrong-number-of-arguments (method _method-type infos _dummy) gnus-similar-server-opened retrieve-group-data-early (error) gnus-find-method-for-group featurep fboundp "%s-%s" ok request-list gnus-read-active-file-1 (method _method-type infos _dummy) gnus-method-denied-p (error) gnus-get-function open-server gnus-server-opened gnus-open-server gnus-retrieve-group-data-early (method _method-type infos _dummy) (error) request-scan gnus-request-scan 3 (method _method-type infos early-data) request-update-info gnus-read-active-for-groups gnus-request-update-info gnus-activate-group gnus-agent-possibly-alter-active "Checking new news...done"] 54 (#$ . 68546)])
#@20
(fn TYPE METHOD)
(defalias 'gnus-method-rank #[514 "\211@\301=\203 \302\207\303\267\2029 \304\207\305\30626 \211\2053 \211@\232\203( \307\306\"\210T\262A\266\202\202 \2620\210\211\207\310\207" [gnus-secondary-select-methods nnvirtual 200 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (primary 15 secondary 17)) 1 2 --cl-block-nil-- throw 100] 8 (#$ . 85785)])
#@32
(fn METHOD INFOS EARLY-DATA)
(defalias 'gnus-read-active-for-groups #[771 "rq\210\211\203Z \301@\30218 \211;\203 \303!@\202 \211\304!\204& \305!\210\306\307\310\311#!!\2620\266\202\202< \210\312\266\202\203Z \313!\203K \314!\203Z \315#\210\316 \210\317!\202X\320@\3021\212 \211;\203m \303!@\202n \211\304!\204x \305!\210\306\307\310\311#!!\2620\266\202\202\216 \210\312\266\202\203 \321@\3021\301 \211;\203\244 \303!@\202\245 \211\304!\204\257 \305!\210\306\307\310\311#!!\2620\266\202\202\305 \210\312\266\202\203\315 \322\312\"\210\312\323\211\203\365 \211@\211@\324\325\"\203\347 \326\327\225\"\202\350 \211\262B\262A\266\202\202\320 \237\262\"\262\202X\330@\30210\211;\203\303!@\202\211\304!\204 \305!\210\306\307\310\311#!!\2620\266\202\2024\210\312\266\202\203>\331\312\"\202X\211\205V\211@\332@\312\211\333%\210A\266\202\202?\262)\207" [nntp-server-buffer finish-retrieve-group-infos (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil gnus-agent-method-p gnus-online gnus-finish-retrieve-group-infos gnus-dribble-touch gnus-agent-save-active retrieve-groups request-scan gnus-request-scan gnus-read-active-file-2 string-match "^[^:]+:" substring 0 request-list gnus-read-active-file-1 gnus-activate-group t] 12 (#$ . 86203)])
#@323 Create a hash table from `gnus-newsrc-alist'.
The keys are group names, and values are a cons of (unread info),
where unread is an integer count of calculated unread
messages (or nil), and info is a regular gnus info entry.
The info element is shared with the same element of
`gnus-newrc-alist', so as to conserve space.
(defalias 'gnus-make-hashtable-from-newsrc-alist #[0 " \306\211\211\211\211G\307\310\n\206 \311\312\313$)\306@@\314\232\203% \2020 \314\315\306\211\211\211\257B\211\262\203\261 @\262\3168\211\262\203a \235\211\262\203\\ \316\233\211@\240\266\202a B\262\317@\211\262\306\320 \321#)\266\203\203\201 \322!\211\262\211\240\266\323 \"\203\222 \211AA\241\210\202\251 \324\205\237 \323 \"@D #\210 BA\262\2024 \237\211\205\321 \211A\262\242\262\325
\"\211\262\203\264 \241\210\202\264 \207" [gnus-newsrc-alist gnus-newsrc-hashtb size gnus-group-list inhibit-changing-match-data gnus-server-alist nil make-hash-table :size 300 :test equal "dummy.group" 0 4 "[^[:ascii:]]" t string-match gnus-group-decoded-name gethash puthash rassoc] 14 (#$ . 87554)])
#@55 Create a hash table from the killed and zombie lists.
(defalias 'gnus-make-hashtable-from-killed #[0 "G G\\\304\305\n\206
\306\307\310$)\311 \"\211\205) \211@\312\313 #\210A\266\202\202 \207" [gnus-killed-list gnus-zombie-list size gnus-killed-hashtb make-hash-table :size 300 :test equal append puthash t] 6 (#$ . 88690)])
#@46 Parse active info in the nntp server buffer.
(defalias 'gnus-parse-active #[0 "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 (#$ . 89028)])
#@56 Mark ARTICLES in GROUP as unread.
(fn GROUP ARTICLES)
(defalias 'gnus-make-articles-unread #[514 "\302\"\206 \302\303\304\"\203 \305\306\225\"\202 \211\262\"A@\3078\310\211\203? \311\211A\262\242\211\262\"\203$ \211B\262\202$ \205` AA\211\312\3078\237\"\240\266\313\302 \"\"\210\314\315\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gethash string-match "^[^:]+:" substring 0 2 nil gnus-member-of-range gnus-remove-from-range gnus-get-unread-articles-in-group gnus-group-update-group t] 11 (#$ . 89266)])
#@66 Mark ascending ARTICLES in GROUP as unread.
(fn GROUP ARTICLES)
(defalias 'gnus-make-ascending-articles-unread #[514 "\302\"\206 \302\303\304\"\203 \305\306\225\"\202 \211\262\"\211A@\3078\211\310\203\346 \211A\262\242@\211:\204q \211\204A \310\211\262 \202\335 \211W\203O A\262\202\335 \211U\205\335 \211A@\240\210\211AA\241\210@\203j \311\202k \312\262\310\202\335 \211@AV\203\233 \211A@\240\210\211AA\241\210@\203\223 \311\202\224 \312\262\202\333 U\203\253 \240\210\202\333 \211W\203\273 A\262\202\333 W\203\305 \310\202\333 TBAB\241\210S\241\210\311\262\266\202\262\204/ \210\202% \211\205\f\211\312=\203\366 \313\310\"\262AA\211\240\266\314\302 \"\"\210\315\311\"\207" [gnus-newsrc-hashtb gnus-active-hashtb gethash string-match "^[^:]+:" substring 0 2 nil t remove-null delq gnus-get-unread-articles-in-group gnus-group-update-group] 14 (#$ . 89807)])
(defalias 'gnus-update-active-hashtb-from-killed #[0 "\304\305\306\206 \307\310\311$)\211\312\n \"\211\205% \211@\313\"\210A\266\202\202 \262\207" [size gnus-active-hashtb gnus-killed-list gnus-zombie-list 4000 make-hash-table :size 300 :test equal append remhash] 6])
#@69 Go through the active hashtb and mark all unknown groups as killed.
(defalias 'gnus-get-killed-groups #[0 "\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 maphash #[514 "\303\304\"\206\f \304 \"?\205/ \305!\211\306=\206 \211\307=?\205- T\262\nB\310\311#\262\207" [gnus-killed-hashtb gnus-newsrc-hashtb gnus-killed-list 0 gethash gnus-matches-options-n subscribe ignore puthash t] 8 "\n\n(fn G-NAME ACTIVE)"] gnus-dribble-touch] 3 (#$ . 91025)])
#@35
(fn &optional FORCE NOT-NATIVE)
(defalias 'gnus-read-active-file #[512 "\306 \210\307\310\311\204 \312!\203 B\202 \313 \205 \314C\"\"\315\211r q\210\211A\262\242\211\262\205} \211\235\204' \3161E \317\320\"0\202G \210\315\203' \f\204R
\203Z \321\"\210\202' \3221f \321\"0\202y \210
\203r \323\324!\210\202' \325\326!\210\202' \210\202' )\207" [gnus-select-method gnus-secondary-select-methods gnus-have-read-active-file nntp-server-buffer debug-on-error debug-on-quit gnus-group-set-mode-line mapcar #[257 "\211;\203\247\306\211;\203J\211\211\203 \211<\203 \211\206I\307\"A\206I\211\310\232\203, \2065\307\n\"A\2065\307 \"A\2065\f\211\203Z \311\312@@@@@A@#\232\204Z \211A\266\202\202= \211@@\262\2065
\211\203~ \311\312@@@A@#\232\204~ \211A\266\202\202c \211@\262\2065\"A\306\211\2033\211A\262\242\3138\262\262;\204\212 \306\314C\3152$\211\242\206\261 \240\210\204\310 \316\317\320\321\322\323!\324\"\313\325%\"\210\n D\211\203\351 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\313 \210\211\242A@\330\235\203\374 \311\331\242@\"\202\311\312\242@\242A@#\211\242B\211\235\204 \204 \307@\"\204 \211B\266\2020\266\204\232\203\212 \262\306\262\202\212 \266\202\211\203F\307\"\204FBB\211\262\207\211 \232\203R \207\211@;\203a\203a\332\"\207\211\203r\204r\211A@\333\232\203r\207\211\334@!\335\307#\">\203\245\336\337P!\236\204\245\340@#\236>\203\245\341\336\337P!A@DC\"\202\246\207\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-newsrc-alist gnus-valid-select-methods] 21 "\n\n(fn M)"] append gnus-check-server gnus-archive-server-wanted-p "archive" nil (error) gnus-get-function open-server gnus-read-active-file-1 (quit) debug "Quit" message "Quit reading the active file"] 7 (#$ . 91628)])
#@21
(fn METHOD FORCE)
(defalias 'gnus-read-active-file-1 #[514 "\306\211A@\262\307\310\203 G\311U\204 \312P\202 \313@#\262\314\315\316#\210\317!\205\203\n\2037 \320!\204; \204w \321@\3221k \211;\203N \323!@\202O \211\324!\204Y \325!\210\326\327\307\330#!!\2620\266\202\202o \210\306\266\202\203w \331\306\"\210 \332=\203=\n\333@\3221\255 \211;\203\220 \323!@\202\221 \211\324!\204\233 \325!\210\326\327\307\330#!!\2620\266\202\202\261 \210\306\266\202\203=\n\204=\n\nA\306\211;\203\211\211\203\317 \211<\203\317 \211\206\334 \"A\206\211\335\232\203\341 \f\206\355\334
\"A\206\355\334@\"A\206\355A\211\203\307\336@@@@@A@#\232\204\211A\266\202\202\364 \211@@\262\206\355B\211\2036\307\336@@@A@#\232\2046\211A\266\202\202\211@\262\206\355\nA\306\211\203\353\211A\262\242\3378\262\262;\204A\306\340C\3412\334\211\242\206h\f\240\210\204\342\343\344\345\346\347!\350\"\337\351% \"\210
@D\211\203\241\211@\342\343\344\352\346\347!\353\"\337\351%\"\210A\266\202\202\203\210\211\242A@\354\235\203\264\307\316\242@\"\202\276\307\336\242@\242A@#\211\242B\211 \235\204\330\204\330\334@ \"\204\330\211 B\266\2020\266\204\232\203A\262\306\262\202A\266\202\211\203\376\334 \"\204\376B B\211\262\266\203\202p\211\f\232\203\f\266\202\202p\211@;\203%\203%\355\"\266\202\202p\211\203:\204:\211A@\313\232\203:\262\202p\211\356@!\357\334C\">\203m\327\360P!\236\204m\361@C\236>\203m\362\327\360P!A@DC\"\202n\266\204\306\211\211A\262\242\211\262\2031\n\211@D\2062\204\216\f\2062\363E\"\204\364\365\"\203\260\307\336\366\367\"\366\370\"\206\254\313#\202\270\307\336\f@\fA@#\262\211\203\307\211<\203\307\211\206\371\334 \"A\206\371\211\335\232\203\331\f\206\345\334
\"A\206\345\334@\"A\206\345A\211\203 \307\336@@@@@A@#\232\204 \211A\266\202\202\354\211@@\262\206\345B\211\203.\307\336@@@A@#\232\204.\211A\266\202\202\211@\262\206\345\nA\306\211\203\343\211A\262\242\3378\262\262;\2049\306\340C\3412\324\211\242\206`\f\240\210\204w\342\343\344\345\346\347!\371\"\337\351% \"\210
@D\211\203\231\211@\342\343\344\352\346\347!\372\"\337\351%\"\210A\266\202\202{\210\211\242A@\373\235\203\254\307\316\242@\"\202\266\307\336\242@\242A@#\211\242B\211 \235\204\320\204\320\334@ \"\204\320\211 B\266\2020\266\204\232\2039\262\306\262\2029\266\202\211\203\366\334 \"\204\366B B\211\262\262\2062\374!\2062\211\206\363E\"A@\262\306\203&\3378\211\262\203&\211\335\232\203*\f\2020\211;\203t\211\211\203=\211<\203=\211\206o\334 \"A\206o\211\335\232\203O\f\206[\334
\"A\206[\334@\"A\206[A\211\203\307\336@@@@@A@#\232\204\211A\266\202\202b\211@@\262\206[B\211\203\244\307\336@@@A@#\232\204\244\211A\266\202\202\211\211@\262\206[\nA\306\211\203Y\211A\262\242\3378\262\262;\204\257\306\340C\3412J\211\242\206\326\f\240\210\204\355\342\343\344\345\346\347!\371\"\337\351% \"\210
@D\211\203\211@\342\343\344\352\346\347!\372\"\337\351%\"\210A\266\202\202\361\210\211\242A@\373\235\203\"\307\316\242@\"\202,\307\336\242@\242A@#\211\242B\211 \235\204F\204F\334@ \"\204F\211 B\266\2020\266\204\232\203\257\262\306\262\202\257\266\202\211\203l\334 \"\204lB B\211\262\262\202\337\211A@;\203\336\211\327\356@!\360P!\211AA\236\204\227\362A@DC\"\262\210F\306\211\211\204I\211A\262\242\211\262\203I@@=\203\234\375AA!\375AA!\306\211\3762>\211A\262\242\211\262\203;@\236\211\262\204\341\377\376\306\"\210\201I \"\262\232\204\306A@;\203\375\211A@;\204\377\376\306\"\210\202\306A@A@\364\201J \"\203\201K !\262\364\201J \"\203+\201K !\262\232\2046\377\376\306\"\210\266\202\306?0\266\206\203\234\262\202\234\266\203\206\337\211A\306\203\206\203\206\211A\262\242@\262@@\232\203TA@A@\232\203T\201L \"\204T\306\262\202T?\266\203\203\223\211AA\204\230\262\202\337\327\307\201M @\"!\211AA\236\203\273@A@\201N QAABB\202\320@A@\201N QA@DAABBB\262FBF\266\203\202\337\211\262\211A@\313\232\203\355\211\2020\211A@\204\372\211@\313D\2020\211\356@!\357\334C\">\203-\327\360P!\236\204-\361@C\236>\203-\362\327\360P!A@DC\"\202.\266\202\266\202\266\202\204=\f\202\216;\203\215\211\203P\211<\203P\211\206\210\334 \"A\206\210\211\335\232\203b\f\206t\334
\"A\206t\334@\"A\206tA\211\203\222\307\336@@@@@A@#\232\204\222\211A\266\202\202u\211@@\262\206tB\211\203\267\307\336@@@A@#\232\204\267\211A\266\202\202\234\211@\262\206t\nA\306\211\203r\211A\262\242\3378\262\262;\204\302\306\340C\3412c\211\242\206\351\f\240\210\204\342\343\344\345\346\347!\201O \"\337\351% \"\210
@D\211\203&\211@\342\343\344\352\346\347!\201P \"\337\351%\"\210A\266\202\202\210\211\242A@\201Q \235\203;\307\316\242@\"\202E\307\336\242@\242A@#\211\242B\211 \235\204_\204_\334@ \"\204_\211 B\266\2020\266\204\232\203\302\262\306\262\202\302\266\202\211\203\205\334 \"\204\205B B\211\262\262\202\216\204\226\f\202\347 ;\203\346 \211\203\251\211<\203\251\211\206\341 \334 \"A\206\341 \211\335\232\203\273\f\206\315 \334
\"A\206\315 \334@\"A\206\315 A\211\203\353\307\336@@@@@A@#\232\204\353\211A\266\202\202\316\211@@\262\206\315 B\211\203 \307\336@@@A@#\232\204 \211A\266\202\202\365\211@\262\206\315 \nA\306\211\203\313 \211A\262\242\3378\262\262;\204 \306\340C\3412\274 \211\242\206B \f\240\210\204[ \342\343\344\345\346\347!\201O \"\337\351% \"\210
@D\211\203 \211@\342\343\344\352\346\347!\201P \"\337\351%\"\210A\266\202\202_ \210\211\242A@\201Q \235\203\224 \307\316\242@\"\202\236 \307\336\242@\242A@#\211\242B\211 \235\204\270 \204\270 \334@ \"\204\270 \211 B\266\2020\266\204\232\203 \262\306\262\202 \266\202\211\203\336 \334 \"\204\336 B B\211\262\262\202\347 \232\206 \nGGU\205 \n\203 \n@\235\203 \nA\262\202\367 ?\266\202\266\204\203r\211@\364\201R \"\203'\n\201S \311\225\"\202(\n\211\262B\262\202r\201T \"\266\204\202\203\n\204E\n\340\202\203\n\201U !\204c\nG\232?\205\203\n\201V \367\201W @#\202\203\n\314\315\316#\210\201X H\306\340$\210\201Y \201Z \"\210\314\315\201[ #\207" [gnus-agent gnus-read-active-file gnus-newsrc-alist gnus-server-method-cache gnus-select-method gnus-server-alist nil format "Reading active file%s via %s..." 0 " from " #1="" gnus-message 5 "%s" gnus-check-server gnus-online request-scan (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" gnus-request-scan some retrieve-groups assoc "native" "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-server-extend-method symbol-name address "-address" physical-address append gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" match-string 1 2 [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-group-name-to-method copy-sequence --cl-block-nil-- throw gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-valid-select-methods gnus-override-method gnus-newsrc-hashtb gnus-extended-servers gnus-message-archive-method gnus-active-hashtb delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "^[^:]+:" substring 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-have-read-active-file "%sdone"] 30 (#$ . 93981)])
#@92 Read an active file for GROUPS in METHOD using `gnus-retrieve-groups'.
(fn GROUPS METHOD)
(defalias 'gnus-read-active-file-2 #[514 "\2054 rq\210\302!\210\303\"\211\204 \304\305\306@#\2021 \211\307=\203, \310 \311\312$\2021 \313 \312#\262)\207" [nntp-server-buffer 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] 8 (#$ . 101931)])
#@58
(fn &optional METHOD HASHTB IGNORE-ERRORS REAL-ACTIVE)
(defalias 'gnus-active-to-gnus-format #[1024 "\204 \262p\2066 \203 \232\204 \2026 \232\203' \306ed\"\202( \307\310\311\n\2060 \312\313\314$)\211\315\211\211 \204K \316\310\311\n\206F \312\313\314$)eb\210\f\317\230\203[ \320\321!\210\202a \320\322\fP!\210eb\210
\203x \203x \323 !\203x \324 !\210\325\315\n\211;\203\322\211\211\203\217 \211<\203\217 \211\206\315\326@\"A\206\315\211\327\232\203\242 \206\266\326A\"A\206\266\326B\"A\206\266C\211\203\323 \330\331@@@@@A@#\232\204\323 \211A\266\202\202\266 \211@@\262\206\266D\211\203\370 \330\331@@@A@#\232\204\370 \211A\266\202\202\335 \211@\262\206\266EA\315\211\203\264\211A\262\242\3328\262\262;\204\315\333C\3342\245\211\242\206+\240\210\204C\335\336\337\340\341\342!\343\"\332\344%@\"\210ABD\211\203f\211@\335\336\337\345\341\342!\346\"\332\344%\"\210A\266\202\202H\210\211\242A@\347\235\203y\330\350\242@\"\202\203\330\331\242@\242A@#\211\242B\211@\235\204\241\204\241\326@@\"\204\241\211@B@\266\2020\266\204\232\203\262\315\262\202\266\202\211\203\312\326@\"\204\312B@B@\211\262\266\203\202<\211\232\203\336\266\202\202<\211@;\203\361\203\361\351\"\266\202\202<\211\203\204\211A@\317\232\203\262\202<\211\352@!\353\326F\">\2039\354\355P!\236\2049\356@F\236>\2039\357\354\355P!A@DC\"\202:\266\204\315\211;\203\224\211\211\203Q\211<\203Q\211\206\217\326@\"A\206\217\211\327\232\203d\206x\326A\"A\206x\326B\"A\206xC\211\203\225\330\331@@@@@A@#\232\204\225\211A\266\202\202x\211@@\262\206xD\211\203\272\330\331@@@A@#\232\204\272\211A\266\202\202\237\211@\262\206xEA\315\211\203v\211A\262\242\3328\262\262;\204\306\315\333C\3342g\211\242\206\355\240\210\204\335\336\337\340\341\342!\343\"\332\344%@\"\210ABD\211\203(\211@\335\336\337\345\341\342!\346\"\332\344%\"\210A\266\202\202\n\210\211\242A@\347\235\203;\330\350\242@\"\202E\330\331\242@\242A@#\211\242B\211@\235\204c\204c\326@@\"\204c\211@B@\266\2020\266\204\232\203\306\262\315\262\202\306\266\202\211\203\214\326@\"\204\214B@B@\211\262\266\203\202\376\211\232\203\240\266\202\202\376\211@;\203\263\203\263\351\"\266\202\202\376\211\203\310\204\310\211A@\317\232\203\310\262\202\376\211\352@!\353\326F\">\203\373\354\355P!\236\204\373\356@F\236>\203\373\357\354\355P!A@DC\"\202\374\266\204\"\204\"\360\317\n\"eb\210m\204!g\361U\203\362u\210\211c\210\362y\363U\204\n\210\364\365!r\211q\210\336\363\366\341\342!\367\"\370$\216\371!\210p\262eb\210m?\205\363\3721\323\373!\262\247\203Z\374!\202k9\203e\352!\202k;\205k\211\262;\203\313\373!\211\262\247\203\313\373!\211\262\247\203\313\375\315w\210\315f\376>\204\313\377\315\333 G\201H #)\266\203\203\255\201I !\262\201J B#\210\315f\201K =\205\317\201J \333 #\202\317\315\211\2620\202\354\210\204\355\201L \201M \201N \201O \201P {#\210\362y\210\202@*\262\207" [gnus-select-method gnus-active-hashtb size gnus-moderated-hashtb gnus-ignored-newsgroups gnus-agent count-lines 4000 make-hash-table :size 300 :test equal nil 100 #1="" delete-matching-lines "^to\\." "^to\\.\\|" gnus-online gnus-agent-save-active gnus-server-equal assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-server-extend-method symbol-name address intern "-address" physical-address append gnus-group-prefixed-name 34 1 0 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 insert-buffer-substring (error) read number-to-string " " (61 120 106) "[^[:ascii:]]" gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods inhibit-changing-match-data string-match gnus-group-decoded-name puthash 109 gnus-message 3 "Warning - invalid active: %s" point-at-bol point-at-eol] 31 (#$ . 102421)])
#@44
(fn METHOD &optional HASHTB REAL-ACTIVE)
(defalias 'gnus-groups-to-gnus-format #[769 "p\206# \203 \203 \202# \306ed\"\307\310 \206 \311\312\313$)\211\205\235\314\315\211;\203t\211\211\203> \211<\203> \211\206o\316\n\"A\206o\211\317\232\203P \206[\316\f\"A\206[\316
\"A\206[5\211\203 \320\321@@@@@A@#\232\204 \211A\266\202\202b \211@@\262\206[6\211\203\244 \320\321@@@A@#\232\204\244 \211A\266\202\202\211 \211@\262\206[7A\315\211\203Y\211A\262\242\3228\262\262;\204\260 \315\323C\3242J\211\242\206\327 \240\210\204\356 \325\326\327\330\331\332!\333\"\322\334%\n\"\210\f
D\211\203\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\361 \210\211\242A@\337\235\203\"\320\340\242@\"\202,\320\321\242@\242A@#\211\242B\211\n\235\204F\204F\316@\n\"\204F\211\nB\266\2020\266\204\232\203\260 \262\315\262\202\260 \266\202\211\203l\316\n\"\204lB\nB\211\262\266\203\202\336\211 \232\203\200 \266\202\202\336\211@;\203\223\203\223\341\"\266\202\202\336\211\203\250\204\250\211A@\342\232\203\250\262\202\336\211\343@!\344\3168\">\203\333\345\346P!\236\204\333\347@8\236>\203\333\350\345\346P!A@DC\"\202\334\266\204\315 \211;\203)\211\211\203\363\211<\203\363\211\206$\316\n\"A\206$\211\317\232\203 \206\316\f\"A\206\316
\"A\2065\211\2034\320\321@@@@@A@#\232\2044\211A\266\202\202\211@@\262\2066\211\203Y\320\321@@@A@#\232\204Y\211A\266\202\202>\211@\262\2067A\315\211\203\211A\262\242\3228\262\262;\204e\315\323C\3242\377\211\242\206\214 \240\210\204\243\325\326\327\330\331\332!\333\"\322\334%\n\"\210\f
D\211\203\304\211@\325\326\327\335\331\332!\336\"\322\334%\"\210A\266\202\202\246\210\211\242A@\337\235\203\327\320\340\242@\"\202\341\320\321\242@\242A@#\211\242B\211\n\235\204\373\204\373\316@\n\"\204\373\211\nB\266\2020\266\204\232\203e\262\315\262\202e\266\202\211\203!\316\n\"\204!B\nB\211\262\266\203\202\223\211 \232\2035 \266\202\202\223\211@;\203H\203H\341\"\266\202\202\223\211\203]\204]\211A@\342\232\203]\262\202\223\211\343@!\344\3168\">\203\220\345\346P!\236\204\220\347@8\236>\203\220\350\345\346P!A@DC\"\202\221\266\204\"?\205\235\351\342\"9\203\305\203\305\352!\203\305\353!\203\305\354\323\"\210\355\315$\202,eb\210\315\211\211m?\205*\3561 \315f\357=\205\360!\210\360!\210\360!\262\360!\262\360!\262\211\247\203\361!\202\343!\262\362\203P\202B#0\202#\210\363\"\210\364y\210\202\313\266\203\207" [gnus-active-hashtb size gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist count-lines make-hash-table :size 300 :test equal gnus-server-equal nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-group-prefixed-name gnus-online gnus-agent-method-p gnus-agent-save-active gnus-active-to-gnus-format (error) 50 read number-to-string puthash remhash 1 gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods gnus-agent] 27 (#$ . 106745)])
#@89 Read startup file.
If FORCE is non-nil, the .newsrc file is read.
(fn &optional FORCE)
(defalias 'gnus-read-newsrc-file #[256 "\304\305\"\211\203 \211@\306L\210\211A\262\202 \210 \211\307P\212\310!\210\n\203] \311 !\203] \204@ \312\"\203< \312\313P\"\204@ \204] \212\314\315\316#\210\317!q\210\320 \210\321 \210\322p!\210\314\315\323#\210)\324 \210\325 )\207" [gnus-variable-list gnus-current-startup-file gnus-read-newsrc-file gnus-newsrc-alist 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 gnus-clean-old-newsrc] 7 (#$ . 110249)])
#@24
(fn &optional FORCE)
(defalias 'gnus-clean-old-newsrc #[256 "\300\207" [nil] 2 (#$ . 111020)])
#@64 Convert old newsrc formats into the current format, if needed.
(defalias 'gnus-convert-old-newsrc #[0 "\205 \304!\304 \205\330 \305\306\307\310\311\"\312\"\211\203) @@Y\203) \211A\266\202\202 \211\205\326 @@W\205\326 \211\203\317 @@W\203\317 \211@@X\203\317 \211A\262\242\211A@\3138\3148\203g \315!\204g \316\317\"\210\204\307 \320!\203\307 \305\317\321\322\323 #\210\324 \262\211\325=\204\214 \211\326=\203\222 \327\330!\202\301 \211\331=\204\236 \211\332=\203\245 \317\262\305\202\301 \211\333=\203\267 \322\334!\210\335\336!\210\317\202\301 \337\314\340\"\210\335\314!\210\317*\262\204q \211!\266\2025 \341\342\343 #!\266\202\207" [gnus-newsrc-file-version echo-keystrokes cursor-in-echo-area gnus-version gnus-continuum-version nil sort mapcar #[257 "\300@!B\207" [gnus-continuum-version] 3 "\n\n(fn DATE-FUNC)"] (("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-message ";Converted gnus from version `%s' to `%s'."] 13 (#$ . 111123)])
#@260 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.
(fn CONVERTER NO-PROMPT)
(defalias 'gnus-convert-mark-converter-prompt #[514 "\300\301#\207" [put gnus-convert-no-prompt] 6 (#$ . 112712)])
#@18
(fn CONVERTER)
(defalias 'gnus-convert-converter-needs-prompt #[257 "\211\300N\211\301>\203
\211\202 \211 ?\207" [gnus-convert-no-prompt (t nil)] 4 (#$ . 113094)])
#@22
(fn CONVERTING-TO)
(defalias 'gnus-convert-old-ticks #[257 "A\301\211\211\211\211A\262\242\211\262\205H \3028\211\262\203 \303\236A\262\304\236A\262\204/ \211\203 AA\211\305\3068\307!\307!\244\"\240\266\202 \207" [gnus-newsrc-alist nil 3 dormant tick gnus-add-to-range 2 gnus-uncompress-range] 13 (#$ . 113268)])
#@75 Load FILE, but in such a way that read errors can be reported.
(fn FILE)
(defalias 'gnus-load #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210m?\205U \3121- \313p!\314\315\"\2620\202Q \211@\316=?\205O \317\320\321e`\"#\322 \210\323\324P!?\205M \325\326\"\262\262\210\202 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (error) read eval t end-of-file format "Error in %s line %d" count-lines ding gnus-yes-or-no-p "; continue? " error "%s"] 9 (#$ . 113611)])
#@13
(fn FILE)
(defalias 'gnus-read-newsrc-el-file #[257 "\211\305P\306!\203/ \307\310\311#\210\312\313!\210\205 \314!\211\203% \211\315W\203' \210\211\203. \211\210\316 \210\f\203; \317\320\f\"\321\"\203L \307\310\311#\210\322!\210\210\323\324!\207" [gnus-newsrc-file-version gnus-default-format-specs gnus-format-specs gnus-newsrc-alist gnus-topic-alist "d" file-exists-p gnus-message 5 "Reading %s..." nil gnus-load gnus-continuum-version 5.090009 gnus-make-hashtable-from-newsrc-alist mapcar #[257 "\211@\300\301A\"B\207" [mapcar #[257 "\301\302\303\304#)\266\203\203 \305!\207\207" [inhibit-changing-match-data "[^[:ascii:]]" nil t string-match gnus-group-decoded-name] 8 "\n\n(fn G)"]] 5 "\n\n(fn ELT)"] file-newer-than-file-p gnus-read-old-newsrc-el-file gnus-run-hooks gnus-read-newsrc-el-hook] 6 (#$ . 114212)])
#@13
(fn FILE)
(defalias 'gnus-read-old-newsrc-el-file #[257 "\306\211\211\211\211\211\211\211\211\211\3071 \310 \311\211\211$0\202 \210\202 \210\211\262\n\262 \262)\266\306\211A\262\242\211\262\203\302 @\312 \"A@\262\211\262\203 \211AA\211AA\240\266\211\211A@\203` \n\202a A@\211:\203o \211\240\202v A\211\240\262\266\211B\202\226 @A@\203\213 \n\202\214 AAE\211\262B\313@\"\211\262\203. \314\233\204\254 \211\306C\244\210\314\233\211\315\316\317A\320\"\311\"BC\240\266\202. \262\203\326 \211@@\240\210A\262\202\305
\203\374 \321\322
\"\204\347 \323
P\321\324
\"\204\362
\325P
\326\230\204\374 \327
!\210\237\330 \207" [gnus-newsrc-alist gnus-newsrc-hashtb gnus-level-default-subscribed gnus-level-default-unsubscribed gnus-killed-list gnus-newsrc-options nil (error) load t gethash assoc 3 tick gnus-compress-sequence sort < string-match "^ *options" "options " "\n$" "\n" "" gnus-newsrc-parse-options gnus-make-hashtable-from-newsrc-alist] 16 (#$ . 115058)])
#@85 Make server dependent file name by catenating FILE and server host name.
(fn FILE)
(defalias 'gnus-make-newsrc-file #[257 "\301\302\"\211\303A@Q\304!\204 \304\305P!\204 \304\306P!\203$ \211\202% \207" [gnus-select-method expand-file-name nil "-" file-exists-p ".el" ".eld"] 6 (#$ . 116082)])
(defalias 'gnus-newsrc-to-gnus-format #[0 "\306\307\n\204 \310\311\312 \206 \313\314\315$)p\fG\316V\307\211\211\211\211eb\210m\204\242`\317\307w\210`}\210eb\210edU?\205= \320!\262\247\203J \321!\202Q \322\323!\324\"\262~\210\227\325\230\203v \326 \327\330\307\331#\203l \326 \206m `{P\332y\210\202\234\203\234\307f\333=\262\307\262l\203\215 \334 \210\202\221 \335\307w\210\336\337!\203\337 \340\224\340\225}\210\320!\262~\210\307f\341=\203\322 \316u\210\336\337!\204\275 \211B\262\202\327 \211\340\224\340\225}\210\320!BB\262~\210\202\327 \211B\262\307f\342=?\202\370 \307f\342=\204m\204\367 \307\262\343\344\345\326 \346 {#\210\307\203\347\307w\210\202\221 \203\234\350
\"A@\262\307\203xAA\211\237\240\266\211A@\211:\203+\211@\202,\211\266\202\262\211-X\203L\204L\203D.\202G.T\262\202[\211-V\203[\203[/\262\211A@\211:\203l\211\240\202sA\211\240\262\266\202\225\203\204/\202\220\203\216-T\202\220.\237E\262B\262\266\316y\210\202# \237\262\204\365\fA\f\307\211\203\363\351@8\203\351\352@@\"\204\351\352@@\"\211\262\203\342>\211\262@AB\241\210\202\351@B\262\262A\262\202\257\266\353 \210\306\230?\205\354!\207" [gnus-newsrc-options gnus-newsrc-options-n gnus-active-hashtb size gnus-newsrc-alist gnus-newsrc-hashtb "" nil 4000 make-hash-table :size 300 :test equal 1 "^ !:\n" read number-to-string decode-coding-string symbol-name raw-text "options" point-at-bol re-search-forward "^[^ ]" move -1 58 beginning-of-line "!: " looking-at "[0-9]+" 0 45 10 gnus-error 3.1 "Mangled line: %s" point-at-eol ", " gethash 4 assoc gnus-make-hashtable-from-newsrc-alist gnus-newsrc-parse-options gnus-level-subscribed gnus-level-default-unsubscribed gnus-level-default-subscribed] 16])
#@16
(fn OPTIONS)
(defalias 'gnus-newsrc-parse-options #[257 "\301\211\212\302 \210\303!c\210eb\210\304\305\301\306#\203 \307\310\306\211#\210\202 eb\210\304\311\301\306#\2033 \307\312\306\211#\210\202\" eb\210\304\313\301\306#\203H \307\310!\210\314u\210\2026 eb\210\304\315\301\306#\203\231 \212\304\315\316 \306#\205` `\317Z)\206f \316 \262\304\320\306#\203K \321\224f\322=\203\212 \323\321\224T\321\225{\324Q\325BB\262\202h \323\326\321!\324Q\327BB\262\202h \211)\207" [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] 7 (#$ . 118203)])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias gnus-long-file-names fboundp msdos-long-file-names #[0 "\300\207" [t] 1]] 4)
(defvar gnus-save-newsrc-file-last-timestamp nil)
#@183 Save .newsrc file.
Use the group string names in `gnus-group-list' to pull info
values from `gnus-newsrc-hashtb', and write a new value of
`gnus-newsrc-alist'.
(fn &optional FORCE)
(defalias 'gnus-save-newsrc-file #[256 "\204 \205L\n\205L \203 \306!\210\212\f\204
\203< \211\204< \307@!\2035 r@q\210\310 )\311U\203< \312\313\314\"\202K\315\316!\210
\203J \317 \210\202BA\203\264B\211\203^ \211<\203^ \211\206\235\320C\"A\206\235\211\321\232\203r B\206\206\320D\"A\206\206\320E\"A\206\206F\211\203\243 \322\323@@@@@A@#\232\204\243 \211A\266\202\202\206 \211@@\262\206\206G\211\203\310 \322\323@@@A@#\232\204\310 \211A\266\202\202\255 \211@\262\206\206A\324\211\203\204\211A\262\242\3138\262\262;\204\323 \324\325C\3262u\211\242\206\373 B\240\210\204\327\330\331\332\333\334!\335\"\313\336%C\"\210DED\211\2036\211@\327\330\331\337\333\334!\340\"\313\336%\"\210A\266\202\202\210\211\242A@\341\235\203I\322\342\242@\"\202S\322\323\242@\242A@#\211\242B\211C\235\204q\204q\320@C\"\204q\211CBC\266\2020\266\204\232\203\323 \262\324\262\202\323 \266\202\211\203\232\320C\"\204\232BCBC\211\262\262@\343=\203\264\312\344\345\n#\210\346 \210\312\344\347\n#\210\350\351!q\210\352\353!\210H+\n\354PI\355I!J\356 \210\357 \210\312\360\361\n#\210\n\354P\362!\3608\262K\205\374\363K\"\205\374\364\322\365\366\367K\"#!?\266\202\203\f\312\313\370\n\354P#\210\202BL\2031Mp N O\371 \210\315\372!\210\373 \210\362I!\3608\262K*\202MH\n\354P\355\n!\324C\374 + O\322P\375=\203V\376 \204V\377\202Y\201T T\211\262#\240\210\201U \242!\204D\330\311\201V \333\334!\201W \"\201X $\216\201Y \201Z \311\"\311C\324C\330\331\201[ \333\334\n %\201\\ \"\201] \201^ % N\371 \210\315\372!\210\242\311V\203\324\201_ O\201` \201a \311\242#\324\242\242\201b %\210))\266\324\325\201c ! Q I R\201d \210\201e \242 \325#\210\201f \"\210\362!\3608\262K+\266+\266p\211 S\211\205*\307\201g S!\211S!\205*S)\2039\201h !\210\201i \210\210\312\360\201j \n#\210\201k \210\201l )\207" [gnus-newsrc-alist gnus-killed-list gnus-current-startup-file gnus-agent gnus-use-dribble-file gnus-slave gnus-agent-save-local buffer-live-p buffer-size 0 gnus-message 4 "(No changes need to be saved)" gnus-run-hooks gnus-save-newsrc-hook gnus-slave-save-newsrc assoc "native" format "%s:%s" nil t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nntp 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..." file-attributes time-less-p y-or-n-p "%s was updated externally after %s, save?" format-time-string "%c" "Didn't save %s: updated externally" gnus-gnus-to-quick-newsrc-format gnus-save-quick-newsrc-hook save-buffer -1 ms-dos gnus-long-file-names "%s#%d.tm#" gnus-dribble-buffer gnus-save-newsrc-file gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-backup-startup-file buffer-file-name default-directory gnus-save-newsrc-file-last-timestamp gnus-save-startup-file-via-temp-buffer gnus-ding-file-coding-system standard-output coding-system-for-write system-type file-precious-flag buffer-backed-up buffer "%s#tmp#%d" file-exists-p "\3011\n \302\300\242!0\207\210\303\207" [(file-error) delete-file nil] 2 131072 make-string "\302\303\242I\210\301\303\211\242T\240U\205! \305\302\306\300\242\304\242\307%\210\303\310\240\210\304\311\240\207" [write-region nil no-msg 0 t] 7 "\n\n(fn C)" no-conversion write-region substring no-msg file-modes backup-buffer rename-file gnus-set-file-modes get-buffer kill-buffer gnus-prune-buffers "Saving %s.eld...done" gnus-dribble-delete-file gnus-group-set-mode-line] 21 (#$ . 119142)])
#@419 Print Gnus variables such as `gnus-newsrc-alist' in Lisp format.
Unless optional argument MINIMAL is non-nil, print human-readable
information in the header of the file, including the file
version. If NAME is present, print that as part of the header.
Variables printed are either the variables specified in
SPECIFIC-VARIABLES, or those in `gnus-variable-list'.
(fn &optional MINIMAL NAME &rest SPECIFIC-VARIABLES)
(defalias 'gnus-gnus-to-quick-newsrc-format #[640 "\306\307\310\"!\210\306\203 \307\311\"\202 \312!\210\204, \306\313!\210\306\314!\210\306\315 !!\210\306\316!\210\317\320\321\322\n\"\"\323 \324 \323 !\324\211 \" #\324 $\323 %&\203W &;\203W \325 \202Y \211\206p &\203i '\202p \326\327\330'!\"\317\331 \"\332>\205\200 \317\333\" \324\205\264 \334\211A\262\242\211\262!\203\203 \211J\203\203 \306\335!\210\306\336!!\210\306\337!\210\340J!\210\306\316!\210\202\203 .\n\207" [gnus-ding-file-coding-system gnus-version gnus-group-list gnus-newsrc-alist print-quoted print-escape-multibyte 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" mapcar #[257 "\301\"A@\207" [gnus-newsrc-hashtb gethash] 4 "\n\n(fn G)"] delete "dummy.group" t nil gnus-strip-killed-list delq gnus-killed-list copy-sequence #[257 "\300@\301\"AB\207" [encode-coding-string utf-8-emacs] 4 "\n\n(fn INFO)"] gnus-topic-alist #[257 "\211@\300\301A\"B\207" [mapcar #[257 "\300\301\"\207" [encode-coding-string utf-8-emacs] 4 "\n\n(fn G)"]] 5 "\n\n(fn ELT)"] boundp "\n(setq " symbol-name " '" prin1 print-escape-nonascii print-length print-level print-circle print-escape-newlines gnus-save-killed-list gnus-variable-list] 9 (#$ . 123294)])
#@77 Return the killed list minus the groups that match `gnus-save-killed-list'.
(defalias 'gnus-strip-killed-list #[0 "\302\203 \303 @\"\203 @B\262\211A\262\210\202 \211\237\207" [gnus-killed-list gnus-save-killed-list nil string-match] 5 (#$ . 125189)])
#@29
(fn &optional FOREIGN-OK)
(defalias 'gnus-gnus-to-newsrc-format #[256 "r\306!q\210p\307\310\311 !\"\312\211\211\211\313 !\314 \210\315 \210
\203&
c\210\211\203\334\211@\3164\"A@\262\3178\211\262\203=\320\232\204=5\204R 5\202\253;\203\252\211\203e \211<\203e \211\206\245\3216\"A\206\245\211\320\232\203y 5\206\216\3217\"A\206\216\3218\"A\206\2169\211\203\252 \322\323@@@@@A@#\232\204\252 \211A\266\202\202\215 \211@@\262\206\216:\211\203\317 \322\323@@@A@#\232\204\317 \211A\266\202\202\264 \211@\262\206\216;A\312\211\203\214\211A\262\242\3178\262\262;\204\333 \312\324C\3252}\211\242\2065\240\210\204\326\327\330\331\332\333!\334\"\317\335%6\"\21078D\211\203>\211@\326\327\330\336\332\333!\337\"\317\335%\"\210A\266\202\202 \210\211\242A@\340\235\203Q\322\341\242@\"\202[\322\323\242@\242A@#\211\242B\2116\235\204y\204y\321@6\"\204y\2116B6\266\2020\266\204\232\203\333 \262\312\262\202\333 \266\202\211\203\242\3216\"\204\242B6B6\211\262\262\202\253\204\2645\202
;\203\f\211\203\307\211<\203\307\211\206\3216\"A\206\211\320\232\203\3335\206\360\3217\"A\206\360\3218\"A\206\3609\211\203\f\322\323@@@@@A@#\232\204\f\211A\266\202\202\357\211@@\262\206\360:\211\2031\322\323@@@A@#\232\2041\211A\266\202\202\211@\262\206\360;A\312\211\203\356\211A\262\242\3178\262\262;\204=\312\324C\3252\337\211\242\206e5\240\210\204}\326\327\330\331\332\333!\334\"\317\335%6\"\21078D\211\203\240\211@\326\327\330\336\332\333!\337\"\317\335%\"\210A\266\202\202\202\210\211\242A@\340\235\203\263\322\341\242@\"\202\275\322\323\242@\242A@#\211\242B\2116\235\204\333\204\333\321@6\"\204\333\2116B6\266\2020\266\204\232\203=\262\312\262\202=\266\202\211\203\3216\"\204B6B6\211\262\262\202
\232\2061GGU\2051\203/@\235\203/A\262\202 ?\266\202\266\204\204=\203\325\211\211A@\211:\203M\211@\202N\211\266\202<V\203Z\342\202[\343\261\210\3448\211\262\203\322\345c\210A<\204\221@AU\203\201\346@!\210\202\322\346@!\210\347c\210\346A!\210\202\322\211A\262\242\211\262\203\322:\203\252@AU\203\273\346:\204\264\206\266@!\210\202\310\346@!\210\347c\210\346A!\210\203\221\350c\210\202\221\351c\210A\266\202\202' \210\352\353!\210\354+=\203\361\355>!\210\202\364\356 \210\357\360!\210\361 ?\362 \210)\363p!)\266\206)\207" [gnus-current-startup-file gnus-group-list standard-output buffer-file-name default-directory gnus-newsrc-options create-file-buffer delete "dummy.group" copy-sequence nil file-name-directory buffer-disable-undo erase-buffer gethash 4 "native" assoc format "%s:%s" t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" "!" ":" 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 gnus-newsrc-hashtb gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-level-subscribed gnus-modtime-botch gnus-startup-file coding-system-for-write] 30 (#$ . 125457) (byte-code "\300\301!C\207" [gnus-y-or-n-p "write foreign groups too? "] 2)])
(defvar gnus-slave-mode nil)
#@30 Minor mode for slave Gnusae.
(defalias 'gnus-slave-mode #[0 "\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 (#$ . 129069)])
(defalias 'gnus-slave-save-newsrc #[0 "rq\210\304 \305P!\3061 \307 \310P!0\202 \210\311\n\312!\210)\211\205' \313\"\266\202)\207" [gnus-dribble-buffer gnus-current-startup-file gnus-ding-file-coding-system coding-system-for-write make-temp-file "-slave-" (error) file-modes ".eld" nil gnus-write-buffer gnus-set-file-modes] 5])
(defalias 'gnus-master-read-slave-newsrc #[0 "\302\303!\304\305\306\307!\310P!P\304$\311\205w \312\313\314\"\210r\315\316!q\210\317\320\321\"\322\"\262\203o \323 \210@A@\262\324!\210\3251G \326p!\210\3040\202Q \210\327\330\331#\210\202h \203h \204h \3321c \333!0\202g \210\202h \210A\262\202) )\334 \210\312\313\335\"\207" [gnus-current-startup-file 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 #[257 "\300!\3018\262D\207" [file-attributes 5] 4 "\n\n(fn FILE)"] #[514 "\300@@\"\207" [time-less-p] 5 "\n\n(fn F1 F2)"] erase-buffer nnheader-insert-file-contents (error) eval-buffer gnus-error 3.2 "Possible error in %s" (error) delete-file gnus-dribble-touch "Reading slave newsrcs...done"] 7])
(defalias 'gnus-read-all-descriptions-files #[0 "\302 \205 \303C \244B\211\203 \304@!\210\211A\262\202 \305\207" [gnus-select-method gnus-secondary-select-methods gnus-archive-server-wanted-p "archive" gnus-read-descriptions-file t] 3])
#@25
(fn &optional METHOD)
(defalias 'gnus-read-descriptions-file #[256 "\211\206 \306;\203L\211\203 \211<\203 \211\206H\307 \"A\206H\211\310\232\203+ \2064\307\n\"A\2064\307 \"A\2064\f\211\203Y \311\312@@@@@A@#\232\204Y \211A\266\202\202< \211@@\262\2064
\211\203} \311\312@@@A@#\232\204} \211A\266\202\202b \211@\262\2064@A\306\211\2032\211A\262\242\3138\262\262;\204\211 \306\314C\3152#\211\242\206\260 \240\210\204\307 \316\317\320\321\322\323!\324\"\313\325% \"\210\n D\211\203\350 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\312 \210\211\242A@\330\235\203\373 \311\331\242@\"\202\311\312\242@\242A@#\211\242B\211 \235\204 \204 \307@ \"\204 \211 B\266\2020\266\204\232\203\211 \262\306\262\202\211 \266\202\211\203E\307 \"\204EB B\211\262\262\262A\204e\332B! C\333\334C\206_\335\336\337$)A\340\341\342\"\343A#\210\344\345\346@#\210\347\350\314#\204\202\314\202}\351!\204\221\344\352\353\"\210\306\202}\354!\204\240\344\352\355\"\210\306\202}\212\214Dq\210eb\210\356\357\306\314#\204\266db\203\275\360 \210e`}\210\203\306\211;\203\n\211\211\203\326\211<\203\326\211\206\307 \"A\206\211\310\232\203\350\206\361\307\n\"A\206\361\307 \"A\206\361\f\211\203\311\312@@@@@A@#\232\204\211A\266\202\202\371\211@@\262\206\361
\211\203:\311\312@@@A@#\232\204:\211A\266\202\202 \211@\262\206\361@A\306\211\203\357\211A\262\242\3138\262\262;\204F\306\314C\3152\340\211\242\206m\240\210\204\204\316\317\320\321\322\323!\361\"\313\325% \"\210\n D\211\203\245\211@\316\317\320\326\322\323!\362\"\313\325%\"\210A\266\202\202\207\210\211\242A@\363\235\203\270\311\331\242@\"\202\302\311\312\242@\242A@#\211\242B\211 \235\204\334\204\334\307@ \"\204\334\211 B\266\2020\266\204\232\203F\262\306\262\202F\266\202\211\203\307 \"\204B B\211\262\266\203\202t\211\232\203\266\202\202t\211@;\203)\203)\364\"\266\202\202t\211\203>\204>\211A@\342\232\203>\262\202t\211\365@!\366\307E\">\203q\367\370P!\236\204q\371@E\236>\203q\372\367\370P!A@DC\"\202r\266\204\306\211;\203\275\211\211\203\211\211<\203\211\211\206\270\307 \"A\206\270\211\310\232\203\233\206\244\307\n\"A\206\244\307 \"A\206\244\f\211\203\311\311\312@@@@@A@#\232\204\311\211A\266\202\202\254\211@@\262\206\244
\211\203\355\311\312@@@A@#\232\204\355\211A\266\202\202\322\211@\262\206\244@A\306\211\203\242\211A\262\242\3138\262\262;\204\371\306\314C\3152\223\211\242\206 \240\210\2047\316\317\320\321\322\323!\361\"\313\325% \"\210\n D\211\203X\211@\316\317\320\326\322\323!\362\"\313\325%\"\210A\266\202\202:\210\211\242A@\363\235\203k\311\331\242@\"\202u\311\312\242@\242A@#\211\242B\211 \235\204\217\204\217\307@ \"\204\217\211 B\266\2020\266\204\232\203\371\262\306\262\202\371\266\202\211\203\265\307 \"\204\265B B\211\262\266\203\202'\211\232\203\311\266\202\202'\211@;\203\334\203\334\364\"\266\202\202'\211\203\361\204\361\211A@\342\232\203\361\262\202'\211\365@!\366\307E\">\203$\367\370P!\236\204$\371@E\236>\203$\372\367\370P!A@DC\"\202%\266\204\204/\202w;\203v\211\203B\211<\203B\211\206q\307 \"A\206q\211\310\232\203T\206]\307\n\"A\206]\307 \"A\206]\f\211\203\202\311\312@@@@@A@#\232\204\202\211A\266\202\202e\211@@\262\206]
\211\203\246\311\312@@@A@#\232\204\246\211A\266\202\202\213\211@\262\206]@A\306\211\203[\211A\262\242\3138\262\262;\204\262\306\314C\3152L\211\242\206\331\240\210\204\360\316\317\320\321\322\323!\373\"\313\325% \"\210\n D\211\203\211@\316\317\320\326\322\323!\374\"\313\325%\"\210A\266\202\202\363\210\211\242A@\375\235\203$\311\331\242@\"\202.\311\312\242@\242A@#\211\242B\211 \235\204H\204H\307@ \"\204H\211 B\266\2020\266\204\232\203\262\262\306\262\202\262\266\202\211\203n\307 \"\204nB B\211\262\262\202w\204\202\307;\203\306\211\203\222\211<\203\222\211\206\301\307 \"A\206\301\211\310\232\203\244\206\255\307\n\"A\206\255\307 \"A\206\255\f\211\203\322\311\312@@@@@A@#\232\204\322\211A\266\202\202\265\211@@\262\206\255
\211\203\366\311\312@@@A@#\232\204\366\211A\266\202\202\333\211@\262\206\255@A\306\211\203\253\211A\262\242\3138\262\262;\204\306\314C\3152\234\211\242\206)\240\210\204@\316\317\320\321\322\323!\373\"\313\325% \"\210\n D\211\203a\211@\316\317\320\326\322\323!\374\"\313\325%\"\210A\266\202\202C\210\211\242A@\375\235\203t\311\331\242@\"\202~\311\312\242@\242A@#\211\242B\211 \235\204\230\204\230\307@ \"\204\230\211 B\266\2020\266\204\232\203\262\306\262\202\266\202\211\203\276\307 \"\204\276B B\211\262\262\202\307\232\206\353GGU\205\353\203\351@\235\203\351A\262\202\327?\266\202\266\204\204\341\342\"eb\210m\204\211c\210\352y\376U\204\371\210eb\210m\204t\3771 \201G D!0\202 \210\306\262\201H \306w\210\211\203n\211\247\2038\201I !\202;\365!\262`\306\210`{\201J \"\206V\201K !\206VF\203f\211\203f\201L \"\262\340A#\266\352y\210\202 *\344\345\201M \"\210\314\207" [gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" hash-table-size make-hash-table :size 300 :test equal puthash 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 [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-server-extend-method symbol-name address intern "-address" physical-address append [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) 0 (error) gnus-newsrc-alist gnus-description-hashtb gnus-active-hashtb size nntp-server-buffer gnus-valid-select-methods gnus-default-charset read " " number-to-string gnus-group-name-charset gnus-parameter-charset decode-coding-string "Reading descriptions file...done"] 24 (#$ . 130730)])
#@78 Get the description of a group by sending XGTITLE to the server.
(fn GROUP)
(defalias 'gnus-group-get-description #[257 "\301!\205 rq\210eb\210\302\303!\205 \304\305!)\207" [nntp-server-buffer gnus-request-group-description looking-at "[^ ]+[ ]+\\(.*\\)" match-string 1] 3 (#$ . 137388)])
#@85 Declare back end NAME with ABILITIES as a Gnus back end.
(fn NAME &rest ABILITIES)
(defalias 'gnus-declare-backend #[385 "\301\302#C\244\303 \207" [gnus-valid-select-methods apply list gnus-redefine-select-method-widget] 7 (#$ . 137690)])
#@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 #[0 "\203 \302!\203 \303\304!!\202 \211\207" [gnus-default-directory default-directory file-exists-p file-name-as-directory expand-file-name] 3 (#$ . 137941)])
(defalias 'gnus-display-time-event-handler #[0 "\301\302!\205 \303\300!\205 \205 \302 \207" [display-time-timer fboundp display-time-event-handler boundp] 2])
(defalias 'gnus-check-reasonable-setup #[0 "\306\211\211\211\211\205\226\211@\211\211\203 \211<\203 \211\206H\307 \"A\206H\211\310\232\203+ \n\2064\307\"A\2064\307 \"A\2064\f\211\203Y \311\312@@@@@A@#\232\204Y \211A\266\202\202< \211@@\262\2064
\211\203} \311\312@@@A@#\232\204} \211A\266\202\202b \211@\262\2064\"A\306\211\2032\211A\262\242\3138\262\262;\204\211 \306\314C\3152#\211\242\206\260 \n\240\210\204\307 \316\317\320\321\322\323!\324\"\313\325% \"\210 D\211\203\350 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\312 \210\211\242A@\330\235\203\373 \311\331\242@\"\202\311\312\242@\242A@#\211\242B\211 \235\204 \204 \307@ \"\204 \211 B\266\2020\266\204\232\203\211 \262\306\262\202\211 \266\202\211\203E\307 \"\204EB B\211\262\262\262\332\311\333@\"!\262@\334>\203\217\335!\203\217\336!\203\217\307J\"\211\262\203\206\337\340\311\341 @A@@$\"\210JDB\262A\266\202\202 \262\207" [gnus-server-alist gnus-server-method-cache gnus-select-method gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods nil assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" intern "%s-active-file" (nnml nnfolder) gnus-server-opened boundp display-warning gnus-server "%s and %s share the same active file %s" gnus-newsrc-alist] 24])
(provide 'gnus-start)
Zerion Mini Shell 1.0