;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Aug 10 19:15:10 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus.el ;;; emacs version 19.25.92.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/gnus.el' was compiled for Emacs 19")) (byte-code "!!!" [require nntp mail-utils timezone] 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 "nntp" "\ *NNTP service name (\"nntp\" or 119). Go to a local news spool if its value is nil.") (defvar gnus-startup-file "~/.newsrc" "\ *Your `.newsrc' file. Use `.newsrc-SERVER' instead if exists.") (defvar gnus-signature-file "~/.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.") (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 (quote 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-kill-files-directory (getenv "SAVEDIR") "\ *A directory name to save kill files to (default to ~/News). Initialized from the SAVEDIR environment variable.") (defvar gnus-default-article-saver (quote 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 (quote 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 (quote 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 (quote 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 (quote 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 "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 function `user-login-name' 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-threads t "\ *Show conversation threads 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 "^to\\..*$" "\ *A regexp to match uninteresting newsgroups in the active file. Any lines in the active file matching this regular expression are removed from the newsgroup list before anything else is done to it, thus making them effectively invisible.") (defvar gnus-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:" "\ *All random fields within the header of a message.") (defvar gnus-required-headers (quote (From Date Newsgroups Subject Message-ID Path Organization Distribution)) "\ *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 (quote 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 "^\f" "\ *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 "^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 (quote ((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 (quote 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 (quote 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 (quote 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 (quote 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 (quote 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-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 (quote (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 (quote (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 " >\n!!" [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 (quote 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 (quote 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 (quote ("local" "world")) "\ *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 "GNUS 4.1" "\ Version numbers of this version of GNUS.") (defconst gnus-emacs-version (byte-code "\n\"\nĔĕO!" [string-match "[0-9]*" emacs-version string-to-int 0] 4) "\ Major version number of this emacs.") (defvar gnus-info-nodes (quote ((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 (quote ((nntp (gnus-retrieve-headers nntp-retrieve-headers) (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 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 nnspool-retrieve-headers) (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 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 mhspool-retrieve-headers) (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 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 "!!!!!!* " [boundp gnus-group-buffer "*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 (quote (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 (quote ((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 "!!!! !)!2!;!D ‡" [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 "!!!! !)!2!;!F! !Q!\f‡" [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-default-file expand-file-name "~/XMBOX" rmail-default-rmail-file "~/XNEWS"] 2) (autoload (quote gnus-group-post-news) "gnuspost" "\ Post an article." t) (autoload (quote gnus-summary-post-news) "gnuspost" "\ Post an article." t) (autoload (quote gnus-summary-followup) "gnuspost" "\ Post a reply article." t) (autoload (quote gnus-summary-followup-with-original) "gnuspost" "\ Post a reply article with original article." t) (autoload (quote gnus-summary-cancel-article) "gnuspost" "\ Cancel an article you posted." t) (autoload (quote gnus-summary-reply) "gnusmail" "\ Reply mail to news author." t) (autoload (quote gnus-summary-reply-with-original) "gnusmail" "\ Reply mail to news author with original article." t) (autoload (quote gnus-summary-mail-forward) "gnusmail" "\ Forward the current message to another user." t) (autoload (quote gnus-summary-mail-other-window) "gnusmail" "\ Compose mail in other window." t) (autoload (quote gnus-group-kill-group) "gnusmisc" "\ Kill newsgroup on current line." t) (autoload (quote gnus-group-yank-group) "gnusmisc" "\ Yank the last killed newsgroup on current line." t) (autoload (quote gnus-group-kill-region) "gnusmisc" "\ Kill newsgroups in current region." t) (autoload (quote gnus-group-transpose-groups) "gnusmisc" "\ Exchange current newsgroup and previous newsgroup." t) (autoload (quote gnus-list-killed-groups) "gnusmisc" "\ List the killed newsgroups." t) (autoload (quote gnus-gmt-to-local) "gnusmisc" "\ Rewrite Date field in GMT to local in current buffer.") (autoload (quote metamail-buffer) "metamail" "\ Process current buffer through 'metamail'." t) (autoload (quote rmail-output) "rmailout" "\ Append this message to Unix mail file named FILE-NAME." t) (byte-code "\"\"\"###Ή%$" [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-uu-ctl-map "gnus-uu" nil keymap gnus-uu-mark-article t] 6) (defalias 'gnus-eval-in-buffer-window '(macro . #[(buffer &rest forms) " DBBBBE" [let ((GNUSStartBufferWindow (selected-window))) unwind-protect progn pop-to-buffer buffer forms ((select-window GNUSStartBufferWindow))] 6 "\ Pop to BUFFER, evaluate FORMS, and then returns to original window."])) (defalias 'gnus-make-hashtable '(macro . #[(&optional hashsize) " BBBB" [make-vector hashsize max (200) 200 (0)] 4 "\ Make a hash table (default and minimum size is 200). Optional argument HASHSIZE specifies the table size."])) (defalias 'gnus-gethash '(macro . #[(string hashtable) "\n ED" [symbol-value intern-soft string hashtable] 4 "\ Get hash value of STRING in HASHTABLE."])) (defalias 'gnus-sethash '(macro . #[(string value hashtable) "\n E\fE" [set intern string hashtable value] 4 "\ Set hash value. Arguments are STRING, VALUE, and HASHTABLE."])) (defalias 'nntp-header-number '(macro . #[(header) " BB" [aref header (0)] 3 "\ Return article number in HEADER."])) (defalias 'nntp-set-header-number '(macro . #[(header number) " F" [aset header 0 number] 4 "\ Set article number of HEADER to NUMBER."])) (defalias 'nntp-header-subject '(macro . #[(header) " BB" [aref header (1)] 3 "\ Return subject string in HEADER."])) (defalias 'nntp-set-header-subject '(macro . #[(header subject) " F" [aset header 1 subject] 4 "\ Set article subject of HEADER to SUBJECT."])) (defalias 'nntp-header-from '(macro . #[(header) " BB" [aref header (2)] 3 "\ Return author string in HEADER."])) (defalias 'nntp-set-header-from '(macro . #[(header from) " F" [aset header 2 from] 4 "\ Set article author of HEADER to FROM."])) (defalias 'nntp-header-xref '(macro . #[(header) " BB" [aref header (3)] 3 "\ Return xref string in HEADER."])) (defalias 'nntp-set-header-xref '(macro . #[(header xref) " F" [aset header 3 xref] 4 "\ Set article xref of HEADER to xref."])) (defalias 'nntp-header-lines '(macro . #[(header) " BB" [aref header (4)] 3 "\ Return lines in HEADER."])) (defalias 'nntp-set-header-lines '(macro . #[(header lines) " F" [aset header 4 lines] 4 "\ Set article lines of HEADER to LINES."])) (defalias 'nntp-header-date '(macro . #[(header) " BB" [aref header (5)] 3 "\ Return date in HEADER."])) (defalias 'nntp-set-header-date '(macro . #[(header date) " F" [aset header 5 date] 4 "\ Set article date of HEADER to DATE."])) (defalias 'nntp-header-id '(macro . #[(header) " BB" [aref header (6)] 3 "\ Return Id in HEADER."])) (defalias 'nntp-set-header-id '(macro . #[(header id) " F" [aset header 6 id] 4 "\ Set article Id of HEADER to ID."])) (defalias 'nntp-header-references '(macro . #[(header) " BB" [aref header (7)] 3 "\ Return references in HEADER."])) (defalias '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#MN#OP#QRSR!B#TU#VW#XY#Z[#\\]#^_#`aSa!B#bc#de#fg#hi#jk#lm#no#pq#rs#tu#" [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 "" "" [down] [up] " " 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 "\f" 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 [mouse-2] gnus-mouse-pick-group [menu-bar GNUS] "GNUS" make-sparse-keymap [menu-bar GNUS force-update] ("Force Update" . gnus-group-force-update) [menu-bar GNUS quit] ("Quit" . gnus-group-quit) [menu-bar GNUS exit] ("Exit" . gnus-group-exit) [menu-bar GNUS restart] ("Restart" . gnus-group-restart) [menu-bar GNUS suspend] ("Suspend" . gnus-group-suspend) [menu-bar GNUS get-new-news] ("Get New News" . gnus-group-get-new-news) [menu-bar groups] "Groups" [menu-bar groups catchup] ("Catchup" . gnus-group-catchup) [menu-bar groups edit-global-kill] ("Edit Kill File" . gnus-group-edit-global-kill) [menu-bar groups separator-2] ("--") [menu-bar groups yank-group] ("Yank Group" . gnus-group-yank-group) [menu-bar groups kill-group] ("Kill Group" . gnus-group-kill-group) [menu-bar groups separator-1] ("--") [menu-bar groups jump-to-group] ("Jump to Group..." . gnus-group-jump-to-group) [menu-bar groups list-all-groups] ("List All Groups" . gnus-group-list-all-groups) [menu-bar groups list-groups] ("List Groups" . gnus-group-list-groups) [menu-bar groups unsub-current-group] ("Unsubscribe Group" . gnus-group-unsubscribe-current-group)] 6) (defalias 'gnus-group-mode #[nil " !!!<!AB!\n\f!p!!" [kill-all-local-variables boundp mode-line-modified "--- " default-value mode-line-format "--- GNUS: List of Newsgroups %[(%m)%]----%3p-%-" gnus-group-mode major-mode "Newsgroup" mode-name "GNUS: List of Newsgroups" mode-line-buffer-identification nil mode-line-process use-local-map gnus-group-mode-map buffer-flush-undo t buffer-read-only run-hooks gnus-group-mode-hook] 3 "\ Major mode for reading network news. All normal editing commands are turned off. Instead, these commands are available: SPC Read articles in this newsgroup. = Select this newsgroup. j Move to the specified newsgroup. n Move to the next unread newsgroup. p Move to the previous unread newsgroup. C-n Move to the next newsgroup. C-p Move to the previous newsgroup. < Move point to the beginning of this buffer. > 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]) (defalias (quote gnus-mouse-pick-group) #[(e) " !!" [mouse-set-point e gnus-group-read-group nil] 2 nil "e"]) (defalias 'gnus #[(&optional confirm) " !! !)" [((byte-code " 1\f\" !)! - !Ƈ" [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)) switch-to-buffer get-buffer-create gnus-group-buffer gnus-group-mode gnus-start-news-server confirm] 3 "\ Read network news. If optional argument CONFIRM is non-nil, ask NNTP server." "P"]) (defalias '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."]) (defalias 'gnus-group-list-groups #[(show-all) " \" \" q\n! U-!jeb@!#b N !#b\f\\\f!#b#y#," [nil gnus-group-group-name gnus-group-search-forward t prev-group next-group last-group case-fold-search gnus-group-buffer gnus-group-prepare show-all buffer-size 0 message "No news is good news" re-search-forward gnus-group-make-regexp search-forward ":"] 6 "\ List newsgroups in the Newsgroup buffer. If argument SHOW-ALL is non-nil, unsubscribed groups are also listed." "P"]) (defalias 'gnus-group-prepare #[(&optional all) "  u@@\f\"JA@ =A@l Vl\fA@JςK Ve \"JAGZYe҂f %cA eb!." [nil gnus-newsrc-assoc 0 "%s%s%5d: %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-have-all-newsgroups run-hooks gnus-group-prepare-hook] 9 "\ Prepare list of newsgroups in current buffer. If optional argument ALL is non-nil, unsubscribed groups are also listed."]) (defalias 'gnus-group-prepare-line #[(info) "@ \"JA@ \"J8AA\"!\n\nA@.̂/VJ \"JAGZYJЂK %+" [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\n" cntl format " " "U" 0 gnus-marked-hashtb "*"] 8 "\ Return a string for the Newsgroup buffer from INFO. INFO is an element of gnus-newsrc-assoc or gnus-killed-assoc."]) (defalias 'gnus-group-update-group #[(group &optional visible-only) "\n!~y\f!6 ʥ`V+eb\f#6db\f#Ey`y`|Heb R?^\n\"J!cy-" [nil gnus-group-make-regexp group visible regexp case-fold-search buffer-read-only 0 looking-at buffer-size 2 re-search-forward t re-search-backward 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."]) (defalias 'gnus-group-group-name #[nil "y!ÔÕ{)" [0 looking-at "^.+:[ ]+\\([^ \n]+\\)\\([ ].*\\|$\\)" 1] 2 "\ Get newsgroup name around point."]) (defalias 'gnus-group-make-regexp #[(newsgroup) "\n!Q" ["^.+: " regexp-quote newsgroup "\\([ ].*\\|$\\)"] 3 "\ Return regexp that matches for a line of NEWSGROUP."]) (defalias 'gnus-group-search-forward #[(backward norest &optional heretoo) " ‚\nǂɂ # \f  ?9MyMJyM \f# 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."]) (defalias '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"]) (defalias '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"]) (defalias 'gnus-group-jump-to-group #[(group) "eb\f!#\f\"J\f!y#)" [nil case-fold-search re-search-forward gnus-group-make-regexp group t intern-soft gnus-newsrc-hashtb gnus-group-update-group 0 search-forward ":"] 4 "\ Jump to newsgroup GROUP." (list (completing-read "Newsgroup: " gnus-newsrc-assoc nil (quote require-match)))]) (defalias 'gnus-group-next-group #[(n) "V\"S\"!" [n 1 gnus-group-search-forward nil t message "No more newsgroups"] 4 "\ Go to next N'th newsgroup." "p"]) (defalias 'gnus-group-next-unread-group #[(n) "VÉ\"SÉ\"!" [n 1 gnus-group-search-forward nil message "No more unread newsgroups"] 4 "\ Go to next N'th unread newsgroup." "p"]) (defalias 'gnus-group-prev-group #[(n) "VÉ\"SÉ\"!" [n 1 gnus-group-search-forward t message "No more newsgroups"] 4 "\ Go to previous N'th newsgroup." "p"]) (defalias 'gnus-group-prev-unread-group #[(n) "V\"S\"!" [n 1 gnus-group-search-forward t nil message "No more unread newsgroups"] 4 "\ Go to previous N'th unread newsgroup." "p"]) (defalias 'gnus-group-catchup #[(all) " \n? \f\"JA 7&\n!Ȃ\"!7! # !!*" [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"]) (defalias '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]) (defalias 'gnus-group-unsubscribe-current-group #[nil "  !!!)" [gnus-group-group-name group gnus-group-unsubscribe-group gnus-group-next-group 1 message "No Newsgroup found to (un)subscribe"] 3 "\ Toggle subscribe from/to unsubscribe current group." nil]) (defalias 'gnus-group-unsubscribe-group #[(group) " \n\"J% A A@? ! !y#J ;F  \"JF ! !y#J \")" [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." (list (completing-read "Newsgroup: " gnus-active-hashtb nil (quote require-match)))]) (defalias 'gnus-group-list-all-groups #[nil "!!!" [message "Listing all groups..." gnus-group-list-groups t "Listing all groups...done"] 2 "\ List all of newsgroups in the Newsgroup buffer." nil]) (defalias '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]) (defalias 'gnus-group-restart #[nil " !\f!" [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]) (defalias 'gnus-group-check-bogus-groups #[nil "! !" [gnus-check-bogus-newsgroups t gnus-group-list-groups gnus-have-all-newsgroups] 2 "\ Check bogus newsgroups." nil]) (defalias '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"]) (defalias '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]) (defalias '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]) (defalias 'gnus-group-force-update #[nil " " [gnus-save-newsrc-file] 1 "\ Update `.newsrc' file." nil]) (defalias 'gnus-group-suspend #[nil "!\n\f!.@\f=%@!%@!A ! \"*" [run-hooks gnus-suspend-gnus-hook gnus-buffer-list get-buffer gnus-group-buffer group-buf buffers kill-buffer bury-buffer delete-windows-on t] 4 "\ 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]) (defalias 'gnus-group-exit #[nil " U \f!*!! " [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]) (defalias '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]) (defalias '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#hi#jk#lm#ng#oi#pk#qm#rs#tu#vw#xy#z{#|}#~#####################!B########!B#####!B##########!B#################!B##### #\n #\f ####" [gnus-summary-mode-map make-keymap suppress-keymap define-key "" gnus-uu-ctl-map "#" gnus-uu-mark-article " " 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 [down] [up] "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-rmail-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 [mouse-2] gnus-mouse-pick-article [menu-bar misc] "Misc" make-sparse-keymap "misc" [menu-bar misc caesar-message] ("Caesar Message" . gnus-summary-caesar-message) [menu-bar misc cancel-article] ("Cancel Article" . gnus-summary-cancel-article) [menu-bar misc edit-local-kill] ("Edit Kill File" . gnus-summary-edit-local-kill) [menu-bar misc mark-as-unread] ("Mark as Unread" . gnus-summary-mark-as-unread-forward) [menu-bar misc mark-as-read] ("Mark as Read" . gnus-summary-mark-as-read) [menu-bar misc quit] ("Quit Group" . gnus-summary-quit) [menu-bar misc exit] ("Exit Group" . gnus-summary-exit) [menu-bar sort] "Sort" "sort" [menu-bar sort sort-by-author] ("Sort by Author" . gnus-summary-sort-by-author) [menu-bar sort sort-by-date] ("Sort by Date" . gnus-summary-sort-by-date) [menu-bar sort sort-by-number] ("Sort by Number" . gnus-summary-sort-by-number) [menu-bar sort sort-by-subject] ("Sort by Subject" . gnus-summary-sort-by-subject) [menu-bar show/hide] "Show/Hide" "show/hide" [menu-bar show/hide hide-all-threads] ("Hide All Threads" . gnus-summary-hide-all-threads) [menu-bar show/hide hide-thread] ("Hide Thread" . gnus-summary-hide-thread) [menu-bar show/hide show-all-threads] ("Show All Threads" . gnus-summary-show-all-threads) [menu-bar show/hide show-all-headers] ("Show All Headers" . gnus-summary-show-all-headers) [menu-bar show/hide show-thread] ("Show Thread" . gnus-summary-show-thread) [menu-bar show/hide show-article] ("Show Article" . gnus-summary-show-article) [menu-bar show/hide toggle-truncation] ("Toggle Truncation" . gnus-summary-toggle-truncation) [menu-bar show/hide toggle-mime] ("Toggle Mime" . gnus-summary-toggle-mime) [menu-bar show/hide toggle-header] ("Toggle Header" . gnus-summary-toggle-header) [menu-bar action] "Action" "action" [menu-bar action kill-same-subject] ("Kill Same Subject" . gnus-summary-kill-same-subject) [menu-bar action kill-thread] ("Kill Thread" . gnus-summary-kill-thread) [menu-bar action delete-marked-with] ("Delete Marked With" . gnus-summary-delete-marked-with) [menu-bar action delete-marked-as-read] ("Delete Marked As Read" . gnus-summary-delete-marked-as-read) [menu-bar action catchup-and-exit] ("Catchup And Exit" . gnus-summary-catchup-and-exit) [menu-bar action catchup-to-here] ("Catchup to Here" . gnus-summary-catchup-to-here) [menu-bar action ignore] ("---") [menu-bar action save-in-file] ("Save in File" . gnus-summary-save-in-file) [menu-bar action save-article] ("Save Article" . gnus-summary-save-article) [menu-bar action lambda] ("---") [menu-bar action forward] ("Forward" . gnus-summary-mail-forward) [menu-bar action followup-with-original] ("Followup with Original" . gnus-summary-followup-with-original) [menu-bar action followup] ("Followup" . gnus-summary-followup) [menu-bar action reply-with-original] ("Reply with Original" . gnus-summary-reply-with-original) [menu-bar action reply] ("Reply" . gnus-summary-reply) [menu-bar action post] ("Post News" . gnus-summary-post-news) [menu-bar move] "Move" "move" [menu-bar move isearch-article] ("Search in Article" . gnus-summary-isearch-article) [menu-bar move search-through-articles] ("Search through Articles" . gnus-summary-search-article-forward) [menu-bar move down-thread] ("Down Thread" . gnus-summary-down-thread) [menu-bar move prev-same-subject] ("Prev Same Subject" . gnus-summary-prev-same-subject) [menu-bar move prev-group] ("Prev Group" . gnus-summary-prev-group) [menu-bar move next-unread-same-subject] ("Next Unread Same Subject" . gnus-summary-next-unread-same-subject) [menu-bar move next-unread-article] ("Next Unread Article" . gnus-summary-next-unread-article) [menu-bar move next-thread] ("Next Thread" . gnus-summary-next-thread) [menu-bar move next-group] ("Next Group" . gnus-summary-next-group) [menu-bar move first-unread-article] ("First Unread Article" . gnus-summary-first-unread-article)] 6) (defalias 'gnus-summary-mode #[nil " !!<!AB ! 5D B !p!!" [kill-all-local-variables boundp mode-line-modified "--- " default-value mode-line-format gnus-summary-mode major-mode "Summary" mode-name make-local-variable minor-mode-alist gnus-show-threads " Thread" gnus-summary-set-mode-line use-local-map gnus-summary-mode-map buffer-flush-undo t buffer-read-only truncate-lines selective-display selective-display-ellipses run-hooks gnus-summary-mode-hook] 3 "\ Major mode for reading articles in this newsgroup. All normal editing commands are turned off. Instead, these commands are available: SPC Scroll to the next page of the current article. The next unread article is selected automatically at the end of the message. DEL Scroll to the previous page of the current article. RET Scroll up (or down) one line the current article. n Move to the next unread article. p Move to the previous unread article. N Move to the next article. P Move to the previous article. ESC C-n Move to the next article which has the same subject as the current article. ESC C-p Move to the previous article which has the same subject as the current article. \\[gnus-summary-next-unread-same-subject] Move to the next unread article which has the same subject as the current article. \\[gnus-summary-prev-unread-same-subject] Move to the previous unread article which has the same subject as the current article. C-c C-n Scroll to the next digested message of the current article. C-c C-p Scroll to the previous digested message of the current article. C-n Move to the next subject. C-p Move to the previous subject. ESC n Move to the next unread subject. ESC p Move to the previous unread subject. \\[gnus-summary-next-group] Exit the current newsgroup and select the next unread newsgroup. \\[gnus-summary-prev-group] Exit the current newsgroup and select the previous unread newsgroup. . Jump to the first unread article in the current newsgroup. s Do an incremental search forward on the current article. ESC s Search for an article containing a regexp forward. ESC r Search for an article containing a regexp backward. < Move point to the beginning of the current article. > 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 Run RMAIL on the current digest article. 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-kill-files-directory Specifies a directory name to save KILL files to using the commands gnus-edit-global-kill, and gnus-edit-local-kill. 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]) (defalias (quote gnus-mouse-pick-article) #[(e) " !!" [mouse-set-point e gnus-summary-next-page nil] 2 nil "e"]) (defalias 'gnus-summary-setup-buffer #[nil " ! q !q " [get-buffer gnus-summary-buffer get-buffer-create gnus-summary-mode] 2 "\ Initialize Summary buffer."]) (defalias 'gnus-summary-read-group #[(group &optional show-all no-article) "\n\"\n\f\" ! ! U*\"!77 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 pop-to-buffer gnus-summary-set-mode-line gnus-article-buffer get-buffer-window buffer-read-only erase-buffer kill-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."]) (defalias 'gnus-summary-prepare #[nil " \f!\"!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."]) (defalias 'gnus-summary-prepare-threads #[(threads level &optional parent-subject) " \n!G\" \n \f  @\f A \f:<\f@ @\f  ! H\n H  \"\n>iԂv\n>uւv_\"\n !U? ?? \" P&c\f:\fA\fAT#." [nil parent-subject "" format "%%s %%s%%%dd: [%%s] %%s\n" prin1-to-string gnus-newsgroup-end cntl child-subject subject number header thread threads vectorp 0 1 gnus-simplify-subject re-only gnus-newsgroup-marked "-" gnus-newsgroup-unreads " " "D" make-string level gnus-thread-indent-level 32 gnus-optional-headers gnus-thread-hide-subject window-width gnus-summary-prepare-threads] 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."]) (defalias 'gnus-summary-set-mode-line #[nil "G\n\"GZ G \n\"GZ \n$\n\"% U5\fU5̂G\fUB \"G \f#$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."]) (defalias '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."]) (defalias 'gnus-summary-search-subject #[(backward unread subject) " =Ȃ! ɂ! 2 !!Q3#DyG#Z֔֕{!y#+" [backward re-search-backward re-search-forward nil format "^%s[ ]+\\([0-9]+\\):.\\[[^] \n]*\\][ ]+%s" unread t " " "[- ]" "." subject "\\([Rr][Ee]:[ ]+\\)*" regexp-quote gnus-simplify-subject "\\([ ]*([^ \n]*)\\)*[ ]*\\( \\|$\\)" "" regexp article func 0 string-to-int 1 search-forward ":"] 9 "\ 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."]) (defalias '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."]) (defalias '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."]) (defalias 'gnus-summary-article-number #[nil "y!Ĕĕ{! )" [0 looking-at ".[ ]+\\([0-9]+\\):" string-to-int 1 gnus-current-article] 3 "\ Article number around point. If nothing, return current number."]) (defalias 'gnus-summary-subject-string #[nil "y!ÔÕ{)" [0 looking-at ".[ ]+[0-9]+:.\\[[^] \n]*\\][ ]+\\([^ \n]*\\)[ \n]" 1] 2 "\ Return current subject string or nil if nothing."]) (defalias 'gnus-summary-goto-subject #[(article) "`eb  \"#b)" [current article re-search-forward format "^.[ ]+%d:" nil t] 4 "\ Move point to ARTICLE's subject." (list (string-to-int (completing-read "Article number: " (mapcar (function (lambda (headers) (list (int-to-string (nntp-header-number headers))))) gnus-newsgroup-headers) nil (quote require-match))))]) (defalias '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."]) (defalias 'gnus-summary-jump-to-group #[(newsgroup) "p != ‹ ! ! q!)" [get-buffer gnus-group-buffer ((byte-code " !\n !\f!" [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."]) (defalias 'gnus-summary-next-group #[(no-article) " !  \" !R \"! ! \f#p!=R=Rp!=R R \f#)" [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"]) (defalias 'gnus-summary-prev-group #[(no-article) " !! \" !U\f\"!\f!\f\f#p!=U=Up!=U!U!\f#)" [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"]) (defalias 'gnus-summary-next-subject #[(n &optional unread) "V !S ! $!!" [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"]) (defalias 'gnus-summary-next-unread-subject #[(n) " \"" [gnus-summary-next-subject n t] 3 "\ Go to next N'th unread summary line." "p"]) (defalias 'gnus-summary-prev-subject #[(n &optional unread) "V !S ! $!!" [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"]) (defalias 'gnus-summary-prev-unread-subject #[(n) " \"" [gnus-summary-prev-subject n t] 3 "\ Go to previous N'th unread summary line." "p"]) (defalias 'gnus-summary-expand-window #[nil "! !" [gnus-configure-windows summary pop-to-buffer gnus-summary-buffer] 2 "\ Expand Summary window to show headers full window." nil]) (defalias 'gnus-summary-display-article #[(article &optional all-header) "??! ! \" !ʇ" [article gnus-configure-windows pop-to-buffer gnus-summary-buffer 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."]) (defalias 'gnus-summary-select-article #[(&optional all-headers force) " ?? \n U\f\" =\"\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."]) (defalias 'gnus-summary-set-current-mark #[(&optional current-mark) "qeb#!ceb \"#2! 1c*" [gnus-summary-buffer nil buffer-read-only re-search-forward "^.[ ]+[0-9]+:[^ ]" t delete-char -1 " " format "^.[ ]+%d:" gnus-current-article 1 current-mark "+"] 4 "\ Put `+' at the current article. Optional argument specifies CURRENT-MARK instead of `+'."]) (defalias 'gnus-summary-next-article #[(unread &optional subject) "\f \"! BB \"B\n>Bp`\f  p=>`\fW>!*o\fo o o \"db C\")! H \n> ? < @ \f₟= !)\"JA@$ !+##=! .<.@././=. =!.C0*+)" [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 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 cmd "No more%s articles%s" " unread" "" quietly format " (Type %s for %s [%d])" single-key-description intern-soft gnus-unread-hashtb " (Type %s to exit %s)" gnus-newsgroup-name gnus-summary-next-group read-event event type unread-command-events] 11 "\ Select article after current one. If argument UNREAD is non-nil, only unread article is selected." "P"]) (defalias '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]) (defalias 'gnus-summary-prev-article #[(unread &optional subject) "\f \"!a ++ \"+\n>+\f\"a\f5!a^ ^ ^ \"eb C\")!a!)" [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"]) (defalias '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]) (defalias 'gnus-summary-next-page #[(lines) " \f \fU !J!! \nˎ\f!!*\n>>!J\nJ?J *" [gnus-summary-article-number nil endp article gnus-current-article gnus-summary-display-article gnus-configure-windows 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"]) (defalias 'gnus-summary-prev-page #[(lines) " \n \nU !,!! Ɏ\n!\f!*)" [gnus-summary-article-number article gnus-current-article gnus-summary-display-article gnus-configure-windows 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"]) (defalias 'gnus-summary-scroll-up #[(lines) " Î !V !,!,W,[!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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"]) (defalias '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]) (defalias '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]) (defalias '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]) (defalias '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]) (defalias 'gnus-summary-refer-parent-article #[(child) "\"\f!D Ȏ\n!! 5 \"5 ДЕO+ ;A !D!)" [gnus-summary-select-article t nil referenced-id child gnus-summary-refer-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-fetch-field "References" 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"]) (defalias 'gnus-summary-refer-article #[(message-id) "\"\n;P\nGVP Ǝ!\n\"&\nP\n\"1\nP!\nL@LB+Y@A\n;c\n\"!" [gnus-summary-select-article t message-id 0 selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer string-match "^<" "<" ">$" ">" gnus-fetch-field "Message-ID" current gnus-current-history gnus-article-prepare 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: "]) (defalias 'gnus-summary-next-digest #[(nth) " Î !!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-article-next-digest nth 1] 2 "\ Move to head of NTH next digested message." "p"]) (defalias 'gnus-summary-prev-digest #[(nth) " Î !!*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-article-prev-digest nth 1] 2 "\ Move to head of NTH previous digested message." "p"]) (defalias 'gnus-summary-first-unread-article #[nil "`eb# !b!)" [begin re-search-forward "^ [ ]+[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]) (defalias 'gnus-summary-isearch-article #[nil " Î ! *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer isearch-forward] 2 "\ Do incremental search forward on current article." nil]) (defalias 'gnus-summary-search-article-forward #[(regexp) "\n \"( ǎ !!*\"" [regexp "" gnus-last-search-regexp gnus-summary-search-article nil selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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." (list (read-string (concat "Search forward (regexp): " (if gnus-last-search-regexp (concat "(default " gnus-last-search-regexp ") ")))))]) (defalias 'gnus-summary-search-article-backward #[(regexp) "\n \"( ǎ !!*\"" [regexp "" gnus-last-search-regexp gnus-summary-search-article t selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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." (list (read-string (concat "Search backward (regexp): " (if gnus-last-search-regexp (concat "(default " gnus-last-search-regexp ") ")))))]) (defalias 'gnus-summary-search-article #[(regexp &optional backward) " \n‚   \"  Ў!~#+ t #!t \" ׎!~ edfeb#+;!\f =\f -" [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)) 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."]) (defalias 'gnus-summary-execute-command #[(field regexp command &optional backward) " )" [gnus-summary-show-all-threads ((byte-code " !\"  !DDE\f$ !\"" [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." (list (let ((completion-ignore-case t)) (completing-read "Field name: " (quote (("Number") ("Subject") ("From") ("Lines") ("Date") ("Id") ("Xref") ("References"))) nil (quote require-match))) (read-string "Regexp: ") (read-key-sequence "Command: ") current-prefix-arg)]) (defalias 'gnus-summary-beginning-of-article #[nil " Î !~  *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer beginning-of-buffer gnus-break-pages gnus-narrow-to-page] 2 "\ Go to beginning of article body" nil]) (defalias 'gnus-summary-end-of-article #[nil " Î !~  *" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer end-of-buffer gnus-break-pages gnus-narrow-to-page] 2 "\ Go to end of article body" nil]) (defalias 'gnus-summary-goto-article #[(article &optional all-headers) " !\n \"" [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." (list (string-to-int (completing-read "Article number: " (mapcar (function (lambda (headers) (list (int-to-string (nntp-header-number headers))))) gnus-newsgroup-headers) nil (quote require-match))))]) (defalias 'gnus-summary-goto-last-article #[nil "!" [gnus-last-article gnus-summary-goto-article] 2 "\ Go to last subject line." nil]) (defalias 'gnus-summary-show-article #[nil "??\"" [gnus-have-all-headers gnus-summary-select-article t] 3 "\ Force to show current article." nil]) (defalias 'gnus-summary-toggle-header #[(arg) " \n\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"]) (defalias 'gnus-summary-show-all-headers #[nil "\"" [gnus-summary-select-article t] 3 "\ Show original article header." nil]) (defalias 'gnus-summary-toggle-mime #[(arg) " ?!V\f?\f?\"" [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"]) (defalias 'gnus-summary-stop-page-breaking #[nil " Î !~*" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer] 2 "\ Stop page breaking by linefeed temporary (Widen article buffer)." nil]) (defalias 'gnus-summary-kill-same-subject-and-select #[(unmark) "! \" \"\f$ʂ%#)" [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"]) (defalias 'gnus-summary-kill-same-subject #[(unmark) "! \"\"\f\"ʂ##)" [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"]) (defalias 'gnus-summary-mark-same-subject #[(subject &optional unmark) "\n\" \nV\"  P \"P\n9\"J\nVG\"J T ) )" [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."]) (defalias 'gnus-summary-mark-as-unread-forward #[(count) "VÉ\"\"S" [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"]) (defalias 'gnus-summary-mark-as-unread-backward #[(count) "VÉ\"\"S" [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"]) (defalias 'gnus-summary-mark-as-unread #[(&optional article clear-mark) "q   \" =)!;y!9͂: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."]) (defalias 'gnus-summary-mark-as-read-forward #[(count) "V \"S" [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"]) (defalias 'gnus-summary-mark-as-read-backward #[(count) "V \"S" [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"]) (defalias 'gnus-summary-mark-as-read #[(&optional article mark) "q \f !=0!9y!\fc-" [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."]) (defalias 'gnus-summary-clear-mark-forward #[(count) "V\"\"S" [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"]) (defalias 'gnus-summary-clear-mark-backward #[(count) "V\"\"S" [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"]) (defalias 'gnus-summary-delete-marked-as-read #[nil "#eb!)m!!y#)!" [gnus-newsgroup-unreads nil buffer-read-only delete-non-matching-lines "^[- ]" gnus-summary-prev-subject 1 0 search-forward ":" t message "All articles are marked as read"] 4 "\ Delete lines which is marked as read." nil]) (defalias 'gnus-summary-delete-marked-with #[(marks) "eb\fQ!) U'm!'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: "]) (defalias 'gnus-summary-toggle-threads #[(arg) " \n\f ?\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"]) (defalias '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]) (defalias '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]) (defalias 'gnus-summary-hide-all-threads #[nil "%eb#i $ iY *" [gnus-show-threads search-forward ":" nil t level gnus-summary-hide-thread gnus-summary-search-forward] 4 "\ Hide all thread subtrees." nil]) (defalias 'gnus-summary-hide-thread #[nil "=y#``i 3iW3iW`%-" [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]) (defalias 'gnus-summary-next-thread #[(n) "y#``iV5 5 iX5 iU`SU?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"]) (defalias 'gnus-summary-prev-thread #[(n) "y#``iV5 5 iX5 iU`SU?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"]) (defalias 'gnus-summary-down-thread #[(d) "y#`iV4 4 iX4 iW`iSb*" [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"]) (defalias 'gnus-summary-up-thread #[(d) "y#`iV. . iV`iSb*" [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"]) (defalias 'gnus-summary-kill-thread #[(unmark) "!y#i!\"2V/\"2 ^iW^J\"2VX\"2 2*k\fk ?t\"" [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"]) (defalias '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"]) (defalias '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"]) (defalias '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"]) (defalias 'gnus-summary-sort-by-subject #[(reverse) " #" [gnus-summary-keysort-summary string-lessp #[(a) "\f\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"]) (defalias '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"]) (defalias 'gnus-summary-keysort-summary #[(predicate key &optional reverse) "  \f # !)" [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."]) (defalias 'gnus-summary-sort-summary #[(predicate &optional reverse) "  \f\" !)" [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."]) (defalias '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"]) (defalias 'gnus-summary-caesar-message #[(rotnum) " Ď!~!`  ! b!," [gnus-summary-select-article gnus-overload-functions selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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"]) (defalias 'gnus-summary-rmail-digest #[nil " ! ! qp!\f  !! eb ׏+" [gnus-summary-select-article require rmail gnus-article-buffer get-buffer-create gnus-digest-buffer "" mail-header-separator digbuf artbuf buffer-flush-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  \f  #\f #!!!!f!! !!!*z!!!!)!!!!" [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-default-rmail-file gnus-mail-save-name gnus-newsgroup-last-mail rmail-default-file get-buffer-create gnus-digest-summary-buffer rmail-summary-buffer run-hooks gnus-rmail-digest-hook gnus-configure-windows (1 0 0) 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]) (defalias '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]) (defalias 'gnus-summary-save-in-rmail #[(&optional filename) " \" Ď!~ \n# \f4 !Q ! #\f\f!!\f!\f\n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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]) (defalias 'gnus-summary-save-in-mail #[(&optional filename) " \" Ď!~ \n# \f4 !Q ! #\f\f @ !\"\f\f!!\f!`\f!`\f!h\fى$\f\n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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]) (defalias 'gnus-summary-save-in-file #[(&optional filename) " \" Ď!~ \n# \f4 !Q ! #\f\f!!\f!\f\n-" [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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]) (defalias 'gnus-summary-save-in-folder #[(&optional folder) " \" Ď!~ ' \f ##!ӎed\"&." [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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]) (defalias 'gnus-summary-pipe-output #[nil " \" Ď!~ \"\n˘# \ned\n$\n ," [gnus-summary-select-article gnus-save-all-headers selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) 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]) (defalias 'gnus-summary-catchup #[(all &optional quietly) "  Ă!A ? \" !  @ @\" A /)" [quietly gnus-interactive-catchup 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"]) (defalias 'gnus-summary-catchup-to-here #[nil "y  \nU? ! )" [0 gnus-summary-article-number current beginning-of-buffer gnus-summary-mark-as-read gnus-summary-next-subject 1] 2 "\ Mark all articles before the current one in this newsgroup as read." nil]) (defalias 'gnus-summary-catchup-all #[(&optional quietly) "\n\"" [gnus-summary-catchup t quietly] 3 "\ Mark all articles in this newsgroup as read." nil]) (defalias 'gnus-summary-catchup-and-exit #[(all &optional quietly) "  Ă!K ? \" ! ; @! A , =H!J )" [quietly gnus-interactive-catchup 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"]) (defalias '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]) (defalias '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]) (defalias '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]) (defalias 'gnus-summary-exit #[(&optional temporary) " \n \f! \n\"\f# ( \n =$q = @\" A0 !- !!?r!^!!j!!!" [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 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]) (defalias 'gnus-summary-quit #[nil "!1! ! !! !! ! !!" [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 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]) (defalias '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) (defalias 'gnus-article-mode #[nil " !!<!AB ! 5D B !!!p!!" [kill-all-local-variables boundp mode-line-modified "--- " default-value mode-line-format gnus-article-mode major-mode "Article" mode-name make-local-variable minor-mode-alist gnus-show-mime " MIME" gnus-article-set-mode-line use-local-map gnus-article-mode-map page-delimiter gnus-page-delimiter mail-header-separator "" buffer-flush-undo t buffer-read-only run-hooks gnus-article-mode-hook] 3 "\ Major mode for browsing through an article. All normal editing commands are turned off. Instead, these commands are available: \\{gnus-article-mode-map} Various hooks for customization: gnus-article-mode-hook Entry to this mode calls the value with no arguments, if that value is non-nil. gnus-article-prepare-hook Called with no arguments after an article is prepared for reading, if that value is non-nil." nil]) (defalias 'gnus-article-setup-buffer #[nil " ! !q )" [get-buffer gnus-article-buffer get-buffer-create gnus-article-mode] 2 "\ Initialize Article mode buffer."]) (defalias 'gnus-article-prepare #[(article &optional all-headers) " \f !\fq ; !\n-\nH/!*!E??i=i!!r!!  eb ! !*" [gnus-server-opened gnus-start-news-server gnus-request-group gnus-newsgroup-name gnus-article-buffer nil buffer-read-only erase-buffer article gnus-get-header-by-id header 0 gnus-request-article insert-buffer-substring nntp-server-buffer all-headers gnus-show-all-headers gnus-have-all-headers gnus-current-article gnus-last-article gnus-get-header-by-number gnus-current-headers run-hooks gnus-mark-article-hook gnus-current-history gnus-article-prepare-hook gnus-show-mime gnus-fetch-field "Mime-Version" gnus-show-mime-method gnus-article-delete-headers gnus-break-pages gnus-narrow-to-page gnus-article-set-mode-line gnus-summary-mark-as-read ding message "No such article (may be canceled)"] 3 "\ Prepare ARTICLE in Article mode buffer. ARTICLE can be either a article number or Message-ID. If optional argument ALL-HEADERS is non-nil, all headers are inserted."]) (defalias 'gnus-article-show-all-headers #[nil "\n\"" [gnus-have-all-headers gnus-article-prepare gnus-current-article t] 3 "\ Show all article headers in Article mode buffer."]) (defalias 'gnus-article-set-mode-line #[nil " H\f  \" \f\fG ^O\fG V2̂3\fGZ]\"&*!" [15 gnus-current-headers 1 "" subject maxlen format "GNUS: %s%s %s%s%s" gnus-newsgroup-name gnus-current-article "/%d" 0 "..." make-string 17 32 mode-line-buffer-identification set-buffer-modified-p t] 10 "\ Set Article mode line string. If you don't like it, define your own gnus-article-set-mode-line."]) (defalias 'gnus-article-delete-headers #[nil "ebe#`}eb\f;0\f#0y`!u`|*" [search-forward "\n\n" nil move gnus-ignored-headers re-search-forward t 0 "\n[^ ]" -1] 5 "\ Delete unnecessary headers."]) (defalias 'gnus-article-next-page #[(lines) "! m)*\f\"~ym*$Ƈ!‡ɏ‡" [move-to-window-line -1 nil pos-visible-in-window-p gnus-break-pages 1 t gnus-narrow-to-page (scroll-up lines) ((end-of-buffer (byte-code "db" [] 1)))] 3 "\ Show next page of current article. If end of article, return non-nil. Otherwise return nil. Argument LINES specifies lines to be scrolled up." "P"]) (defalias 'gnus-article-prev-page #[(lines) "!\no~o)!db!!" [move-to-window-line 0 gnus-break-pages gnus-narrow-to-page -1 recenter scroll-down lines] 2 "\ Show previous page of current article. Argument LINES specifies lines to be scrolled down." "P"]) (defalias 'gnus-article-next-digest #[(nth) "~ V\f# S\f#L`\f#:!y=db by!)!" [nil nth 1 re-search-forward gnus-digest-separator move t begin search-backward "\n\n" push-mark 0 recenter message "End of message"] 5 "\ Move to head of NTH next digested message. Set mark at end of digested message."]) (defalias 'gnus-article-prev-digest #[(nth) "~y V\f# S\f#I`\f#:!y=db b!)eb!" [0 nth 1 re-search-backward gnus-digest-separator nil move t begin re-search-forward search-backward "\n\n" push-mark recenter message "Top of message"] 5 "\ Move to head of NTH previous digested message."]) (defalias 'gnus-article-refer-article #[nil "" [((byte-code "##\"Ɣƕ{q!)%!)" [re-search-forward ">" 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]) (defalias 'gnus-article-pop-article #[nil "" [((byte-code "q!" [gnus-summary-buffer gnus-summary-refer-article nil] 2))] 1 "\ Pop up article history." nil]) (defalias 'gnus-article-show-summary #[nil "! ! !" [gnus-configure-windows article pop-to-buffer gnus-summary-buffer gnus-summary-goto-subject gnus-current-article] 2 "\ Reconfigure windows to show Summary buffer." nil]) (defalias '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) (defalias 'gnus-kill-file-mode #[nil " \n!\f!!\"" [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 defaults 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]) (defalias 'gnus-kill-file-edit-file #[(newsgroup) " !\n!!\n!\n!! \n!\n\n!0\n!r\f=Q!!\n!\n!)r\f=n!!!\n!r\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 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: "]) (defalias '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]) (defalias '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]) (defalias '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 " !\f!@!" [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]) (defalias 'gnus-kill-file-apply-last-sexp #[nil "\n!!`)`{Ƌ* !" [gnus-current-kill-article get-buffer gnus-summary-buffer forward-sexp -1 string ((byte-code " !\f!@!" [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]) (defalias '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]) (defalias 'gnus-batch-kill #[nil "!\f\"\"! @ A\f !@@@A@A 9\f\"JA@U9l\f\"mڃ9}\f\"9\f#p!=9!9q . " [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 ..."]) (defalias 'gnus-Numeric-save-name #[(newsgroup headers &optional last-file) " ! !H!Q \" \f? !\f!?\f!\"? F\fF )" [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."]) (defalias 'gnus-numeric-save-name #[(newsgroup headers &optional last-file) " \n\f\n!H!Q\"\n =\n! != !\"=\nD D\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."]) (defalias 'gnus-Plain-save-name #[(newsgroup headers &optional last-file) "\n\f!\f!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."]) (defalias '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."]) (defalias 'gnus-Folder-save-name #[(newsgroup headers &optional last-folder) "\n\f!\f!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."]) (defalias '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."]) (defalias 'gnus-apply-kill-file #[nil "!$\f!$" [load gnus-newsgroup-kill-file nil t gnus-newsgroup-name] 5 "\ Apply KILL file to the current newsgroup."]) (defalias 'gnus-Newsgroup-kill-file #[(newsgroup) "\n \f\"&! Q\f$\"! Q\f2\"" [newsgroup "" expand-file-name gnus-kill-file-name gnus-kill-files-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."]) (defalias 'gnus-newsgroup-kill-file #[(newsgroup) "\n \f\"$ Q\f\"\"! Q\f0\"" [newsgroup "" expand-file-name gnus-kill-file-name gnus-kill-files-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."]) (defalias 'gnus-subscribe-randomly #[(newsgroup) " \n@@\"" [gnus-subscribe-newsgroup newsgroup gnus-newsrc-assoc] 3 "\ Subscribe new NEWSGROUP and insert it at the beginning of newsgroups."]) (defalias 'gnus-subscribe-alphabetically #[(newgroup) "\n\" \"\f @@ @@ A\f\n\"*" [gnus-newsrc-assoc nil before groups newgroup gnus-subscribe-newsgroup] 4 "\ Subscribe new NEWSGROUP and insert it in strict alphabetic order."]) (defalias 'gnus-subscribe-hierarchically #[(newgroup) " !q\n\fD Deb !Q  #2̔̕{\n) \"@ ̔̕O\n\n\f\"+" [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."]) (defalias '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."]) (defalias '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."]) (defalias 'gnus-newsgroup-directory-form #[(newsgroup) "OG \fW$ HU I T +" [newsgroup 0 nil idx len 46 47] 4 "\ Make hierarchical directory name from NEWSGROUP name."]) (defalias 'gnus-make-directory #[(directory) " \n\" ! \")" [expand-file-name directory default-directory file-exists-p gnus-make-directory-1 ""] 3 "\ Make DIRECTORY recursively."]) (defalias (quote gnus-make-directory-1) #[(head tail) "\n\"2ÔÕ!\n \fOP!(ˉ%\n\fO\"*\n͘9·" [string-match "^/\\([^/]+\\)" tail 1 end beg file-name-as-directory head file-exists-p call-process "mkdir" nil gnus-make-directory-1 "" t] 6]) (defalias 'gnus-capitalize-newsgroup #[(newsgroup) " Ž !!\"\"\n!*" [syntax-table current-syntax-table ((set-syntax-table current-syntax-table)) set-syntax-table copy-syntax-table modify-syntax-entry 45 "w" 46 capitalize newsgroup] 3 "\ Capitalize NEWSGROUP name with treating '.' and '-' as part of words."]) (defalias 'gnus-simplify-subject #[(subject &optional re-only) "\f\"\fŕO$\f\"$\fʼnO\f)" [t case-fold-search string-match "\\`\\(re\\(\\^[0-9]+\\)?:[ ]+\\)+" subject 0 nil re-only "[ \n]*([^()]*)[ \n]*\\'"] 3 "\ Remove `Re:' and words in parentheses. If optional argument RE-ONLY is non-nil, strip `Re:' only."]) (defalias 'gnus-optional-lines-and-from #[(header) "G\fH\fH! \"P# \\O)" ["umerin@photon" name-length format "%3d:%s" header 4 mail-strip-quoted-names 2 make-string 32 0] 7 "\ Return a string like `NNN:AUTHOR' from HEADER."]) (defalias 'gnus-optional-lines #[(header) "\nH\"" [format "%4d" header 4] 4 "\ Return a string like `NNN' from HEADER."]) (defalias 'gnus-keysort-headers #[(predicate key &optional reverse) "\n\f #\f #)" [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."]) (defalias 'gnus-keysort #[(list predicate key) "\f\"\"\"" [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."]) (defalias 'gnus-sort-headers #[(predicate &optional reverse) "\n\f \"\f \")" [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."]) (defalias 'gnus-string-lessp #[(a b) "\n \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."]) (defalias 'gnus-date-lessp #[(date1 date2) " !\n!" [gnus-sortable-date date1 date2] 3 "\ Return T if DATE1 is earlyer than DATE2."]) (defalias 'gnus-sortable-date #[(date) " ‰#H H H\f H H H#$," [timezone-fix-time date nil 0 year 1 month 2 day timezone-make-sortable-date timezone-make-time-string 3 4 5] 10 "\ Make sortable string by string-lessp from DATE. Timezone package is used."]) (defalias '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 (quote gnus-expunge) (quote gnus-summary-delete-marked-with)) (defalias 'gnus-kill #[(field regexp &optional command all) ")" [((byte-code " \"eb   ?%" [switch-to-buffer gnus-summary-buffer norecord command (gnus-summary-mark-as-read nil "X") 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."]) (defalias 'gnus-execute #[(field regexp form &optional backward ignore-marked) "\fŘ\f7\f;\f!\fP!2 !2 K7\f\"\fn >n \f## \f#n+" [nil article header 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."]) (defalias (quote gnus-execute-1) #[(function regexp form) " ??\nC !?\n!;' ! \"?\n;<\n!?\n *ĉ\f  \" \"qeb #)~\n;{\n!~\n ,*" [gnus-summary-article-number article function gnus-get-header-by-number nil value header prin1-to-string string-match regexp 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-article-prepare t gnus-article-buffer re-search-forward] 5]) (defalias 'gnus-caesar-region #[(&optional n) "\n\"U?/!'H\\U\n \f!\"\fWQ\fI\fT\f< P \n\fW\f\\ \f\\HI\f\\\n\f\\HI\fT\f_\f\fW\f\fHXW\\XZ)I\fT\f+!+ ɉ\f {G\fW!\f\fHHI\fT\f 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)]) (defalias 'gnus-header-number #[(header) "H" [header 0] 2 "\ Return article number in HEADER."]) (defalias 'gnus-header-subject #[(header) "H" [header 1] 2 "\ Return subject string in HEADER."]) (defalias 'gnus-header-from #[(header) "H" [header 2] 2 "\ Return author string in HEADER."]) (defalias 'gnus-header-xref #[(header) "H" [header 3] 2 "\ Return xref string in HEADER."]) (defalias 'gnus-header-lines #[(header) "H" [header 4] 2 "\ Return lines in HEADER."]) (defalias 'gnus-header-date #[(header) "H" [header 5] 2 "\ Return date in HEADER."]) (defalias 'gnus-header-id #[(header) "H" [header 6] 2 "\ Return Id in HEADER."]) (defalias 'gnus-header-references #[(header) "H" [header 7] 2 "\ Return references in HEADER."]) (defalias 'gnus-output-to-rmail #[(file-name) "! !p! !N !N Q!J !q ed %*!)N!qp! ! !sed #q! !\"!~dd}!!eb~!`d}eTb!!!**!*" [require rmail expand-file-name file-name rmail-default-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-flush-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."]) (defalias 'gnus-output-to-file #[(file-name) " !p!\fqp! !dbced #)\f!*" [expand-file-name file-name get-buffer-create " *GNUS-output*" tmpbuf artbuf buffer-flush-undo erase-buffer insert-buffer-substring "\n" append-to-file kill-buffer] 4 "\ Append the current article to a file named FILE-NAME."]) (defalias 'gnus-convert-article-to-rmail #[nil "ebc#!dbc)" [nil buffer-read-only "\f\n0, unseen,,\n*** EOOH ***\n" search-forward "\n" t replace-match "\n^_" ""] 4 "\ Convert article in current buffer to Rmail message format."]) (defalias 'gnus-start-news-server #[(&optional confirm) " ? \n4 2!* *\nC Bȉ\n%4\n\"4\nʘ@\n˘C  ]\n ]!!!|\n\"s!!!|!\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 "%s" 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 "\"\"" [defalias gnus-server-opened (lambda nil) gnus-close-server (lambda nil)] 3) (defalias '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."]) (defalias 'gnus-define-access-method #[(method &optional access-methods) " \n \"A \"*\f*\f@@\f@A@M\fA)" [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."]) (defalias 'gnus-select-newsgroup #[(group &optional show-all) " \n!\n\n\"JAA! \n,\n \"JAA!/ \f \fG VяVfWfZ\fW[W[\f!S\fáU \f\"\f*\f! \"\" \f \"\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 " \f#!Ƙ\f !)" [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."]) (defalias 'gnus-get-header-by-number #[(number) " \f!\"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."]) (defalias '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."]) (defalias 'gnus-make-headers-hashtable-by-number #[nil " \nG]\"\n(\n@ H!\" L\nA*" [nil gnus-newsgroup-headers headers header make-vector 200 0 gnus-newsgroup-headers-hashtb-by-number intern int-to-string] 5 "\ Make hashtable for the variable gnus-newsgroup-headers by number."]) (defalias 'gnus-make-headers-hashtable-by-id #[nil " \nG]\"\n&\n@ H\" L\nA*" [nil gnus-newsgroup-headers headers header make-vector 200 0 gnus-newsgroup-headers-hashtb-by-id intern 6] 4 "\ Make hashtable for the variable gnus-newsgroup-headers by id."]) (defalias '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."]) (defalias 'gnus-more-header-backward #[nil "\n \"J8@\f.V.SC!@+" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-begin nil header artnum first gnus-retrieve-headers] 5 "\ Find new header backward."]) (defalias 'gnus-more-header-forward #[nil "\n \"J8A\f.W.TC!@+" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-end nil header artnum last gnus-retrieve-headers] 5 "\ Find new header forward."]) (defalias 'gnus-extend-newsgroup #[(header &optional backward) "=H \fB\fC\" \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."]) (defalias 'gnus-mark-article-as-read #[(article) " \n\" \"" [delq article gnus-newsgroup-unreads gnus-newsgroup-marked] 3 "\ Remember that ARTICLE is marked as read."]) (defalias 'gnus-mark-article-as-unread #[(article &optional clear-mark) " >\n B\n\f\"\f> \fB" [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."]) (defalias 'gnus-clear-system #[nil " @L A) \n \f>\f!>\f!!\fa@!W@!AI)" [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."]) (defalias 'gnus-configure-windows #[(action) "<  A@\f!!!  \f\n?R ?\n@U=R?\nA@U=R ?\n8U=?} gg g !z !\f !!  !\\\\\f\f\"!!!!\n\" \n@U\f\n@_ ]\nA@U\f\nA@_ ]\n8U\f\n8_ ]\\\\\f\f !Z]!!9!1!9\\!!L!L!!\\\f\"!!m\"!U?} \". " [action gnus-window-configuration windows get-buffer-window gnus-group-buffer grpwin gnus-summary-buffer subwin gnus-article-buffer artwin nil winsum height 0 grpheight subheight artheight 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 enlarge-window zerop split-window-vertically other-window 1 gnus-article-setup-buffer] 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."]) (defalias 'gnus-find-header-by-number #[(headers number) "\n  \n@H=\n@\nA )" [nil found headers number 0] 4 "\ Return a header which is a element of HEADERS and has NUMBER."]) (defalias 'gnus-find-header-by-id #[(headers id) "\n  \n@H\n@\nA )" [nil found headers id 6] 4 "\ Return a header which is a element of HEADERS and has Message-ID."]) (defalias 'gnus-version #[nil "!! \n %!#  $!1 \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]) (defalias 'gnus-info-find-node #[nil "!\n=!!%\n=%!\n!\n\fA@!" [require info major-mode gnus-group-mode gnus-configure-windows (1 0 0) 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]) (defalias 'gnus-overload-functions #[(&optional overloads) " \n 3 @ A @!) AA@) AA@# @ A@M*" [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."]) (defalias 'gnus-make-threads #[(newsgroup-headers) "i@A ! H<\"<͔͕O!X\fX H\"\fH\"X \fB\nB\f B \"." [newsgroup-headers nil dependencies roots d h refer headers vectorp 7 string-match "\\(<[^<>]+>\\)[^>]*$" gnus-get-header-by-id 1 gnus-thread-ignore-subject gnus-simplify-subject re mapcar #[(root) " \n\"" [gnus-make-threads-1 root dependencies] 3]] 7 "\ Make conversation threads tree from NEWSGROUP-HEADERS."]) (defalias (quote gnus-make-threads-1) #[(parent dependencies) " \n(\n@\nA A H AH= @\fB \f\"+B" [nil dependencies depends d children parent 6 mapcar #[(child) " \n\"" [gnus-make-threads-1 child dependencies] 3]] 4]) (defalias 'gnus-narrow-to-page #[(&optional arg) "\n! !~V !+W+S! `!l>o>y`})" [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"]) (defalias 'gnus-make-hashtable-from-alist #[(alist &optional hashsize) " \nG]\"\n!\n@@ \"\n@L\nA )" [make-vector hashsize alist 200 0 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."]) (defalias 'gnus-last-element #[(list) "\n\nA\n@\nA )" [nil last list] 2 "\ Return last element of LIST."]) (defalias 'gnus-set-difference #[(list1 list2) " !\n\n@ \"\nA )" [copy-sequence list1 list2 delq] 4 "\ Return a list of elements of LIST1 that do not appear in LIST2."]) (defalias 'gnus-intersection #[(list1 list2) "\n\n@ >\n@ B\nA )" [nil result list2 list1] 3 "\ Return a list of elements that appear in both LIST1 and LIST2."]) (defalias 'gnus-setup-news #[(&optional rawfile) " \n ?? \f( ! \fL \fK \f@!\fA\f:))" [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 gnus-subscribe-newsgroup-method] 3 "\ Setup news information. If optional argument RAWFILE is non-nil, force to read raw startup file."]) (defalias '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."]) (defalias 'gnus-find-new-newsgroups #[nil " \" *" [nil new-newsgroups group mapatoms #[(sym) " !  \n\" 5 \n\"5\n\"J?5\n\"J?5\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."]) (defalias '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."]) (defalias 'gnus-insert-newsgroup #[(info &optional next) " \"@ \"J8AA\"  \"J) \" \f@@<\fB\f\fA\fpp @@cщJAAH:B\fB\"\f+  \"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."]) (defalias 'gnus-check-killed-newsgroups #[nil " \n;\n@@ & \f\"&4\f\"4\f \"J4\n@ B\nA\n  ! +" [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."]) (defalias 'gnus-check-bogus-newsgroups #[(&optional confirm) " \n  \n !\nY\n@@  \"J>I \"!I\n@ B P B\nA\n  !@@  \"J \"J@BAg\n!@\"A @@ @A \"J @\fB A\f !!." [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."]) (defalias 'gnus-get-unread-articles #[nil "!  G]\" l@@\f \"J8N \f\"J8N\f \"Jc AA\"\f \"\f\n!\nBBLA#!-" [gnus-newsrc-assoc nil range active group-name group-info read message "Checking new news..." gnus-unread-hashtb make-vector gnus-active-hashtb 200 0 2 intern-soft gnus-octive-hashtb gnus-difference-of-range intern gnus-number-of-articles "Checking new news... done"] 6 "\ Compute diffs between active and read articles."]) (defalias 'gnus-expire-marked-articles #[nil "V@A @\n\"J8@\n@\f@\f@\nY:\f@ B\fA& M @ BBA!\f." [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."]) (defalias 'gnus-mark-as-read-by-xref #[(group headers unreads &optional subscribed-only) "@H > H!\f@@ A\f\n} I\n\"JA@} \n\"JA>}\n\"t A>| AB|\n DB)\fA)A!\"." [nil article gname xref xrefs header xref-list headers 0 unreads gnus-parse-xref-field 3 group subscribed-only intern-soft gnus-newsrc-hashtb gnus-marked-hashtb assoc group-xref gnus-mark-xrefed-as-read mapcar car] 7 "\ Mark articles as read using cross references and return updated newsgroups. Arguments are GROUP, HEADERS, UNREADS, and optional SUBSCRIBED-ONLY."]) (defalias 'gnus-parse-xref-field #[(xref-value) "  \" ƔO G \"A ƔƕO ɔɕO!B B ɕO *" [nil xref-value "" xref-list string-match "^[ ]*[^ ,]+[ ,]+\\(.*\\)$" 1 "^[ ,]*\\([^ ,]+\\):\\([0-9]+\\)[^0-9]*" string-to-int 2] 6 "\ Parse Xref: field value, and return list of `(group . article-id)'."]) (defalias 'gnus-mark-xrefed-as-read #[(xrefs) "\f<\f@@\f@A \"JAA!\n.\n@ \"\nA! #\fA\n+" [nil unread idlist group xrefs gnus-uncompress-sequence intern-soft gnus-unread-hashtb delq gnus-update-unread-articles ignore] 5 "\ Update unread article information using XREFS alist."]) (defalias 'gnus-update-unread-articles #[(group unread-list marked-list) "\n \"J8\n\f\"J? ??* A!/ Aɡ A AA!@VGAB\n \"JA AA\"\n!<\n\"Ju\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."]) (defalias 'gnus-read-active-file #[nil " ! \fq !)!" [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."]) (defalias 'gnus-active-to-gnus-format #[nil "eb !\ned\"]\"eb#G͔͕{\n\"͔͕{ΔΕ{Ϙєѕ{!Ҕҕ{!BEL" [delete-matching-lines gnus-ignored-newsgroups gnus-active-hashtb gnus-octive-hashtb make-vector count-lines 200 0 re-search-forward "^\\([^ ]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]+\\([ymn]\\).*$" nil t intern 1 4 "y" string-to-int 3 2] 7 "\ Convert active file format to internal format. Lines matching gnus-ignored-newsgroups are ignored."]) (defalias 'gnus-read-newsrc-file #[(&optional rawfile) " ! \f@L\fA\n)\nP !q̏ P\"P PP!a\" \"," [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."]) (defalias 'gnus-make-newsrc-file #[(file) " \"\fQ !  *" [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."]) (defalias 'gnus-newsrc-to-gnus-format #[nil "  Ged\"]]\"eb#SӔӕ{\"SΕO!@A)eb#Ӕӕ{ \"Ju \"Vܔܕ{ݘw``){ \" ӔӕO ӕO\n\"\nӔӕO!\nܔܕO!B B\n\"\n!\n!B B \"! \f BB B \" @LV  -" [nil read-list subrange ranges subscribe newsgroup gnus-newsrc-options gnus-newsrc-options-n-yes gnus-newsrc-options-n-no gnus-newsrc-assoc make-vector gnus-active-hashtb count-lines 200 0 gnus-newsrc-hashtb re-search-forward "^[ ]*options[ ]*\\(.*\\(\n[ ]+.*\\)*\\)[ ]*$" t 1 string-match "\\(^\\|[ \n]\\)-n" gnus-parse-n-options yes-and-no "^\\([^:! \n]+\\)\\([:!]\\)" intern-soft message "Ignore duplicated newsgroup: %s" 2 ":" " " "^[, ]*\\([0-9-]+\\)" "^\\([0-9]+\\)-\\([0-9]+\\)$" string-to-int "^[0-9]+$" ding "Ignoring bogus lines of %s" sit-for intern] 6 "\ Parse current buffer as .newsrc file."]) (defalias 'gnus-parse-n-options #[(options) "\"[ȔȕOʔʕO!ʕO \"A ȕO ʔOQ*\nΘN B ͘ \fB\fl\fA\"\"\f@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."]) (defalias 'gnus-save-newsrc-file #[nil " [\n[\n!q !Z\n\"\n \f! +!qp! ɉ\n \f\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-flush-undo erase-buffer gnus-gnus-to-quick-newsrc-format write-file ".el" kill-buffer "Saving %s... Done"] 3 "\ Save to .newsrc FILE."]) (defalias 'gnus-update-newsrc-buffer #[(group &optional delete next) " !\n !qÉeb\n!Q#4y`y`|?\n\"J??u;keb!Q#kyudbnuc!ym!y~\nA@؂ٱAA!c)," [get-file-buffer gnus-current-startup-file find-file-noselect nil buffer-read-only case-fold-search deleted re-search-forward "^" regexp-quote group "[:!]" t 0 1 delete intern-soft gnus-newsrc-hashtb newsrc next "\n" looking-at "^[ ]*options\\([ ]\\|$\\)" "^[ ]+" ": " "! " gnus-ranges-to-newsrc-format] 5 "\ 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."]) (defalias 'gnus-gnus-to-quick-newsrc-format #[nil "cc \f  C@!9J9!J!αA," [";; 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."]) (defalias 'gnus-ranges-to-newsrc-format #[(ranges) "\nG\n@\nA @ AU1 @U! @!c\nc @! A!\nc)" [nil range ranges 0 int-to-string "," "-"] 5 "\ Insert ranges of read articles."]) (defalias 'gnus-compress-sequence #[(numbers) "\n!\"@\n@\n> \n@U7 T\n@U)\n@7\f BB\n@\n@\nA\f BB," [sort copy-sequence numbers < first last nil result] 4 "\ Convert list of sorted numbers to ranges."]) (defalias 'gnus-uncompress-sequence #[(ranges) "\f.\f@@\f@A \nW# B T B\fA\n +" [nil result last first ranges] 4 "\ Expand compressed format of sequence."]) (defalias 'gnus-number-of-articles #[(range) "\n!\n@AU \n@A\n@@Z\\\\\nA )" [0 count range 1] 4 "\ Compute number of articles from RANGE `((beg1 . end1) (beg2 . end2) ...)'."]) (defalias 'gnus-difference-of-range #[(src obj) "@AQ Q @@ @A\f V%J\fW=\fS ^B\nBTJ\fYJ\fT] A*a\f Xa\f B\nB\nj\nnȉ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) ...)."]) (defalias 'gnus-read-distributions-file #[nil " ! q !)\n! \fK\f@\f\" : \f\"\f@C\fB\fA\f(*" [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)."]) (defalias 'gnus-distributions-to-gnus-format #[nil "eb#Ŕŕ{C B " [nil gnus-distribution-list re-search-forward "^\\([^ \n]+\\).*$" t 1] 4 "\ Convert distributions file format to internal format."]) (byte-code "!\nM!" [fboundp file-newer-than-file-p #[(file1 file2) "\n!8 !8\n!ǂ? ! Ȃ?\f? ?\f@ @W?\f@ @U?\fA@ 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."] provide gnus] 2)