;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:42:26 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-start.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-start.el' was compiled for Emacs 19.29 or later")) (byte-code "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!安ﾇ!以ﾉﾊﾋ\fﾍﾏ&以ﾐﾑﾒ\fﾍﾏ&以ﾓﾔﾕ\fﾍﾖ&以ﾗﾘﾙ\fﾍﾚ&以ﾛﾜﾝ\fﾞﾟ&以獵\fﾞ&以聿\fﾍ&以釐\fﾟ&以\f&以\f&以\f&以\f&以\f&以\f&以　、\f&以。，．\f&以・：；\f？&以！ﾜ゛\f゜ﾟ&以´ﾜ｀\f゜ﾟ&以¨＾￣\f＿ヽ&以ヾゝゞ\f＿〃&以仝々〆\f＿〇&以ーﾘ―\\f＿ﾟ&以‐／＼\f＿ヽ&以〜ﾘ‖\f＿｜&以…ﾘ‥\f＿‘&以’ﾘ“\f゜ﾟ&以”ﾘ（\f）&以〔ﾘ〕\fﾍ）&以［ﾘ］\fﾍ）&以｛ﾘ｝\fﾍ）&以〈ﾘ〉\fﾍ）&以《ﾘ》\f＿）&以「」『\f＿）&以』ﾘ【\f゜）&以】ﾘ＋\f゜）&以−ﾘ±\f゜）&以×ﾘ\f゜ﾟ&" [require gnus gnus-win gnus-int gnus-spec gnus-range gnus-util message custom-declare-variable gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc") "Your `.newsrc' file.\n`.newsrc-SERVER' will be used instead if that exists." :group gnus-start :type file gnus-init-file (nnheader-concat gnus-home-directory ".gnus") "Your Gnus Emacs-Lisp startup file name.\nIf a file with the `.el' or `.elc' suffixes exists, it will be read instead." gnus-site-init-file (condition-case nil (concat (file-name-directory (directory-file-name installation-directory)) "site-lisp/gnus-init") (error nil)) "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none.\nIf a file with the `.el' or `.elc' suffixes exists, it will be read instead." (choice file (const nil)) gnus-default-subscribed-newsgroups nil "List of newsgroups to subscribe, when a user runs Gnus the first time.\nThe value should be a list of strings.\nIf it is t, Gnus will not do anything special the first time it is\nstarted; it'll just use the normal newsgroups subscription methods." (choice (repeat string) (const :tag "Nothing special" t)) gnus-use-dribble-file t "*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 "*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 (quote ask-server) "*Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.\nThis normally finds new newsgroups by comparing the active groups the\nservers have already reported with those Gnus already knows, either alive\nor killed.\n\nWhen any of the following are true, `gnus-find-new-newsgroups' will instead\nask the servers (primary, secondary, and archive servers) to list new\ngroups since the last time it checked:\n 1. This variable is `ask-server'.\n 2. This variable is a list of select methods (see below).\n 3. `gnus-read-active-file' is nil or `some'.\n 4. A prefix argument is given to `gnus-find-new-newsgroups' interactively.\n\nThus, if this variable is `ask-server' or a list of select methods or\n`gnus-read-active-file' is nil or `some', then the killed list is no\nlonger necessary, so you could safely set `gnus-save-killed-list' to nil.\n\nThis variable can be a list of select methods which Gnus will query with\nthe `ask-server' method in addition to the primary, secondary, and archive\nservers.\n\nEg.\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-find-new-newsgroups]." (choice (const :tag "no" nil) (const :tag "by brute force" t) (const :tag "ask servers" ask-server) (repeat :menu-tag "ask additional servers" :tag "ask additional servers" :value ((nntp "")) (sexp :format "%v"))) gnus-check-bogus-newsgroups "*Non-nil means that Gnus will check and remove bogus newsgroup at startup.\nIf this variable is nil, then you have to tell Gnus explicitly to\ncheck for bogus newsgroups with \\\\[gnus-group-check-bogus-groups]." gnus-start-server gnus-read-active-file (quote some) "*Non-nil means that Gnus will read the entire active file at startup.\nIf this variable is nil, Gnus will only know about the groups in your\n`.newsrc' file.\n\nIf this variable is `some', Gnus will try to only read the relevant\nparts of the active file from the server. Not all servers support\nthis, and it might be quite slow with other servers, but this should\ngenerally be faster than both the t and nil value.\n\nIf you set this variable to nil or `some', you probably still want to\nbe told about new newsgroups that arrive. To do that, set\n`gnus-check-new-newsgroups' to `ask-server'. This may not work\nproperly with all servers." (choice (const nil) (const some) (const t)) gnus-level-subscribed 5 "*Groups with levels less than or equal to this variable are subscribed." gnus-group-levels integer gnus-level-unsubscribed 7 "*Groups with levels less than or equal to this variable are unsubscribed.\nGroups with levels less than `gnus-level-subscribed', which should be\nless than this variable, are subscribed." gnus-level-zombie 8 "*Groups with this level are zombie groups." gnus-level-killed 9 "*Groups with this level are killed." gnus-level-default-subscribed 3 "*New subscribed groups will be subscribed at this level." gnus-level-default-unsubscribed 6 "*New unsubscribed groups will be unsubscribed at this level." gnus-activate-level (1+ gnus-level-subscribed) "*Groups higher than this level won't be activated on startup.\nSetting this variable to something low might save lots of time when\nyou have many groups that you aren't interested in." gnus-activate-foreign-newsgroups 4 "*If nil, Gnus will not check foreign newsgroups at startup.\nIf it is non-nil, it should be a number between one and nine. Foreign\nnewsgroups that have a level lower or equal to this number will be\nactivated on startup. For instance, if you want to active all\nsubscribed newsgroups, but not the rest, you'd set this variable to\n`gnus-level-subscribed'.\n\nIf you subscribe to lots of newsgroups from different servers, startup\nmight take a while. By setting this variable to nil, you'll save time,\nbut you won't be told how many unread articles there are in the\ngroups." (choice integer (const :tag "none" nil)) gnus-save-newsrc-file "*Non-nil means that Gnus will save the `.newsrc' file.\nGnus always saves its own startup file, which is called\n\".newsrc.eld\". The file called \".newsrc\" is in a format that can\nbe readily understood by other newsreaders. If you don't plan on\nusing other newsreaders, set this variable to nil to save some time on\nexit." gnus-newsrc gnus-save-killed-list "*If non-nil, save the list of killed groups to the startup file.\nIf you set this variable to nil, you'll save both time (when starting\nand quitting) and space (both memory and disk), but it will also mean\nthat Gnus has no record of which groups are new and which are old, so\nthe automatic new newsgroups subscription methods become meaningless.\n\nYou should always set `gnus-check-new-newsgroups' to `ask-server' or\nnil if you set this variable to nil.\n\nThis variable can also be a regexp. In that case, all groups that do\nnot match this regexp will be removed before saving the list." gnus-ignored-newsgroups (purecopy (mapconcat (quote identity) (quote ("^to\\." "^[0-9. ]+ " "[][\"#'()]")) "\\|")) "*A regexp to match uninteresting newsgroups in the active file.\nAny lines in the active file matching this regular expression are\nremoved from the newsgroup list before anything else is done to it,\nthus making them effectively non-existent." gnus-group-new regexp gnus-subscribe-newsgroup-method (quote gnus-subscribe-zombies) "*Function 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." (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) gnus-subscribe-options-newsgroup-method (quote gnus-subscribe-alphabetically) "*This function is 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 the subscribe all new newsgroups in these hierarchies with\nthe 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) gnus-subscribe-hierarchical-interactive "*If non-nil, Gnus will offer to subscribe hierarchically.\nWhen a new hierarchy appears, Gnus will ask the user:\n\n'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys):\n\nIf the user pressed `d', Gnus will descend the hierarchy, `y' will\nsubscribe to all newsgroups in the hierarchy and `s' will skip this\nhierarchy in its entirety." gnus-auto-subscribed-groups "nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl" "*All new groups that match this regexp will be subscribed automatically.\nNote that this variable only deals with new groups. It has no effect\nwhatsoever on old groups.\n\nNew groups that match this regexp will not be handled by\n`gnus-subscribe-newsgroup-method'. Instead, they will\nbe subscribed using `gnus-subscribe-options-newsgroup-method'." gnus-options-subscribe "*All new groups matching this regexp will be subscribed unconditionally.\nNote that this variable deals only with new newsgroups. This variable\ndoes not affect old newsgroups.\n\nNew groups that match this regexp will not be handled by\n`gnus-subscribe-newsgroup-method'. Instead, they will\nbe subscribed using `gnus-subscribe-options-newsgroup-method'." (choice regexp (const :tag "none" nil)) gnus-options-not-subscribe "*All new groups matching this regexp will be ignored.\nNote that this variable deals only with new newsgroups. This variable\ndoes not affect old (already subscribed) newsgroups." (choice regexp (const :tag "none" nil)) gnus-modtime-botch "*Non-nil means .newsrc should be deleted prior to save.\nIts use is due to the bogus appearance that .newsrc was modified on\ndisc." gnus-check-bogus-groups-hook "A hook run after removing bogus groups." hook gnus-startup-hook "A hook called at startup.\nThis hook is called after Gnus is connected to the NNTP server." gnus-before-startup-hook "A hook called at before startup.\nThis hook is called as the first thing when Gnus is started." gnus-started-hook "A hook called as the last thing after startup." gnus-setup-news-hook "A hook after reading the .newsrc file, but before generating the buffer." gnus-get-new-news-hook "A hook run just before Gnus checks for new news." gnus-after-getting-new-news-hook (when (gnus-boundp (quote display-time-timer)) (quote (display-time-event-handler))) "*A hook run after Gnus checks for new news." gnus-save-newsrc-hook "A hook called before saving any of the newsrc files." gnus-save-quick-newsrc-hook "A hook called just before saving the quick newsrc file.\nCan be used to turn version control on or off." gnus-save-standard-newsrc-hook "A hook called just before saving the standard newsrc file.\nCan be used to turn version control on or off." gnus-always-read-dribble-file "Uncoditionally read the dribble file."] 8) #@34 *Coding system for startup file. (defvar gnus-startup-file-coding-system (quote binary) (#$ . -12625)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾂ" [boundp gnus-newsrc-file-version nil current-load-list gnus-override-subscribe-method gnus-dribble-buffer] 2) #@35 Options line in the .newsrc file. (defvar gnus-newsrc-options nil (#$ . 12896)) #@79 List of regexps representing groups to be subscribed/ignored unconditionally. (defvar gnus-newsrc-options-n nil (#$ . 12982)) #@49 Date Gnus last asked server for new newsgroups. (defvar gnus-newsrc-last-checked-date nil (#$ . 13114)) #@36 Startup file for the current host. (defvar gnus-current-startup-file nil (#$ . 13224)) (byte-code "ﾀ Bﾂﾃ!Ыfﾄﾃ Bﾄ" [gnus-group-line-format current-load-list boundp gnus-init-inhibit nil] 2) (defalias 'gnus-read-init-file #[(&optional inhibit-next) "Q ソfﾂ \f DﾂP陰@ﾈ!6ﾉ!ォﾈﾊP!ЗﾈﾋP!ﾌﾍﾎ処*" [init-file-user gnus-init-inhibit nil inhibit-next gnus-site-init-file gnus-init-file file files file-exists-p file-directory-p ".el" ".elc" var (byte-code "ﾂ ﾄﾅ#)ﾄ" [gnus-startup-file-coding-system coding-system-for-read load file nil t] 4) ((error (error "Error in %s: %s" file var)))] 3]) (defalias 'gnus-subscribe-hierarchical-interactive #[(groups) "ﾀ ﾂ\"ﾃ演演  ﾊC  ﾋ @ @\"8 A & @GSﾋﾌ @# Aﾊ @ﾍ鴛OPﾋ A@\" B ﾎﾏﾐGSO\"尉 ﾒ>ﾓ 夷ﾏﾐGSO\"|ﾔUλ εﾋ @\"ε Bﾖ \" L A┘\fAﾘU ﾋ @\"ﾖ \" L異 @! Aﾔ\fAﾚU  @Bﾖ \" L Aﾎﾛ @\"尉 ﾜ>8ﾓ 夷ﾛ @\"\" @ﾝUコﾙ @!椅 \" LｃﾚUブ ャ @Bﾖ \" L AZ Bﾖ \" L A." [sort groups string< nil starts group ans start prefix prefixes "^" string-match "[^\\.]\\." 0 message "Descend hierarchy %s? ([y]nsq): " 1 read-char-exclusive (121 10 13 110 115 113) ding 110 gnus-killed-list intern gnus-killed-hashtb 115 gnus-subscribe-alphabetically 113 "Subscribe %s? ([n]yq)" (121 10 13 113 110) 121] 8]) #@59 Subscribe new NEWSGROUP by making it the first newsgroup. (defalias 'gnus-subscribe-randomly #[(newsgroup) "ﾀ !" [gnus-subscribe-newsgroup newsgroup] 2 (#$ . 14673)]) #@62 Subscribe new NEWSGROUP and insert it in alphabetical order. (defalias 'gnus-subscribe-alphabetically #[(newgroup) "Aﾁ\n# #\f @@刄 @@ Aﾅ\f\n\"*" [gnus-newsrc-alist nil before groups newgroup gnus-subscribe-newsgroup] 4 (#$ . 14847)]) #@72 Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order. (defalias 'gnus-subscribe-hierarchically #[(newgroup) "澗 !q\nﾃ\fВ ィeb鞍ﾇ !ﾈQ ﾊ ﾃﾋ#0ﾌﾍ!\n刋)ﾎﾏ \"> ﾍ範桧\nﾐ\n\f\"*ﾑp!)" [nnheader-find-file-noselect gnus-current-startup-file newgroup nil before groupkey "^\\(" regexp-quote ".*\\)[!:]" groupkey-re re-search-forward t match-string 1 string-match "^\\(.*\\)\\.[^.]+$" gnus-subscribe-newsgroup kill-buffer] 5 (#$ . 15106)]) #@125 Subscribe the new GROUP interactively. It is inserted in hierarchical newsgroup order if subscribed. If not, it is killed. (defalias 'gnus-subscribe-interactively #[(group) "ﾀﾁﾂ \"! ﾄ ! B" [gnus-y-or-n-p format "Subscribe new newsgroup: %s " group gnus-subscribe-hierarchically gnus-killed-list] 4 (#$ . 15578)]) #@41 Make the new GROUP into a zombie group. (defalias 'gnus-subscribe-zombies #[(group) " B" [group gnus-zombie-list] 2 (#$ . 15905)]) #@36 Make the new GROUP a killed group. (defalias 'gnus-subscribe-killed #[(group) " B" [group gnus-killed-list] 2 (#$ . 16046)]) #@117 Subscribe new NEWSGROUP. If NEXT is non-nil, it is inserted before NEXT. Otherwise it is made the first newsgroup. (defalias 'gnus-subscribe-newsgroup #[(newsgroup &optional next) "各b安 \n ﾄ ﾆ\"J$以ﾉﾊ #)" [gnus-group-change-level newsgroup gnus-level-default-subscribed gnus-level-killed intern-soft next "dummy.group" gnus-newsrc-hashtb gnus-message 5 "Subscribe newsgroup: %s"] 7 (#$ . 16182)]) #@70 Say whether the active file has been read from `gnus-select-method'. (defalias 'gnus-read-active-file-p #[nil " >" [gnus-select-method gnus-have-read-active-file] 2 (#$ . 16593)]) (byte-code "ﾀ Bﾂ Bﾃ Bﾄ Bﾅ Bﾆ Bﾇ Bﾈ Bﾉ Bﾊ Bﾀ" [gnus-current-headers current-load-list gnus-thread-indent-array gnus-newsgroup-name gnus-newsgroup-headers gnus-group-list-mode gnus-group-mark-positions gnus-newsgroup-data gnus-newsgroup-unreads nnoo-state-alist gnus-current-select-method] 2) #@34 Clear all variables and buffers. (defalias 'gnus-clear-system #[nil " @ﾂL A)ﾂﾂﾂﾂﾂﾂﾂ ﾂ\nﾂ ﾂ\fﾂ ﾂﾂﾂﾂﾂﾂﾂﾂﾂﾂﾂﾂﾚﾛ!ネﾝ!ネﾞﾝ!!衣 胃狡!!ﾞﾝ狡!!!!\"##;ヴ艪#!)Γﾞ\"!) 'Σ鞐'\") " [gnus-variable-list variables nil gnus-list-of-killed-groups gnus-have-read-active-file gnus-newsrc-alist gnus-newsrc-hashtb gnus-killed-list gnus-zombie-list gnus-killed-hashtb gnus-active-hashtb gnus-moderated-hashtb gnus-description-hashtb gnus-current-headers gnus-thread-indent-array gnus-newsgroup-headers gnus-newsgroup-name gnus-server-alist gnus-group-list-mode gnus-opened-servers gnus-group-mark-positions gnus-newsgroup-data gnus-newsgroup-unreads nnoo-state-alist gnus-current-select-method gnus-ephemeral-servers gnus-shutdown gnus gnus-current-startup-file get-file-buffer kill-buffer gnus-dribble-clear gnus-newsgroup-kill-file nntp-server-buffer buf buffer get-buffer buffer-name gnus-buffers buffers mapcar gnus-kill-gnus-frames] 5 (#$ . 17083)]) #@321 Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server. (defalias 'gnus-no-server-1 #[(&optional arg slave) " Sﾃ\nﾄ #鞍ﾇ!\n)" [arg gnus-level-default-subscribed val gnus t slave make-local-variable gnus-group-use-permanent-levels] 4 (#$ . 18111) "P"]) #@212 Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. (defalias 'gnus-1 #[(&optional arg dont-connect slave) "ﾀ ﾁ\n!暗\fｧ\fﾅV@\f]!ﾇ 以 伊ﾊ!依 \f ﾎ シﾐイﾒ ７ﾔ=シﾕ ﾖ TUシﾗ \fｧb\fﾅVb\fﾐﾚ?{ﾜ\fw?!+" [gnus-alive-p switch-to-buffer gnus-group-buffer gnus-group-get-new-news arg 0 gnus-group-list-mode gnus-clear-system gnus-splash gnus-run-hooks gnus-before-startup-hook nnheader-init-server-buffer slave gnus-slave gnus-read-init-file gnus-simple-splash nil gnus-xemacs gnus-xmas-splash window-system x frame-height window-height gnus-x-splash did-connect level ((byte-code " ﾂ ４ﾃﾄ!闇!Ы" %ﾊ  2ﾌ 囲ﾎﾏ\"威ﾑ#暗ﾓ!慰 易!椅 為ﾘ!異 暗ﾚ!尉" [dont-connect did-connect gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-dribble-read-file gnus-use-grouplens bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news nil level gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook] 4)) dont-connect gnus-start-news-server] 3 (#$ . 18644) "P"]) #@35 Make sure the draft group exists. (defalias 'gnus-start-draft-setup #[nil "ﾀﾁﾂ\"暗ﾄ \"J?ﾆﾈﾄﾉﾊ#)ﾋﾄﾌﾍ#" [gnus-request-create-group "drafts" (nndraft "") intern-soft "nndraft:drafts" gnus-newsrc-hashtb 1 gnus-level-default-subscribed gnus-subscribe-group nil (nndraft "") gnus-group-set-parameter gnus-dummy ((gnus-draft-mode))] 4 (#$ . 20053)]) #@27 Unload all Gnus features. (defalias 'gnus-unload #[nil "ﾀﾁ!Ыnﾂﾃ! ﾄ7ﾇﾈ@@\"-ﾉ@暸-ﾊ ﾋ\"Aﾄ*" [boundp load-history error "Sorry, `gnus-unload' is not implemented in this Emacs version" nil feature history string-match "^\\(gnus\\|nn\\)" provide unload-feature force] 4 (#$ . 20409) nil]) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾂ" [boundp gnus-dribble-ignore nil current-load-list gnus-dribble-eval-file] 2) #@50 Return the dribble file for the current .newsrc. (defalias 'gnus-dribble-file-name #[nil "ﾁ!ﾂ !P ﾄP" [gnus-dribble-directory file-name-as-directory file-name-nondirectory gnus-current-startup-file "-dribble"] 3 (#$ . 20844)]) #@39 Enter STRING into the dribble buffer. (defalias 'gnus-dribble-enter #[(string) "?3 3ﾂ !3p qdb\fﾅｱ鞍ﾇp!d\"以 ! q位 ) q)" [gnus-dribble-ignore gnus-dribble-buffer buffer-name obuf string "\n" set-window-point get-buffer-window bury-buffer gnus-group-buffer gnus-group-set-mode-line] 3 (#$ . 21085)]) #@27 Touch the dribble buffer. (defalias 'gnus-dribble-touch #[nil "ﾀﾁ!" [gnus-dribble-enter ""] 2 (#$ . 21405)]) #@34 Read the dribble file from disk. (defalias 'gnus-dribble-read-file #[nil "ﾀ 環ﾃ !!q闇 ﾇﾈ!伊p!位p!依ﾌ!囲 ﾈﾌﾑ!:ﾑ !ﾒ \"カﾓ!Nﾓ !慰 ﾕUШﾋﾈ!椅 尉!ペﾑ !ペﾘ!ペﾙ \"тﾛﾜ!ﾈ-" [gnus-dribble-file-name dribble-file gnus-get-buffer-create file-name-nondirectory gnus-dribble-buffer erase-buffer buffer-file-name auto-save-mode t buffer-disable-undo bury-buffer set-buffer-modified-p nil make-auto-save-file-name modes gnus-dribble-ignore auto file-exists-p file-newer-than-file-p nnheader-insert-file-contents buffer-size 0 save-buffer gnus-current-startup-file file-modes set-file-modes gnus-always-read-dribble-file gnus-y-or-n-p "Gnus auto-save file exists. Do you want to read it? " gnus-dribble-eval-file] 3 (#$ . 21521)]) (defalias 'gnus-dribble-eval-file #[nil "ﾁ環\fq闇p!*" [gnus-dribble-eval-file nil t gnus-dribble-ignore gnus-dribble-buffer eval-buffer] 2]) (defalias 'gnus-dribble-delete-file #[nil "ﾀﾁ !ソfﾂﾁ ! ( q案 ﾀ !!ﾂ !鞍 杏ﾈ!*" [file-exists-p gnus-dribble-file-name delete-file gnus-dribble-buffer make-auto-save-file-name auto erase-buffer set-buffer-modified-p nil] 2]) (defalias 'gnus-dribble-save #[nil "ﾁ!q按 )" [gnus-dribble-buffer buffer-name save-buffer] 2]) (defalias 'gnus-dribble-clear #[nil " ;ﾂﾃ !)'q案 闇ﾆ!杏 )" [gnus-dribble-buffer buffer get-buffer buffer-name erase-buffer set-buffer-modified-p nil buffer-size buffer-saved-size] 3]) #@145 Setup news information. If RAWFILE is non-nil, the .newsrc file will also be read. If LEVEL is non-nil, the news will be set up at level LEVEL. (defalias 'gnus-setup-news #[(&optional rawfile level dont-connect) "\n \n\n??ﾄﾄﾅ\n!1ﾇﾈﾉ\n\"\n\"\nﾉB\nB\n = ﾌ=ァﾍ  ケПﾋﾄ\" Чﾐﾑ!チﾓ ヒnヒﾖ ママﾗ 畏 異ﾚ!Ζﾄﾜﾝ\")Ζ└└ Ζﾟ θ θﾆ\"!θﾆ#θ %ﾘﾘﾘ 育 ?  !) ) ?\"! )" [gnus-newsrc-alist gnus-active-hashtb rawfile init nil gnus-read-newsrc-file gnus-message-archive-method delq assoc "archive" gnus-server-alist gnus-read-active-file some gnus-update-active-hashtb-from-killed level dont-connect gnus-make-hashtable 4096 gnus-use-cache gnus-cache-open gnus-use-dribble-file gnus-slave gnus-dribble-eval-file gnus-dribble-clear gnus-update-format-specifications boundp gnus-group-line-format case-fold-search string-match "%[-,0-9]*D" gnus-description-hashtb gnus-read-all-descriptions-files gnus-check-new-newsgroups gnus-check-server gnus-select-method gnus-plugged gnus-find-new-newsgroups gnus-use-nocem gnus-nocem-scan-groups gnus-master-read-slave-newsrc gnus-get-unread-articles gnus-check-bogus-newsgroups gnus-server-opened] 5 (#$ . 22983)]) #@366 Search for new newsgroups and add them. Each new newsgroup will be treated with `gnus-subscribe-newsgroup-method.' The `-n' option line from .newsrc is respected. With 1 C-u, use the `ask-server' method to query the server for new groups. With 2 C-u's, use most complete method possible to query the server for new groups, and subscribe the new groups as zombies. (defalias 'gnus-find-new-newsgroups #[(&optional arg) " ﾂﾃU\f<  ﾆ=ﾇ0 $ﾂﾈU/ﾉﾊ0\f ﾌ ? :Е ﾇ=カﾍ ﾎﾏﾓﾔﾕ\"Яﾅ 為 lﾚ 維ﾜ\"ポﾞ!ﾎVﾓﾔﾟ可Vヲ烽$ﾓﾔ秉"+*" [gnus-subscribe-newsgroup-method arg 1 4 gnus-check-new-newsgroups gnus-read-active-file some ask-server 16 gnus-subscribe-zombies t check gnus-check-first-time-used gnus-ask-server-for-new-groups 0 nil new-newsgroups group groups gnus-message 5 "Looking for new newsgroups..." gnus-have-read-active-file current-time-string gnus-newsrc-last-checked-date gnus-killed-hashtb gnus-make-hashtable-from-killed mapatoms #[(sym) "ﾀ !?$ﾃ !?$ J?$ﾄ\n \"J$ﾄ\n\"J?qﾇ\n!ﾉ=ェ\nT\nﾋ\n \"\nL\f\n!Ｑﾍ=ゲﾎＱ\nT\nﾋ\n \"\nLネ\nBＱ\n!)" [symbol-name sym group boundp intern-soft gnus-killed-hashtb gnus-newsrc-hashtb gnus-matches-options-n do-sub subscribe groups intern gnus-subscribe-options-newsgroup-method ignore nil gnus-subscribe-hierarchical-interactive new-newsgroups gnus-subscribe-newsgroup-method] 4] gnus-active-hashtb gnus-subscribe-hierarchical-interactive "%d new newsgroup%s arrived." "s have" " has" "No new newsgroups."] 6 (#$ . 24268) "p"]) (defalias 'gnus-matches-options-n #[(group) " ﾁ\n\" ﾃ\fﾁ\f\n\"ﾃ 'ﾁ \n\"'ﾆィﾁ@@\n\"ВA/K@A)" [gnus-options-subscribe string-match group subscribe gnus-auto-subscribed-groups gnus-options-not-subscribe ignore gnus-newsrc-options-n regs] 4]) (defalias 'gnus-ask-server-for-new-groups #[nil "ﾁ  ﾄ ﾅCﾆ:\"､B ﾊ ﾁ \fﾍﾍﾍﾍﾍﾍАﾕ 囲 陰 @;ズﾖ!ぶ 噬d ぶ@;ペペﾗ\"ぶヱяA@ﾘ噬ぶﾙ@!ﾛﾜ\">τﾞﾟP!桷ﾑ@>τﾆﾞﾟP!A@DC\"ふ**ﾍ! 秉n\" 翫蒟!&q育#)鳰\"ァ!@ ﾊV6 会V01$;\"イ\f.\n" [gnus-newsrc-last-checked-date current-time-string date gnus-select-method gnus-archive-server-wanted-p "archive" append gnus-check-new-newsgroups gnus-secondary-select-methods methods 0 groups new-date nil group new-newsgroups got-new method hashtb gnus-override-subscribe-method gnus-killed-hashtb gnus-make-hashtable-from-killed gnus-server-to-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address gnus-check-server gnus-request-newgroups t gnus-make-hashtable 100 nntp-server-buffer gnus-active-to-gnus-format ignore mapatoms #[(group-sym) "ﾀ !?)ﾃ !?) J?)ﾄ\n \"J)\n揉)\n? J;ﾈ\n \" JL位\n! ﾌ=セ T ﾈ\n\"\nL\n!ｅ ﾐ=テﾑｅ T ﾈ\n\"\nLメ\nBｅ\n!)" [symbol-name group-sym group boundp intern-soft gnus-newsrc-hashtb gnus-zombie-list gnus-killed-list intern gnus-active-hashtb gnus-matches-options-n do-sub subscribe groups gnus-killed-hashtb gnus-subscribe-options-newsgroup-method ignore nil gnus-subscribe-hierarchical-interactive new-newsgroups gnus-subscribe-newsgroup-method] 4] gnus-subscribe-hierarchical-interactive gnus-message 5 "%d new newsgroup%s arrived" 1 "s have" " has" "No new newsgroups"] 6]) (defalias 'gnus-check-first-time-used #[nil "GﾁVﾂ !ﾂ ﾄP!ﾂ ﾅP!?ﾆﾇﾈ\"伊 /ﾊ ﾋ )ﾌ  ﾏﾊ=?Hﾓﾔ\"ピﾖ@\"Jニﾗ@#AФq維 )ﾆﾝﾞ\"*" [gnus-newsrc-alist 1 file-exists-p gnus-startup-file ".el" ".eld" gnus-message 6 "First time user; subscribing you to default groups" gnus-read-active-file-p t gnus-read-active-file current-time-string gnus-newsrc-last-checked-date gnus-default-subscribed-newsgroups nil group groups gnus-backup-default-subscribed-newsgroups mapatoms #[(sym) "ﾀ !3ﾃ\n!ﾅ=!ﾆ\n\"\nL\n!2\fﾉ=+ﾊ2\n B )" [symbol-name sym group gnus-matches-options-n do-sub subscribe intern gnus-killed-hashtb gnus-subscribe-options-newsgroup-method ignore nil gnus-killed-list] 4] gnus-active-hashtb intern-soft gnus-group-change-level gnus-level-default-subscribed gnus-level-killed gnus-group-buffer gnus-group-make-help-group gnus-novice-user 7 "`A k' to list killed groups"] 5]) (defalias 'gnus-subscribe-group #[(group previous &optional method) "ﾀ ﾂ \fﾅ ｯ \fﾂ%" [gnus-group-change-level method t group gnus-level-default-subscribed nil gnus-level-killed previous] 7]) (defalias 'gnus-group-change-level #[(entry level &optional oldlevel previous fromkilled) "ﾀ演 :! A@#ﾇ 8@#  ;<< W<ﾊ  \"JЯ :チﾇ 8A@\f:ス\f@Z\f)Ｊg ;ベﾊ \"J Yﾊ\f \"J?ﾏ\f!┘ﾐﾑﾒ\fﾇ8@&! Yι Uｽﾔ\f\"ﾔ\f\" Y ﾗﾇ 8@ \"ﾀL畏 8ﾊﾘ 8@ \"J A｡ A AAA｡ Y)ﾗ\f \"ﾀL異\f! U \fBわ\fBわ W= AA@Aわ <ガ A @ｆﾊ\f\"Jダ\nAT\n@ZＡﾛiﾝ\f!=ボ\fﾀEｅ\fﾀｯ)┘ !AA!A!ｐ!) AABAηA ｡為\f \" ABLぷ ｡為\f \" BL Aﾊ A@@ \"J ｡威ﾑ \"!##\f$," [nil num active info group entry fromkilled 2 oldlevel gnus-level-zombie intern-soft gnus-newsrc-hashtb rank gnus-level-killed previous gnus-ephemeral-group-p gnus-dribble-enter format "(gnus-group-change-level %S %S %S %S %S)" level delete gnus-zombie-list gnus-killed-list intern 3 gnus-group-foreign-p gnus-active-hashtb t gnus-override-subscribe-method gnus-group-method method gnus-select-method gnus-newsrc-alist p "(gnus-group-set-info '%S)" gnus-group-change-level-function] 9]) #@40 Obsolete function. Kills a newsgroup. (defalias 'gnus-kill-newsgroup #[(newsgroup) "ﾀﾁ\n \"J\f\"" [gnus-group-change-level intern-soft newsgroup gnus-newsrc-hashtb gnus-level-killed] 4 (#$ . 30036)]) #@106 Remove bogus newsgroups. If CONFIRM is non-nil, the user has to confirm the deletion of every newsgroup. (defalias 'gnus-check-bogus-newsgroups #[(&optional confirm) "Aﾁ演ﾇﾈﾉ\"位 ﾋﾌ!位 ﾀウ陰@@ﾍ\f\"Jﾏ\n8\f Bサﾑﾒﾓ ﾔ$Ｚ 陰@ペﾍ\f\"Jサﾖ \"畏\f\"５ﾚﾁｷ@JΠﾍ陰@\"Jч@ﾘ\f@J\"LｉAс*ﾝﾞ!杏ﾈﾟ\"-" [gnus-newsrc-alist nil info entry group bogus newsrc gnus-message 5 "Checking bogus newsgroups..." gnus-read-active-file-p gnus-read-active-file t intern-soft gnus-active-hashtb 4 confirm map-y-or-n-p "Remove bogus group %s? " #[(group) "ﾀ \n\"Jﾄ \"鞍 \"" [intern-soft group gnus-newsrc-hashtb entry gnus-group-change-level gnus-level-killed delete gnus-killed-list] 3] ("group" "groups" "remove") gnus-newsrc-hashtb gnus-group-change-level gnus-level-killed delete gnus-killed-list (gnus-killed-list gnus-zombie-list) killed dead-lists gnus-run-hooks gnus-check-bogus-groups-hook "Checking bogus newsgroups...done"] 6 (#$ . 30245)]) #@51 Remove duplicates from the list of killed groups. (defalias 'gnus-check-duplicate-killed-groups #[nil "ﾂﾃﾄ G# ﾅ @ A\"｡ Aﾆ)" [gnus-killed-list killed gnus-message 9 "%d" delete nil] 5 (#$ . 31274) nil]) (defalias 'gnus-activate-group #[(group &optional scan dont-check method) "_ ﾂ\f^  ^ ﾆﾇ \"J8ﾂ5ﾉ 85ﾊ噬9 ];Α ケ <ケ  ﾊ噬[ ﾌ  \"Aﾌ \"Aヶ ﾑﾒ@@@@@A@#噪陰Ｔ@@))A@; ﾛﾛA@@@A@噬ﾑ@@噪ﾑﾂ陰げ*AA@A@ﾓ Qﾔﾑﾕ@\"!A@DAABBB*A@ﾖ噬]A@Ы"@ﾖD]ﾗ@!ﾙﾌ\">ゼﾔﾛP!桷[ﾜ@>ゼﾝﾔﾛP!A@DC\"\\***ﾂﾂm ;ヘ!!メ竄ｯ─聿@A@ﾖ噬ﾖﾑA@\"$育!磯!┗ﾖ!++η@\"η \"按遵 @UAUﾇ 3\"Jﾇ 3\"Jﾔ 3\"L*" [method group nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append active silent gnus-server-to-method gnus-server-opened t gnus-message 5 "Opening %s server%s..." " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server message scan gnus-check-backend-function request-scan gnus-request-scan (byte-code " \n iﾄhh (ﾈﾉ\n\"J8ﾄ=ﾋ 8=\nﾌ噬BＨ\n;Λ\n ズ <ズ ･ ﾌ噬e･ﾎ \"A･ﾎ \"A･Β ﾓﾔ@@@@@A@#噪陰}@@))\nA@;\n\n\n\nA@@@A@噬ﾛ\n@@噪ﾛﾄ陰ぜ\n*\nAA\n \n@\nA@ﾕQﾖﾓﾗ\n@\"!\nA@D\nAABBB*\nA@ﾘ噬\nＨ\nA@,\n@ﾘDＨ\nﾙ\n@!ﾛﾎ\">テﾖﾝP!\n桷eﾞ\n@>テﾟ\nﾖﾝP!\nA@DC\"Ｇ\n***;ρ  メ <メ ﾍ ﾌ噬ﾍﾎ \"Aﾍﾎ \"Aﾍκ ﾓﾔ@@@@@A@#噪ﾈ陰ぇ@@)) 狷!\"ﾟ聿!\n;藹n!&軆n!\n@(餒*\"*梔+ \"ﾖﾓ(\"#!B+(+*B#+A)..!Т\n@6胙!鰯\n@!茨.!Т!ギﾄ.４胄.\"..33\"ヌ3米OＮ3) A@ #," [group dont-check method gnus-command-method nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append request-group noerror function error "Attempted use of a nil select method" gnus-server-to-method gnus-agent gnus-agent-get-function method-sym gnus-method-functions method-fns method-fnlist-elt "%s-%s" put func fboundp "Trying to require a method that doesn't exist" require "No such function: %s" gname string-match "^[^:]+:" 0] 7) ((error) (quit)) gnus-parse-active 0 gnus-active-hashtb] 8]) (defalias 'gnus-get-unread-articles-in-group #[(info active &optional update) " ﾗ\n院ﾃ \f\n'ﾇﾈ\f \"J8ﾃ\n?ﾋ\n8\n?\nﾌ噬Dｉ\n;Ο\n ゾ <ゾ ｩ ﾌ噬iｩﾎ \"Aｩﾎ \"AｩΖ ﾓﾔ@@@@@A@#噪､陰ａ@@))(\nA@;&\f\n\n\n\n\n\nA@@@A@噬\n@@噪ﾃ\n陰づ\n*\nAA\n\"\n@\nA@ﾕ\fQﾖﾓﾗ\n@\"!\nA@D\nAABBB*(\n\nA@ﾘ噬7\nｉ\nA@Ё\n@ﾘDｉ\n\nﾙ\n@!ﾛﾎ\">ユﾖﾝP!\n桷ﾞ\n@>ユﾟ\nﾖﾝP!\nA@DC\"ｈ\n***  ; !  @#蒟謠*ﾌ 秉"\n@(鳰(\"ε(陛Oで()\n A@#*ﾗ\n@ﾃ#杏\n8./0\n\n@1ﾈ\f1\"J22@@W 2@2AAV2A｡)*AU+/ｄ.;AT@Z/ｄ.A<г.A@Wコ.@S｡.AAVヂ.A｡壱A.AT.@ZZ]/ｄ.Aﾛ@.A@:ш.A@.A@@Yﾛ.@ｧｸ.院.A@ｧΟ.A@ｲ.A@ABび.@.A@ｧμ.A@ﾏ.A@A｡.陰A｡Ｔ.@:.@A@W.@@S｡.3A 3A@:Ыf3A@3A@@AX 3A33A+3ﾃ｡3@:イ3@AAVイ3@A｡).ボ/.@:Ч.@\\.@AT.@:j.@n.@@Z\\/.A.ИA/Z]/\nンﾈ\n@ \"J//*" [active update info nil group gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb method 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append gnus-command-method gnus-server-to-method request-update-info func G99184 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function gname string-match "^[^:]+:" 0 gnus-activate-group t range num gnus-use-cache gnus-cache-active-hashtb cache-active srange] 8]) (defalias 'gnus-get-unread-articles #[(&optional level) "A\n \fT  ｧ\fT& ｧ% &ﾆ\n^ﾈ ﾈ\nﾈ ﾈ\fﾍﾎﾏ\"  ﾐ 陰@ @\n\"J ﾒ 8\f5ﾈ\f\f\n\f;ビﾔ\f!ゑ\f噬ゑ\f@;ヴ\nヴﾕ\n\f\"ゑ\fΞ\n┏\fA@ﾖ噬ｬ\fゑ\f\fﾗ\f@!ﾙﾚ\">ﾜﾝP!\f桷ﾞ\f@>ﾟ\fﾜﾝP!\fA@DC\"ゐ\f**\f !!; ﾔ!!! ( ;&ﾔ !(  ! \"#\"嚀^#G\"GU^#ゼ#@\"揀[#A#И#?.5\f\f$ﾈ\f\f\n\f;マﾔ\f!\f噬\f@;Α\nΑﾕ\n\f\"\fｷ\n┨\fA@ﾖ噬ｷ\f\f\fﾗ\f@!ﾙﾚ\">ﾜﾝP!\f桷ﾞ\f@>ﾟ\fﾜﾝP!\fA@DC\"\f**%&Ηﾈ&@\f\n\f;ﾔ\f!ｕ\f噬%ｕ\f@;:\n:ﾕ\n\f\"ｕ\fコ\nС\fA@ﾖ噬R\fｕ\f\fﾗ\f@!ﾙﾚ\">ヲﾜﾝP!\f桷ﾞ\f@>ヲﾟ\fﾜﾝP!\fA@DC\"ｔ\f**%噪･&A&&+5 A@':ｼ'@だ')X\n饅" *+ \f\n--\"-ﾆ癖O-) #\n\nﾚﾗ\n!@!\">)ﾉ\n\nﾈ \n2\n( 6ﾐ\n4\"J8ﾈ\f ケﾒ 8\fケ\f噬U\f;ｾ\f6ハ6<ハ6ｺ6噬zｺﾚ67\"Aｺﾚ68\"Aｺ9::Ψ6:@@@:@@A@#噪ｵ:陰:ｒ:@@))<\fA@;:\n\f\f\n\f\f9:\f:\fA@:@@A@噬\f:@@噪ﾈ\f:陰:へ\f*\fAA\f6\f@\fA@\nQﾜ\f@\"!\fA@D\fAABBB*<\f\fA@ﾖ噬K\f\fA@Щ\f@ﾖD\f\fﾗ\f@!ﾙﾚ\">ﾜﾝP!\f桷ﾞ\f@>ﾟ\fﾜﾝP!\fA@DC\"\f***?　?、\"\n--\"α-ﾆ癖Oっ-)?A@\"*。ﾜﾗ\f@!，P!! \f? ?;ﾔ?!?．?@\nE：；？*1　?．\" @--\"&-ﾆ癖O(-) ?A@#* A@':ェ'@H')\nXI\n饅" \n\nﾈ \n2\nг ﾐ\n4\"J8ﾈ\f ﾒ 8\f\f噬り\f; \f6ｹ6<ｹ66噬ﾅﾚ67\"Aﾚ68\"A9::6:@@@:@@A@#噪:陰:み:@@))ｇ\fA@;ュ\n\f\f\n\f\f9:\fケ:ケ\fA@:@@A@噬F\f:@@噪Fﾈ\f:陰:!\f*Ь\fAAb\fａ\f@\fA@\nQﾜ\f@\"!\fA@D\fAABBB*ｇ\f\fA@ﾖ噬\fり\fA@├\f@ﾖDり\f\fﾗ\f@!ﾙﾚ\">ﾜﾝP!\f桷ﾞ\f@>ﾟ\fﾜﾝP!\fA@DC\"ら\f***?　?、\"\n--\"ソn-ﾆ癖O\f-)?A@\"* \n  ゛K   \nK  院ﾈ \n2ｾ\nЗｾ Vﾐ\n4\"J8ﾈ\f パﾒ 8\fパ\f噬uた\f;ﾞ\f6ヮ6<ヮ6ﾚ6噬ﾚﾚ67\"Aﾚﾚ68\"Aﾚ9::ψ6:@@@:@@A@#噪ﾕ:陰:ご:@@))\\\fA@;セ\n\f\f\n\f\f9:\f%:%\fA@:@@A@噬\f:@@噪ﾈ\f:陰:\f*2\fAA7\f７\f@\fA@\nQﾜ\f@\"!\fA@D\fAABBB*\\\f\fA@ﾖ噬k\fた\fA@й\f@ﾖDた\f\fﾗ\f@!ﾙﾚ\">ｺﾜﾝP!\f桷ｺﾞ\f@>ｺﾟ\fﾜﾝP!\fA@DC\"ぞ\f***? ?;ρﾔ?!?．?@\nE´｀¨* 　?．\" @--\" -ﾆ癖O -) ?A@#*  @ﾈ゛#印 8OﾆPQパ  パ  @  \nRバ ﾐ\nR\"JSm S@ @Wゾ  S@SA AVm  SA｡)* AﾆUミ ﾆPょ\nOю  AT @ZPょ\nOA<ﾍ OA @WΛ O @S｡OA AVｺ O A｡鞍 AOATO@ZZ]Pょ\nOA6\n @OA@: OA@ OA@@Y6\nO@ｧ\nO院OA@ｧ\nOA@ \nOA@AB,\nO@OA@ｧ%\nOA@*\nOA@A｡O陰A｡は O@:ゲ\nO@A @Wゲ\nO@ @S｡OTAミ\nTA@:i\nTA@n\nTA@@ AXミ\nTAT７\nTAラ\nTﾈ｡T@:Ε\nT@A AVΕ\nT@ A｡)Oﾛ\nPO@:┷\nO@ｼ\nO@ATO@:ﾊ\nO@ﾎ\nO@@Z\\POAO┼\nﾆ APZ]P \nﾐ @4\"JPP*+;ﾜ\n\"ﾈL威\n4\"J゛;ﾍﾎゞ\"." [gnus-newsrc-alist newsrc level gnus-activate-level gnus-level-subscribed gnus-activate-foreign-newsgroups 0 foreign-level nil info group active method gnus-message 5 "Checking new news..." intern-soft gnus-active-hashtb 4 gnus-select-method gnus-server-to-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append m2 m1 s2 s1 gnus-secondary-select-methods gmethod methods rank gnus-activate-group scan gnus-agent gnus-plugged gnus-agent-save-group-info gname string-match "^[^:]+:" virtual gnus-find-method-for-group gnus-override-method 2 gnus-newsrc-hashtb "native" server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" "%s-address" gnus-command-method gnus-get-function close-group fboundp "-request-update-info" request-update-info func G99185 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-read-active-file t update G99184 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) range num gnus-use-cache gnus-cache-active-hashtb cache-active srange "Checking new news...done"] 9]) (defalias 'gnus-make-hashtable-from-newsrc-alist #[nil " ﾂﾆ G!@@ﾇ噬ﾇﾈﾂE BFﾉ @@ \"\f8ﾊ @@\f\"J@ BL  A&ﾂ+" [gnus-newsrc-alist gnus-newsrc-hashtb nil prev ohashtb alist gnus-make-hashtable "dummy.group" 0 intern intern-soft] 5]) #@55 Create a hash table from the killed and zombie lists. (defalias 'gnus-make-hashtable-from-killed #[nil "ﾀﾁﾄ GG\\! - 陰@J\nﾈ\n@\"\n陰@L*" [(gnus-killed-list gnus-zombie-list) nil list lists gnus-make-hashtable gnus-killed-list gnus-zombie-list gnus-killed-hashtb intern] 3 (#$ . 40711)]) #@46 Parse active info in the nntp server buffer. (defalias 'gnus-parse-active #[nil "qeb庵ﾂ!ﾃ巴案p!ﾄp!B)" [nntp-server-buffer looking-at "[0-9]+ [0-9]+ \\([0-9]+\\) [0-9]+" 1 read] 3 (#$ . 41025)]) #@35 Mark ARTICLES in GROUP as unread. (defalias 'gnus-make-articles-unread #[(group articles) "ﾀﾁ\n \"J ﾁ\nﾅﾆ\f\"\fﾇ癖O\f) \"J8 ﾀ 8\nﾈ ﾈ\f グﾎ 陰 @\f\n\"/\f B / g AAﾏﾀ 8 歃"威\nﾑ\"," [2 intern-soft group gnus-newsrc-hashtb gname string-match "^[^:]+:" 0 nil info ranges news article articles gnus-member-of-range gnus-remove-from-range gnus-group-update-group t] 5 (#$ . 41232)]) (defalias 'gnus-update-active-hashtb-from-killed #[nil "ﾀﾁ! \fDﾅ:@0ﾉ@\"ﾅLAAﾅ+" [gnus-make-hashtable 4096 gnus-active-hashtb gnus-killed-list gnus-zombie-list nil killed lists hashtb intern] 4]) #@69 Go through the active hashtb and mark all unknown groups as killed. (defalias 'gnus-get-killed-groups #[nil "ﾀ ﾁﾂ ) ﾄ 闇ﾆ\"以 " [gnus-read-active-file-p t gnus-read-active-file gnus-killed-hashtb gnus-make-hashtable-from-killed mapatoms #[(sym) "ﾀﾁ\n! ?ﾅ \"Jﾅ \"J?Bﾈ ! ﾊ=- ﾋ=?A\fT \fB\fﾍ \" L)*" [0 symbol-name sym group groups intern-soft gnus-killed-hashtb gnus-newsrc-hashtb gnus-matches-options-n do-sub subscribe ignore gnus-killed-list intern] 4] gnus-active-hashtb gnus-dribble-touch] 3 (#$ . 41885)]) (defalias 'gnus-read-active-file #[(&optional force not-native) "ﾀ 庵\nﾃ\f!\f B ﾆ ﾇC\"ﾈ \nﾈ \fq\nｦ\n@;μﾈ\n@  ;ガﾏ !と \f噬V\fと @;ヌヌﾐ \"と ャс A@ﾑ噬 と  ﾒ @!ﾔﾕ\">εﾗﾘP! 桷ﾃﾙ @>εﾁ ﾗﾘP! A@DC\"で **は\n@ A@ﾛﾜGﾝUﾞPろﾑ @#珮\"暗 ! @#蒟謠*酳 \"(=ゲ @#*ゲ.Р/Aﾈ   ;エﾏ !つ \f噬R\fつ @;トトﾐ \"つ  A@ﾑ噬 つ  ﾒ @!ﾔﾕ\">αﾗﾘP! 桷ｿﾙ @>αﾁ ﾗﾘP! A@DC\"っ **ﾈ01233陰3@00@004i\fi07\"J8ﾈ 008  噬\fＩ ;ュ :6:<6::噬A\fﾕ:;\"Aﾕ:<\"A=>>ポ:ﾛ>@@@>@@A@#噪|>陰>Y>@@)) A@;    => ξ>ξ A@>@@A@噬ﾂ >@@噪ﾂﾈ >陰> *ﾙ AAﾞ  @ A@　Qﾗﾛ、 @\"! A@D AABBB*  A@ﾑ噬 Ｉ A@% @ﾑDＩ  ﾒ @!ﾔﾕ\">テﾗﾘP! 桷eﾙ @>テﾁ ﾗﾘP! A@DC\"Ｈ ***2BCз\fｇC;ュﾏC!ｇCBю\fぁB;ﾏB!ぁBBCBDED嚀ﾕEGDGUﾕEυE@D揀ﾒEAEﾀE?.ο0@F；？F\"Fﾝ癖OF)1B1は1ギﾃ !！1 \" (゛゜´ @#M ｀=ア¨ Oﾈ￣$M＿ O￣#, ヽ !з S噪゛ゝゞ @#珮\"¨ Oﾈ￣$  B 珮〃#+\nA\n/ﾈ+" [gnus-group-set-mode-line append not-native gnus-check-server gnus-select-method gnus-secondary-select-methods gnus-archive-server-wanted-p "archive" nil list-type methods gnus-have-read-active-file nntp-server-buffer method group gnus-server-to-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address where format "Reading active file%s via %s..." 0 " from " mesg gnus-message 5 request-scan func G99186 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-request-scan gnus-read-active-file some retrieve-groups G99187 (byte-code ";ソfﾁ!@ ﾃ\n!ﾄ\n!闇ﾆﾇﾈ\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) force gnus-newsrc-alist info groups gmethod newsrc gnus-override-method 2 intern-soft gnus-newsrc-hashtb 4 "native" server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened "%s:%s" "+" "%s-address" m2 m1 s2 s1 gname string-match "^[^:]+:" gnus-retrieve-groups gnus-error 1.2 "Cannot read partial active file from %s server." active gnus-active-to-gnus-format gnus-active-hashtb t gnus-groups-to-gnus-format gnus-request-list gnus-message-archive-method 1 "Cannot read active file from %s server" "%sdone"] 7]) #@70 Non-nil iff gnus-ignored-newsgroups includes "^to\\." as an element. (defalias 'gnus-ignored-newsgroups-has-to-p #[nil "ﾀﾁ\n\"" [string-match "\\^to\\\\\\.\\($\\|\\\\|\\)" gnus-ignored-newsgroups] 3 (#$ . 45143)]) (defalias 'gnus-active-to-gnus-format #[(&optional method hashtb ignore-errors real-active) " p\n-  噪 - 噬(ﾄﾅed\"!+ﾄﾆ!eb以 ァﾉ\n!６\nﾋクﾉﾌ!６ﾉﾍ\nP!db夷ﾏﾐﾑ#デﾒc９フフﾕ!椅ﾐ;ュﾘ! 噬 @;ΔΔﾙ\"ｷ┨A@ﾋ噬ｷﾚ@!ﾜﾝ\">ﾟ澑!桷@>ﾟ澑!A@DC\"ん**ﾐ ;ﾘ!Ｑ 噬  Ｑ@;  ﾙ\"Ｑ55A@ﾋ噬5Ｑﾚ@!ﾜﾝ\">ハﾟ澑!桷n@>ハﾟ澑!A@DC\"Ｐ**\"ь耆\"$ebmы$c亥y覿н)eb威演'(m?ｬﾐ鳰処~亥yｚ-" [method gnus-select-method hashtb gnus-active-hashtb gnus-make-hashtable count-lines 4096 cur gnus-ignored-newsgroups-has-to-p delete-matching-lines gnus-ignored-newsgroups "" "^to\\." "^to\\.\\|" re-search-backward "[][';?()#]" nil t 92 gnus-agent real-active gnus-agent-save-active gnus-server-equal group gnus-server-to-method gnus-server-extend-method symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append gnus-group-prefixed-name prefix 1 0 min max (byte-code "`ﾀ } ﾃ\f!)ﾃ\f!ｧセﾃ\f!ｧセﾈﾉwgﾊUЩgﾋUЩgﾌUЩ BLgﾍUタМﾏ ﾐﾑ !\"ﾒL^ ﾉL伊" [gnus-point-at-eol hashtb obarray read cur group max min " " nil 61 120 106 109 gnus-moderated-hashtb gnus-make-hashtable intern symbol-name t] 3) ((error (byte-code " 9 ﾁL\nﾃﾄﾅﾆ ﾇ {#庵" [group nil ignore-errors gnus-message 3 "Warning - illegal active: %s" gnus-point-at-bol gnus-point-at-eol] 5)))] 7]) (defalias 'gnus-groups-to-gnus-format #[(method &optional hashtb real-active) "p \n\nﾃﾄed\"! (ﾅﾆ  ;.ﾈ !  噬: @;ギギﾊ \" ッb A@ﾋ噬b ﾌ @! ﾎﾏ \">ﾑ ﾒP! 桷ﾓ @>ﾔ ﾑ ﾒP! A@DC\" **ﾆ  ;Ρﾈ !  噬ｻ  @;ππﾊ \"  A@ﾋ噬  ﾌ @! ﾎﾏ \">ﾑ ﾒP! 桷ﾓ @>ﾔ ﾑ ﾒP! A@DC\" **\"?(ﾕﾋ \";;ﾚ !ebツﾆ演m?_ﾆﾞﾟ処炸０,}ﾆ演m?|ﾆ矮処炸Ｍ++" [hashtb method gnus-active-hashtb gnus-make-hashtable count-lines gnus-server-equal nil group gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address append gnus-group-prefixed-name prefix cur gnus-agent real-active gnus-agent-save-groups opoint max min (byte-code "ﾀ !安 !安 !ﾀ !`ﾅﾆwc\fb ﾀ !)\n BL" [read cur min max opoint " " nil prefix hashtb obarray] 3) ((error (byte-code " 9 ﾁL庵" [group nil] 2))) 1 (byte-code "gﾀU%ﾁ\n!庵\n!庵\n!ﾁ\n! ﾁ\n!) \fBL安" [50 read cur min max hashtb obarray group] 3) ((error (byte-code " 9 ﾁL庵" [group nil] 2)))] 9]) #@67 Read startup file. If FORCE is non-nil, the .newsrc file is read. (defalias 'gnus-read-newsrc-file #[(&optional force) " @ﾂL A) ﾅP管!以 !チ Вﾊ\f\"=ﾊ\fﾋP\"В\fЯ艦ﾎﾏ\f#威\f!q尉p!惟 意p!囲ﾎﾔ\f#)ﾕ +" [gnus-variable-list variables nil gnus-current-startup-file newsrc-file ".el" quick-file gnus-read-newsrc-el-file file-exists-p force file-newer-than-file-p "d" gnus-newsrc-alist 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] 5 (#$ . 48020)]) #@52 Convert old newsrc into the new format, if needed. (defalias 'gnus-convert-old-newsrc #[nil "ﾁ!ﾃ\nﾁﾄ!Wﾅ )" [gnus-newsrc-file-version gnus-continuum-version fcv nil "September Gnus v0.1" gnus-convert-old-ticks] 4 (#$ . 48615)]) (defalias 'gnus-convert-old-ticks #[nil "Aﾁ演陰@Fﾇ\f8ソfﾃ 暸ﾈ 暸 2\nソf\fAAﾉﾊ\f8ﾋ !ﾋ\n!､\"\f-" [gnus-newsrc-alist nil ticked dormant info marks newsrc 3 tick gnus-add-to-range 2 gnus-uncompress-range] 6]) (defalias 'gnus-read-newsrc-el-file #[(file) "ﾁPﾃﾄﾅ\n#鞍ﾆﾈﾉ処\n)ﾋ 偉\n\"/ﾃﾄﾅ#囲!)" [file "d" ding-file gnus-message 5 "Reading %s..." nil gnus-newsrc-assoc (byte-code "ﾂ ﾄ演$)ﾂ" [gnus-startup-file-coding-system coding-system-for-read load ding-file t] 5) ((error (byte-code "ﾀ 庵ﾂﾃ\f\"!ﾅﾆ\f\"安" [ding gnus-yes-or-no-p format "Error in %s; continue? " ding-file error "Error in %s"] 4))) gnus-newsrc-alist gnus-make-hashtable-from-newsrc-alist file-newer-than-file-p gnus-read-old-newsrc-el-file] 4]) (defalias 'gnus-read-old-newsrc-el-file #[(file) "ﾀ演演ﾀ演 \nﾋﾌﾍ処\n ,ﾀ陰@μﾎﾏ @\"J8ヨ AA AA A@:ノ@ A@デＩ~ A@ホ|) Bい @ A@ヵｗ AAEBﾔ @\f\",ﾕ 寇ｷ ﾀC､易 嶷ﾗﾘ\nAﾙ\"ﾚ\"BC, 院@Aﾑ ﾝﾞ\"ﾟPﾝ\"甕笘! ." [nil info m group marked killed newsrc gnus-newsrc-assoc gnus-newsrc-alist gnus-marked-assoc gnus-killed-assoc G99188 (byte-code "ﾀ ﾂ演$" [load file t] 5) ((error)) 2 intern-soft gnus-newsrc-hashtb rank gnus-level-default-subscribed gnus-level-default-unsubscribed assoc 3 tick gnus-compress-sequence sort < t gnus-killed-list gnus-newsrc-options string-match "^ *options" "options " "\n$" "\n" "" gnus-newsrc-parse-options gnus-make-hashtable-from-newsrc-alist] 7]) #@74 Make server dependent file name by catenating FILE and server host name. (defalias 'gnus-make-newsrc-file #[(file) "ﾀ ﾂ\"ﾃ\fA@Qﾆ !Ы"ﾆ ﾇP!Ы"ﾆ ﾈP!& ' *" [expand-file-name file nil "-" gnus-select-method real-file file-exists-p ".el" ".eld"] 4 (#$ . 50439)]) (defalias 'gnus-newsrc-to-gnus-format #[nil "ﾀﾂ\fЫfﾅﾆ!pGﾈVﾂ演演演 \n \f eb意ﾔ\f\"ﾂL意ﾕ\f\"\fﾂLm`ﾖﾂw`}ebedU?c\fﾘ!) ~ =ж \f=ン ﾙ ﾚﾛﾂﾜ#ラﾝy``{Pﾞyゐ  ｧΙﾓﾟ !\f\"  !┻ ﾂLg甼 !ﾂ\nlνﾝyぱ翊w井!!ﾝ庇扶畏! ~g覿ﾈu井! \nB\n ﾝ庇扶畏!B\nB\n~ \nB\ng躑?9g躑Гm8ﾂ韜ﾙ {#按イﾂwぱ/\"J8ﾂ01ι1AA\n泛1A@2:フ2@Ｗ2)03X\nワ4ｒ4T0お03VΚΚ501A2@:ｽ2@0づ20)よφ5も\nﾞ3Tも4\n檸11 B *ﾈyE  ソ\Aﾂ6789ゼ9@8ク9@@ \"Н8@@ \"7ェ7 >69@6AB｡N9@ B 989A9,  ﾀ?m !.\n" ["" gnus-newsrc-options nil gnus-newsrc-options-n gnus-active-hashtb gnus-make-hashtable 4096 gnus-newsrc-alist 1 num1 reads symbol Options-symbol newsrc options-symbol subscribed group already-read buf intern "options" "Options" "^ !:\n" obarray read gnus-point-at-bol re-search-forward "^[^ ]" move 0 -1 int-to-string boundp 58 symbol-name "!: " looking-at "[0-9]+" 45 10 gnus-error 3.1000000000000001 "Mangled line: %s" gnus-point-at-eol ", " 2 intern-soft gnus-newsrc-hashtb level info rank gnus-level-subscribed gnus-level-default-unsubscribed gnus-level-default-subscribed mentry entry prev rc 4 assoc gnus-make-hashtable-from-newsrc-alist gnus-newsrc-parse-options] 11]) (defalias 'gnus-newsrc-parse-options #[(options) "ﾀ甘 案 !ceb鞍ﾇﾀﾈ#!ﾉﾊﾈ#eb鞍ﾋﾀﾈ#5ﾉﾌﾈ#$eb鞍ﾍﾀﾈ#カﾉﾊ!夷u8eb鞍ﾏﾀﾈ#竿ﾏﾐ ﾈ#b`ﾑZ)hﾐ ﾆﾒ ﾈ#ギﾓ杷ﾔUリﾕﾓ乃ﾓ府ﾖQﾗB\nBＪﾕﾘﾓ!ﾖQﾙB\nBＪ\n+" [nil eol out gnus-set-work-buffer regexp-quote options re-search-forward "\n[ ]+" t replace-match " " "\\ball\\b" ".+" "[ ]-[^n][^-]*" -1 "[ ]-n" gnus-point-at-eol 2 "[^ ,\n]+" 0 33 "^" "\\($\\|\\.\\)" ignore match-string subscribe gnus-newsrc-options-n] 4]) #@20 Save .newsrc file. (defalias 'gnus-save-newsrc-file #[(&optional force) " \n \f9 92ﾇ!2q以 )ﾉU9ﾊﾋﾌ\"ﾍﾎ!\fエﾏ ｘゼﾊﾑﾒ\n#意 位ﾑﾔ\n#易ﾖ!q為ﾘ!異\nﾚPﾜ!ﾞp!衣 位珮\n#遺 囲!$% )輛!位琲\n#磯 一 )" [gnus-newsrc-alist gnus-killed-list gnus-current-startup-file gnus-use-dribble-file gnus-slave force gnus-dribble-buffer buffer-name buffer-size 0 gnus-message 4 "(No changes need to be saved)" gnus-run-hooks gnus-save-newsrc-hook gnus-slave-save-newsrc gnus-save-newsrc-file 8 "Saving %s..." gnus-gnus-to-newsrc-format "Saving %s...done" gnus-get-buffer-create " *Gnus-newsrc*" make-local-variable version-control never ".eld" buffer-file-name file-name-directory default-directory buffer-disable-undo erase-buffer 5 "Saving %s.eld..." gnus-gnus-to-quick-newsrc-format gnus-save-quick-newsrc-hook gnus-startup-file-coding-system coding-system-for-write save-buffer kill-buffer "Saving %s.eld...done" gnus-dribble-delete-file gnus-group-set-mode-line] 4 (#$ . 52570)]) #@65 Insert Gnus variables such as gnus-newsrc-alist in lisp format. (defalias 'gnus-gnus-to-quick-newsrc-format #[nil "ﾀﾃc案c闇c鞍ﾇ!ﾉｱ\n&\n;&ﾋ (\f\f\n4 ;ﾎﾌﾏ !\"Aﾒtﾔ陰@!ウJウﾕﾖ!ﾗｱ畏J!伊cE." [t print-escape-newlines print-quoted ";; -*- emacs-lisp -*-\n" ";; Gnus startup file.\n" ";; Never delete this file -- if you want to force Gnus to read the\n;; .newsrc file (if you have one), touch .newsrc instead.\n" "(setq gnus-newsrc-file-version " prin1-to-string gnus-version ")\n" gnus-save-killed-list gnus-strip-killed-list gnus-killed-list gnus-variable-list delq copy-sequence variables gnus-newsrc-alist nil variable boundp "(setq " symbol-name " '" gnus-prin1] 4 (#$ . 53588)]) #@77 Return the killed list minus the groups that match `gnus-save-killed-list'. (defalias 'gnus-strip-killed-list #[nil "ﾁ ﾄ @\" @\nB 陰\n*" [gnus-killed-list nil olist list string-match gnus-save-killed-list] 3 (#$ . 54328)]) (defalias 'gnus-gnus-to-newsrc-format #[nil "澗 !q\nApﾃ演 \nﾋ\n!\fﾍp!夷 0c 陰 @テﾐ8α\fﾑ噪ｿ\fЫ\Ｌ;ナﾕ!Ｌеｄ;モﾕ!ｄ嚀ｺGGUｺｷ@揀ｷA├?.0@A@:φ@ぷ)Vﾚゃﾛｱ緯8ダﾝcA<@AU ﾞ@!_ﾞ@!衣c萎A!_陰@ダ :6 @ AUエﾞ :А B @!５ﾞ @!衣c萎 A!瀋當0粤!井#%ペ'!| 磯!壱 溢p!." [create-file-buffer gnus-current-startup-file gnus-newsrc-alist nil method range ranges info standard-output newsrc buffer-file-name file-name-directory default-directory buffer-disable-undo erase-buffer gnus-newsrc-options 4 "native" gnus-select-method m2 m1 gnus-server-to-method s2 s1 rank gnus-level-subscribed "!" ":" 2 " " princ "-" "," "\n" make-local-variable version-control never gnus-modtime-botch delete-file gnus-startup-file clear-visited-file-modtime gnus-run-hooks gnus-save-standard-newsrc-hook save-buffer kill-buffer] 7]) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-slave-mode nil current-load-list] 2) #@30 Minor mode for slave Gnusae. (defalias 'gnus-slave-mode #[nil "ﾀﾁﾂﾃ #案ﾅ!" [gnus-add-minor-mode gnus-slave-mode " Slave" make-sparse-keymap gnus-run-hooks gnus-slave-mode-hook] 4 (#$ . 55641)]) (defalias 'gnus-slave-save-newsrc #[nil "q庵\nﾃP!ﾄﾅﾆﾉ!!ﾊ\"+" [gnus-dribble-buffer make-temp-name gnus-current-startup-file "-slave-" G99189 (byte-code "ﾀ ﾂP!" [file-modes gnus-current-startup-file ".eld"] 3) ((error)) modes slave-name gnus-write-buffer set-file-modes] 4]) (defalias 'gnus-master-read-slave-newsrc #[nil "ﾀﾁ\n!ﾃﾄﾅﾆ\n!ﾇP!Pﾃ$ﾈ \ngﾋﾌﾍ\"莞ﾏ!q威p!尉ﾒﾓ\n\"ﾔ\"\nダﾕ \n@A@ ﾖ !以ﾗﾘ純VХﾚﾛﾜ処\nA\n6)ﾝ 依ﾌﾞ\"*" [directory-files file-name-directory gnus-current-startup-file t "^" regexp-quote file-name-nondirectory "-slave-" nil file slave-files gnus-message 7 "Reading slave newsrcs..." gnus-get-buffer-create " *gnus slave*" buffer-disable-undo sort mapcar #[(file) "ﾀﾁ\n!8\nD" [5 file-attributes file] 3] #[(f1 f2) "@@ @@W@A@ @A@W" [f1 f2] 2] erase-buffer insert-file-contents (byte-code "ﾀp!庵" [eval-buffer t] 2) ((error (gnus-error 3.2000000000000002 "Possible error in %s" file) nil)) gnus-slave G99190 (delete-file file) ((error)) gnus-dribble-touch "Reading slave newsrcs...done"] 8]) (defalias 'gnus-read-all-descriptions-files #[nil "ﾁ ﾂC ､Bﾅ\f@!\fA)ﾆ" [gnus-select-method gnus-archive-server-wanted-p "archive" gnus-secondary-select-methods methods gnus-read-descriptions-file t] 4]) (defalias 'gnus-read-descriptions-file #[(&optional method) " ﾂ;ﾄ! ﾆG!ﾈﾉﾊ\" \"ﾋL偉ﾍﾎ@#委!;ﾌﾐﾑ\"按らﾒ!Йﾌﾐﾓ\"按ら褐qeb易ﾖﾂﾗ#Яdbトﾘye`}ヱﾙﾚﾂ\"ﾚﾂ \"\"яﾉﾊ\"ebmюc威yﾘUп)ebmﾂﾜﾝﾞﾂw 9ﾚ`ﾂ`{ﾟ!ﾂ ﾂ矮!ﾂ粤 !!$%$χ%$@\"% %L*ﾐyｔ*ﾌﾍ軆"為*" [method gnus-select-method nil group gnus-server-to-method gnus-description-hashtb gnus-make-hashtable gnus-active-hashtb intern gnus-group-prefixed-name "" "Has read" gnus-message 5 "Reading descriptions file via %s..." gnus-check-server 1 "Couldn't open server" gnus-request-list-newsgroups "Couldn't read newsgroups descriptions" nntp-server-buffer search-forward "\n.\n" t 0 gnus-server-equal gnus-server-get-method prefix (byte-code "ﾂ !)" [gnus-description-hashtb obarray read nntp-server-buffer] 2) ((error 0)) " " boundp enable-multibyte-characters fboundp gnus-mule-get-coding-system symbol-name coding str gnus-decode-coding-string "Reading descriptions file...done"] 6]) #@66 Get the description of a group by sending XGTITLE to the server. (defalias 'gnus-group-get-description #[(group) "ﾀ !浬nqeb暗ﾄ!ﾅﾆ!)" [gnus-request-group-description group nntp-server-buffer looking-at "[^ ]+[ ]+\\(.*\\)" match-string 1] 2 (#$ . 58104)]) #@56 Declare backend NAME with ABILITIES as a Gnus backend. (defalias 'gnus-declare-backend #[(name &rest abilities) "ﾁﾂ \f#C､" [gnus-valid-select-methods apply list name abilities] 5 (#$ . 58374)]) #@122 Set the default directory in the current buffer to `gnus-default-directory'. If this variable is nil, don't do anything. (defalias 'gnus-set-default-directory #[nil "ﾁ!ﾂﾃ!!\f" [gnus-default-directory file-exists-p file-name-as-directory expand-file-name default-directory] 3 (#$ . 58579)]) (provide (quote gnus-start))