;ELC ;;; compiled by jwz@thalidomide on Thu May 5 16:27:04 1994 ;;; from file /th/jwz/emacs19/lisp/gnus/gnus.el ;;; emacs version 19.10 Lucid (beta20). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!!" [provide gnus require nntp mail-utils] 2) (defvar gnus-default-nntp-server nil "\ *Specify default NNTP server. This variable should be defined in paths.el.") (defvar gnus-nntp-server (byte-code "!\n" [getenv "NNTPSERVER" gnus-default-nntp-server] 2) "\ *The name of the host running NNTP server. If it is a string such as `:DIRECTORY', the user's private DIRECTORY is used as a news spool. Initialized from the NNTPSERVER environment variable.") (defvar gnus-nntp-service (purecopy "nntp") "\ *NNTP service name (\"nntp\" or 119). Go to a local news spool if its value is nil.") (defvar gnus-startup-file (purecopy "~/.newsrc") "\ *Your `.newsrc' file. Use `.newsrc-SERVER' instead if exists.") (defvar gnus-signature-file (purecopy "~/.signature") "\ *Your `.signature' file. Use `.signature-DISTRIBUTION' instead if exists.") (defvar gnus-use-cross-reference t "\ *Specifies what to do with cross references (Xref: field). If nil, ignore cross references. If t, mark articles as read in subscribed newsgroups. Otherwise, if not nil nor t, mark articles as read in all newsgroups.") (defvar gnus-use-followup-to t "\ *Specifies what to do with Followup-To: field. If nil, ignore followup-to: field. If t, use its value except for `poster'. Otherwise, if not nil nor t, always use its value.") (defvar gnus-large-newsgroup 50 "\ *The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than the value, confirmation is required for selecting the newsgroup.") (byte-code "!\n" [boundp nntp-large-newsgroup gnus-large-newsgroup] 2) (defvar gnus-author-copy (getenv "AUTHORCOPY") "\ *File name saving a copy of an article posted using FCC: field. Initialized from the AUTHORCOPY environment variable. Articles are saved using a function specified by the the variable `gnus-author-copy-saver' (`rmail-output' is default) if a file name is given. Instead, if the first character of the name is `|', the contents of the article is piped out to the named program. It is possible to save an article in an MH folder as follows: (setq gnus-author-copy \"|/usr/local/lib/mh/rcvstore +Article\")") (defvar gnus-author-copy-saver 'rmail-output "\ *A function called with a file name to save an author copy to. The default function is `rmail-output' which saves in Unix mailbox format.") (defvar gnus-use-long-file-name (byte-code ">?" [system-type (usg-unix-v xenix)] 2) "\ *Non-nil means that a newsgroup name is used as a default file name to save articles to. If it's nil, the directory form of a newsgroup is used instead.") (defvar gnus-article-save-directory (getenv "SAVEDIR") "\ *A directory name to save articles to (default to ~/News). Initialized from the SAVEDIR environment variable.") (defvar gnus-default-article-saver 'gnus-summary-save-in-rmail "\ *A function to save articles in your favorite format. The function must be interactively callable (in other words, it must be an Emacs command). GNUS provides the following functions: gnus-summary-save-in-rmail (in Rmail format) gnus-summary-save-in-mail (in Unix mail format) gnus-summary-save-in-folder (in an MH folder) gnus-summary-save-in-file (in article format).") (defvar gnus-rmail-save-name 'gnus-plain-save-name "\ *A function generating a file name to save articles in Rmail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE.") (defvar gnus-mail-save-name 'gnus-plain-save-name "\ *A function generating a file name to save articles in Unix mail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE.") (defvar gnus-folder-save-name 'gnus-folder-save-name "\ *A function generating a file name to save articles in MH folder. The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER.") (defvar gnus-file-save-name 'gnus-numeric-save-name "\ *A function generating a file name to save articles in article format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE.") (defvar gnus-kill-file-name (purecopy "KILL") "\ *File name of a KILL file.") (defvar gnus-novice-user t "\ *Non-nil means that you are a novice to USENET. If non-nil, verbose messages may be displayed or your confirmations may be required.") (defvar gnus-interactive-catchup t "\ *Require your confirmation when catching up a newsgroup if non-nil.") (defvar gnus-interactive-post t "\ *Newsgroup, subject, and distribution will be asked for if non-nil.") (defvar gnus-interactive-exit t "\ *Require your confirmation when exiting GNUS if non-nil.") (defvar gnus-user-login-name nil "\ *The login name of the user. Got from the USER and LOGNAME environment variable if undefined.") (defvar gnus-user-full-name nil "\ *The full name of the user. Got from the NAME environment variable if undefined.") (defvar gnus-show-mime nil "\ *Show MIME message if non-nil.") (defvar gnus-show-moderated t "\ *Whether to indicate moderated groups in the newsgroup list.") (defvar gnus-show-threads t "\ *Show conversation threads in Summary Mode if non-nil.") (defvar gnus-show-thread-lines nil "\ *Show thread structure lines in Summary Mode if non-nil.") (defvar gnus-thread-hide-subject t "\ *Non-nil means hide subjects for thread subtrees.") (defvar gnus-thread-hide-subtree nil "\ *Non-nil means hide thread subtrees initially. If non-nil, you have to run the command `gnus-summary-show-thread' by hand or by using `gnus-select-article-hook' to show hidden threads.") (defvar gnus-thread-hide-killed t "\ *Non-nil means hide killed thread subtrees automatically.") (defvar gnus-thread-ignore-subject nil "\ *Don't take care of subject differences, but only references if non-nil. If it is non-nil, some commands work with subjects do not work properly.") (defvar gnus-thread-indent-level 4 "\ *Indentation of thread subtrees.") (defvar gnus-ignored-newsgroups (purecopy "^to\\.\\|[ ][^ymn][^ ]*$\\|^[0-9 ]+ ") "\ *A regexp to match uninteresting or invalid newsgroups in the active file. Any lines in the active file matching this regular expression are removed from the newsgroup list before anything else is done to it, thus making them effectively invisible.") (defvar gnus-ignored-headers rmail-ignored-headers "\ *All random fields within the header of a message.") (defvar gnus-required-headers '(From Date Newsgroups Subject Message-ID Organization Distribution Lines) "\ *All required fields for articles you post. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID and Path fields. Organization, Distribution and Lines are optional. If you want GNUS not to insert some field, remove it from the variable.") (defvar gnus-show-all-headers nil "\ *Show all headers of an article if non-nil.") (defvar gnus-save-all-headers t "\ *Save all headers of an article if non-nil.") (defvar gnus-optional-headers 'gnus-optional-lines-and-from "\ *A function generating a optional string displayed in GNUS Summary mode buffer. The function is called with an article HEADER. The result must be a string excluding `[' and `]'.") (defvar gnus-auto-extend-newsgroup t "\ *Extend visible articles to forward and backward if non-nil.") (defvar gnus-auto-select-first t "\ *Select the first unread article automagically if non-nil. If you want to prevent automatic selection of the first unread article in some newsgroups, set the variable to nil in `gnus-select-group-hook' or `gnus-apply-kill-hook'.") (defvar gnus-auto-select-next t "\ *Select the next newsgroup automagically if non-nil. If the value is t and the next newsgroup is empty, GNUS will exit Summary mode and go back to Group mode. If the value is neither nil nor t, GNUS will select the following unread newsgroup. Especially, if the value is the symbol `quietly', the next unread newsgroup will be selected without any confirmations.") (defvar gnus-auto-select-same nil "\ *Select the next article with the same subject automagically if non-nil.") (defvar gnus-auto-center-summary t "\ *Always center the current summary in GNUS Summary window if non-nil.") (defvar gnus-auto-mail-to-author nil "\ *Insert `To: author' of the article when following up if non-nil. Mail is sent using the function specified by the variable `gnus-mail-send-method'.") (defvar gnus-break-pages t "\ *Break an article into pages if non-nil. Page delimiter is specified by the variable `gnus-page-delimiter'.") (defvar gnus-page-delimiter (purecopy "^ ") "\ *Regexp describing line-beginnings that separate pages of news article.") (defvar gnus-digest-show-summary t "\ *Show a summary of undigestified messages if non-nil.") (defvar gnus-digest-separator (purecopy "^Subject:[ ]") "\ *Regexp that separates messages in a digest article.") (defvar gnus-use-full-window t "\ *Non-nil means to take up the entire screen of Emacs.") (defvar gnus-window-configuration '((summary (0 1 0)) (newsgroups (1 0 0)) (article (0 3 10))) "\ *Specify window configurations for each action. The format of the variable is a list of (ACTION (G S A)), where G, S, and A are the relative height of Group, Summary, and Article windows, respectively. ACTION is `summary', `newsgroups', or `article'.") (defvar gnus-show-mime-method 'metamail-buffer "\ *Function to process a MIME message. The function is expected to process current buffer as a MIME message.") (defvar gnus-mail-reply-method 'gnus-mail-reply-using-mail "\ *Function to compose reply mail. The function `gnus-mail-reply-using-mail' uses usual sendmail mail program. The function `gnus-mail-reply-using-mhe' uses the MH-E mail program. You can use yet another program by customizing this variable.") (defvar gnus-mail-forward-method 'gnus-mail-forward-using-mail "\ *Function to forward current message to another user. The function `gnus-mail-reply-using-mail' uses usual sendmail mail program. You can use yet another program by customizing this variable.") (defvar gnus-mail-other-window-method 'gnus-mail-other-window-using-mail "\ *Function to compose mail in other window. The function `gnus-mail-other-window-using-mail' uses the usual sendmail mail program. The function `gnus-mail-other-window-using-mhe' uses the MH-E mail program. You can use yet another program by customizing this variable.") (defvar gnus-mail-send-method send-mail-function "\ *Function to mail a message too which is being posted as an article. The message must have To: or Cc: field. The default is copied from the variable `send-mail-function'.") (defvar gnus-subscribe-newsgroup-method 'gnus-subscribe-alphabetically "\ *Function called with a newsgroup name when new newsgroup is found. The function `gnus-subscribe-randomly' inserts a new newsgroup a the beginning of newsgroups. The function `gnus-subscribe-alphabetically' inserts it in strict alphabetic order. The function `gnus-subscribe-hierarchically' inserts it in hierarchical newsgroup order. The function `gnus-subscribe-interactively' asks for your decision.") (defvar gnus-subscribe-default-groups (byte-code "#!" [purecopy mapconcat identity ("^local" "\\.newusers" "\\.important" "^gnu\\.emacs\\.gnus") "\\b\\|"] 5) "\ *Those newsgroups to which new users should be subscribed by default.") (defvar gnus-group-mode-hook nil "\ *A hook for GNUS Group Mode.") (defvar gnus-summary-mode-hook nil "\ *A hook for GNUS Summary Mode.") (defvar gnus-article-mode-hook nil "\ *A hook for GNUS Article Mode.") (defvar gnus-kill-file-mode-hook nil "\ *A hook for GNUS KILL File Mode.") (defvar gnus-open-server-hook nil "\ *A hook called just before opening connection to news server.") (defvar gnus-startup-hook nil "\ *A hook called at start up time. This hook is called after GNUS is connected to the NNTP server. So, it is possible to change the behavior of GNUS according to the selected NNTP server.") (defvar gnus-group-prepare-hook nil "\ *A hook called after newsgroup list is created in the Newsgroup buffer. If you want to modify the Newsgroup buffer, you can use this hook.") (defvar gnus-summary-prepare-hook nil "\ *A hook called after summary list is created in the Summary buffer. If you want to modify the Summary buffer, you can use this hook.") (defvar gnus-article-prepare-hook nil "\ *A hook called after an article is prepared in the Article buffer. If you want to run a special decoding program like nkf, use this hook.") (defvar gnus-select-group-hook nil "\ *A hook called when a newsgroup is selected. If you want to sort Summary buffer by date and then by subject, you can use the following hook: (setq gnus-select-group-hook (list (function (lambda () ;; First of all, sort by date. (gnus-keysort-headers (function string-lessp) (function (lambda (a) (gnus-sortable-date (gnus-header-date a))))) ;; Then sort by subject string ignoring `Re:'. ;; If case-fold-search is non-nil, case of letters is ignored. (gnus-keysort-headers (function string-lessp) (function (lambda (a) (if case-fold-search (downcase (gnus-simplify-subject (gnus-header-subject a) t)) (gnus-simplify-subject (gnus-header-subject a) t))))) )))) If you'd like to simplify subjects like the `gnus-summary-next-same-subject' command does, you can use the following hook: (setq gnus-select-group-hook (list (function (lambda () (mapcar (function (lambda (header) (nntp-set-header-subject header (gnus-simplify-subject (gnus-header-subject header) 're-only)))) gnus-newsgroup-headers))))) In some newsgroups author name is meaningless. It is possible to prevent listing author names in GNUS Summary buffer as follows: (setq gnus-select-group-hook (list (function (lambda () (cond ((string-equal \"comp.sources.unix\" gnus-newsgroup-name) (setq gnus-optional-headers (function gnus-optional-lines))) (t (setq gnus-optional-headers (function gnus-optional-lines-and-from))))))))") (defvar gnus-select-article-hook '(gnus-summary-show-thread) "\ *A hook called when an article is selected. The default hook shows conversation thread subtrees of the selected article automatically using `gnus-summary-show-thread'. If you'd like to run RMAIL on a digest article automagically, you can use the following hook: (setq gnus-select-article-hook (list (function (lambda () (gnus-summary-show-thread) (cond ((string-equal \"comp.sys.sun\" gnus-newsgroup-name) (gnus-summary-rmail-digest)) ((and (string-equal \"comp.text\" gnus-newsgroup-name) (string-match \"^TeXhax Digest\" (gnus-header-subject gnus-current-headers))) (gnus-summary-rmail-digest) ))))))") (defvar gnus-select-digest-hook (list #[nil "\"!!c" [mail-position-on-field "Reply-to" t gnus-fetch-field "From"] 3]) "\ *A hook called when reading digest messages using Rmail. This hook can be used to modify incomplete digest articles as follows (this is the default): (setq gnus-select-digest-hook (list (function (lambda () ;; Reply-To: is required by `undigestify-rmail-message'. (or (mail-position-on-field \"Reply-to\" t) (progn (mail-position-on-field \"Reply-to\") (insert (gnus-fetch-field \"From\"))))))))") (defvar gnus-rmail-digest-hook nil "\ *A hook called when reading digest messages using Rmail. This hook is intended to customize Rmail mode for reading digest articles.") (defvar gnus-apply-kill-hook '(gnus-apply-kill-file) "\ *A hook called when a newsgroup is selected and summary list is prepared. This hook is intended to apply a KILL file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. Since a general KILL file is too heavy to use only for a few newsgroups, I recommend you to use a lighter hook function. For example, if you'd like to apply a KILL file to articles which contains a string `rmgroup' in subject in newsgroup `control', you can use the following hook: (setq gnus-apply-kill-hook (list (function (lambda () (cond ((string-match \"control\" gnus-newsgroup-name) (gnus-kill \"Subject\" \"rmgroup\") (gnus-expunge \"X\")))))))") (defvar gnus-mark-article-hook (list #[nil " >!!" [gnus-current-article gnus-newsgroup-marked gnus-summary-mark-as-read gnus-summary-set-current-mark "+"] 2]) "\ *A hook called when an article is selected at the first time. The hook is intended to mark an article as read (or unread) automatically when it is selected. If you'd like to mark as unread (-) instead, use the following hook: (setq gnus-mark-article-hook (list (function (lambda () (gnus-summary-mark-as-unread gnus-current-article) (gnus-summary-set-current-mark \"+\")))))") (defvar gnus-prepare-article-hook (list 'gnus-inews-insert-signature) "\ *A hook called after preparing body, but before preparing header fields. The default hook (`gnus-inews-insert-signature') inserts a signature file specified by the variable `gnus-signature-file'.") (defvar gnus-inews-article-hook (list 'gnus-inews-do-fcc) "\ *A hook called before finally posting an article. The default hook (`gnus-inews-do-fcc') does FCC processing (save article to a file).") (defvar gnus-exit-group-hook nil "\ *A hook called when exiting (not quitting) Summary mode. If your machine is so slow that exiting from Summary mode takes very long time, set the variable `gnus-use-cross-reference' to nil. This inhibits marking articles as read using cross-reference information.") (defvar gnus-suspend-gnus-hook nil "\ *A hook called when suspending (not exiting) GNUS.") (defvar gnus-exit-gnus-hook nil "\ *A hook called when exiting (not suspending) GNUS.") (defvar gnus-save-newsrc-hook nil "\ *A hook called when saving the newsrc file. This hook is called before saving the `.newsrc' file.") (defvar gnus-local-timezone nil "\ *Local time zone. This value is used only if `current-time-zone' does not work in your Emacs. It specifies the GMT offset, i.e. a decimal integer of the form +-HHMM giving the hours and minutes ahead of (i.e. east of) GMT. For example, +0900 should be used in Japan, since it is 9 hours ahead of GMT. For backwards compatibility, it may also be a string like \"JST\", but strings are obsolescent: you should use numeric offsets instead.") (defvar gnus-local-domain nil "\ *Local domain name without a host name like: \"stars.flab.Fujitsu.CO.JP\" The `DOMAINNAME' environment variable is used instead if defined. If the function (system-name) returns the full internet name, there is no need to define the name.") (defvar gnus-local-organization nil "\ *Local organization like: \"Fujitsu Laboratories Ltd., Kawasaki, Japan.\" The `ORGANIZATION' environment variable is used instead if defined.") (defvar gnus-local-distributions (byte-code "!!D" [purecopy "world" "local"] 3) "\ *List of distributions. The first element in the list is used as default. If distributions file is available, its content is also used.") (defvar gnus-use-generic-from nil "\ *If nil, prepend local host name to the defined domain in the From: field; if stringp, use this; if non-nil, strip of the local host name.") (defvar gnus-use-generic-path nil "\ *If nil, use the NNTP server name in the Path: field; if stringp, use this; if non-nil, use no host name (user name only)") (defconst gnus-version (purecopy "GNUS 4.1.3 Lucid") "\ Version numbers of this version of GNUS.") (defvar gnus-info-nodes (purecopy '((gnus-group-mode "(gnus)Newsgroup Commands") (gnus-summary-mode "(gnus)Summary Commands") (gnus-article-mode "(gnus)Article Commands") (gnus-kill-file-mode "(gnus)Kill File") (gnus-browse-killed-mode "(gnus)Maintaining Subscriptions"))) "\ Assoc list of major modes and related Info nodes.") (defvar gnus-access-methods (purecopy '((nntp (gnus-retrieve-headers-1 nntp-retrieve-headers) (gnus-retrieve-headers-by-id nntp-retrieve-headers-by-id) (gnus-open-server nntp-open-server) (gnus-close-server nntp-close-server) (gnus-server-opened nntp-server-opened) (gnus-status-message nntp-status-message) (gnus-request-article-1 nntp-request-article) (gnus-request-group nntp-request-group) (gnus-request-list nntp-request-list) (gnus-request-list-newsgroups nntp-request-list-newsgroups) (gnus-request-list-distributions nntp-request-list-distributions) (gnus-request-post nntp-request-post)) (nnspool (gnus-retrieve-headers-1 nnspool-retrieve-headers) (gnus-retrieve-headers-by-id nnspool-retrieve-headers-by-id) (gnus-open-server nnspool-open-server) (gnus-close-server nnspool-close-server) (gnus-server-opened nnspool-server-opened) (gnus-status-message nnspool-status-message) (gnus-request-article-1 nnspool-request-article) (gnus-request-group nnspool-request-group) (gnus-request-list nnspool-request-list) (gnus-request-list-newsgroups nnspool-request-list-newsgroups) (gnus-request-list-distributions nnspool-request-list-distributions) (gnus-request-post nnspool-request-post)) (mhspool (gnus-retrieve-headers-1 mhspool-retrieve-headers) (gnus-retrieve-headers-by-id mhspool-retrieve-headers-by-id) (gnus-open-server mhspool-open-server) (gnus-close-server mhspool-close-server) (gnus-server-opened mhspool-server-opened) (gnus-status-message mhspool-status-message) (gnus-request-article-1 mhspool-request-article) (gnus-request-group mhspool-request-group) (gnus-request-list mhspool-request-list) (gnus-request-list-newsgroups mhspool-request-list-newsgroups) (gnus-request-list-distributions mhspool-request-list-distributions) (gnus-request-post mhspool-request-post)))) "\ Access method for NNTP, nnspool, and mhspool.") (byte-code "!!!!!!!!!!\n" [boundp gnus-group-buffer purecopy "*Newsgroup*" gnus-summary-buffer "*Summary*" gnus-article-buffer "*Article*" gnus-digest-buffer "GNUS Digest" gnus-digest-summary-buffer "GNUS Digest-summary"] 2) (defvar gnus-buffer-list (list gnus-group-buffer gnus-summary-buffer gnus-article-buffer gnus-digest-buffer gnus-digest-summary-buffer) "\ GNUS buffer names which should be killed when exiting.") (defvar gnus-variable-list '(gnus-newsrc-options gnus-newsrc-options-n-yes gnus-newsrc-options-n-no gnus-newsrc-assoc gnus-killed-assoc gnus-marked-assoc) "\ GNUS variables saved in the quick startup file.") (defvar gnus-overload-functions (purecopy '((news-inews gnus-inews-news "rnewspost") (caesar-region gnus-caesar-region "rnews"))) "\ Functions overloaded by gnus. It is a list of `(original overload &optional file)'.") (byte-code "!‡" [boundp gnus-distribution-list nil] 2) (defvar gnus-newsrc-options nil "\ Options line in the .newsrc file.") (defvar gnus-newsrc-options-n-yes nil "\ Regexp representing subscribed newsgroups.") (defvar gnus-newsrc-options-n-no nil "\ Regexp representing unsubscribed newsgroups.") (defvar gnus-newsrc-assoc nil "\ Assoc list of read articles. gnus-newsrc-hashtb should be kept so that both hold the same information.") (defvar gnus-newsrc-hashtb nil "\ Hashtable of gnus-newsrc-assoc.") (defvar gnus-killed-assoc nil "\ Assoc list of newsgroups removed from gnus-newsrc-assoc. gnus-killed-hashtb should be kept so that both hold the same information.") (defvar gnus-killed-hashtb nil "\ Hashtable of gnus-killed-assoc.") (defvar gnus-marked-assoc nil "\ Assoc list of articles marked as unread. gnus-marked-hashtb should be kept so that both hold the same information.") (defvar gnus-marked-hashtb nil "\ Hashtable of gnus-marked-assoc.") (defvar gnus-unread-hashtb nil "\ Hashtable of unread articles.") (defvar gnus-active-hashtb nil "\ Hashtable of active articles.") (defvar gnus-octive-hashtb nil "\ Hashtable of OLD active articles.") (defvar gnus-current-startup-file nil "\ Startup file for the current host.") (defvar gnus-last-search-regexp nil "\ Default regexp for article search command.") (defvar gnus-last-shell-command nil "\ Default shell command on article.") (byte-code "!!!!!!!! ‡" [boundp gnus-have-all-newsgroups nil gnus-newsgroup-name gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file] 2) (defvar gnus-newsgroup-unreads nil "\ List of unread articles in the current newsgroup.") (defvar gnus-newsgroup-unselected nil "\ List of unselected unread articles in the current newsgroup.") (defvar gnus-newsgroup-marked nil "\ List of marked articles in the current newsgroup (a subset of unread art).") (defvar gnus-newsgroup-headers nil "\ List of article headers in the current newsgroup. If the variable is modified (added or deleted), the function gnus-clear-hashtables-for-newsgroup-headers must be called to clear the hash tables.") (byte-code "!!!!!‡" [boundp gnus-newsgroup-headers-hashtb-by-id nil gnus-newsgroup-headers-hashtb-by-number gnus-current-article gnus-current-headers gnus-current-history] 2) (defvar gnus-have-all-headers nil "\ Must be either T or NIL.") (byte-code "!!!!!!!!! !! ‡" [boundp gnus-last-article nil gnus-current-kill-article gnus-winconf-kill-file gnus-group-mode-map gnus-summary-mode-map gnus-article-mode-map gnus-kill-file-mode-map rmail-last-file expand-file-name "~/XMBOX" rmail-last-rmail-file "~/XNEWS"] 2) (autoload 'gnus-group-post-news "gnuspost" "\ Post an article." t) (autoload 'gnus-summary-post-news "gnuspost" "\ Post an article." t) (autoload 'gnus-summary-followup "gnuspost" "\ Post a reply article." t) (autoload 'gnus-summary-followup-with-original "gnuspost" "\ Post a reply article with original article." t) (autoload 'gnus-summary-cancel-article "gnuspost" "\ Cancel an article you posted." t) (autoload 'gnus-summary-read-digest "gnus-digest" "\ Expand the current message as a digest" t) (autoload 'gnus-summary-reply "gnusmail" "\ Reply mail to news author." t) (autoload 'gnus-summary-reply-with-original "gnusmail" "\ Reply mail to news author with original article." t) (autoload 'gnus-summary-mail-forward "gnusmail" "\ Forward the current message to another user." t) (autoload 'gnus-summary-mail-other-window "gnusmail" "\ Compose mail in other window." t) (autoload 'gnus-group-kill-group "gnusmisc" "\ Kill newsgroup on current line." t) (autoload 'gnus-group-yank-group "gnusmisc" "\ Yank the last killed newsgroup on current line." t) (autoload 'gnus-group-kill-region "gnusmisc" "\ Kill newsgroups in current region." t) (autoload 'gnus-group-transpose-groups "gnusmisc" "\ Exchange current newsgroup and previous newsgroup." t) (autoload 'gnus-list-killed-groups "gnusmisc" "\ List the killed newsgroups." t) (autoload 'gnus-gmt-to-local "gnusmisc" "\ Rewrite Date field in GMT to local in current buffer.") (autoload 'metamail-buffer "metamail" "\ Process current buffer through 'metamail'." t) (byte-code "\"\"" [autoload timezone-make-sortable-date "timezone" timezone-parse-date] 3) (autoload 'rmail-output "rmailout" "\ Append this message to Unix mail file named FILE-NAME." t) (autoload 'rmail-file-p "rmailout" "\ Check if this is an rmail file" t) (byte-code "\"\"\"###M" [autoload mail-position-on-field "sendmail" mh-find-path "mh-e" mh-prompt-for-folder put gnus-group-mode mode-class special gnus-summary-mode gnus-article-mode gnus-pop-to-buffer #[(buffer) " !)" [nil pre-display-buffer-function pop-to-buffer buffer] 2]] 4) (fset 'gnus-eval-in-buffer-window '(macro . #[(buffer &rest forms) "DD\"EE" [let ((GNUSStartBufferWindow (selected-window))) unwind-protect append progn gnus-pop-to-buffer buffer forms (select-window GNUSStartBufferWindow)] 7 "\ Pop to BUFFER, evaluate FORMS, and then returns to original window."])) (byte-code "!" [purecopy (13 29 37 47 59 71 89 107 131 163 197 239 293 353 431 521 631 761 919 1103 1327 1597 1931 2333 2801 3371 4049 4861 5839 7013 8419 10103 12143 14591 17519 21023 25229 30293 36353 43627 52361 62851 75431 90523 108631 130363 156437 187751 225307 270371 324449 389357 467237 560689 672827 807403 968897 1162687 1395263 1674319 2009191 2411033 2893249) gnus-primes] 2) (fset 'gnus-make-hashtable #[(&optional hashsize) "W\n @V Au @\")" [hashsize 200 gnus-primes sizes make-vector 0] 3 "\ Make a hash table (default and minimum size is around 200). Optional argument HASHSIZE specifies the table size."]) (fset 'gnus-gethash '(macro . #[(string hashtable) "\n ED" [symbol-value intern-soft string hashtable] 4 "\ Get hash value of STRING in HASHTABLE."])) (fset 'gnus-sethash '(macro . #[(string value hashtable) "\n E E" [set intern string hashtable value] 4 "\ Set hash value. Arguments are STRING, VALUE, and HASHTABLE."])) (byte-code "!" [boundp gnus-lazy-message-time 0] 2) (fset 'gnus-lazy-message #[(&rest args) " A@U? \"" [gnus-lazy-message-time current-time apply message args] 3 "\ Just like `message' but is a no-op if called more than once a second."]) (byte-code "!M" [fboundp current-time gnus-lazy-message message] 2) (fset 'nntp-header-number '(macro . #[(header) " E" [aref header 0] 3 "\ Return article number in HEADER."])) (fset 'nntp-set-header-number '(macro . #[(header number) " F" [aset header 0 number] 4 "\ Set article number of HEADER to NUMBER."])) (fset 'nntp-header-subject '(macro . #[(header) " E" [aref header 1] 3 "\ Return subject string in HEADER."])) (fset 'nntp-set-header-subject '(macro . #[(header subject) " F" [aset header 1 subject] 4 "\ Set article subject of HEADER to SUBJECT."])) (fset 'nntp-header-from '(macro . #[(header) " E" [aref header 2] 3 "\ Return author string in HEADER."])) (fset 'nntp-set-header-from '(macro . #[(header from) " F" [aset header 2 from] 4 "\ Set article author of HEADER to FROM."])) (fset 'nntp-header-xref '(macro . #[(header) " E" [aref header 3] 3 "\ Return xref string in HEADER."])) (fset 'nntp-set-header-xref '(macro . #[(header xref) " F" [aset header 3 xref] 4 "\ Set article xref of HEADER to xref."])) (fset 'nntp-header-lines '(macro . #[(header) " E" [aref header 4] 3 "\ Return lines in HEADER."])) (fset 'nntp-set-header-lines '(macro . #[(header lines) " F" [aset header 4 lines] 4 "\ Set article lines of HEADER to LINES."])) (fset 'nntp-header-date '(macro . #[(header) " E" [aref header 5] 3 "\ Return date in HEADER."])) (fset 'nntp-set-header-date '(macro . #[(header date) " F" [aset header 5 date] 4 "\ Set article date of HEADER to DATE."])) (fset 'nntp-header-id '(macro . #[(header) " E" [aref header 6] 3 "\ Return Id in HEADER."])) (fset 'nntp-set-header-id '(macro . #[(header id) " F" [aset header 6 id] 4 "\ Set article Id of HEADER to ID."])) (fset 'nntp-header-references '(macro . #[(header) " E" [aref header 7] 3 "\ Return references in HEADER."])) (fset 'nntp-set-header-references '(macro . #[(header ref) " F" [aset header 7 ref] 4 "\ Set article references of HEADER to REF."])) (byte-code "  !###############################@#AB#CD#EF#GH#IJ#KL#" [gnus-group-mode-map make-keymap suppress-keymap define-key " " gnus-group-read-group "=" gnus-group-select-group "j" gnus-group-jump-to-group "n" gnus-group-next-unread-group "p" gnus-group-prev-unread-group "" "N" gnus-group-next-group "P" gnus-group-prev-group "" "" " " next-line "<" beginning-of-buffer ">" end-of-buffer "u" gnus-group-unsubscribe-current-group "U" gnus-group-unsubscribe-group "c" gnus-group-catchup "C" gnus-group-catchup-all "l" gnus-group-list-groups "L" gnus-group-list-all-groups "g" gnus-group-get-new-news "R" gnus-group-restart "b" gnus-group-check-bogus-groups "r" gnus-group-restrict-groups "a" gnus-group-post-news "k" gnus-group-edit-local-kill "K" gnus-group-edit-global-kill " " gnus-group-kill-group "" gnus-group-yank-group "" gnus-group-kill-region "" gnus-group-transpose-groups " " gnus-list-killed-groups "V" gnus-version "s" gnus-group-force-update "z" gnus-group-suspend "q" gnus-group-exit "Q" gnus-group-quit "?" gnus-group-describe-briefly " " gnus-info-find-node] 4) (fset 'gnus-group-mode #[nil " !! Move point to the end of this buffer. u Unsubscribe from (subscribe to) this newsgroup. U Unsubscribe from (subscribe to) the specified newsgroup. c Mark all articles as read, preserving marked articles. C Mark all articles in this newsgroup as read. l Revert this buffer. L List all newsgroups. g Get new news. R Force to read the raw .newsrc file and get new news. b Check bogus newsgroups. r Restrict visible newsgroups to the current region. a Post a new article. ESC k Edit a local KILL file applied to this newsgroup. ESC K Edit a global KILL file applied to all newsgroups. C-k Kill this newsgroup. C-y Yank killed newsgroup here. C-w Kill newsgroups in current region (excluding current point). C-x C-t Exchange this newsgroup and previous newsgroup. C-c C-l list killed newsgroups. s Save .newsrc file. z Suspend reading news. q Quit reading news. Q Quit reading news without saving .newsrc file. V Show the version number of this GNUS. ? Describe Group Mode commands briefly. C-h m Describe Group Mode. C-c C-i Read Info about Group Mode. The name of the host running NNTP server is asked for if no default host is specified. It is also possible to choose another NNTP server even when the default server is defined by giving a prefix argument to the command `\\[gnus]'. If an NNTP server is preceded by a colon such as `:Mail', the user's private directory `~/Mail' is used as a news spool. This makes it possible to read mail stored in MH folders or articles saved by GNUS. File names of mail or articles must consist of only numeric characters. Otherwise, they are ignored. If there is a file named `~/.newsrc-SERVER', it is used as the startup file instead of standard one when talking to SERVER. It is possible to talk to many hosts by using different startup files for each. Option `-n' of the options line in the startup file is recognized properly the same as the Bnews system. For example, if the options line is `options -n !talk talk.rumors', newsgroups under the `talk' hierarchy except for `talk.rumors' are ignored while checking new newsgroups. If there is a file named `~/.signature-DISTRIBUTION', it is used as signature file instead of standard one when posting a news in DISTRIBUTION. If an Info file generated from `gnus.texinfo' is installed, you can read an appropriate Info node of the Info file according to the current major mode of GNUS by \\[gnus-info-find-node]. The variable `gnus-version', `nntp-version', `nnspool-version', and `mhspool-version' have the version numbers of this version of gnus.el, nntp.el, nnspool.el, and mhspoo.el, respectively. User customizable variables: gnus-nntp-server Specifies the name of the host running the NNTP server. If its value is a string such as `:DIRECTORY', the user's private DIRECTORY is used as a news spool. The variable is initialized from the NNTPSERVER environment variable. gnus-nntp-service Specifies a NNTP service name. It is usually \"nntp\" or 119. Nil forces GNUS to use a local news spool if the variable `gnus-nntp-server' is set to the local host name. gnus-startup-file Specifies a startup file (.newsrc). If there is a file named `.newsrc-SERVER', it's used instead when talking to SERVER. I recommend you to use the server specific file, if you'd like to talk to many servers. Especially if you'd like to read your private directory, the name of the file must be `.newsrc-:DIRECTORY'. gnus-signature-file Specifies a signature file (.signature). If there is a file named `.signature-DISTRIBUTION', it's used instead when posting an article in DISTRIBUTION. Set the variable to nil to prevent appending the file automatically. If you use an NNTP inews which comes with the NNTP package, you may have to set the variable to nil. gnus-use-cross-reference Specifies what to do with cross references (Xref: field). If it is nil, cross references are ignored. If it is t, articles in subscribed newsgroups are only marked as read. Otherwise, if it is not nil nor t, articles in all newsgroups are marked as read. gnus-use-followup-to Specifies what to do with followup-to: field. If it is nil, its value is ignored. If it is non-nil, its value is used as followup newsgroups. Especially, if it is t and field value is `poster', your confirmation is required. gnus-author-copy Specifies a file name to save a copy of article you posted using FCC: field. If the first character of the value is `|', the contents of the article is piped out to a program specified by the rest of the value. The variable is initialized from the AUTHORCOPY environment variable. gnus-author-copy-saver Specifies a function to save an author copy. The function is called with a file name. The default function `rmail-output' saves in Unix mail format. gnus-kill-file-name Use specified file name as a KILL file (default to `KILL'). gnus-novice-user Non-nil means that you are a novice to USENET. If non-nil, verbose messages may be displayed or your confirmations may be required. gnus-interactive-post Non-nil means that newsgroup, subject and distribution are asked for interactively when posting a new article. gnus-use-full-window Non-nil means to take up the entire screen of Emacs. gnus-window-configuration Specifies the configuration of Group, Summary, and Article windows. It is a list of (ACTION (G S A)), where G, S, and A are the relative height of Group, Summary, and Article windows, respectively. ACTION is `summary', `newsgroups', or `article'. gnus-subscribe-newsgroup-method Specifies a function called with a newsgroup name when new newsgroup is found. The default definition adds new newsgroup at the beginning of other newsgroups. And more and more. Please refer to texinfo documentation. Various hooks for customization: gnus-group-mode-hook Entry to this mode calls the value with no arguments, if that value is non-nil. This hook is called before GNUS is connected to the NNTP server. So, you can change or define the NNTP server in this hook. gnus-startup-hook Called with no arguments after the NNTP server is selected. It is possible to change the behavior of GNUS or initialize the variables according to the selected NNTP server. gnus-group-prepare-hook Called with no arguments after a newsgroup list is created in the Newsgroup buffer, if that value is non-nil. gnus-save-newsrc-hook Called with no arguments when saving newsrc file if that value is non-nil. gnus-prepare-article-hook Called with no arguments after preparing message body, but before preparing header fields which is automatically generated if that value is non-nil. The default hook (gnus-inews-insert-signature) inserts a signature file. gnus-inews-article-hook Called with no arguments when posting an article if that value is non-nil. This hook is called just before posting an article. The default hook does FCC (save an article to the specified file). gnus-suspend-gnus-hook Called with no arguments when suspending (not exiting) GNUS, if that value is non-nil. gnus-exit-gnus-hook Called with no arguments when exiting (not suspending) GNUS, if that value is non-nil." nil]) (fset 'gnus #[(&optional confirm) "\n\"!Ŏ!q !) !)" [string-match "Lucid" emacs-version require gnus-lucid ((byte-code " \" !)!  !Ƈ" [gnus-server-opened gnus-group-quit format " {%s}" gnus-nntp-server mode-line-process nil buffer-read-only erase-buffer gnus-group-startup-message sit-for 0 run-hooks gnus-startup-hook gnus-setup-news gnus-novice-user gnus-group-describe-briefly gnus-group-list-groups] 3)) get-buffer-create gnus-group-buffer buf gnus-group-mode switch-to-buffer gnus-start-news-server confirm] 4 "\ Read network news. If optional argument CONFIRM is non-nil, ask NNTP server." "P"]) (fset 'gnus-group-startup-message #[nil "\n\"ced Z]ǥ#eb Z]ǥ\"" [format "\n %s\n\n NNTP-based News Reader for GNU Emacs\n\n\nIf you have any trouble with this software, please let me\nknow. I will fix your problems in the next release.\n\nComments, suggestions, and bug fixes are welcome.\n\nMasanobu UMEDA\numerin@mse.kyutech.ac.jp" gnus-version indent-rigidly window-width 57 0 2 insert-char 10 window-height 18] 5 "\ Insert startup message in current buffer."]) (fset 'gnus-group-list-groups #[(show-all) "  q! U!\n\n!eb#*" [nil gnus-group-group-name current-group case-fold-search gnus-group-buffer gnus-group-prepare show-all buffer-size 0 message "No news is good news" gnus-group-find-group search-forward ":" t] 4 "\ List newsgroups in the Newsgroup buffer. If argument SHOW-ALL is non-nil, unsubscribed groups are also listed." "P"]) (fset 'gnus-group-prepare #[(&optional all) "  @@ \"JA@ A@ V A@Ϫ V \"JAGZYҪ \"JA@ժ&cA eb!." [nil gnus-newsrc-assoc 0 "%s%s%5d: %s%s\n" cntl unread-count group-name group-info newsrc buffer-read-only erase-buffer intern-soft gnus-unread-hashtb all format " " "U" gnus-marked-hashtb "*" gnus-show-moderated gnus-active-hashtb " (m)" "" gnus-have-all-newsgroups run-hooks gnus-group-prepare-hook] 10 "\ Prepare list of newsgroups in current buffer. If optional argument ALL is non-nil, unsubscribed groups are also listed."]) (fset 'gnus-group-prepare-line #[(info) "@ \"JA@ \"J8AA\"!\n\nA@̪V \"JAGZYЪ  \"JA@Ҫ&+" [info group-name intern-soft gnus-unread-hashtb gnus-number-of-articles gnus-difference-of-range 2 gnus-active-hashtb unread-count "%s%s%5d: %s%s\n" cntl format " " "U" 0 gnus-marked-hashtb "*" gnus-show-moderated " (m)" ""] 9 "\ Return a string for the Newsgroup buffer from INFO. INFO is an element of gnus-newsrc-assoc or gnus-killed-assoc."]) (fset 'gnus-bsearch-lines #[(predicate) "ed \nW \n\\ĥby = `Wym = \n\\ĥby`K `Cy`< =  +" [nil value hi lo 2 0 predicate junk -1 1] 4 "\ Uses binary search to find a line in the current buffer. PREDICATE is a zero-argument function called with point at the beginning of a line. It should return nil if point is before the target, non-nil if point is equal to or after the target. As a special case, if it returns the symbol `junk', then this line is ignored. PREDICATE must not change point. On return, point will be at the beginning of the target line. The value of PREDICATE at that point is returned. PREDICATE is called O(lg(lines) + junklines) times."]) (byte-code "MMM" [gnus-group-find-group #[(group) " \" !" [gnus-group-linear-find-group group 10 gnus-group-binary-find-group] 3] gnus-group-linear-find-group #[(group &optional fudge) "eb\n\nW # dy\n^\nSYy )" [nil found fudge 0 search-forward group t gnus-group-group-name 1] 5] gnus-group-binary-find-group #[(group) " \n\"J >! *" [intern-soft group gnus-newsrc-hashtb gnus-newsrc-assoc nil this tail gnus-bsearch-lines #[nil " ‡ \"J > " [gnus-group-group-name this junk intern-soft gnus-newsrc-hashtb tail] 4]] 3]] 2) (fset 'gnus-group-update-group #[(group &optional visible-only) " !`y`| \"J!cy)" [nil buffer-read-only gnus-group-find-group group 1 visible-only gnus-group-prepare-line intern-soft gnus-newsrc-hashtb -1] 4 "\ Update newsgroup info of GROUP. If optional argument VISIBLE-ONLY is non-nil, non displayed group is ignored."]) (fset 'gnus-group-group-name #[nil "y#!T{)" [0 search-forward ":" nil t looking-at " [^ \n]+"] 4]) (fset 'gnus-group-make-regexp #[(newsgroup) "\n!Q" ["^.+: " regexp-quote newsgroup "\\([ ].*\\|$\\)"] 3 "\ Return regexp that matches for a line of NEWSGROUP."]) (fset 'gnus-group-search-forward #[(backward norest &optional heretoo) " ªǪɪ#    yy  # y# ," [nil backward re-search-backward re-search-forward format "^%s[ ]*\\(%s\\):" norest ".." " [ ]" "[0-9]+" "[1-9][0-9]*" found regexp func case-fold-search heretoo 0 t search-forward ":"] 6 "\ Search for the next (or previous) newsgroup. If 1st argument BACKWARD is non-nil, search backward instead. If 2nd argument NOREST is non-nil, don't care about newsgroup property. If optional argument HERETOO is non-nil, current line is searched for, too."]) (fset 'gnus-group-read-group #[(all &optional no-article) "  \"JA@U#)" [gnus-group-group-name group gnus-summary-read-group all intern-soft gnus-unread-hashtb 0 no-article] 6 "\ Read news in this newsgroup. If argument ALL is non-nil, already read articles become readable. If optional argument NO-ARTICLE is non-nil, no article body is displayed." "P"]) (fset 'gnus-group-select-group #[(all) " \"" [gnus-group-read-group all t] 3 "\ Select this newsgroup. No article is selected automatically. If argument ALL is non-nil, already read articles become readable." "P"]) (fset 'gnus-group-jump-to-group #[(group) "q\n \"J \n!\n!#" [gnus-group-buffer intern-soft group gnus-newsrc-hashtb gnus-subscribe-newsgroup-method gnus-group-update-group search-forward ":" nil t] 4 "\ Jump to newsgroup GROUP. If GROUP isn't in your newsrc, subscribe to it by applying `gnus-subscribe-newsgroup-method'." (byte-code "\n$C" [completing-read "Newsgroup: " gnus-active-hashtb nil require-match] 5)]) (fset 'gnus-group-next-group #[(n) "V\"Sp\"!" [n 1 gnus-group-search-forward nil t message "No more newsgroups"] 4 "\ Go to next N'th newsgroup." "p"]) (fset 'gnus-group-next-unread-group #[(n) "VÉ\"SpÉ\"!" [n 1 gnus-group-search-forward nil message "No more unread newsgroups"] 4 "\ Go to next N'th unread newsgroup." "p"]) (fset 'gnus-group-prev-group #[(n) "VÉ\"SpÉ\"!" [n 1 gnus-group-search-forward t message "No more newsgroups"] 4 "\ Go to previous N'th newsgroup." "p"]) (fset 'gnus-group-prev-unread-group #[(n) "V\"Sp\"!" [n 1 gnus-group-search-forward t nil message "No more unread newsgroups"] 4 "\ Go to previous N'th unread newsgroup." "p"]) (fset 'gnus-group-catchup #[(all) " \n? \"JA \nȪ!! # !!*" [gnus-group-group-name group all intern-soft gnus-marked-hashtb marked gnus-interactive-catchup y-or-n-p "Do you really want to mark everything as read? " "Delete all articles not marked as read? " message "" gnus-update-unread-articles gnus-group-update-group gnus-group-next-group 1] 4 "\ Mark all articles not marked as unread in current newsgroup as read. If prefix argument ALL is non-nil, all articles are marked as read. Cross references (Xref: field) of articles are ignored." "P"]) (fset 'gnus-group-catchup-all #[nil "!" [gnus-group-catchup t] 2 "\ Mark all articles in current newsgroup as read. Cross references (Xref: field) of articles are ignored." nil]) (fset 'gnus-group-unsubscribe-current-group #[nil " !!" [gnus-group-unsubscribe-group gnus-group-group-name gnus-group-next-group 1] 2 "\ Toggle subscribe from/to unsubscribe current group." nil]) (fset 'gnus-group-unsubscribe-group #[(group) " \n\"J A A@? ! !y# ;  \"J ! !y# \")" [intern-soft group gnus-newsrc-hashtb newsrc gnus-update-newsrc-buffer gnus-group-update-group 0 search-forward ":" nil t gnus-active-hashtb gnus-add-newsgroup error "No such newsgroup: %s"] 5 "\ Toggle subscribe from/to unsubscribe GROUP. New newsgroup is added to .newsrc automatically." (byte-code "\n$C" [completing-read "Newsgroup: " gnus-active-hashtb nil require-match] 5)]) (fset 'gnus-group-list-all-groups #[nil "!" [gnus-group-list-groups t] 2 "\ List all of newsgroups in the Newsgroup buffer." nil]) (fset 'gnus-group-get-new-news #[nil " \n!" [gnus-setup-news gnus-group-list-groups gnus-have-all-newsgroups] 2 "\ Get newly arrived articles. In fact, read the active file again." nil]) (fset 'gnus-group-restart #[nil " ! !" [gnus-save-newsrc-file gnus-setup-news t gnus-group-list-groups gnus-have-all-newsgroups] 2 "\ Force GNUS to read the raw startup file." nil]) (fset 'gnus-group-check-bogus-groups #[nil "! !" [gnus-check-bogus-newsgroups t gnus-group-list-groups gnus-have-all-newsgroups] 2 "\ Check bogus newsgroups." nil]) (fset 'gnus-group-restrict-groups #[(start end) "by`\nby`})!!" [start 0 end 1 message substitute-command-keys "Type \\[widen] to remove restriction"] 3 "\ Restrict visible newsgroups to the current region (START and END). Type \\[widen] to remove restriction." "r"]) (fset 'gnus-group-edit-global-kill #[nil "!!!" [nil gnus-current-kill-article gnus-kill-file-edit-file message substitute-command-keys "Editing a global KILL file (Type \\[gnus-kill-file-exit] to exit)"] 3 "\ Edit a global KILL file." nil]) (fset 'gnus-group-edit-local-kill #[nil " !!!" [nil gnus-current-kill-article gnus-kill-file-edit-file gnus-group-group-name message substitute-command-keys "Editing a local KILL file (Type \\[gnus-kill-file-exit] to exit)"] 3 "\ Edit a local KILL file." nil]) (fset 'gnus-group-force-update #[nil " " [gnus-save-newsrc-file] 1 "\ Update .newsrc file." nil]) (fset 'gnus-group-suspend #[nil "!\n @ = @! @! Ai) " [run-hooks gnus-suspend-gnus-hook gnus-buffer-list buffers gnus-group-buffer get-buffer kill-buffer bury-buffer] 3 "\ Suspend the current GNUS session. In fact, cleanup buffers except for Group Mode buffer. The hook gnus-suspend-gnus-hook is called before actually suspending." nil]) (fset 'gnus-group-exit #[nil " U !!! " [noninteractive buffer-size 0 gnus-server-opened gnus-interactive-exit y-or-n-p "Are you sure you want to quit reading news? " message "" run-hooks gnus-exit-gnus-hook gnus-save-newsrc-file gnus-clear-system gnus-close-server] 2 "\ Quit reading news after updating .newsrc. The hook gnus-exit-gnus-hook is called before actually quitting." nil]) (fset 'gnus-group-quit #[nil " U !\"!!! " [noninteractive buffer-size 0 gnus-server-opened yes-or-no-p format "Quit reading news without saving %s? " file-name-nondirectory gnus-current-startup-file message "" run-hooks gnus-exit-gnus-hook gnus-clear-system gnus-close-server] 5 "\ Quit reading news without updating .newsrc. The hook gnus-exit-gnus-hook is called before actually quitting." nil]) (fset 'gnus-group-describe-briefly #[nil "!!!!!!!" [message substitute-command-keys "\\[gnus-group-read-group]:Select " "\\[gnus-group-next-unread-group]:Forward " "\\[gnus-group-prev-unread-group]:Backward " "\\[gnus-group-exit]:Exit " "\\[gnus-info-find-node]:Run Info " "\\[gnus-group-describe-briefly]:This help"] 8 "\ Describe Group mode commands briefly." nil]) (byte-code " !##############################@A#BC#DE#FG#HI#JK#LM#NO#PQ#RS#TU#VW#XY#Z[#\\]#^_#`a#bc#de#fg#ha#ic#je#kg#lm#no#pq#rs#tu#vw#xy#z{#|}#~#################" [gnus-summary-mode-map make-keymap suppress-keymap define-key " " gnus-summary-next-page "" gnus-summary-prev-page " " gnus-summary-scroll-up "n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "" gnus-summary-next-same-subject "" gnus-summary-prev-same-subject "" gnus-summary-next-digest "" gnus-summary-prev-digest "" gnus-summary-next-subject "" gnus-summary-prev-subject "n" gnus-summary-next-unread-subject "p" gnus-summary-prev-unread-subject "." gnus-summary-first-unread-article "s" gnus-summary-isearch-article "s" gnus-summary-search-article-forward "r" gnus-summary-search-article-backward "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "j" gnus-summary-goto-subject "l" gnus-summary-goto-last-article "^" gnus-summary-refer-parent-article "^" gnus-summary-refer-article "u" gnus-summary-mark-as-unread-forward "U" gnus-summary-mark-as-unread-backward "d" gnus-summary-mark-as-read-forward "D" gnus-summary-mark-as-read-backward "u" gnus-summary-clear-mark-forward "U" gnus-summary-clear-mark-backward "k" gnus-summary-kill-same-subject-and-select " " gnus-summary-kill-same-subject "" gnus-summary-toggle-threads "" gnus-summary-show-thread "" gnus-summary-hide-thread "" gnus-summary-next-thread "" gnus-summary-prev-thread "" gnus-summary-up-thread "" gnus-summary-down-thread " " gnus-summary-kill-thread "&" gnus-summary-execute-command "c" gnus-summary-catchup-and-exit "" gnus-summary-toggle-truncation "x" gnus-summary-delete-marked-as-read "X" gnus-summary-delete-marked-with "n" gnus-summary-sort-by-number "a" gnus-summary-sort-by-author "s" gnus-summary-sort-by-subject "d" gnus-summary-sort-by-date "" "" "" "" "=" gnus-summary-expand-window "" gnus-summary-reselect-current-group "w" gnus-summary-stop-page-breaking "" gnus-summary-caesar-message "g" gnus-summary-show-article "t" gnus-summary-toggle-header "t" gnus-summary-toggle-mime "" gnus-summary-read-digest "a" gnus-summary-post-news "f" gnus-summary-followup "F" gnus-summary-followup-with-original "C" gnus-summary-cancel-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "" gnus-summary-mail-forward "m" gnus-summary-mail-other-window "o" gnus-summary-save-article "" gnus-summary-save-in-mail "|" gnus-summary-pipe-output "k" gnus-summary-edit-local-kill "K" gnus-summary-edit-global-kill "V" gnus-version "q" gnus-summary-exit "Q" gnus-summary-quit "?" gnus-summary-describe-briefly " " gnus-info-find-node] 4) (fset 'gnus-summary-mode #[nil " !! Move point to the end of the current article. j Jump to the article specified by the numeric article ID. l Jump to the article you read last. ^ Refer to parent of the current article. ESC ^ Refer to the article specified by the Message-ID. u Mark the current article as unread, and go forward. U Mark the current article as unread, and go backward. d Mark the current article as read, and go forward. D Mark the current article as read, and go backward. ESC u Clear the current article's mark, and go forward. ESC U Clear the current article's mark, and go backward. k Mark articles which has the same subject as the current article as read, and then select the next unread article. C-k Mark articles which has the same subject as the current article as read. ESC k Edit a local KILL file applied to the current newsgroup. ESC K Edit a global KILL file applied to all newsgroups. ESC C-t Toggle showing conversation threads. ESC C-s Show thread subtrees. ESC C-h Hide thread subtrees. \\[gnus-summary-show-all-threads] Show all thread subtrees. \\[gnus-summary-hide-all-threads] Hide all thread subtrees. ESC C-f Go to the same level next thread. ESC C-b Go to the same level previous thread. ESC C-d Go downward current thread. ESC C-u Go upward current thread. ESC C-k Mark articles under current thread as read. & Execute a command for each article conditionally. \\[gnus-summary-catchup] Mark all articles as read in the current newsgroup, preserving articles marked as unread. \\[gnus-summary-catchup-all] Mark all articles as read in the current newsgroup. \\[gnus-summary-catchup-and-exit] Catch up all articles not marked as unread, and then exit the current newsgroup. \\[gnus-summary-catchup-all-and-exit] Catch up all articles, and then exit the current newsgroup. C-t Toggle truncations of subject lines. x Delete subject lines marked as read. X Delete subject lines with the specific marks. C-c C-s C-n Sort subjects by article number. C-c C-s C-a Sort subjects by article author. C-c C-s C-s Sort subjects alphabetically. C-c C-s C-d Sort subjects by date. = Expand Summary window to show headers full window. C-x C-s Reselect the current newsgroup. Prefix argument means to select all. w Stop page breaking by linefeed. C-c C-r Caesar rotates letters by 13/47 places. g Force to show the current article. t Show original article header if pruned header currently shown, or vice versa. ESC-t Toggle MIME processing. C-d Expand the current message as a digest. a Post a new article. f Post a reply article. F Post a reply article with original article. C Cancel the current article. r Mail a message to the author. R Mail a message to the author with original author. C-c C-f Forward the current message to another user. m Mail a message in other window. o Save the current article in your favorite format. C-o Append the current article to a file in Unix mail format. | Pipe the contents of the current article to a subprocess. q Quit reading news in the current newsgroup. Q Quit reading news without recording unread articles information. V Show the version number of this GNUS. ? Describe Summary mode commands briefly. C-h m Describe Summary mode. C-c C-i Read Info about Summary mode. User customizable variables: gnus-large-newsgroup The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than the value, the number of articles to be selected is asked for. If the given value N is positive, the last N articles is selected. If N is negative, the first N articles are selected. An empty string means to select all articles. gnus-use-long-file-name Non-nil means that a newsgroup name is used as a default file name to save articles to. If it's nil, the directory form of a newsgroup is used instead. gnus-default-article-saver Specifies your favorite article saver which is interactively funcallable. Following functions are available: gnus-summary-save-in-rmail (in Rmail format) gnus-summary-save-in-mail (in Unix mail format) gnus-summary-save-in-folder (in MH folder) gnus-summary-save-in-file (in article format). gnus-rmail-save-name gnus-mail-save-name gnus-folder-save-name gnus-file-save-name Specifies a function generating a file name to save articles in specified format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. Access macros to the headers are defined as nntp-header-FIELD, and functions are defined as gnus-header-FIELD. gnus-article-save-directory Specifies a directory name to save articles to using the commands gnus-summary-save-in-rmail, gnus-summary-save-in-mail and gnus-summary-save-in-file. The variable is initialized from the SAVEDIR environment variable. gnus-show-all-headers Non-nil means that all headers of an article are shown. gnus-save-all-headers Non-nil means that all headers of an article are saved in a file. gnus-show-mime Non-nil means that show a MIME message. gnus-show-threads Non-nil means that conversation threads are shown in tree structure. gnus-thread-hide-subject Non-nil means that subjects for thread subtrees are hidden. gnus-thread-hide-subtree Non-nil means that thread subtrees are hidden initially. gnus-thread-hide-killed Non-nil means that killed thread subtrees are hidden automatically. gnus-thread-ignore-subject Non-nil means that subject differences are ignored in constructing thread trees. gnus-thread-indent-level Indentation of thread subtrees. gnus-optional-headers Specifies a function which generates an optional string displayed in the Summary buffer. The function is called with an article HEADERS. The result must be a string excluding `[' and `]'. The default function returns a string like NNN:AUTHOR, where NNN is the number of lines in an article and AUTHOR is the name of the author. gnus-auto-extend-newsgroup Non-nil means visible articles are extended to forward and backward automatically if possible. gnus-auto-select-first Non-nil means the first unread article is selected automagically when a newsgroup is selected normally (by gnus-group-read-group). If you'd like to prevent automatic selection of the first unread article in some newsgroups, set the variable to nil in gnus-select-group-hook or gnus-apply-kill-hook. gnus-auto-select-next Non-nil means the next newsgroup is selected automagically at the end of the newsgroup. If the value is t and the next newsgroup is empty (no unread articles), GNUS will exit Summary mode and go back to Group mode. If the value is neither nil nor t, GNUS won't exit Summary mode but select the following unread newsgroup. Especially, if the value is the symbol `quietly', the next unread newsgroup will be selected without any confirmations. gnus-auto-select-same Non-nil means an article with the same subject as the current article is selected automagically like `rn -S'. gnus-auto-center-summary Non-nil means the point of Summary Mode window is always kept centered. gnus-break-pages Non-nil means an article is broken into pages at page delimiters. This may not work with some versions of GNU Emacs earlier than version 18.50. gnus-page-delimiter Specifies a regexp describing line-beginnings that separate pages of news article. [gnus-more-message is obsolete. overlay-arrow-string interfares with other subsystems, such as dbx mode.] gnus-digest-show-summary Non-nil means that a summary of digest messages is shown when reading a digest article using `gnus-summary-rmail-digest' command. gnus-digest-separator Specifies a regexp separating messages in a digest article. gnus-mail-reply-method gnus-mail-other-window-method Specifies a function to begin composing mail message using commands gnus-summary-reply and gnus-summary-mail-other-window. Functions gnus-mail-reply-using-mail and gnus-mail-reply-using-mhe are available for the value of gnus-mail-reply-method. And functions gnus-mail-other-window-using-mail and gnus-mail-other-window-using-mhe are available for the value of gnus-mail-other-window-method. gnus-mail-send-method Specifies a function to mail a message too which is being posted as an article. The message must have To: or Cc: field. The value of the variable send-mail-function is the default function which uses sendmail mail program. Various hooks for customization: gnus-summary-mode-hook Entry to this mode calls the value with no arguments, if that value is non-nil. gnus-select-group-hook Called with no arguments when newsgroup is selected, if that value is non-nil. It is possible to sort subjects in this hook. See the documentation of this variable for more information. gnus-summary-prepare-hook Called with no arguments after a summary list is created in the Summary buffer, if that value is non-nil. If you'd like to modify the buffer, you can use this hook. gnus-select-article-hook Called with no arguments when an article is selected, if that value is non-nil. See the documentation of this variable for more information. gnus-select-digest-hook Called with no arguments when reading digest messages using Rmail, if that value is non-nil. This hook can be used to modify an article so that Rmail can work with it. See the documentation of the variable for more information. gnus-rmail-digest-hook Called with no arguments when reading digest messages using Rmail, if that value is non-nil. This hook is intended to customize Rmail mode. gnus-apply-kill-hook Called with no arguments when a newsgroup is selected and the Summary buffer is prepared. This hook is intended to apply a KILL file to the selected newsgroup. The format of KILL file is completely different from that of version 3.8. You have to rewrite them in the new format. See the documentation of Kill file mode for more information. gnus-mark-article-hook Called with no arguments when an article is selected at the first time. The hook is intended to mark an article as read (or unread) automatically when it is selected. See the documentation of the variable for more information. gnus-exit-group-hook Called with no arguments when exiting the current newsgroup, if that value is non-nil. If your machine is so slow that exiting from Summary mode takes very long time, inhibit marking articles as read using cross-references by setting the variable gnus-use-cross-reference to nil in this hook." nil]) (fset 'gnus-summary-setup-buffer #[nil " ! q !q " [get-buffer gnus-summary-buffer get-buffer-create gnus-summary-mode] 2 "\ Initialize Summary buffer."]) (fset 'gnus-summary-read-group #[(group &optional show-all no-article) "\n\"\n \" ! ! U\"! eb p!=y#!! !q *y#\n\"\"J \n\"!!! " [message "Retrieving newsgroup: %s..." group gnus-select-newsgroup show-all gnus-summary-setup-buffer run-hooks gnus-select-group-hook gnus-summary-prepare gnus-apply-kill-hook buffer-size 0 gnus-summary-catchup-and-exit nil t "No unread news" gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads no-article gnus-auto-select-first gnus-summary-first-unread-article get-buffer gnus-summary-buffer search-forward ":" gnus-configure-windows summary gnus-pop-to-buffer gnus-summary-set-mode-line gnus-article-buffer buffer-read-only erase-buffer intern-soft gnus-active-hashtb ding gnus-nntp-message format "Cannot select %s. May be security or active file problem." sit-for gnus-group-check-bogus-groups] 5 "\ Start reading news in newsgroup GROUP. If optional 1st argument SHOW-ALL is non-nil, already read articles are also listed. If optional 2nd argument NO-ARTICLE is non-nil, no article is selected initially."]) (fset 'gnus-summary-prepare #[nil " !\"!eb!)" [nil buffer-read-only erase-buffer gnus-summary-prepare-threads gnus-show-threads gnus-make-threads gnus-newsgroup-headers 0 message "" run-hooks gnus-summary-prepare-hook] 3 "\ Prepare summary list of current newsgroup in Summary buffer."]) (fset 'gnus-summary-prepare-threads #[(threads level &optional parent-subject leader count) " !G\"G \n   @A\"\\:@   ! H  H  \"\n  >ڪ >ܪUª P#_\" %% !U&? \n?? \" P&c:AAT\nUª 骁P%!*." [nil parent-subject "" format "%%s %%s%%%dd: [%%s] %%s\n" prin1-to-string gnus-newsgroup-end gnus-newsgroup-headers total cntl child-subject subject number header thread count 0 threads gnus-lazy-message "Formatting Summary... %d%%" 100 vectorp 1 gnus-simplify-subject re-only gnus-newsgroup-marked "-" gnus-newsgroup-unreads " " "D" gnus-show-thread-lines level leader " \\_ " make-string gnus-thread-indent-level 32 gnus-optional-headers gnus-thread-hide-subject window-width gnus-summary-prepare-threads " | " " " message] 10 "\ Prepare Summary buffer from THREADS and indentation LEVEL. THREADS is a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...]).' Optional PARENT-SUBJECT specifies the subject of the parent. Optional LEADER specifies the current indentation leader. Optional COUNT specifies the number of articles threaded so far."]) (fset 'gnus-summary-set-mode-line #[nil "G\n\"GZ G \n\"GZ \n\n\" U U̪ U \" #$D*!" [gnus-newsgroup-unreads gnus-intersection gnus-newsgroup-marked gnus-newsgroup-unselected unselected unmarked 17 format "GNUS: %s%s %s" gnus-newsgroup-name gnus-current-article "/%d" "" 0 "{%d more}" "{%d(+%d) more}" mode-line-buffer-identification set-buffer-modified-p t] 9 "\ Set Summary mode line string. If you don't like it, define your own gnus-summary-set-mode-line."]) (fset 'gnus-summary-search-group #[(&optional backward) "q\n\" *" [gnus-group-buffer gnus-group-search-forward backward nil gnus-group-group-name] 3 "\ Search for next unread newsgroup. If optional argument BACKWARD is non-nil, search backward instead."]) (fset 'gnus-summary-search-subject #[(backward unread subject) "! Ū\n=̪\nͪ!!!԰# y#ڔڕ{!y#+" [subject "" error "empty subject" backward re-search-backward re-search-forward nil format "^%s[^-0-9]*\\([-0-9]+\\):.\\[[^] \n]*\\][ ]+%s" unread t " " "[- ]" "." "\\([Rr][Ee]:[ ]+\\)*" "\\(v[0-9]+i[0-9]+:[ ]*\\)?" regexp-quote gnus-simplify-subject "\\(\\([ ]*([^ \n]*)\\)+[ ]*\\( \\|$\\)\\)?" "\\([, ]*part[ ]*[0-9]+.*$\\)?" regexp article func 0 string-to-int 1 search-forward ":"] 11 "\ Search for article forward. If 1st argument BACKWARD is non-nil, search backward. If 2nd argument UNREAD is non-nil, only unread article is selected. If 3rd argument SUBJECT is non-nil, the article which has the same subject will be searched for."]) (fset 'gnus-summary-search-forward #[(&optional unread subject) "\n #" [gnus-summary-search-subject nil unread subject] 4 "\ Search for article forward. If 1st optional argument UNREAD is non-nil, only unread article is selected. If 2nd optional argument SUBJECT is non-nil, the article which has the same subject will be searched for."]) (fset 'gnus-summary-search-backward #[(&optional unread subject) "\n #" [gnus-summary-search-subject t unread subject] 4 "\ Search for article backward. If 1st optional argument UNREAD is non-nil, only unread article is selected. If 2nd optional argument SUBJECT is non-nil, the article which has the same subject will be searched for."]) (fset 'gnus-summary-article-number #[nil "y!ÔÕ}p!* )" [0 looking-at ".[^-0-9]*\\([-0-9]+\\):" 1 read gnus-current-article] 2 "\ Article number around point. If nothing, return current number."]) (fset 'gnus-summary-subject-string #[nil "y!ÔÕ{)" [0 looking-at ".[^-0-9]*[-0-9]+:.\\[[^] \n]*\\][ ]+\\([^ \n]*\\)[ \n]" 1] 2 "\ Return current subject string or nil if nothing."]) (fset 'gnus-summary-goto-subject #[(article) "`eb \"#b)" [current article re-search-forward format "^.[^-0-9]*%d:" nil t] 4 "\ Move point to ARTICLE's subject." (byte-code " \"$!C" [string-to-int completing-read "Article number: " mapcar #[(headers) " H!C" [int-to-string headers 0] 3] gnus-newsgroup-headers nil require-match] 6)]) (fset 'gnus-summary-recenter #[nil "\n! Zť`d\"W Zť!" [gnus-auto-center-summary get-buffer-window gnus-article-buffer window-height 1 2 count-lines recenter] 4 "\ Center point in Summary window."]) (fset 'gnus-summary-jump-to-group #[(newsgroup) "p !=‹ ! ! q!)" [get-buffer gnus-group-buffer ((byte-code " ! ! !" [get-buffer-window gnus-group-buffer pop-to-buffer gnus-group-jump-to-group newsgroup] 2)) get-buffer-window pop-to-buffer gnus-group-jump-to-group newsgroup] 3 "\ Move point to NEWSGROUP in Group mode buffer."]) (fset 'gnus-summary-next-group #[(no-article) " !  \" ! \"! !  #p!==p!=  #)" [gnus-summary-jump-to-group gnus-newsgroup-name gnus-summary-search-group group message "Exiting %s..." gnus-summary-exit "" "Selecting %s..." t gnus-summary-read-group nil no-article get-buffer gnus-summary-buffer gnus-auto-select-next gnus-group-buffer gnus-group-group-name] 5 "\ Exit current newsgroup and then select next unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially." "P"]) (fset 'gnus-summary-prev-group #[(no-article) " !! \" ! \"! !  #p!==p!=!! #)" [gnus-summary-jump-to-group gnus-newsgroup-name gnus-summary-search-group t group message "Exiting %s..." gnus-summary-exit "" "Selecting %s..." gnus-summary-read-group nil no-article get-buffer gnus-summary-buffer gnus-auto-select-next gnus-group-buffer] 5 "\ Exit current newsgroup and then select previous unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially." "P"]) (fset 'gnus-summary-next-subject #[(n &optional unread) "V !Sq ! !!" [n 1 gnus-summary-search-forward unread gnus-summary-recenter message "No more unread articles" "No more articles"] 3 "\ Go to next N'th summary line. If optional argument UNREAD is non-nil, only unread article is selected." "p"]) (fset 'gnus-summary-next-unread-subject #[(n) " \"" [gnus-summary-next-subject n t] 3 "\ Go to next N'th unread summary line." "p"]) (fset 'gnus-summary-prev-subject #[(n &optional unread) "V !Sq ! !!" [n 1 gnus-summary-search-backward unread gnus-summary-recenter message "No more unread articles" "No more articles"] 3 "\ Go to previous N'th summary line. If optional argument UNREAD is non-nil, only unread article is selected." "p"]) (fset 'gnus-summary-prev-unread-subject #[(n) " \"" [gnus-summary-prev-subject n t] 3 "\ Go to previous N'th unread summary line." "p"]) (fset 'gnus-summary-expand-window #[nil "! !" [gnus-configure-windows summary gnus-pop-to-buffer gnus-summary-buffer] 2 "\ Expand Summary window to show headers full window." nil]) (fset 'gnus-summary-display-article #[(article &optional all-header) "??! !!\" !ˇ" [article gnus-configure-windows gnus-pop-to-buffer gnus-summary-buffer gnus-ensure-article-summary gnus-article-prepare all-header gnus-summary-recenter gnus-summary-set-mode-line run-hooks gnus-select-article-hook t] 3 "\ Display ARTICLE in Article buffer."]) (fset 'gnus-summary-select-article #[(&optional all-headers force) " ?? \n U =\n \"! !*" [gnus-summary-article-number all-headers article gnus-current-article force gnus-have-all-headers gnus-summary-display-article gnus-configure-windows pop-to-buffer gnus-summary-buffer] 3 "\ Select the current article. Optional first argument ALL-HEADERS is non-nil, show all header fields. Optional second argument FORCE is nil, the article is only selected again when current header does not match with ALL-HEADERS option."]) (fset 'gnus-summary-set-current-mark #[(&optional current-mark) "qeb#!ceb \"#! c*" [gnus-summary-buffer nil buffer-read-only re-search-forward "^.[^-0-9]*[-0-9]+:[^ ]" t delete-char -1 " " format "^.[^-0-9]*%d:" gnus-current-article 1 current-mark "+"] 4 "\ Put `+' at the current article. Optional argument specifies CURRENT-MARK instead of `+'."]) (fset 'gnus-summary-next-article #[(unread &optional subject) " \"!  \"\n>p`   p=` W!*  \"db C\")!! ! \n> ?\"#$ 檁\"=#!$$!!##.\"JA@$!$$!!0##\"=!\"! 2$2!23) 2$2U!25)+)" [nil header gnus-summary-display-article gnus-summary-search-forward unread subject gnus-auto-select-same gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked this-command (gnus-summary-next-unread-article gnus-summary-next-page gnus-summary-kill-same-subject-and-select) last-point buffer gnus-summary-first-unread-article message "Wrapped" gnus-auto-extend-newsgroup gnus-more-header-forward gnus-extend-newsgroup buffer-read-only gnus-summary-prepare-threads 0 gnus-summary-goto-article gnus-newsgroup-end fboundp next-command-event last-command-event string-to-char this-command-keys gnus-summary-search-group gnus-auto-select-next (gnus-summary-next-unread-article gnus-summary-next-article gnus-summary-next-page gnus-summary-next-same-subject gnus-summary-next-unread-same-subject gnus-summary-kill-same-subject gnus-summary-kill-same-subject-and-select) input-pending-p auto-select group this-event "No more%s articles%s" " unread" "" quietly format " (Type %s for %s [%d])" key-description char-to-string intern-soft gnus-unread-hashtb " (Type %s to exit %s)" gnus-newsgroup-name gnus-summary-next-group next-event unread-command-event read-char unread-command-char] 10 "\ Select article after current one. If argument UNREAD is non-nil, only unread article is selected." "P"]) (fset 'gnus-summary-next-unread-article #[nil "\n \"" [gnus-summary-next-article t gnus-auto-select-same gnus-summary-subject-string] 3 "\ Select unread article after current one." nil]) (fset 'gnus-summary-prev-article #[(unread &optional subject) " \"!  \"\n> \" !  \"eb C\")!!)" [nil header gnus-summary-display-article gnus-summary-search-backward unread subject gnus-auto-select-same gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked this-command (gnus-summary-prev-unread-article) gnus-summary-prev-article message "No more unread articles" gnus-auto-extend-newsgroup gnus-more-header-backward gnus-extend-newsgroup t buffer-read-only gnus-summary-prepare-threads 0 gnus-summary-goto-article gnus-newsgroup-begin "No more articles"] 4 "\ Select article before current one. If argument UNREAD is non-nil, only unread article is selected." "P"]) (fset 'gnus-summary-prev-unread-article #[nil "\n \"" [gnus-summary-prev-article t gnus-auto-select-same gnus-summary-subject-string] 3 "\ Select unred article before current one." nil]) (fset 'gnus-summary-next-page #[(lines) "  U !!! \nˎ !!*\n!\n? *" [gnus-summary-article-number nil endp article gnus-current-article gnus-summary-display-article gnus-configure-windows gnus-pop-to-buffer gnus-summary-buffer selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-article-buffer gnus-article-next-page lines message "End of message" gnus-summary-next-unread-article] 2 "\ Show next page of selected article. If end of article, select next article. Argument LINES specifies lines to be scrolled up." "P"]) (fset 'gnus-summary-prev-page #[(lines) " \n \nU !!! Ɏ\n! !*)" [gnus-summary-article-number article gnus-current-article gnus-summary-display-article gnus-configure-windows gnus-pop-to-buffer gnus-summary-buffer selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-article-buffer gnus-article-prev-page lines] 2 "\ Show previous page of selected article. Argument LINES specifies lines to be scrolled down." "P"]) (fset 'gnus-summary-scroll-up #[(lines) " Î !V!!W[!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer lines 0 gnus-article-next-page message "End of message" gnus-article-prev-page] 2 "\ Scroll up (or down) one line current article. Argument LINES specifies lines to be scrolled up (or down if negative)." "p"]) (fset 'gnus-summary-next-same-subject #[nil " \"" [gnus-summary-next-article nil gnus-summary-subject-string] 3 "\ Select next article which has the same subject as current one." nil]) (fset 'gnus-summary-prev-same-subject #[nil " \"" [gnus-summary-prev-article nil gnus-summary-subject-string] 3 "\ Select previous article which has the same subject as current one." nil]) (fset 'gnus-summary-next-unread-same-subject #[nil " \"" [gnus-summary-next-article t gnus-summary-subject-string] 3 "\ Select next unread article which has the same subject as current one." nil]) (fset 'gnus-summary-prev-unread-same-subject #[nil " \"" [gnus-summary-prev-article t gnus-summary-subject-string] 3 "\ Select previous unread article which has the same subject as current one." nil]) (fset 'gnus-summary-refer-parent-article #[(child) "  ! ǎ !\nH  \" ϔϕO+\n;\n!!)" [gnus-summary-select-article nil referenced-id child gnus-summary-refer-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-current-headers 7 references string-match "\\(<[^<>]+>\\)[^>]*\\'" 1 error "No more parents"] 4 "\ Refer parent article of current article. If a prefix argument CHILD is non-nil, go back to the child article using internally maintained articles history. NOTE: This command may not work with nnspool.el." "P"]) (fset 'gnus-summary-refer-article #[(message-id) ";GV Ď!\"P\"P H@B+@A;! !" [message-id 0 selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer string-match "^<" "<" ">$" ">" gnus-current-headers 6 current gnus-current-history gnus-summary-display-article gnus-summary-select-article error "No such references"] 4 "\ Refer article specified by MESSAGE-ID. If the MESSAGE-ID is nil or an empty string, Message-ID is poped from internally maintained articles history. NOTE: This command may not work with nnspool.el nor mhspool.el." "sMessage-ID: "]) (fset 'gnus-summary-next-digest #[(nth) " Î !!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-article-next-digest nth 1] 2 "\ Move to head of NTH next digested message." "p"]) (fset 'gnus-summary-prev-digest #[(nth) " Î !!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-article-prev-digest nth 1] 2 "\ Move to head of NTH previous digested message." "p"]) (fset 'gnus-summary-first-unread-article #[nil "`eb# !b!)" [begin re-search-forward "^ [^-0-9]*[-0-9]+:" nil t gnus-summary-display-article gnus-summary-article-number message "No more unread articles"] 4 "\ Select first unread article. Return non-nil if successfully selected." nil]) (fset 'gnus-summary-isearch-article #[nil " Î ! *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer isearch-forward] 2 "\ Do incremental search forward on current article." nil]) (fset 'gnus-summary-search-article-forward #[(regexp) "\n\" ǎ !!*\"" [regexp "" gnus-last-search-regexp gnus-summary-search-article nil selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer recenter 0 error "Search failed: \"%s\""] 3 "\ Search for an article containing REGEXP forward. gnus-select-article-hook is not called during the search." (byte-code "\n\nQP!C" [read-string "Search forward (regexp): " gnus-last-search-regexp "(default " ") "] 5)]) (fset 'gnus-summary-search-article-backward #[(regexp) "\n\" ǎ !!*\"" [regexp "" gnus-last-search-regexp gnus-summary-search-article t selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer recenter 0 error "Search failed: \"%s\""] 3 "\ Search for an article containing REGEXP backward. gnus-select-article-hook is not called during the search." (byte-code "\n\nQP!C" [read-string "Search backward (regexp): " gnus-last-search-regexp "(default " ") "] 5)]) (fset 'gnus-summary-search-article #[(regexp &optional backward) " ª  \"  Ў!~#+ #! \" ׎!~ deb#+L!  =  -" [nil backward re-search-backward re-search-forward last found re-search gnus-mark-article-hook gnus-select-article-hook gnus-summary-show-all-threads gnus-summary-select-article message "Searching article: %d..." gnus-current-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer regexp t gnus-summary-display-article gnus-summary-search-subject ((select-window GNUSStartBufferWindow)) "" gnus-last-article] 5 "\ Search for an article containing REGEXP. Optional argument BACKWARD means do search for backward. gnus-select-article-hook is not called during the search."]) (fset 'gnus-summary-execute-command #[(field regexp command &optional backward) " )" [gnus-summary-show-all-threads ((byte-code " !\"  !DDE $ !\"" [message "Executing %s..." key-description command gnus-execute field regexp lambda nil call-interactively quote key-binding backward "Executing %s... done"] 9))] 1 "\ If FIELD of article header matches REGEXP, execute a COMMAND string. If FIELD is an empty string (or nil), entire article body is searched for. If optional (prefix) argument BACKWARD is non-nil, do backward instead." (byte-code "$)!! F" [t completion-ignore-case completing-read "Field name: " (("Number") ("Subject") ("From") ("Lines") ("Date") ("Id") ("Xref") ("References")) nil require-match read-string "Regexp: " read-key-sequence "Command: " current-prefix-arg] 5)]) (fset 'gnus-summary-beginning-of-article #[nil " Î !~  *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer beginning-of-buffer gnus-break-pages gnus-narrow-to-page] 2 "\ Go to beginning of article body" nil]) (fset 'gnus-summary-end-of-article #[nil " Î !~  *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer end-of-buffer gnus-break-pages gnus-narrow-to-page] 2 "\ Go to end of article body" nil]) (fset 'gnus-summary-goto-article #[(article &optional all-headers) " ! \"" [gnus-summary-goto-subject article gnus-summary-display-article all-headers] 3 "\ Read ARTICLE if exists. Optional argument ALL-HEADERS means all headers are shown." (byte-code " \"$!C" [string-to-int completing-read "Article number: " mapcar #[(headers) " H!C" [int-to-string headers 0] 3] gnus-newsgroup-headers nil require-match] 6)]) (fset 'gnus-summary-goto-last-article #[nil "!" [gnus-last-article gnus-summary-goto-article] 2 "\ Go to last subject line." nil]) (fset 'gnus-summary-show-article #[nil "??\"" [gnus-have-all-headers gnus-summary-select-article t] 3 "\ Force to show current article." nil]) (fset 'gnus-summary-toggle-header #[(arg) " \n? !V \"*" [nil arg gnus-have-all-headers prefix-numeric-value 0 all-headers gnus-show-all-headers gnus-summary-select-article t] 3 "\ Show original header if pruned header currently shown, or vice versa. With arg, show original header iff arg is positive." "P"]) (fset 'gnus-summary-show-all-headers #[nil "\"" [gnus-summary-select-article t] 3 "\ Show original article header." nil]) (fset 'gnus-summary-toggle-mime #[(arg) " ?!V ? ?\"" [arg gnus-show-mime prefix-numeric-value 0 gnus-have-all-headers gnus-summary-select-article t] 3 "\ Toggle MIME processing. With arg, turn MIME processing on iff arg is positive." "P"]) (fset 'gnus-summary-stop-page-breaking #[nil " Î !~*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer] 2 "\ Stop page breaking by linefeed temporary (Widen article buffer)." nil]) (fset 'gnus-summary-kill-same-subject-and-select #[(unmark) "! \" \" ʪ#)" [unmark prefix-numeric-value gnus-summary-mark-same-subject gnus-summary-subject-string count gnus-summary-next-article t gnus-auto-select-same message "%d articles are marked as %s" "unread" "read"] 4 "\ Mark articles which has the same subject as read, and then select next. If argument UNMARK is positive, remove any kinds of marks. If argument UNMARK is negative, mark articles as unread instead." "P"]) (fset 'gnus-summary-kill-same-subject #[(unmark) "! \"\" ʪ#)" [unmark prefix-numeric-value gnus-summary-mark-same-subject gnus-summary-subject-string count gnus-summary-next-subject 1 t message "%d articles are marked as %s" "unread" "read"] 4 "\ Mark articles which has the same subject as read. If argument UNMARK is positive, remove any kinds of marks. If argument UNMARK is negative, mark articles as unread instead." "P"]) (fset 'gnus-summary-mark-same-subject #[(subject &optional unmark) "\n\"\nV\"   \"\n\"\nV\" TW) )" [1 count unmark gnus-summary-mark-as-read nil "K" 0 gnus-summary-mark-as-unread t subject gnus-summary-search-forward] 3 "\ Mark articles with same SUBJECT as read, and return marked number. If optional argument UNMARK is positive, remove any kinds of marks. If optional argument UNMARK is negative, mark articles as unread instead."]) (fset 'gnus-summary-mark-as-unread-forward #[(count) "VÉ\"\"Sl" [count 0 gnus-summary-mark-as-unread nil gnus-summary-next-subject 1] 4 "\ Mark current article as unread, and then go forward. Argument COUNT specifies number of articles marked as unread." "p"]) (fset 'gnus-summary-mark-as-unread-backward #[(count) "VÉ\"\"Sl" [count 0 gnus-summary-mark-as-unread nil gnus-summary-prev-subject 1] 4 "\ Mark current article as unread, and then go backward. Argument COUNT specifies number of articles marked as unread." "p"]) (fset 'gnus-summary-mark-as-unread #[(&optional article clear-mark) "q   \" =!y!ͪc," [gnus-summary-buffer gnus-summary-show-thread nil buffer-read-only gnus-summary-article-number current article gnus-mark-article-as-unread clear-mark gnus-summary-goto-subject 0 delete-char 1 " " "-"] 3 "\ Mark current article as unread. Optional 1st argument ARTICLE specifies article number to be marked as unread. Optional 2nd argument CLEAR-MARK remove any kinds of mark."]) (fset 'gnus-summary-mark-as-read-forward #[(count) "V \"Sn" [count 0 gnus-summary-mark-as-read gnus-summary-next-subject 1 unread-only] 4 "\ Mark current article as read, and then go forward. Argument COUNT specifies number of articles marked as read" "p"]) (fset 'gnus-summary-mark-as-read-backward #[(count) "V \"Sn" [count 0 gnus-summary-mark-as-read gnus-summary-prev-subject 1 unread-only] 4 "\ Mark current article as read, and then go backward. Argument COUNT specifies number of articles marked as read" "p"]) (fset 'gnus-summary-mark-as-read #[(&optional article mark) "q   !=!y! c-" [gnus-summary-buffer gnus-summary-show-thread nil buffer-read-only mark "D" gnus-summary-article-number current article gnus-mark-article-as-read gnus-summary-goto-subject 0 delete-char 1] 2 "\ Mark current article as read. Optional 1st argument ARTICLE specifies article number to be marked as read. Optional 2nd argument MARK specifies a string inserted at beginning of line. Any kind of string (length 1) except for a space and `-' is ok."]) (fset 'gnus-summary-clear-mark-forward #[(count) "V\"\"Sl" [count 0 gnus-summary-mark-as-unread nil t gnus-summary-next-subject 1] 4 "\ Remove current article's mark, and go forward. Argument COUNT specifies number of articles unmarked" "p"]) (fset 'gnus-summary-clear-mark-backward #[(count) "V\"\"Sl" [count 0 gnus-summary-mark-as-unread nil t gnus-summary-prev-subject 1] 4 "\ Remove current article's mark, and go backward. Argument COUNT specifies number of articles unmarked" "p"]) (fset 'gnus-summary-delete-marked-as-read #[nil "eb#)!eb!)m!y#)" [re-search-forward "^[^DKX]" nil t message "All articles are marked as read" buffer-read-only delete-matching-lines "^[DKX]" gnus-summary-prev-subject 1 0 search-forward ":"] 4 "\ Delete lines which is marked as read." nil]) (fset 'gnus-summary-delete-marked-with #[(marks) "eb Q!) Um!y#)" [nil buffer-read-only delete-matching-lines "^[" marks "]" buffer-size 0 gnus-summary-prev-subject 1 search-forward ":" t] 4 "\ Delete lines which are marked with MARKS (e.g. \"DK\")." "sMarks: "]) (fset 'gnus-summary-toggle-threads #[(arg) " \n ?\n!V !)" [gnus-summary-article-number current arg gnus-show-threads prefix-numeric-value 0 gnus-summary-prepare gnus-summary-goto-subject] 2 "\ Toggle showing conversation threads. With arg, turn showing conversation threads on iff arg is positive." "P"]) (fset 'gnus-summary-show-all-threads #[nil "ed%*" [gnus-show-threads nil buffer-read-only subst-char-in-region 13 10 t] 6 "\ Show all thread subtrees." nil]) (fset 'gnus-summary-show-thread #[nil "y``%*" [gnus-show-threads nil buffer-read-only subst-char-in-region 0 13 10 t] 6 "\ Show thread subtrees." nil]) (fset 'gnus-summary-hide-all-threads #[nil "eb#i iYw r*" [gnus-show-threads search-forward ":" nil t level gnus-summary-hide-thread gnus-summary-search-forward] 4 "\ Hide all thread subtrees." nil]) (fset 'gnus-summary-hide-thread #[nil "y#``i iWiWp`k%-" [gnus-show-threads 0 search-forward ":" nil t level last init buffer-read-only gnus-summary-search-forward subst-char-in-region 10 13] 6 "\ Hide thread subtrees." nil]) (fset 'gnus-summary-next-thread #[(n) "y#``iV iX iUl`ScU?b+" [0 search-forward ":" nil t level last init n gnus-summary-search-forward] 5 "\ Go to the same level next thread. Argument N specifies the number of threads." "p"]) (fset 'gnus-summary-prev-thread #[(n) "y#``iV iX iUl`ScU?b+" [0 search-forward ":" nil t level last init n gnus-summary-search-backward] 5 "\ Go to the same level previous thread. Argument N specifies the number of threads." "p"]) (fset 'gnus-summary-down-thread #[(d) "y#`iV iX iWl`iSab*" [0 search-forward ":" nil t level last d gnus-summary-search-forward] 5 "\ Go downward current thread. Argument D specifies the depth goes down." "p"]) (fset 'gnus-summary-up-thread #[(d) "y#`iV iVq`iSfb*" [0 search-forward ":" nil t level last d gnus-summary-search-backward] 5 "\ Go upward current thread. Argument D specifies the depth goes up." "p"]) (fset 'gnus-summary-kill-thread #[(unmark) "!y#i\"V\" iW\"lV\"` [* ?\"" [unmark prefix-numeric-value 0 search-forward ":" nil t level gnus-summary-mark-as-read "K" gnus-summary-mark-as-unread gnus-summary-search-forward gnus-thread-hide-killed gnus-summary-hide-thread gnus-summary-next-subject 1] 4 "\ Mark articles under current thread as read. If argument UNMARK is positive, remove any kinds of marks. If argument UNMARK is negative, mark articles as unread instead." "P"]) (fset 'gnus-summary-toggle-truncation #[(arg) " ?!V " [arg truncate-lines prefix-numeric-value 0 redraw-display] 2 "\ Toggle truncation of summary lines. With arg, turn line truncation on iff arg is positive." "P"]) (fset 'gnus-summary-sort-by-number #[(reverse) " #" [gnus-summary-keysort-summary < #[(a) "H" [a 0] 2] reverse] 4 "\ Sort Summary buffer by article number. Argument REVERSE means reverse order." "P"]) (fset 'gnus-summary-sort-by-author #[(reverse) " #" [gnus-summary-keysort-summary string-lessp #[(a) " H H" [case-fold-search a 2] 2] reverse] 4 "\ Sort Summary buffer by author name alphabetically. If case-fold-search is non-nil, case of letters is ignored. Argument REVERSE means reverse order." "P"]) (fset 'gnus-summary-sort-by-subject #[(reverse) " #" [gnus-summary-keysort-summary string-lessp #[(a) "\nH\"\nH\"" [case-fold-search gnus-simplify-subject a 1 re-only] 3] reverse] 4 "\ Sort Summary buffer by subject alphabetically. `Re:'s are ignored. If case-fold-search is non-nil, case of letters is ignored. Argument REVERSE means reverse order." "P"]) (fset 'gnus-summary-sort-by-date #[(reverse) " #" [gnus-summary-keysort-summary string-lessp #[(a) " H!" [gnus-sortable-date a 5] 3] reverse] 4 "\ Sort Summary buffer by date. Argument REVERSE means reverse order." "P"]) (fset 'gnus-summary-keysort-summary #[(predicate key &optional reverse) "  # !)" [gnus-summary-article-number current gnus-keysort-headers predicate key reverse gnus-summary-prepare gnus-summary-goto-subject] 4 "\ Sort Summary buffer by PREDICATE using a value passed by KEY. Optional argument REVERSE means reverse order."]) (fset 'gnus-summary-sort-summary #[(predicate &optional reverse) "  \" !)" [gnus-summary-article-number current gnus-sort-headers predicate reverse gnus-summary-prepare gnus-summary-goto-subject] 3 "\ Sort Summary buffer by PREDICATE. Optional argument REVERSE means reverse order."]) (fset 'gnus-summary-reselect-current-group #[(show-all) " ! !\" !)" [gnus-summary-article-number current-subject gnus-summary-exit t gnus-summary-jump-to-group gnus-newsgroup-name gnus-group-read-group show-all gnus-summary-goto-subject] 3 "\ Once exit and then reselect the current newsgroup. Prefix argument SHOW-ALL means to select all articles." "P"]) (fset 'gnus-summary-caesar-message #[(rotnum) " Ď!~!`  ! b!," [gnus-summary-select-article gnus-overload-functions selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer move-to-window-line 0 last news-caesar-buffer-body rotnum recenter] 2 "\ Caesar rotates all letters of current message by 13/47 places. With prefix arg, specifies the number of places to rotate each letter forward. Caesar rotates Japanese letters by 47 places in any case." "P"]) (fset 'gnus-summary-rmail-digest #[nil " ! ! qp!  !! eb ׏+" [gnus-summary-select-article require rmail gnus-article-buffer get-buffer-create gnus-digest-buffer "" mail-header-separator digbuf artbuf buffer-disable-undo nil buffer-read-only erase-buffer insert-buffer-substring run-hooks gnus-select-digest-hook gnus-convert-article-to-rmail rmail-insert-rmail-file-header rmail-mode rmail-set-message-counters rmail-show-message (byte-code "  HP!C    # #!!!!!! !!!*!!!!)!!!!" [undigestify-rmail-message rmail-expunge "GNUS Digest" buffer-file-name "Digest: " gnus-current-headers 1 mode-line-buffer-identification make-local-variable write-file-hooks #[nil "!!ć" [set-buffer-modified-p nil message "(No changes need to be saved)" no-need-to-write-this-buffer] 2] gnus-rmail-save-name gnus-newsgroup-name gnus-newsgroup-last-rmail rmail-last-rmail-file gnus-mail-save-name gnus-newsgroup-last-mail rmail-last-file get-buffer-create gnus-digest-summary-buffer rmail-summary-buffer run-hooks gnus-rmail-digest-hook gnus-configure-windows (1 0 0) gnus-pop-to-buffer gnus-group-buffer gnus-digest-show-summary gnus-digest-buffer gnus-article-buffer gnus-summary-buffer article rmail-summary message substitute-command-keys "Type \\[rmail-summary-quit] to return to GNUS" summary "Type \\[rmail-quit] to return to GNUS" bury-buffer] 4) ((error (byte-code "! ! !" [set-buffer-modified-p nil kill-buffer digbuf ding message "Article is not a digest"] 2)))] 3 "\ Run RMAIL on current digest article. gnus-select-digest-hook will be called with no arguments, if that value is non-nil. It is possible to modify the article so that Rmail can work with it. gnus-rmail-digest-hook will be called with no arguments, if that value is non-nil. The hook is intended to customize Rmail mode." nil]) (fset 'gnus-summary-save-article #[nil " \"\n\n!!" [gnus-summary-select-article gnus-save-all-headers gnus-default-article-saver call-interactively error "No default saver is defined."] 3 "\ Save this article using default saver function. The variable `gnus-default-article-saver' specifies the saver function." nil]) (fset 'gnus-summary-save-in-rmail #[(&optional filename) " \" Ď!~ \n#   !Q ! #  !! ! \n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-rmail default-name filename read-file-name "Save article in Rmail file: (default " file-name-nondirectory ") " file-name-directory gnus-make-directory gnus-output-to-rmail] 4 "\ Append this article to Rmail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (fset 'gnus-summary-save-in-mail #[(&optional filename) " \" Ď!~ \n#   !Q ! #    !\"  !! ! ! ! ى$ \n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-mail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-mail default-name filename read-file-name "Save article in Unix mail file: (default " file-name-nondirectory ") " file-name-directory expand-file-name gnus-make-directory file-readable-p rmail-file-p gnus-output-to-rmail rmail-output 1 t] 5 "\ Append this article to Unix mail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (fset 'gnus-summary-save-in-file #[(&optional filename) " \" Ď!~ \n#   !Q ! #  !! ! \n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-file default-name filename read-file-name "Save article in file: (default " file-name-nondirectory ") " file-name-directory gnus-make-directory gnus-output-to-file] 4 "\ Append this article to file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (fset 'gnus-summary-save-in-folder #[(&optional folder) " \" Ď!~    ##!ӎed\"&." [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer mh-find-path folder mh-prompt-for-folder "Save article in" gnus-folder-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-folder t get-buffer-create " *GNUS rcvstore*" errbuf ((byte-code "q U \" \"!  " [errbuf buffer-size 0 message "Article saved in folder: %s" folder "%s" buffer-string kill-buffer gnus-newsgroup-last-folder] 3)) call-process-region expand-file-name "rcvstore" mh-lib nil] 8 "\ Save this article to MH folder (using `rcvstore' in MH library). Optional argument FOLDER specifies folder name." nil]) (fset 'gnus-summary-pipe-output #[nil " \" Ď!~ \"\n˘ \ned\n$\n ," [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-pop-to-buffer gnus-article-buffer read-string "Shell command on article: " gnus-last-shell-command command "" shell-command-on-region nil] 6 "\ Pipe this article to subprocess." nil]) (fset 'gnus-summary-catchup #[(all &optional quietly) "\nê!\n?\"! @\"Aq)" [quietly y-or-n-p all "Do you really want to mark everything as read? " "Delete all articles not marked as unread? " gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked unmarked message "" gnus-summary-show-all-threads gnus-summary-mark-as-read "C" nil] 4 "\ Mark all articles not marked as unread in this newsgroup as read. If prefix argument ALL is non-nil, all articles are marked as read." "P"]) (fset 'gnus-summary-catchup-all #[(&optional quietly) "\n\"" [gnus-summary-catchup t quietly] 3 "\ Mark all articles in this newsgroup as read." nil]) (fset 'gnus-summary-catchup-and-exit #[(all &optional quietly) "\nê!\n?\"!@!Ar =! )" [quietly y-or-n-p all "Do you really want to mark everything as read? " "Delete all articles not marked as unread? " gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked unmarked message "" gnus-mark-article-as-read gnus-auto-select-next gnus-summary-next-group nil gnus-summary-exit] 4 "\ Mark all articles not marked as unread in this newsgroup as read, then exit. If prefix argument ALL is non-nil, all articles are marked as read." "P"]) (fset 'gnus-summary-catchup-all-and-exit #[(&optional quietly) "\n\"" [gnus-summary-catchup-and-exit t quietly] 3 "\ Mark all articles in this newsgroup as read, and then exit." nil]) (fset 'gnus-summary-edit-global-kill #[nil " !!!" [gnus-summary-article-number gnus-current-kill-article gnus-kill-file-edit-file nil message substitute-command-keys "Editing a global KILL file (Type \\[gnus-kill-file-exit] to exit)"] 3 "\ Edit a global KILL file." nil]) (fset 'gnus-summary-edit-local-kill #[nil "  !!!" [gnus-summary-article-number gnus-current-kill-article gnus-kill-file-edit-file gnus-newsgroup-name message substitute-command-keys "Editing a local KILL file (Type \\[gnus-kill-file-exit] to exit)"] 3 "\ Edit a local KILL file applied to the current newsgroup." nil]) (byte-code "!‡" [boundp gnus-digest-mode nil] 2) (fset 'gnus-summary-exit #[(&optional temporary) " ! \"#   =$q@\"Aq !- !!?!!!!!!" [gnus-digest-mode gnus-unselect-digest-article nil gnus-newsgroup-headers gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-marked updated run-hooks gnus-exit-group-hook gnus-update-unread-articles gnus-newsgroup-name append gnus-use-cross-reference gnus-mark-as-read-by-xref t gnus-group-buffer gnus-group-update-group gnus-group-jump-to-group gnus-group-next-unread-group 1 temporary get-buffer gnus-summary-buffer bury-buffer gnus-article-buffer gnus-configure-windows newsgroups gnus-pop-to-buffer] 7 "\ Exit reading current newsgroup, and then return to group selection mode. gnus-exit-group-hook is called with no arguments if that value is non-nil." nil]) (fset 'gnus-summary-quit #[nil "!! ! !!!! ! !!" [y-or-n-p "Do you really wanna quit reading this group? " message "" get-buffer gnus-summary-buffer bury-buffer gnus-article-buffer gnus-configure-windows newsgroups gnus-pop-to-buffer gnus-group-buffer gnus-group-jump-to-group gnus-newsgroup-name gnus-group-next-group 1] 2 "\ Quit reading current newsgroup without updating read article info." nil]) (fset 'gnus-summary-describe-briefly #[nil "!!!!!!!" [message substitute-command-keys "\\[gnus-summary-next-page]:Select " "\\[gnus-summary-next-unread-article]:Forward " "\\[gnus-summary-prev-unread-article]:Backward " "\\[gnus-summary-exit]:Exit " "\\[gnus-info-find-node]:Run Info " "\\[gnus-summary-describe-briefly]:This help"] 8 "\ Describe Summary mode commands briefly." nil]) (byte-code " !########" [gnus-article-mode-map make-keymap suppress-keymap define-key " " gnus-article-next-page "" gnus-article-prev-page "r" gnus-article-refer-article "o" gnus-article-pop-article "h" gnus-article-show-summary "s" "?" gnus-article-describe-briefly " " gnus-info-find-node] 4) (fset 'gnus-article-mode #[nil " !!" nil t re-search-backward "\\(<[^<> \n]+>\\)" 1 message-id gnus-summary-buffer gnus-summary-refer-article error "No references around point"] 4))] 1 "\ Read article specified by message-id around point." nil]) (fset 'gnus-article-pop-article #[nil "" [((byte-code "q!" [gnus-summary-buffer gnus-summary-refer-article nil] 2))] 1 "\ Pop up article history." nil]) (fset 'gnus-article-show-summary #[nil "! ! !" [gnus-configure-windows article gnus-pop-to-buffer gnus-summary-buffer gnus-summary-goto-subject gnus-current-article] 2 "\ Reconfigure windows to show Summary buffer." nil]) (fset 'gnus-article-describe-briefly #[nil "!!!!!!" [message substitute-command-keys "\\[gnus-article-next-page]:Next page " "\\[gnus-article-prev-page]:Prev page " "\\[gnus-article-show-summary]:Show Summary " "\\[gnus-info-find-node]:Run Info " "\\[gnus-article-describe-briefly]:This help"] 7 "\ Describe Article mode commands briefly." nil]) (byte-code "\n!######" [gnus-kill-file-mode-map copy-keymap emacs-lisp-mode-map define-key " " gnus-kill-file-kill-by-subject " " gnus-kill-file-kill-by-author "" gnus-kill-file-apply-buffer "" gnus-kill-file-apply-last-sexp "" gnus-kill-file-exit " " gnus-info-find-node] 4) (fset 'gnus-kill-file-mode #[nil " \n! !!\"" [kill-all-local-variables use-local-map gnus-kill-file-mode-map set-syntax-table emacs-lisp-mode-syntax-table gnus-kill-file-mode major-mode "KILL-File" mode-name lisp-mode-variables nil run-hooks emacs-lisp-mode-hook gnus-kill-file-mode-hook] 3 "\ Major mode for editing KILL file. In addition to Emacs-Lisp Mode, the following commands are available: \\[gnus-kill-file-kill-by-subject] Insert KILL command for current subject. \\[gnus-kill-file-kill-by-author] Insert KILL command for current author. \\[gnus-kill-file-apply-buffer] Apply current buffer to selected newsgroup. \\[gnus-kill-file-apply-last-sexp] Apply sexp before point to selected newsgroup. \\[gnus-kill-file-exit] Save file and exit editing KILL file. \\[gnus-info-find-node] Read Info about KILL file. A KILL file contains lisp expressions to be applied to a selected newsgroup. The purpose is to mark articles as read on the basis of some set of regexps. A global KILL file is applied to every newsgroup, and a local KILL file is applied to a specified newsgroup. Since a global KILL file is applied to every newsgroup, for better performance use a local one. A KILL file can contain any kind of Emacs lisp expressions expected to be evaluated in the Summary buffer. Writing lisp programs for this purpose is not so easy because the internal working of GNUS must be well-known. For this reason, GNUS provides a general function which does this easily for non-Lisp programmers. The `gnus-kill' function executes commands available in Summary Mode by their key sequences. `gnus-kill' should be called with FIELD, REGEXP and optional COMMAND and ALL. FIELD is a string representing the header field or an empty string. If FIELD is an empty string, the entire article body is searched for. REGEXP is a string which is compared with FIELD value. COMMAND is a string representing a valid key sequence in Summary Mode or Lisp expression. COMMAND is default to '(gnus-summary-mark-as-read nil \"X\"). Make sure that COMMAND is executed in the Summary buffer. If the second optional argument ALL is non-nil, the COMMAND is applied to articles which are already marked as read or unread. Articles which are marked are skipped over by default. For example, if you want to mark articles of which subjects contain the string `AI' as read, a possible KILL file may look like: (gnus-kill \"Subject\" \"AI\") If you want to mark articles with `D' instead of `X', you can use the following expression: (gnus-kill \"Subject\" \"AI\" \"d\") In this example it is assumed that the command `gnus-summary-mark-as-read-forward' is assigned to `d' in Summary Mode. It is possible to delete unnecessary headers which are marked with `X' in a KILL file as follows: (gnus-expunge \"X\") If the Summary buffer is empty after applying KILL files, GNUS will exit the selected newsgroup normally. If headers which are marked with `D' are deleted in a KILL file, it is impossible to read articles which are marked as read in the previous GNUS sessions. Marks other than `D' should be used for articles which should really be deleted. Entry to this mode calls emacs-lisp-mode-hook and gnus-kill-file-mode-hook with no arguments, if that value is non-nil." nil]) (fset 'gnus-kill-file-edit-file #[(newsgroup) " !\n!!\n!\n!! \n!\n\n!\n! =!!\n!\n!) =!!!\n!\n!) )" [gnus-newsgroup-kill-file newsgroup file gnus-make-directory file-name-directory get-file-buffer get-buffer-window current-window-configuration gnus-winconf-kill-file find-file-noselect buffer gnus-pop-to-buffer major-mode gnus-group-mode gnus-configure-windows (1 0 0) gnus-group-buffer gnus-summary-buffer (1 1 0) gnus-summary-mode article gnus-article-buffer bury-buffer switch-to-buffer find-file-other-window gnus-kill-file-mode] 3 "\ Begin editing a KILL file of NEWSGROUP. If NEWSGROUP is nil, the global KILL file is selected." "sNewsgroup: "]) (fset 'gnus-kill-file-kill-by-subject #[nil "  \"H!!\"c" [format "(gnus-kill \"Subject\" %s)\n" prin1-to-string gnus-current-kill-article regexp-quote gnus-find-header-by-number gnus-newsgroup-headers 1 ""] 7 "\ Insert KILL command for current subject." nil]) (fset 'gnus-kill-file-kill-by-author #[nil "  \"H!!\"c" [format "(gnus-kill \"From\" %s)\n" prin1-to-string gnus-current-kill-article regexp-quote gnus-find-header-by-number gnus-newsgroup-headers 2 ""] 7 "\ Insert KILL command for current author." nil]) (fset 'gnus-kill-file-apply-buffer #[nil "\n! QNj* !" [gnus-current-kill-article get-buffer gnus-summary-buffer "(progn \n" buffer-string "\n)" string ((byte-code " ! !@!" [gnus-pop-to-buffer gnus-summary-buffer eval read-from-string string] 3)) ding message "No newsgroup is selected."] 3 "\ Apply current buffer to current newsgroup." nil]) (fset 'gnus-kill-file-apply-last-sexp #[nil "\n!!`)`{Ƌ* !" [gnus-current-kill-article get-buffer gnus-summary-buffer forward-sexp -1 string ((byte-code " ! !@!" [gnus-pop-to-buffer gnus-summary-buffer eval read-from-string string] 3)) ding message "No newsgroup is selected."] 2 "\ Apply sexp before point in current buffer to current newsgroup." nil]) (fset 'gnus-kill-file-exit #[nil " p ! !! !! !)" [save-buffer killbuf get-buffer gnus-article-buffer bury-buffer delete-windows-on gnus-winconf-kill-file set-window-configuration nil kill-buffer] 3 "\ Save a KILL file, then return to the previous buffer." nil]) (fset 'gnus-batch-kill #[nil "! \"\"! @ A !@@@A@A i \"JA@U] \"ګO \"D #p!=6!0q . " [noninteractive error "gnus-batch-kill is to be used only with -batch" nil group subscribed newsrc gnus-parse-n-options apply concat mapcar #[(g) "P" [g " "] 2] command-line-args-left yes-and-no yes no gnus-novice-user gnus-large-newsgroup nntp-large-newsgroup gnus copy-sequence gnus-newsrc-assoc intern-soft gnus-unread-hashtb 0 string-match t gnus-summary-read-group get-buffer gnus-summary-buffer gnus-summary-exit gnus-group-buffer gnus-group-exit] 7 "\ Run batched KILL. Usage: emacs -batch -l gnus -f gnus-batch-kill NEWSGROUP ..."]) (fset 'gnus-Numeric-save-name #[(newsgroup headers &optional last-file) " ! !H!Q \"   ! ! !\"   )" [expand-file-name gnus-use-long-file-name gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form "/" int-to-string headers 0 gnus-article-save-directory "~/News" default last-file file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 "\ Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num."]) (fset 'gnus-numeric-save-name #[(newsgroup headers &optional last-file) " \n\n!H!Q\"\n \n! ! !\"\n \n)" [expand-file-name gnus-use-long-file-name newsgroup gnus-newsgroup-directory-form "/" int-to-string headers 0 gnus-article-save-directory "~/News" default last-file file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 "\ Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group/num. Otherwise, it is like ~/News/news/group/num."]) (fset 'gnus-Plain-save-name #[(newsgroup headers &optional last-file) "\n ! !P\"" [last-file expand-file-name gnus-use-long-file-name gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form "/news" gnus-article-save-directory "~/News"] 3 "\ Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group. Otherwise, it is like ~/News/news/group/news."]) (fset 'gnus-plain-save-name #[(newsgroup headers &optional last-file) "\n !P\"" [last-file expand-file-name gnus-use-long-file-name newsgroup gnus-newsgroup-directory-form "/news" gnus-article-save-directory "~/News"] 3 "\ Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group. Otherwise, it is like ~/News/news/group/news."]) (fset 'gnus-Folder-save-name #[(newsgroup headers &optional last-folder) "\n ! !P" [last-folder "+" gnus-use-long-file-name gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form] 3 "\ Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. If variable `gnus-use-long-file-name' is nil, it is +News.group. Otherwise, it is like +news/group."]) (fset 'gnus-folder-save-name #[(newsgroup headers &optional last-folder) "\n !P" [last-folder "+" gnus-use-long-file-name newsgroup gnus-newsgroup-directory-form] 3 "\ Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. If variable `gnus-use-long-file-name' is nil, it is +news.group. Otherwise, it is like +news/group."]) (defvar gnus-killcount 0 "\ internal to gnus-apply-kill-file") (fset 'gnus-load-kill-file #[(file) "\n$Ǐ" [debug-on-error load file t nil c (load file t nil t) ((error (byte-code " \"!!\"!" [beep message "Error in kill file %s" file fboundp display-error princ ": " c nil sit-for 2] 3)))] 5]) (fset 'gnus-apply-kill-file #[nil " qed\")!!!! U? U̪ _ $*" [0 gnus-summary-buffer count-lines nmessages gnus-killcount gnus-load-kill-file gnus-newsgroup-kill-file nil gnus-newsgroup-name message "Killed %d article%s (%d%%)." 1 "" "s" 100] 6 "\ Apply KILL file to the current newsgroup."]) (fset 'gnus-Newsgroup-kill-file #[(newsgroup) " \"! Q \"! Q \"" [newsgroup "" expand-file-name gnus-kill-file-name gnus-article-save-directory "~/News" gnus-use-long-file-name gnus-capitalize-newsgroup "." gnus-newsgroup-directory-form "/"] 4 "\ Return the name of a KILL file of NEWSGROUP. If NEWSGROUP is nil, return the global KILL file instead."]) (fset 'gnus-newsgroup-kill-file #[(newsgroup) " \" Q \"! Q \"" [newsgroup "" expand-file-name gnus-kill-file-name gnus-article-save-directory "~/News" gnus-use-long-file-name "." gnus-newsgroup-directory-form "/"] 4 "\ Return the name of a KILL file of NEWSGROUP. If NEWSGROUP is nil, return the global KILL file instead."]) (fset 'gnus-subscribe-randomly #[(newsgroup) " \n@@\"" [gnus-subscribe-newsgroup newsgroup gnus-newsrc-assoc] 3 "\ Subscribe new NEWSGROUP and insert it at the beginning of newsgroups."]) (fset 'gnus-subscribe-alphabetically #[(newgroup) "\n @@ @@m Ag \n\"*" [gnus-newsrc-assoc nil before groups newgroup gnus-subscribe-newsgroup] 4 "\ Subscribe new NEWSGROUP and insert it in strict alphabetic order."]) (fset 'gnus-subscribe-hierarchically #[(newgroup) " !q\n eb !Q  #̔̕{\nm) \" ̔̕OL\n \"+" [find-file-noselect gnus-current-startup-file newgroup nil before groupkey "^\\(" regexp-quote ".*\\)[!:]" groupkey-re re-search-forward t 1 string-match "^\\(.*\\)\\.[^.]+$" gnus-subscribe-newsgroup] 5 "\ Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order."]) (fset 'gnus-subscribe-interactively #[(newsgroup) " \"! ! ! !" [y-or-n-p format "Subscribe new newsgroup: %s " newsgroup gnus-subscribe-hierarchically gnus-subscribe-newsgroup gnus-kill-newsgroup] 4 "\ Subscribe new NEWSGROUP interactively. It is inserted in hierarchical newsgroup order if subscribed. Unless, it is killed."]) (fset 'gnus-subscribe-many #[(groups) "!" [((byte-code "\n!\" ! ʐ q !\nG#c P!\nG\"c\nG#c\"c GWc !)eb#ڔڕ|eb!ߏ> !!)X% U \"KU \"KU G+,-/-@\"-@D!-@B1B1+,\"+\\+-A-L ! !q!,U -/-@\"-@D!-@!-A-_)!,Ƈ" [sort copy-sequence groups string-lessp file-name-nondirectory gnus-current-startup-file nil answer shortname sorted "*Help*" standard-output file-exists-p format "\nThere are %d newsgroups, and you have no %s file." ".el" "\n%d new newsgroups have been added since the last time you ran GNUS." "\nThere are %d newsgroups which are not mentioned in %s." "\n\n S subscribe to them all (you can unsubscribe individually later)\n U unsubscribe to them all, but keep them in %s\n K unsubscribe to them all, and never mention them again\n I ask whether to subscribe to each of them\n" 300 "\nThe new newsgroups are:\n\n" completion-setup-hook display-completion-list re-search-forward "^Possible completions.*\n" t 0 message "Option (U, K, I, or S): " cursor-in-echo-area (read-char) ((error)) (85 75 73 83) beep "Please type U, K, I, or S." sit-for 2 buffer-read-only erase-buffer 85 gnus-insert-new-newsgroups 83 75 count total rest string-match gnus-subscribe-default-groups gnus-insert-newsgroup gnus-killed-assoc gnus-lazy-message "Killing new newsgroups... %d%%" 100 get-file-buffer find-file-noselect set-buffer-modified-p 73 gnus-subscribe-interactively error "internal error"] 6)) message nil] 2 "\ If lots of newsgroups have been added, this is used to add them. It prompts the user for the action to take, instead of slowly subscribing each group individually."]) (fset 'gnus-subscribe-newsgroup #[(newsgroup &optional next) " D \" \"" [gnus-insert-newsgroup newsgroup t next message "Subscribe newsgroup: %s"] 3 "\ Subscribe new NEWSGROUP. If optional argument NEXT is non-nil, it is inserted before NEXT."]) (fset 'gnus-newsgroup-directory-form #[(newsgroup) "OG W HU I Tj+" [newsgroup 0 nil idx len 46 47] 4 "\ Make hierarchical directory name from NEWSGROUP name."]) (fset 'gnus-make-directory #[(directory) " \n\" ! \")" [expand-file-name directory default-directory file-exists-p gnus-make-directory-1 ""] 3 "\ Make DIRECTORY recursively."]) (fset 'gnus-make-directory-1 #[(head tail) "\n\"ÔÕ!\n OP!ˉ%\n O\"*\n͘·" [string-match "^/\\([^/]+\\)" tail 1 end beg file-name-as-directory head file-exists-p call-process "mkdir" nil gnus-make-directory-1 "" t] 6]) (fset 'gnus-capitalize-newsgroup #[(newsgroup) " !Î\"\" !*" [copy-syntax-table syntax-table current-syntax-table ((set-syntax-table current-syntax-table)) modify-syntax-entry 45 "w" 46 capitalize newsgroup] 3 "\ Capitalize NEWSGROUP name with treating '.' and '-' as part of words."]) (fset 'gnus-simplify-subject #[(subject &optional re-only) " \" ŕO \" ʼnOr \" ʼnO \" ŕO \" ŕO \" ʼnO )" [t case-fold-search string-match "\\`[ ]*\\(re\\(\\^[0-9]+\\)?:[ ]+\\)+" subject 0 nil re-only "[ \n]*([^()]*)[ \n]*\\'" "[, ]*part[ ]*[0-9]+[ ]*\\(of\\|/\\)[ ]*[0-9]*\\'" "\\`[ ]*v[0-9]+i[0-9]+:[ ]*" "\\`[ ]+" "[ ]+\\'"] 3 "\ Remove `Re:' and words in parentheses. If optional argument RE-ONLY is non-nil, strip `Re:' only."]) (fset 'gnus-optional-lines-and-from #[(header) "\nH!\nH!A@\nH!#GVO)" [format "%3d:%-13s" header 4 fboundp mail-extract-address-components 2 mail-strip-quoted-names string 17 0] 7 "\ Return a string like `NNN:AUTHOR' from HEADER."]) (fset 'gnus-optional-lines #[(header) "\nH\"" [format "%4d" header 4] 4 "\ Return a string like `NNN' from HEADER."]) (fset 'gnus-keysort-headers #[(predicate key &optional reverse) "\n # #)" [t inhibit-quit reverse gnus-keysort gnus-newsgroup-headers predicate key] 4 "\ Sort current headers by PREDICATE using a value passed by KEY safely. *Safely* means C-g quitting is disabled during sort. Optional argument REVERSE means reverse order."]) (fset 'gnus-keysort #[(list predicate key) " \"\"\"" [mapcar cdr sort #[(a) " ! B" [key a] 2] list #[(a b) " @\n@\"" [predicate a b] 3]] 6 "\ Sort LIST by PREDICATE using a value passed by KEY."]) (fset 'gnus-sort-headers #[(predicate &optional reverse) "\n \" \")" [t inhibit-quit reverse sort gnus-newsgroup-headers predicate] 3 "\ Sort current headers by PREDICATE safely. *Safely* means C-g quitting is disabled during sort. Optional argument REVERSE means reverse order."]) (fset 'gnus-string-lessp #[(a b) " \n \n" [case-fold-search a b] 2 "\ Return T if first arg string is less than second in lexicographic order. If case-fold-search is non-nil, case of letters is ignored."]) (fset 'gnus-date-lessp #[(date1 date2) " !\n!" [gnus-sortable-date date1 date2] 3 "\ Return T if DATE1 is earlyer than DATE2."]) (fset 'gnus-sortable-date #[(date) " ! H! H! H! H\n \n$-" [timezone-parse-date date string-to-int 0 year 1 month 2 day 3 time timezone-make-sortable-date] 5 "\ Make sortable string by string-lessp from DATE. Timezone package is used."]) (fset 'gnus-fetch-field #[(field) "~ebe#`} !*" [search-forward "\n\n" nil move mail-fetch-field field] 5 "\ Return the value of the header FIELD of current article."]) (fset 'gnus-expunge 'gnus-summary-delete-marked-with) (fset 'gnus-kill #[(field regexp &optional command all) ")" [((byte-code " \"eb  E  ?%" [switch-to-buffer gnus-summary-buffer norecord command (gnus-summary-mark-as-read nil "X") progn (setq gnus-killcount (1+ gnus-killcount)) gnus-execute field regexp nil all] 6))] 1 "\ If FIELD of an article matches REGEXP, execute COMMAND. Optional 1st argument COMMAND is default to (gnus-summary-mark-as-read nil \"X\"). If optional 2nd argument ALL is non-nil, articles marked are also applied to. If FIELD is an empty string (or nil), entire article body is searched for. COMMAND must be a lisp expression or a string representing a key sequence."]) (fset 'gnus-execute #[(field regexp form &optional backward ignore-marked) " Ę ; ! P!\n!\nK \" < @= E   > >\n # #\n #m*" [nil article function field "" symbol-name intern-soft "gnus-header-" fboundp error "Unknown header field: \"%s\"" form lambda ignore-marked gnus-summary-article-number gnus-newsgroup-unreads gnus-newsgroup-marked gnus-execute-1 regexp gnus-summary-search-subject backward] 5 "\ If FIELD of article header matches REGEXP, execute lisp FORM (or a string). If FIELD is an empty string (or nil), entire article body is searched for. If optional 1st argument BACKWARD is non-nil, do backward instead. If optional 2nd argument IGNORE-MARKED is non-nil, articles which are marked as read or unread are ignored."]) (fset 'gnus-execute-1 #[(function regexp form) "<C ?? \n! !;! \n \n@\" \nA\nk * ; ! *ʼn\n\" \n\" \n\n ?qeb\n@#)  ; !V P\nA\nL.*" [regexp gnus-summary-article-number article function gnus-get-header-by-number nil value header prin1-to-string match re string-match form execute-kbd-macro gnus-mark-article-hook gnus-break-pages gnus-last-article gnus-current-article message "Searching for article: %d..." gnus-article-setup-buffer gnus-summary-display-article t gnus-article-buffer re-search-forward] 5]) (fset 'gnus-caesar-region #[(&optional n) "\"U?!H\\U\n  !\" W I T m P \n W \\  \\HI \\\n \\HI T V  W  HXW\\XZ)I T @+!+ ɉ  {G W  HHI T e b |c-" [n 13 mod 26 0 boundp caesar-translate-table 97 "abcdefghijklmnopqrstuvwxyz" nil upper lower i message "Building caesar-translate-table..." make-vector 256 65 161 207 254 t3 t2 t1 v 47 "Building caesar-translate-table... done" region-beginning region-end len str to from] 6 "\ Caesar rotation of region by N, default 13, for decrypting netnews. ROT47 will be performed for Japanese text in any case." (byte-code "!CC" [current-prefix-arg prefix-numeric-value nil] 2)]) (fset 'gnus-header-number #[(header) "H" [header 0] 2 "\ Return article number in HEADER."]) (fset 'gnus-header-subject #[(header) "H" [header 1] 2 "\ Return subject string in HEADER."]) (fset 'gnus-header-from #[(header) "H" [header 2] 2 "\ Return author string in HEADER."]) (fset 'gnus-header-xref #[(header) "H" [header 3] 2 "\ Return xref string in HEADER."]) (fset 'gnus-header-lines #[(header) "H" [header 4] 2 "\ Return lines in HEADER."]) (fset 'gnus-header-date #[(header) "H" [header 5] 2 "\ Return date in HEADER."]) (fset 'gnus-header-id #[(header) "H" [header 6] 2 "\ Return Id in HEADER."]) (fset 'gnus-header-references #[(header) "H" [header 7] 2 "\ Return references in HEADER."]) (fset 'gnus-output-to-rmail #[(file-name) "! !p! ! ! Q! !q ed %*!)!qp! ! !ed #q! !\"!~dd}!!eb~!`d}eTb!!!**!*" [require rmail expand-file-name file-name rmail-last-rmail-file get-buffer-create " *GNUS-output*" tmpbuf artbuf get-file-buffer file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " create-file-buffer file-buffer rmail-insert-rmail-file-header nil require-final-newline write-region t 1 kill-buffer error "Output file does not exist" buffer-disable-undo erase-buffer insert-buffer-substring gnus-convert-article-to-rmail outbuf append-to-file boundp rmail-current-message msg buffer-read-only search-backward "" rmail-count-new-messages rmail-show-message] 7 "\ Append the current article to an Rmail file named FILE-NAME."]) (fset 'gnus-output-to-file #[(file-name) " !p! qp! !dbced #) !*" [expand-file-name file-name get-buffer-create " *GNUS-output*" tmpbuf artbuf buffer-disable-undo erase-buffer insert-buffer-substring "\n" append-to-file kill-buffer] 4 "\ Append the current article to a file named FILE-NAME."]) (fset 'gnus-convert-article-to-rmail #[nil "ebc#!sdbc)" [nil buffer-read-only " \n0, unseen,,\n*** EOOH ***\n" search-forward "\n" t replace-match "\n^_" ""] 4 "\ Convert article in current buffer to Rmail message format."]) (fset 'gnus-start-news-server #[(&optional confirm) " ? \n ! \nC Bȉ\n%\n\"\nʘ\n˘  \n !!!\n\"!!!!\n\"! !\n \"!\n\"!!" [gnus-server-opened confirm gnus-nntp-server gnus-nntp-service boundp gnus-secondary-servers completing-read "NNTP server: " nil read-string "" "::" system-name require nnspool gnus-define-access-method message "Looking up local news spool..." string-match ":" mhspool "Looking up private directory..." nntp "Connecting to NNTP server on %s..." run-hooks gnus-open-server-hook gnus-open-server error gnus-nntp-message format "Cannot open NNTP server on %s"] 6 "\ Open network stream to remote NNTP server. If optional argument CONFIRM is non-nil, ask you host that NNTP server is running even if it is defined. Run gnus-open-server-hook just before opening news server."]) (byte-code "MM" [gnus-server-opened (lambda nil) gnus-close-server (lambda nil)] 2) (fset 'gnus-nntp-message #[(&optional message) " ; GV *" [gnus-status-message message "" status 0] 3 "\ Return a message returned from NNTP server. If no message is available and optional MESSAGE is given, return it."]) (fset 'gnus-define-access-method #[(method &optional access-methods) " \n \"A \" @@ @A@M Aq)" [assoc method access-methods gnus-access-methods bindings error "Unknown access method: %s" nil] 4 "\ Define access functions for the access METHOD. Methods definition is taken from optional argument ACCESS-METHODS or the variable gnus-access-methods."]) (fset 'gnus-select-newsgroup #[(group &optional show-all) " \n!\n\n\"JAA! \n\n \"JAA!   G VяVWZ W[W[ !S áU \" * ! \"\"   \"\n\"JA\"@H!H !\"#$%&'( )" [gnus-start-news-server gnus-request-group group nil articles gnus-newsgroup-name gnus-uncompress-sequence intern-soft gnus-unread-hashtb gnus-newsgroup-unreads show-all gnus-active-hashtb gnus-newsgroup-unselected gnus-large-newsgroup number selected (byte-code " #!Ƙ !)" [read-string format "How many articles from %s (default %d): " gnus-newsgroup-name number input "" string-to-int selected] 6) ((quit (byte-code "" [0 selected] 1))) 0 copy-sequence gnus-set-difference gnus-retrieve-headers gnus-newsgroup-headers gnus-intersection mapcar #[(header) "H" [header 0] 2] append gnus-marked-hashtb gnus-newsgroup-marked gnus-newsgroup-begin gnus-last-element gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-current-article gnus-current-headers gnus-current-history gnus-have-all-headers gnus-last-article gnus-clear-hashtables-for-newsgroup-headers t] 5 "\ Select newsgroup GROUP. If optional argument SHOW-ALL is non-nil, all of articles in the group are selected."]) (fset 'gnus-get-header-by-number #[(number) " !\"J" [gnus-newsgroup-headers-hashtb-by-number gnus-make-headers-hashtable-by-number intern-soft int-to-string number] 3 "\ Return a header specified by a NUMBER. If the variable gnus-newsgroup-headers is updated, the hashed table gnus-newsgroup-headers-hashtb-by-number must be set to nil to indicate rehash is necessary."]) (fset 'gnus-get-header-by-id #[(id) " \n;\n\"J" [gnus-newsgroup-headers-hashtb-by-id gnus-make-headers-hashtable-by-id id intern-soft] 3 "\ Return a header specified by an ID. If the variable gnus-newsgroup-headers is updated, the hashed table gnus-newsgroup-headers-hashtb-by-id must be set to nil to indicate rehash is necessary."]) (fset 'gnus-make-headers-hashtable-by-number #[nil " \nG!\n\n@ H! \" L\nAl*" [nil gnus-newsgroup-headers headers header gnus-make-hashtable gnus-newsgroup-headers-hashtb-by-number intern int-to-string 0] 5 "\ Make hashtable for the variable gnus-newsgroup-headers by number."]) (fset 'gnus-make-headers-hashtable-by-id #[nil " \nG!\n\n@ H \" L\nAn*" [nil gnus-newsgroup-headers headers header gnus-make-hashtable gnus-newsgroup-headers-hashtb-by-id intern 6] 4 "\ Make hashtable for the variable gnus-newsgroup-headers by id."]) (fset 'gnus-clear-hashtables-for-newsgroup-headers #[nil "" [nil gnus-newsgroup-headers-hashtb-by-id gnus-newsgroup-headers-hashtb-by-number] 2 "\ Clear hash tables created for the variable gnus-newsgroup-headers."]) (fset 'gnus-more-header-backward #[nil "\n \"J8@ VSC!@i+" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-begin nil header artnum first gnus-retrieve-headers] 5 "\ Find new header backward."]) (fset 'gnus-more-header-forward #[nil "\n \"J8A WTC!@i+" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-end nil header artnum last gnus-retrieve-headers] 5 "\ Find new header forward."]) (fset 'gnus-extend-newsgroup #[(header &optional backward) "H  B C\" \n>\nB\n\"\n\n^\n \n] )" [header 0 artnum backward gnus-newsgroup-headers append gnus-clear-hashtables-for-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads delq gnus-newsgroup-begin gnus-newsgroup-end] 3 "\ Extend newsgroup selection with HEADER. Optional argument BACKWARD means extend toward backward."]) (fset 'gnus-mark-article-as-read #[(article) " \n\" \"" [delq article gnus-newsgroup-unreads gnus-newsgroup-marked] 3 "\ Remember that ARTICLE is marked as read."]) (fset 'gnus-mark-article-as-unread #[(article &optional clear-mark) " > B\n \" > B" [article gnus-newsgroup-unreads clear-mark delq gnus-newsgroup-marked] 3 "\ Remember that ARTICLE is marked as unread. Optional argument CLEAR-MARK means ARTICLE should not be remembered that it was marked as read once."]) (fset 'gnus-clear-system #[nil " @L Au) \n   ! !! @!@!Ak)" [gnus-variable-list variables nil gnus-newsrc-hashtb gnus-marked-hashtb gnus-killed-hashtb gnus-active-hashtb gnus-octive-hashtb gnus-unread-hashtb gnus-newsgroup-headers gnus-newsgroup-headers-hashtb-by-id gnus-newsgroup-headers-hashtb-by-number gnus-current-startup-file get-file-buffer kill-buffer gnus-buffer-list buffers get-buffer] 4 "\ Clear all variables and buffer."]) (fset 'gnus-configure-windows #[(action) "< A@ !!!    \n? ?\n@U=?\nA@U= ?\n8U=?  ! ! !!  !\\\\ \"!!!!\n\" \n@U\n@_ ]\nA@U\nA@_ ]\n8U\n8_ ]\\\\ UU Z\\U Z\\ Z\\ !Z V !)!!!\\\"!!\"! \"!!\"!U?\".\n" [action gnus-window-configuration windows get-buffer-window gnus-group-buffer grpwin gnus-summary-buffer subwin gnus-article-buffer artwin nil winsum 0 new-height height grpheight subheight artheight gnus-article-setup-buffer 2 select-window selected-window gnus-use-full-window delete-other-windows window-height switch-to-buffer norecord get-buffer delete-windows-on apply + window-min-height offset enlarge-window zerop split-window other-window 1] 5 "\ Configure GNUS windows according to the next ACTION. The ACTION is either a symbol, such as `summary', or a configuration list such as `(1 1 2)'. If ACTION is not a list, configuration list is got from the variable gnus-window-configuration."]) (fset 'gnus-find-header-by-number #[(headers number) "\n \n@H=\n@\nAl )" [nil found headers number 0] 4 "\ Return a header which is a element of HEADERS and has NUMBER."]) (fset 'gnus-find-header-by-id #[(headers id) "\n \n@H\n@\nAl )" [nil found headers id 6] 4 "\ Return a header which is a element of HEADERS and has Message-ID."]) (fset 'gnus-version #[nil "!! \n %!  $! \n$ #" [boundp mhspool-version nnspool-version message "%s; %s; %s; %s" gnus-version nntp-version "%s; %s; %s" "%s; %s"] 6 "\ Version numbers of this version of GNUS." nil]) (fset 'gnus-info-find-node #[nil "!\n=!!\n=!\n!\n A@!" [require info major-mode gnus-group-mode gnus-configure-windows (1 0 0) gnus-pop-to-buffer gnus-group-buffer gnus-summary-mode (0 1 0) gnus-summary-buffer Info-goto-node gnus-info-nodes] 3 "\ Find Info documentation of GNUS." nil]) (fset 'gnus-overload-functions #[(&optional overloads) " \n @ A @! AA@ AA@# @ A@MY*" [nil overloads gnus-overload-functions defs fboundp load nomessage] 4 "\ Overload functions specified by optional argument OVERLOADS. If nothing is specified, use the variable gnus-overload-functions."]) (fset 'gnus-make-threads #[(newsgroup-headers) "!\nÉ  \n \n\"  @ A !lH\n\n\"\nӔӕO \"J@  H\" H\"  ABB\"!." [message "Threading..." newsgroup-headers nil gnus-make-hashtable dependencies dlist roots h d refer headers mapcar #[(header) " H \" CL" [intern header 6 dependencies] 3] vectorp 7 string-match "\\(<[^<>]+>\\)[^>]*$" intern-soft 1 gnus-thread-ignore-subject gnus-simplify-subject re #[(root) " \n\"" [gnus-make-threads-1 root dependencies] 3] "Threading... done"] 8 "\ Make conversation threads tree from NEWSGROUP-HEADERS."]) (fset 'gnus-make-threads-1 #[(parent dependencies) "H \"JA\"B" [parent mapcar #[(child) " \n\"" [gnus-make-threads-1 child dependencies] 3] intern-soft 6 dependencies] 6]) (fset 'gnus-narrow-to-page #[(&optional arg) "!!~V!WS! `!loy`})" [arg prefix-numeric-value 0 forward-page -1 1] 3 "\ Make text outside current page invisible except for page delimiter. A numeric arg specifies to move forward or backward by that many pages, thus showing a page other than the one point was originally in." "P"]) (fset 'gnus-make-hashtable-from-alist #[(alist &optional hashsize) " \nG!\n\n@@ \"\n@L\nAp )" [gnus-make-hashtable hashsize alist hashtb intern] 4 "\ Return hash table for ALIST. Optional argument HASHSIZE specifies the hashtable size. Hash key is a car of alist element, which must be a string."]) (fset 'gnus-last-element #[(list) "\n\nA\n@\nAs )" [nil last list] 2 "\ Return last element of LIST."]) (fset 'gnus-set-difference #[(list1 list2) " !\n\n@ \"\nAt )" [copy-sequence list1 list2 delq] 4 "\ Return a list of elements of LIST1 that do not appear in LIST2."]) (fset 'gnus-intersection #[(list1 list2) "\n\n@ >\n@ B\nAo )" [nil result list2 list1] 3 "\ Return a list of elements that appear in both LIST1 and LIST2."]) (fset 'gnus-setup-news #[(&optional rawfile) " \n ?? !  GV !  @! A q))" [gnus-newsrc-assoc gnus-active-hashtb gnus-unread-hashtb rawfile init nil gnus-read-active-file gnus-read-distributions-file gnus-read-newsrc-file gnus-expire-marked-articles gnus-get-unread-articles gnus-find-new-newsgroups new-newsgroups 20 gnus-subscribe-many gnus-subscribe-newsgroup-method] 3 "\ Setup news information. If optional argument RAWFILE is non-nil, force to read raw startup file."]) (fset 'gnus-add-newsgroup #[(newsgroup) " \n\"J? \"J \"J D@@\"" [intern-soft newsgroup gnus-newsrc-hashtb gnus-active-hashtb gnus-insert-newsgroup gnus-killed-hashtb t gnus-newsrc-assoc] 4 "\ Subscribe new NEWSGROUP safely and put it at top."]) (fset 'gnus-find-new-newsgroups #[nil " \" *" [nil new-newsgroups group mapatoms #[(sym) " ! \n\" \n\"\n\"J?\n\"J?\n B " [symbol-name sym group gnus-newsrc-options-n-no string-match gnus-newsrc-options-n-yes intern-soft gnus-killed-hashtb gnus-newsrc-hashtb new-newsgroups] 3] gnus-active-hashtb] 3 "\ Looking for new newsgroups and return names. `-n' option of options line in .newsrc file is recognized."]) (fset 'gnus-kill-newsgroup #[(group) " \n\"J?? \" \n\"L \"J \"B \" L \n\"L \" )" [intern-soft group gnus-newsrc-hashtb info delq gnus-newsrc-assoc intern nil gnus-killed-hashtb gnus-killed-assoc gnus-unread-hashtb gnus-update-newsrc-buffer delete] 6 "\ Kill GROUP from gnus-newsrc-assoc, .newsrc and gnus-unread-hashtb."]) (fset 'gnus-insert-newsgroup #[(info &optional next) "\"@ \"J8AA\"  \"J \"  @@ B  A  @@щkAA]:B B\" +  \"L \"J\" \"L  # \" !BBL*" [info error "Invalid argument: %s" group gnus-difference-of-range 2 intern-soft gnus-active-hashtb range gnus-newsrc-hashtb "Duplicated: %s" next gnus-newsrc-assoc nil tail rest found t append intern delq gnus-killed-hashtb gnus-killed-assoc gnus-update-newsrc-buffer gnus-unread-hashtb gnus-number-of-articles] 6 "\ Insert newsrc INFO entry before NEXT. If optional argument NEXT is nil, appended to the last."]) (fset 'gnus-insert-new-newsgroups #[(groups subscribed-p) " G Ī \n  ! !qdb @ \"D B \" @Lc @A@Ԫc\"J8\"AUªA@ZCBBL \n\" \\ A ) ." [nil groups 0 subscribed-p "Subscribing new newsgroups... %d%%" "Unsubscribing new newsgroups... %d%%" range group fmt count total new-info get-file-buffer gnus-current-startup-file find-file-noselect string-match gnus-subscribe-default-groups t intern gnus-newsrc-hashtb ":\n" "!\n" 2 intern-soft gnus-active-hashtb gnus-unread-hashtb gnus-lazy-message 100 gnus-newsrc-assoc] 7 "\ Insert newsrc info entries for the newsgroups. The newsgroups had better not exist already when this is called!"]) (fset 'gnus-check-killed-newsgroups #[nil " \n\n@@ \" \"  \"J\n@ B\nAU  ! +" [nil gnus-killed-assoc old-killed new-killed group gnus-newsrc-options-n-no string-match gnus-newsrc-options-n-yes intern-soft gnus-newsrc-hashtb gnus-make-hashtable-from-alist gnus-killed-hashtb] 4 "\ Check consistency between gnus-newsrc-assoc and gnus-killed-assoc. gnus-killed-hashtb is also updated."]) (fset 'gnus-check-bogus-newsgroups #[(&optional confirm) " \n  \n !\n\n@@  \"J \"!\n@ B  B\nA\nK  !@@  \"J \"J@BAX\n!@\"Aq @@ @A \"J @ B Ab  !!." [nil gnus-newsrc-assoc gnus-killed-assoc gnus-marked-assoc new-marked old-marked new-killed old-killed bogus new-newsrc old-newsrc group message "Checking bogus newsgroups..." intern-soft gnus-active-hashtb confirm y-or-n-p format "Delete bogus newsgroup: %s " gnus-make-hashtable-from-alist gnus-newsrc-hashtb gnus-killed-hashtb gnus-update-newsrc-buffer delete gnus-marked-hashtb "Checking bogus newsgroups... done"] 9 "\ Delete bogus newsgroups. If optional argument CONFIRM is non-nil, confirm deletion of newsgroups."]) (fset 'gnus-get-unread-articles #[nil "G ! G!  ϦU \" \\ @@\"J8\"J8 \"JAA\" \" ! BBL A !." [gnus-newsrc-assoc nil 0 count total range active group-name group-info read message "Checking new news..." gnus-unread-hashtb gnus-make-hashtable gnus-active-hashtb 1000 gnus-lazy-message "Checking new news... %d%%" 100 2 intern-soft gnus-octive-hashtb gnus-difference-of-range intern gnus-number-of-articles "Checking new news... done"] 8 "\ Compute diffs between active and read articles."]) (fset 'gnus-expire-marked-articles #[nil "@A @\n\"J8@\n @\nY @ B Aj @ BBAB! ." [gnus-marked-assoc nil begin updated articles marked updated-assoc marked-assoc 2 intern-soft gnus-active-hashtb gnus-make-hashtable-from-alist gnus-marked-hashtb] 7 "\ Check expired article which is marked as unread."]) (fset 'gnus-mark-as-read-by-xref #[(group headers unreads &optional subscribed-only) " \nG!\n\n@\n \"H>H!\n \"@@A  \"JA@ \"JA>  \" A> AB D B )A(\n\\\nA\n! !  G GUݪ#! \"." [nil 0 count total article gname xref xrefs header xref-list headers message "Looking for crossposts..." gnus-lazy-message "Looking for crossposts... %d%%" unreads gnus-parse-xref-field 3 group subscribed-only intern-soft gnus-newsrc-hashtb gnus-marked-hashtb assoc group-xref 100 gnus-mark-xrefed-as-read "%d crosspost%s marked as read." 1 "" "s" mapcar car] 9 "\ Mark articles as read using cross references and return updated newsgroups. Arguments are GROUP, HEADERS, UNREADS, and optional SUBSCRIBED-ONLY."]) (fset 'gnus-parse-xref-field #[(xref-value) "  \" ƔO \" ƔƕO ɔɕ#@B B ɕO]Z *" [nil xref-value "" xref-list string-match "^[ ]*[^ ,]+[ ,]+\\(.*\\)$" 1 "^[ ,]*\\([^ ,]+\\):\\([0-9]+\\)[^0-9]*" read-from-string 2] 6 "\ Parse Xref: field value, and return list of `(group . article-id)'."]) (fset 'gnus-mark-xrefed-as-read #[(xrefs) " G @@ @A \" \\ \"JAA!@ \"Aq # A?-" [nil xrefs 0 count total unread idlist group gnus-lazy-message "Marking crossposts... %d%%" 100 gnus-uncompress-sequence intern-soft gnus-unread-hashtb delq gnus-update-unread-articles ignore] 6 "\ Update unread article information using XREFS alist."]) (fset 'gnus-update-unread-articles #[(group unread-list marked-list) "\n \"J8\n \"J? ?? A! Aɡ A AA!@VAB\n \"JA AA\"\n!<\n\"J\nBB\n\"L))*" [2 intern-soft group gnus-active-hashtb gnus-unread-hashtb unread active unread-list gnus-compress-sequence ((0 . 0)) gnus-number-of-articles 0 1 gnus-newsrc-hashtb gnus-difference-of-range gnus-update-newsrc-buffer marked-list gnus-marked-hashtb marked info gnus-marked-assoc intern] 5 "\ Update unread articles of GROUP using UNREAD-LIST and MARKED-LIST."]) (fset 'gnus-read-active-file #[nil " ! q !)!" [gnus-start-news-server message "Reading active file..." gnus-request-list nntp-server-buffer gnus-active-to-gnus-format "Reading active file... done" error "Cannot read active file from NNTP server."] 2 "\ Get active file from NNTP server."]) (fset 'gnus-active-to-gnus-format #[nil "eb !\ned\"!eb#ye`}ebȉ   m?\np!)wp! p! wg ! U  BELyTU?`_d\"1." [delete-matching-lines gnus-ignored-newsgroups gnus-active-hashtb gnus-octive-hashtb gnus-make-hashtable count-lines re-search-forward "\n. ?$" nil t 0 type max min group tick obarray read " " " " symbol-name 121 1 400 gnus-lazy-message "Reading active file...%s%%" 100] 5 "\ Convert active file format to internal format. Lines matching gnus-ignored-newsgroups are ignored."]) (fset 'gnus-read-newsrc-file #[(&optional rawfile) " !  @L Au)\nP !q̏ \" !\" \"," [gnus-make-newsrc-file gnus-startup-file gnus-current-startup-file gnus-variable-list variables nil newsrc-file ".el" quick-file quick-loaded find-file-noselect (byte-code " ‰$ !!" [load quick-file t quick-loaded gnus-make-hashtable-from-alist gnus-killed-assoc gnus-killed-hashtb gnus-marked-assoc gnus-marked-hashtb] 5) ((error)) rawfile file-newer-than-file-p gnus-newsrc-assoc gnus-make-hashtable-from-alist gnus-newsrc-hashtb message "Reading %s..." gnus-newsrc-to-gnus-format gnus-check-killed-newsgroups "Reading %s... Done"] 4 "\ Read startup FILE. If optional argument RAWFILE is non-nil, the raw startup file is read."]) (fset 'gnus-make-newsrc-file #[(file) " \" Q ! *" [expand-file-name file nil "-" gnus-nntp-server real-file file-exists-p] 4 "\ Make server dependent file name by catenating FILE and server host name."]) (fset 'gnus-newsrc-to-gnus-format #[nil "Ged\"]! " [nil gnus-newsrc-options gnus-newsrc-options-n-yes gnus-newsrc-options-n-no gnus-newsrc-assoc gnus-make-hashtable gnus-active-hashtb count-lines gnus-newsrc-hashtb gnus-parse-options-lines gnus-parse-newsrc-body] 5 "\ Parse current buffer as .newsrc file."]) (byte-code "MM" [gnus-parse-options-lines #[nil "ebw!\nƔƕ{Qy!g\nƔƕ{Qym \n\n\n\n#ȕ\n \nƔƕOQ `  !@A+" [" \n" nil gnus-newsrc-options looking-at "^options[ ]*\\(.*\\)\n" "\n " 1 "[ ]+\\(.*\\)\n" 0 result start string-match "^[ ]*-n\\([^\n]*\\)$" " " gnus-parse-n-options yes-and-no gnus-newsrc-options-n-yes gnus-newsrc-options-n-no] 6] gnus-parse-newsrc-body #[nil "e`\"TmgU`wgU #`x `{\nb \"J #gUuwgUw!eӕ}p!eו}up!~BB!eٕ}p!~ BBٕbwgUu+gU& $! BBB \"@L Ty." [nil count-lines p2 p newsgroup line read-list subscribe 10 "^:!\n" error "line %d is unparsable in %s" buffer-name " " intern-soft gnus-newsrc-hashtb message "Ignoring duplicated newsgroup: %s on line %d" 58 1 looking-at "\\([0-9]+\\)-\\([0-9]+\\)" read 2 "[0-9]+" 0 44 ding "Ignoring bogus line %d for %s in %s" sleep-for gnus-newsrc-assoc intern] 6]] 2) (fset 'gnus-parse-n-options #[(options) "\"ȔȕOʔʕO!ʕO \" ȕO ʔOQk\nΘ B? ͘: B4 A\"\" @R A\"\" @R,B" [nil newsgroup yes-or-no no yes string-match "^[ \n,]*\\(!?\\)\\([^--- \n,][^ \n,]*\\)" options 1 regexp-quote 2 "\\(^\\|\\\\[.]\\)all\\(\\\\[.]\\|$\\)" 0 ".+" "!" "^\\(" apply concat mapcar #[(newsgroup) "P" [newsgroup "\\|"] 2] "\\)\\(\\.\\|$\\)" #[(newsgroup) "P" [newsgroup "\\|"] 2]] 7 "\ Parse -n NEWSGROUPS options and return a cons of YES and NO regexps."]) (fset 'gnus-save-newsrc-file #[nil " \n͊\n!q !\n\"\n  ! +!qp! ɉ\n  \nP!+p!\n\")" [gnus-newsrc-assoc gnus-killed-assoc gnus-current-startup-file find-file-noselect buffer-modified-p message "(No changes need to be saved)" "Saving %s..." t nil require-final-newline version-control make-backup-files run-hooks gnus-save-newsrc-hook save-buffer get-buffer-create " *GNUS-newsrc*" buffer-disable-undo erase-buffer gnus-gnus-to-quick-newsrc-format write-file ".el" kill-buffer "Saving %s... Done"] 3 "\ Save to .newsrc FILE."]) (fset 'gnus-newsrc-first-group-is #[(group) "GTbg=g=e`{)" [group 58 33] 2]) (fset 'gnus-newsrc-find-group #[(group) "eb ! Q# Q#yƇ" [gnus-newsrc-first-group-is group search-forward "\n" ":" nil t "!" 0] 4 "\ Sets point to the beginning of the newsrc line for GROUP. Returns nil if not found."]) (fset 'gnus-update-newsrc-buffer #[(group &optional delete next) " ! !qÉ!`y`| ?\n\n! \"J?? A@ͪα AA!c+" [get-file-buffer gnus-current-startup-file find-file-noselect nil info buffer-read-only gnus-newsrc-find-group group 1 delete next intern-soft gnus-newsrc-hashtb ": " "! " gnus-ranges-to-newsrc-format "\n"] 4 "\ Incrementally update .newsrc buffer about GROUP. If optional 1st argument DELETE is non-nil, delete the group. If optional 2nd argument NEXT is non-nil, inserted before it."]) (fset 'gnus-gnus-to-quick-newsrc-format #[nil "cc  @!J!J!αAY," [";; GNUS internal format of .newsrc.\n" ";; Touch .newsrc instead if you think to remove this file.\n" nil gnus-variable-list gnus-killed-assoc gnus-killed-hashtb variables variable gnus-check-killed-newsgroups boundp "(setq " symbol-name " '" prin1-to-string ")\n"] 6 "\ Insert GNUS variables such as gnus-newsrc-assoc in lisp format."]) (fset 'gnus-ranges-to-newsrc-format #[(ranges) "\n\n@\nA @ AU @Uf @!c\n\\cW @! A!\nHcC)" [nil range ranges 0 int-to-string "," "-"] 5 "\ Insert ranges of read articles."]) (fset 'gnus-compress-sequence #[(numbers) "\n!\"@\n@\n \n@U T\n@U\n@ BB\n@\n@\nAZ BB," [sort copy-sequence numbers < first last nil result] 4 "\ Convert list of sorted numbers to ranges."]) (fset 'gnus-uncompress-sequence #[(ranges) " @@ @A \nW B Tr B A_ +" [nil result last first ranges] 4 "\ Expand compressed format of sequence."]) (fset 'gnus-number-of-articles #[(range) "\n\n@AU \n@A\n@@Z\\\\\nAg )" [0 count range 1] 4 "\ Compute number of articles from RANGE `((beg1 . end1) (beg2 . end2) ...)'."]) (fset 'gnus-difference-of-range #[(src obj) "@A @@ @A V W S ^B\nBT Y T] A*? X B\nB\n\nȉBC+" [src nil range end beg obj end1 beg1 0] 3 "\ Compute (SRC - OBJ) on range. Range of SRC is expressed as `(beg . end)'. Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."]) (fset 'gnus-read-distributions-file #[nil " ! q !)\n!   @ \"  \" @C B A `*" [gnus-start-news-server message "Reading distributions file..." nil gnus-distribution-list gnus-request-list-distributions nntp-server-buffer gnus-distributions-to-gnus-format "Reading distributions file... done" reverse gnus-local-distributions dist defaults assoc delq] 4 "\ Get distributions file from NNTP server (NNTP2 functionality)."]) (fset 'gnus-distributions-to-gnus-format #[nil "eb#Ŕŕ{C Bn " [nil gnus-distribution-list re-search-forward "^\\([^ \n]+\\).*$" t 1] 4 "\ Convert distributions file format to internal format."]) (byte-code "!M\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"Á@A\"ÁBC\"ÁDE\"ÁFG\"ÁHI\"ÁJK\"ÁLM\"" [fboundp file-newer-than-file-p #[(file1 file2) "\n!8 !8\n!Ǫ !Ȫ @ @W @ @U A@ A@X*" [5 file-attributes file1 file2 mod2 mod1 file-exists-p nil t] 4 "Return t if file FILE1 is newer than file FILE2.\nIf FILE1 does not exist, the answer is nil;\notherwise, if FILE2 does not exist, the answer is t."] make-obsolete-variable gnus-auto-center-subject gnus-auto-center-summary gnus-Group-mode-hook gnus-group-mode-hook gnus-Subject-mode-hook gnus-summary-mode-hook gnus-Article-mode-hook gnus-article-mode-hook gnus-Kill-file-mode-hook gnus-kill-file-mode-hook gnus-Open-server-hook gnus-open-server-hook gnus-Startup-hook gnus-startup-hook gnus-Group-prepare-hook gnus-group-prepare-hook gnus-Subject-prepare-hook gnus-summary-prepare-hook gnus-Article-prepare-hook gnus-article-prepare-hook gnus-Select-group-hook gnus-select-group-hook gnus-Select-article-hook gnus-select-article-hook gnus-Select-digest-hook gnus-select-digest-hook gnus-Rmail-digest-hook gnus-rmail-digest-hook gnus-Apply-kill-hook gnus-apply-kill-hook gnus-Mark-article-hook gnus-mark-article-hook gnus-Inews-article-hook gnus-inews-article-hook gnus-Exit-group-hook gnus-exit-group-hook gnus-Suspend-gnus-hook gnus-suspend-gnus-hook gnus-Exit-gnus-hook gnus-exit-gnus-hook gnus-Save-newsrc-hook gnus-save-newsrc-hook gnus-Info-nodes gnus-info-nodes gnus-Group-buffer gnus-group-buffer gnus-Subject-buffer gnus-summary-buffer gnus-Article-buffer gnus-article-buffer gnus-Digest-buffer gnus-digest-buffer gnus-Digest-summary-buffer gnus-digest-summary-buffer gnus-Group-mode-map gnus-group-mode-map gnus-Subject-mode-map gnus-summary-mode-map gnus-Article-mode-map gnus-article-mode-map gnus-Kill-file-mode-map gnus-kill-file-mode-map gnus-Subject-menu gnus-summary-menu gnus-Group-menu gnus-group-menu gnus-Article-menu gnus-article-menu gnus-Browse-killed-buffer gnus-browse-killed-buffer gnus-Browse-killed-mode-hook gnus-browse-killed-mode-hook gnus-Browse-killed-mode-map gnus-browse-killed-mode-map] 3)