;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon May 29 16:48:30 1995
;;; from file /gd/gnu/emacs/19.0/lisp/gnus.el
;;; emacs version 19.28.92.2.
;;; 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)
#@82 *Specify default NNTP server.
This variable should be defined in `site-init.el'.
(defvar gnus-default-nntp-server nil (#$ . -546))
#@272 *The name of the host running NNTP server.
If it is a string starting with a colon, as in as `:DIRECTORY', then the
directory ~/DIRECTORY is used as the news spool.
This variable is initialized from the NNTPSERVER environment variable
or from `gnus-default-nntp-server'.
(defvar gnus-nntp-server (byte-code "ÀÁ!† \n‡" [getenv "NNTPSERVER" gnus-default-nntp-server] 2) (#$ . -684))
#@83 *NNTP service name ("nntp" or 119).
Go to a local news spool if its value is nil.
(defvar gnus-nntp-service "nntp" (#$ . -1072))
#@64 *Your `.newsrc' file.  Use `.newsrc-SERVER' instead if exists.
(defvar gnus-startup-file "~/.newsrc" (#$ . -1207))
#@76 *Your `.signature' file.  Use `.signature-DISTRIBUTION' instead if exists.
(defvar gnus-signature-file "~/.signature" (#$ . -1328))
#@219 *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-cross-reference t (#$ . -1467))
#@179 *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-use-followup-to t (#$ . -1741))
#@182 *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-large-newsgroup 50 (#$ . -1971))
#@507 *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 (getenv "AUTHORCOPY") (#$ . -2205))
#@133 *A function called with a file name to save an author copy to.
The default function is `rmail-output' which saves in  inbox format.
(defvar gnus-author-copy-saver (quote rmail-output) (#$ . -2779))
#@155 *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-use-long-file-name (byte-code "Á>?‡" [system-type (usg-unix-v xenix)] 2) (#$ . -2984))
#@113 *A directory name to save articles to (default is `~/News').
Initialized from the SAVEDIR environment variable.
(defvar gnus-article-save-directory (getenv "SAVEDIR") (#$ . -3246))
#@113 *A directory name to save kill files to (default to ~/News).
Initialized from the SAVEDIR environment variable.
(defvar gnus-kill-files-directory (getenv "SAVEDIR") (#$ . -3434))
#@376 *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-default-article-saver (quote gnus-summary-save-in-rmail) (#$ . -3620))
#@142 *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-rmail-save-name (quote gnus-plain-save-name) (#$ . -4086))
#@146 *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-mail-save-name (quote gnus-plain-save-name) (#$ . -4306))
#@141 *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-folder-save-name (quote gnus-folder-save-name) (#$ . -4529))
#@144 *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-file-save-name (quote gnus-numeric-save-name) (#$ . -4750))
#@28 *File name of a KILL file.
(defvar gnus-kill-file-name "KILL" (#$ . -4972))
#@134 *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-novice-user t (#$ . -5055))
#@69 *Require your confirmation when catching up a newsgroup if non-nil.
(defvar gnus-interactive-catchup t (#$ . -5235))
#@69 *Newsgroup, subject, and distribution will be asked for if non-nil.
(defvar gnus-interactive-post t (#$ . -5358))
#@58 *Require your confirmation when exiting GNUS if non-nil.
(defvar gnus-interactive-exit t (#$ . -5478))
#@84 *The login name of the user.
Got from the function `user-login-name' if undefined.
(defvar gnus-user-login-name nil (#$ . -5587))
#@82 *The full name of the user.
Got from the NAME environment variable if undefined.
(defvar gnus-user-full-name nil (#$ . -5723))
#@32 *Show MIME message if non-nil.
(defvar gnus-show-mime nil (#$ . -5856))
#@56 *Show conversation threads in Summary Mode if non-nil.
(defvar gnus-show-threads t (#$ . -5934))
#@51 *Non-nil means hide subjects for thread subtrees.
(defvar gnus-thread-hide-subject t (#$ . -6037))
#@186 *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-subtree nil (#$ . -6143))
#@59 *Non-nil means hide killed thread subtrees automatically.
(defvar gnus-thread-hide-killed t (#$ . -6385))
#@147 *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-ignore-subject nil (#$ . -6498))
#@34 *Indentation of thread subtrees.
(defvar gnus-thread-indent-level 4 (#$ . -6703))
#@239 *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-newsgroups "^to\\..*$" (#$ . -6792))
#@207 *Header fields not worth displaying.
Ordinarily GNUS excludes these when displaying an article.
If you want to see them, ask to see the message with "the full header"
(also known as "the original header").
(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:" (#$ . -7095))
#@254 *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 this list.
(defvar gnus-required-headers (quote (From Date Newsgroups Subject Message-ID Path Organization Distribution)) (#$ . -7563))
#@45 *Show all headers of an article if non-nil.
(defvar gnus-show-all-headers nil (#$ . -7947))
#@45 *Save all headers of an article if non-nil.
(defvar gnus-save-all-headers t (#$ . -8045))
#@181 *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-optional-headers (quote gnus-optional-lines-and-from) (#$ . -8142))
#@62 *Extend visible articles to forward and backward if non-nil.
(defvar gnus-auto-extend-newsgroup t (#$ . -8409))
#@230 *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-first t (#$ . -8528))
#@366 *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-next t (#$ . -8811))
#@74 *Select the next article with the same subject automagically if non-nil.
(defvar gnus-auto-select-same nil (#$ . -9228))
#@71 *Always center the current summary in GNUS Summary window if non-nil.
(defvar gnus-auto-center-summary t (#$ . -9355))
#@150 *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-auto-mail-to-author nil (#$ . -9481))
#@109 *Break an article into pages if non-nil.
Page delimiter is specified by the variable `gnus-page-delimiter'.
(defvar gnus-break-pages t (#$ . -9688))
#@73 *Regexp describing line-beginnings that separate pages of news article.
(defvar gnus-page-delimiter "^\f" (#$ . -9843))
#@55 *Show a summary of undigestified messages if non-nil.
(defvar gnus-digest-show-summary t (#$ . -9969))
#@54 *Regexp that separates messages in a digest article.
(defvar gnus-digest-separator "^Subject:[ 	]" (#$ . -10078))
#@55 *Non-nil means to take up the entire screen of Emacs.
(defvar gnus-use-full-window t (#$ . -10198))
#@253 *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-window-configuration (quote ((summary (0 1 0)) (newsgroups (1 0 0)) (article (0 3 10)))) (#$ . -10305))
#@108 *Function to process a MIME message.
The function is expected to process current buffer as a MIME message.
(defvar gnus-show-mime-method (quote metamail-buffer) (#$ . -10681))
#@243 *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-reply-method (quote gnus-mail-reply-using-mail) (#$ . -10864))
#@194 *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-forward-method (quote gnus-mail-forward-using-mail) (#$ . -11194))
#@271 *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-other-window-method (quote gnus-mail-other-window-using-mail) (#$ . -11479))
#@173 *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-mail-send-method send-mail-function (#$ . -11851))
#@407 *Function called with a newsgroup name when new newsgroup is found.
The function `gnus-subscribe-randomly' inserts a new newsgroup a the
beginning of newsgroups.  The function `gnus-subscribe-alphabetically'
inserts it in strict alphabetic order.  The function
`gnus-subscribe-hierarchically' inserts it in hierarchical newsgroup
order.  The function `gnus-subscribe-interactively' asks for your decision.
(defvar gnus-subscribe-newsgroup-method (quote gnus-subscribe-alphabetically) (#$ . -12094))
#@30 *A hook for GNUS Group Mode.
(defvar gnus-group-mode-hook nil (#$ . -12599))
#@32 *A hook for GNUS Summary Mode.
(defvar gnus-summary-mode-hook nil (#$ . -12682))
#@32 *A hook for GNUS Article Mode.
(defvar gnus-article-mode-hook nil (#$ . -12769))
#@34 *A hook for GNUS KILL File Mode.
(defvar gnus-kill-file-mode-hook nil (#$ . -12856))
#@63 *A hook called just before opening connection to news server.
(defvar gnus-open-server-hook nil (#$ . -12947))
#@188 *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-startup-hook nil (#$ . -13065))
#@140 *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-group-prepare-hook nil (#$ . -13304))
#@134 *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-summary-prepare-hook nil (#$ . -13501))
#@139 *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-article-prepare-hook nil (#$ . -13694))
#@1547 *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:

(add-hook 'gnus-select-group-hook
       (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:

(add-hook 'gnus-select-group-hook
       (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:

(add-hook 'gnus-select-group-hook
       (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-group-hook nil (#$ . -13893))
#@618 *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:

(add-hook 'gnus-select-article-hook
       (function
	(lambda ()
	  (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)
		 ))))
       t)
(defvar gnus-select-article-hook (quote (gnus-summary-show-thread)) (#$ . -15496))
#@415 *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):

(add-hook 'gnus-select-digest-hook
       (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-select-digest-hook (list #[nil "ÀÁÂ\"† ÀÁ!ˆÃÄ!c‡" [mail-position-on-field "Reply-to" t gnus-fetch-field "From"] 3]) (#$ . -16203))
#@133 *A hook called when reading digest messages using Rmail.
This hook is intended to customize Rmail mode for reading digest articles.
(defvar gnus-rmail-digest-hook nil (#$ . -16769))
#@674 *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-apply-kill-hook (quote (gnus-apply-kill-file)) (#$ . -16958))
#@403 *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-mark-article-hook (list #[nil "	>„\n Â!ˆÃÄ!‡" [gnus-current-article gnus-newsgroup-marked gnus-summary-mark-as-read gnus-summary-set-current-mark "+"] 2]) (#$ . -17713))
#@197 *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-prepare-article-hook (list (quote gnus-inews-insert-signature)) (#$ . -18307))
#@136 *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-inews-article-hook (list (quote gnus-inews-do-fcc)) (#$ . -18602))
#@265 *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-exit-group-hook nil (#$ . -18824))
#@52 *A hook called when suspending (not exiting) GNUS.
(defvar gnus-suspend-gnus-hook nil (#$ . -19142))
#@52 *A hook called when exiting (not suspending) GNUS.
(defvar gnus-exit-gnus-hook nil (#$ . -19249))
#@99 *A hook called when saving the newsrc file.
This hook is called before saving the `.newsrc' file.
(defvar gnus-save-newsrc-hook nil (#$ . -19353))
#@437 *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-timezone nil (#$ . -19507))
#@239 *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-domain nil (#$ . -19997))
#@141 *Local organization like: "Fujitsu Laboratories Ltd., Kawasaki, Japan."
The `ORGANIZATION' environment variable is used instead if defined.
(defvar gnus-local-organization nil (#$ . -20287))
#@138 *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-local-distributions (quote ("local" "world")) (#$ . -20485))
#@142 *If nil, prepend local host name to the defined domain in the From:
field; if a string, use this; if non-nil, strip off the local host name.
(defvar gnus-use-generic-from nil (#$ . -20703))
#@123 *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)
(defvar gnus-use-generic-path nil (#$ . -20900))
#@177 Regex to retrieve the group name and the group description from
the output of the newsgroups listing.

If you have ^M at the end of lines try "^\([^ 	
]+\)[ 	]+\([^]+\)[]*$"
(defvar gnus-newsgroups-regex "^\\([^ 	\n]+\\)[ 	]+\\(.*\\)$" (#$ . 21078))
#@69 *display the newsgroup description in *Newsgroup* buffer if not nil
(defvar gnus-newsgroups-display t (#$ . -21336))
#@33 alist (groupname . description)
(defvar gnus-newsgroups-alist nil (#$ . 21459))
#@36 hashtable of gnus-newsgroups-alist
(defvar gnus-newsgroups-hashtb nil (#$ . 21545))
#@38 non nil if we display all the groups
(defvar gnus-newsgroups-showall nil (#$ . 21635))
#@42 Version numbers of this version of GNUS.
(defconst gnus-version "GNUS 4.1" (#$ . 21728))
#@37 Major version number of this emacs.
(defconst gnus-emacs-version (byte-code "ÀÁ\n\"ˆÃ\nÄ”Ä•O!‡" [string-match "[0-9]*" emacs-version string-to-int 0] 4) (#$ . 21823))
#@51 Assoc list of major modes and related Info nodes.
(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"))) (#$ . 21996))
#@47 Access method for NNTP, nnspool, and mhspool.
(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)))) (#$ . 22335))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÅÄBÀÆ!„! ÇÆBÀÈ!„. ÉÈBÀÊ!„; Ë\nÊBÀ‡" [boundp gnus-group-buffer "*Newsgroup*" current-load-list gnus-summary-buffer "*Summary*" gnus-article-buffer "*Article*" gnus-digest-buffer "GNUS Digest" gnus-digest-summary-buffer "GNUS Digest-summary"] 2)
#@56 GNUS buffer names which should be killed when exiting.
(defvar gnus-buffer-list (list gnus-group-buffer gnus-summary-buffer gnus-article-buffer gnus-digest-buffer gnus-digest-summary-buffer) (#$ . 24284))
#@49 GNUS variables saved in the quick startup file.
(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)) (#$ . 24495))
#@85 Functions overloaded by gnus.
It is a list of `(original overload &optional file)'.
(defvar gnus-overload-functions (quote ((news-inews gnus-inews-news "rnewspost") (caesar-region gnus-caesar-region "rnews"))) (#$ . 24725))
(byte-code "ÀÁ!„ ÂÁBÂ‡" [boundp gnus-distribution-list nil current-load-list] 2)
#@37 Options line in the `.newsrc' file.
(defvar gnus-newsrc-options nil (#$ . 25040))
#@44 Regexp representing subscribed newsgroups.
(defvar gnus-newsrc-options-n-yes nil (#$ . 25128))
#@46 Regexp representing unsubscribed newsgroups.
(defvar gnus-newsrc-options-n-no nil (#$ . 25229))
#@106 Assoc list of read articles.
`gnus-newsrc-hashtb' should be kept so that both hold the same information.
(defvar gnus-newsrc-assoc nil (#$ . 25332))
#@35 Hashtable of `gnus-newsrc-assoc'.
(defvar gnus-newsrc-hashtb nil (#$ . 25487))
#@136 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-assoc nil (#$ . 25573))
#@35 Hashtable of `gnus-killed-assoc'.
(defvar gnus-killed-hashtb nil (#$ . 25758))
#@118 Assoc list of articles marked as unread.
`gnus-marked-hashtb' should be kept so that both hold the same information.
(defvar gnus-marked-assoc nil (#$ . 25844))
#@35 Hashtable of `gnus-marked-assoc'.
(defvar gnus-marked-hashtb nil (#$ . 26011))
#@31 Hashtable of unread articles.
(defvar gnus-unread-hashtb nil (#$ . 26096))
#@31 Hashtable of active articles.
(defvar gnus-active-hashtb nil (#$ . 26177))
#@35 Hashtable of OLD active articles.
(defvar gnus-octive-hashtb nil (#$ . 26258))
#@36 Startup file for the current host.
(defvar gnus-current-startup-file nil (#$ . 26343))
#@44 Default regexp for article search command.
(defvar gnus-last-search-regexp nil (#$ . 26436))
#@35 Default shell command on article.
(defvar gnus-last-shell-command nil (#$ . 26535))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄBÀÅ!„  ÂÅBÀÆ!„- ÂÆBÀÇ!„: ÂÇBÀÈ!„G ÂÈBÀÉ!„T Â	ÉBÀÊ!„a Â\nÊBÂ‡" [boundp gnus-have-all-newsgroups nil current-load-list 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)
#@51 List of unread articles in the current newsgroup.
(defvar gnus-newsgroup-unreads nil (#$ . 26965))
#@62 List of unselected unread articles in the current newsgroup.
(defvar gnus-newsgroup-unselected nil (#$ . 27070))
#@76 List of marked articles in the current newsgroup (a subset of unread art).
(defvar gnus-newsgroup-marked nil (#$ . 27189))
#@178 List of article headers in the current newsgroup.
If you modify the variable, you must call the function
`gnus-clear-hashtables-for-newsgroup-headers' to clear the hash tables.
(defvar gnus-newsgroup-headers nil (#$ . 27319))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄBÀÅ!„  ÂÅBÀÆ!„- ÂÆBÀÇ!„: ÂÇBÂ‡" [boundp gnus-newsgroup-headers-hashtb-by-id nil current-load-list gnus-newsgroup-headers-hashtb-by-number gnus-current-article gnus-current-headers gnus-current-history] 2)
#@26 Must be either T or NIL.
(defvar gnus-have-all-headers nil (#$ . 27802))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄBÀÅ!„  ÂÅBÀÆ!„- ÂÆBÀÇ!„: ÂÇBÀÈ!„G ÂÈBÀÉ!„T Â	ÉBÀÊ!„c ËÌ!\nÊBÀÍ!„r ËÎ!ÍBÂ‡" [boundp gnus-last-article nil current-load-list 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)
#@18 Post an article.
(autoload (quote gnus-group-post-news) "gnuspost" '(#$ . 28286) t)
#@18 Post an article.
(autoload (quote gnus-summary-post-news) "gnuspost" '(#$ . 28376) t)
#@23 Post a reply article.
(autoload (quote gnus-summary-followup) "gnuspost" '(#$ . 28468) t)
#@45 Post a reply article with original article.
(autoload (quote gnus-summary-followup-with-original) "gnuspost" '(#$ . 28564) t)
#@31 Cancel an article you posted.
(autoload (quote gnus-summary-cancel-article) "gnuspost" '(#$ . 28696) t)
#@28 Reply mail to news author.
(autoload (quote gnus-summary-reply) "gnusmail" '(#$ . 28806) t)
#@50 Reply mail to news author with original article.
(autoload (quote gnus-summary-reply-with-original) "gnusmail" '(#$ . 28904) t)
#@46 Forward the current message to another user.
(autoload (quote gnus-summary-mail-forward) "gnusmail" '(#$ . 29038) t)
#@31 Compose mail in other window.
(autoload (quote gnus-summary-mail-other-window) "gnusmail" '(#$ . 29161) t)
#@33 Kill newsgroup on current line.
(autoload (quote gnus-group-kill-group) "gnusmisc" '(#$ . 29274) t)
#@49 Yank the last killed newsgroup on current line.
(autoload (quote gnus-group-yank-group) "gnusmisc" '(#$ . 29380) t)
#@36 Kill newsgroups in current region.
(autoload (quote gnus-group-kill-region) "gnusmisc" '(#$ . 29502) t)
#@52 Exchange current newsgroup and previous newsgroup.
(autoload (quote gnus-group-transpose-groups) "gnusmisc" '(#$ . 29612) t)
#@29 List the killed newsgroups.
(autoload (quote gnus-list-killed-groups) "gnusmisc" '(#$ . 29743) t)
#@55 Rewrite Date field in GMT to local in current buffer.
(autoload (quote gnus-gmt-to-local) "gnusmisc" '(#$ . 29847))
#@44 Process current buffer through `metamail'.
(autoload (quote metamail-buffer) "metamail" '(#$ . 29969) t)
#@56 Append this message to Unix mail file named FILE-NAME.
(autoload (quote rmail-output) "rmailout" '(#$ . 30080) 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)
#@69 Pop to BUFFER, evaluate FORMS, and then returns to original window.
(defalias 'gnus-eval-in-buffer-window '(macro . #[(buffer &rest forms) "ÀÁÂÃÄDBBÇBBE‡" [let ((GNUSStartBufferWindow (selected-window))) unwind-protect progn pop-to-buffer buffer forms ((select-window GNUSStartBufferWindow))] 6 (#$ . 30489)]))
#@107 Make a hash table (default and minimum size is 200).
Optional argument HASHSIZE specifies the table size.
(defalias 'gnus-make-hashtable '(macro . #[(&optional hashsize) "À	ƒ Â	ÃBB‚ ÄÅBB‡" [make-vector hashsize max (200) 200 (0)] 4 (#$ . 30810)]))
#@40 Get hash value of STRING in HASHTABLE.
(defalias 'gnus-gethash '(macro . #[(string hashtable) "ÀÁ\nED‡" [symbol-value intern-soft string hashtable] 4 (#$ . 31066)]))
#@62 Set hash value.  Arguments are STRING, VALUE, and HASHTABLE.
(defalias 'gnus-sethash '(macro . #[(string value hashtable) "ÀÁ\nE\fE‡" [set intern string hashtable value] 4 (#$ . 31239)]))
#@34 Return article number in HEADER.
(defalias 'nntp-header-number '(macro . #[(header) "À	ÂBB‡" [aref header (0)] 3 (#$ . 31434)]))
#@41 Set article number of HEADER to NUMBER.
(defalias 'nntp-set-header-number '(macro . #[(header number) "À	ÂF‡" [aset header 0 number] 4 (#$ . 31569)]))
#@34 Return subject string in HEADER.
(defalias 'nntp-header-subject '(macro . #[(header) "À	ÂBB‡" [aref header (1)] 3 (#$ . 31727)]))
#@43 Set article subject of HEADER to SUBJECT.
(defalias 'nntp-set-header-subject '(macro . #[(header subject) "À	ÂF‡" [aset header 1 subject] 4 (#$ . 31863)]))
#@33 Return author string in HEADER.
(defalias 'nntp-header-from '(macro . #[(header) "À	ÂBB‡" [aref header (2)] 3 (#$ . 32026)]))
#@39 Set article author of HEADER to FROM.
(defalias 'nntp-set-header-from '(macro . #[(header from) "À	ÂF‡" [aset header 2 from] 4 (#$ . 32158)]))
#@31 Return xref string in HEADER.
(defalias 'nntp-header-xref '(macro . #[(header) "À	ÂBB‡" [aref header (3)] 3 (#$ . 32308)]))
#@37 Set article xref of HEADER to xref.
(defalias 'nntp-set-header-xref '(macro . #[(header xref) "À	ÂF‡" [aset header 3 xref] 4 (#$ . 32438)]))
#@25 Return lines in HEADER.
(defalias 'nntp-header-lines '(macro . #[(header) "À	ÂBB‡" [aref header (4)] 3 (#$ . 32586)]))
#@39 Set article lines of HEADER to LINES.
(defalias 'nntp-set-header-lines '(macro . #[(header lines) "À	ÂF‡" [aset header 4 lines] 4 (#$ . 32711)]))
#@24 Return date in HEADER.
(defalias 'nntp-header-date '(macro . #[(header) "À	ÂBB‡" [aref header (5)] 3 (#$ . 32864)]))
#@37 Set article date of HEADER to DATE.
(defalias 'nntp-set-header-date '(macro . #[(header date) "À	ÂF‡" [aset header 5 date] 4 (#$ . 32987)]))
#@22 Return Id in HEADER.
(defalias 'nntp-header-id '(macro . #[(header) "À	ÂBB‡" [aref header (6)] 3 (#$ . 33135)]))
#@33 Set article Id of HEADER to ID.
(defalias 'nntp-set-header-id '(macro . #[(header id) "À	ÂF‡" [aset header 6 id] 4 (#$ . 33254)]))
#@30 Return references in HEADER.
(defalias 'nntp-header-references '(macro . #[(header) "À	ÂBB‡" [aref header (7)] 3 (#$ . 33392)]))
#@42 Set article references of HEADER to REF.
(defalias 'nntp-set-header-references '(macro . #[(header ref) "À	ÂF‡" [aset header 7 ref] 4 (#$ . 33527)]))
(byte-code "„Á Â!ˆÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#ˆÃÌÍ#ˆÃÎÍ#ˆÃÏÐ#ˆÃÑÒ#ˆÃÓÐ#ˆÃÔÒ#ˆÃÕÐ#ˆÃÖÒ#ˆÃ×Ø#ˆÃÙÚ#ˆÃÛÜ#ˆÃÝÞ#ˆÃßà#ˆÃáâ#ˆÃãä#ˆÃåæ#ˆÃçè#ˆÃéê#ˆÃëì#ˆÃíî#ˆÃïð#ˆÃñò#ˆÃóô#ˆÃõö#ˆÃ÷ø#ˆÃùú#ˆÃûü#ˆÃýþ#ˆÃÿ@ #ˆÃA B #ˆÃC D #ˆÃE F #ˆÃG H #ˆÃI J #ˆÃK L #ˆÃM N #ˆÃO P #ˆÃQ R #ˆÃS T U T !B#ˆÃV W #ˆÃX Y #ˆÃZ [ #ˆÃ\\ ] #ˆÃ^ _ #ˆÃ` a #ˆÃb c U c !B#ˆÃd e #ˆÃf g #ˆÃh i #ˆÃj k #ˆÃl m #ˆÃn o #ˆÃp q #ˆÃr s #ˆÃt u #ˆÃv w #ˆÃx y #ˆÃz { #ˆÁ‡" [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 "t" gnus-newsgroups-display-toggle [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 newsgroups-update-description] ("Update descriptions" . gnus-newsgroups-update-description) [menu-bar groups newsgroups-display-toggle] ("Toggle descriptions" . gnus-newsgroups-display-toggle) [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)
#@7889 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.
t       Toggle displaying newsgroup descriptions.

  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 the NNTP server name starts with a colon, as in `:Mail', the user's
own 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.
(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 truncate-lines run-hooks gnus-group-mode-hook] 3 (#$ . 36646) nil])
(defalias 'gnus-mouse-pick-group #[(e) "À	!ˆÂÃ!‡" [mouse-set-point e gnus-group-read-group nil] 2 nil "e"])
#@78 Read network news.
If optional argument CONFIRM is non-nil, ask NNTP server.
(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 (#$ . 45160) "P"])
#@43 Insert startup message in current buffer.
(defalias 'gnus-group-startup-message #[nil "ÀÁ\n\"cˆÃedÄ Å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 (#$ . 45766)])
#@112 List newsgroups in the Newsgroup buffer.
If argument SHOW-ALL is non-nil, unsubscribed groups are also listed.
(defalias 'gnus-group-list-groups #[(show-all) "ÂÃ ÄÂ‰\"ˆÃ ÄÅÂ\"ˆÃ 	\nqˆË!ˆÌ ÍUƒ0 ÎÏ!‚q ebˆƒC ÐÑ!ÂÅ#„i ƒS ÐÑ!ÂÅ#„i ƒc ÐÑ!ÂÅ#„i ÄÂ‰Å#ˆÍyˆÒÓÂÅ#,‡" [show-all gnus-newsgroups-showall 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 buffer-size 0 message "No news is good news" re-search-forward gnus-group-make-regexp search-forward ":"] 6 (#$ . 46294) "P"])
#@121 Prepare list of newsgroups in current buffer.
If optional argument ALL is non-nil, unsubscribed groups are also listed.
(defalias 'gnus-group-prepare #[(&optional all) "À	À‰‰Â‰Ã	\nÌ ˆ\nƒ´ \n@‰	@ƒ> Î\"JÐGZ¥Î\"JA@„\\ 	A@ƒ« ÂVƒ« Ô\fÕÂVƒi ‚j Ö×\"ØQ	A@ƒy Ù‚z ÚÂVƒ– ÂÎ\"JAGZYƒ– Ü‚— Ùƒ¦ A‚§ Ý&cˆ\nA‰\n„ ebˆßà!.‡" [nil gnus-newsrc-assoc 0 "%s%s%5d: %s" cntl nb-tab unread-count group-description group-name group-info newsrc buffer-read-only erase-buffer gnus-newsgroups-display intern-soft gnus-newsgroups-hashtb 38 tab-width gnus-unread-hashtb all format make-string 1 9 "%s\n" " " "U" gnus-marked-hashtb "*" "" gnus-have-all-newsgroups run-hooks gnus-group-prepare-hook] 9 (#$ . 46882)])
#@119 Return a string for the Newsgroup buffer from INFO.
INFO is an element of `gnus-newsrc-assoc' or `gnus-killed-assoc'.
(defalias 'gnus-group-prepare-line #[(info) "@ÂÄÆ	\"JA@†! ÈÉÊÆ	\"J8AA\"!\fÍƒ: Æ	\"JÑ	GZ¥ÓÔÄVƒH ‚I ÕÖ\"×QA@ƒW Ø‚X Ù\fÄVƒs Ä\fÆ	\"JAGZYƒs Û‚t Ø\f	ƒ€ A‚ Ü&-‡" [info group-name nil group-description 0 nb-tab intern-soft gnus-unread-hashtb gnus-number-of-articles gnus-difference-of-range 2 gnus-active-hashtb unread-count "%s%s%5d: %s" cntl gnus-newsgroups-display gnus-newsgroups-hashtb 38 tab-width format make-string 1 9 "%s\n" " " "U" gnus-marked-hashtb "*" ""] 8 (#$ . 47641)])
#@111 Update newsgroup info of GROUP.
If optional argument VISIBLE-ONLY is non-nil, non displayed group is ignored.
(defalias 'gnus-group-update-group #[(group &optional visible-only) "À‰Á\n!ÀŒ~ˆÇyˆÈ\f!„6 É Ê¥`Vƒ+ ebˆË\fÀÌ#„6 dbˆÍ\fÀÌ#ƒE ÌÇyˆ`Îyˆ`|ˆ‚H ebˆ„R ?…^ ÐÑ\n\"J!cˆÓy-‡" [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 (#$ . 48279)])
#@34 Get newsgroup name around point.
(defalias 'gnus-group-group-name #[nil "ŠÀyˆÁÂ!… Ã”Ã•{ÅÀ\fGÆ\f$ˆ\f))‡" [0 looking-at "^..[0-9 	]+:[ 	]+\\([^ 	\n]+\\)\\([ 	].*\\|$\\)" 1 group-name set-text-properties nil] 5 (#$ . 48808)])
#@53 Return regexp that matches for a line of NEWSGROUP.
(defalias 'gnus-group-make-regexp #[(newsgroup) "ÀÁ\n!ÃQ‡" ["^.+: " regexp-quote newsgroup "\\([ 	].*\\|$\\)"] 3 (#$ . 49039)])
#@256 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-search-forward #[(backward norest &optional heretoo) "À	ƒ	 Â‚\n ÃÄÅƒ Ç‚ Èƒ É‚  Ê#À\f	ƒ? ƒ9 Àˆ‚M Ðyˆ‚M ƒJ Ðyˆ‚M Àˆ\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 (#$ . 49226)])
#@171 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.
(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 (#$ . 49873) "P"])
#@129 Select this newsgroup.
No article is selected automatically.
If argument ALL is non-nil, already read articles become readable.
(defalias 'gnus-group-select-group #[(all) "À	Â\"‡" [gnus-group-read-group all t] 3 (#$ . 50266) "P"])
#@26 Jump to newsgroup GROUP.
(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 (#$ . 50503) (list (completing-read "Newsgroup: " gnus-newsrc-assoc nil (quote require-match)))])
#@32 Go to Nth following newsgroup.
(defalias 'gnus-group-next-group #[(n) "ÁVƒ ÂÃÄ\"ƒ S‰‚ ÂÃÄ\"† ÅÆ!‡" [n 1 gnus-group-search-forward nil t message "No more newsgroups"] 4 (#$ . 50873) "p"])
#@39 Go to Nth following unread newsgroup.
(defalias 'gnus-group-next-unread-group #[(n) "ÁVƒ ÂÃ‰\"ƒ S‰‚ ÂÃ‰\"† ÄÅ!‡" [n 1 gnus-group-search-forward nil message "No more unread newsgroups"] 4 (#$ . 51073) "p"])
#@31 Go to Nth previous newsgroup.
(defalias 'gnus-group-prev-group #[(n) "ÁVƒ ÂÃ‰\"ƒ S‰‚ ÂÃ‰\"† ÄÅ!‡" [n 1 gnus-group-search-forward t message "No more newsgroups"] 4 (#$ . 51292) "p"])
#@38 Go to Nth previous unread newsgroup.
(defalias 'gnus-group-prev-unread-group #[(n) "ÁVƒ ÂÃÄ\"ƒ S‰‚ ÂÃÄ\"† ÅÆ!‡" [n 1 gnus-group-search-forward t nil message "No more unread newsgroups"] 4 (#$ . 51487) "p"])
#@194 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.
(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 (#$ . 51708) "P"])
#@105 Mark all articles in current newsgroup as read.
Cross references (Xref: field) of articles are ignored.
(defalias 'gnus-group-catchup-all #[nil "ÀÁ!‡" [gnus-group-catchup t] 2 (#$ . 52318) nil])
#@53 Toggle subscribe from/to unsubscribe current group.
(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 (#$ . 52519) nil])
#@104 Toggle subscribe from/to unsubscribe GROUP.
(If GROUP is new, it is added to `.newsrc' automatically.)
(defalias 'gnus-group-unsubscribe-group #[(group) "À	\n\"J‰ƒ% AA@? ˆÄ	!ˆÅ	!ˆÆyˆÇÈÉÊ#‚J 	;ƒF À	\"JƒF Ì	!ˆÅ	!ˆÆ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 (#$ . 52807) (list (completing-read "Newsgroup: " gnus-active-hashtb nil (quote require-match)))])
#@49 List all of newsgroups in the Newsgroup buffer.
(defalias 'gnus-group-list-all-groups #[nil "ÀÁ!ˆÂÃ!ˆÀÄ!‡" [message "Listing all groups..." gnus-group-list-groups t "Listing all groups...done"] 2 (#$ . 53341) nil])
#@67 Get newly arrived articles.  In fact, read the active file again.
(defalias 'gnus-group-get-new-news #[nil "À ˆÁ\n!‡" [gnus-setup-news gnus-group-list-groups gnus-have-all-newsgroups] 2 (#$ . 53562) nil])
#@42 Force GNUS to read the raw startup file.
(defalias 'gnus-group-restart #[nil "À ˆÁÂ!ˆÃ\f!‡" [gnus-save-newsrc-file gnus-setup-news t gnus-group-list-groups gnus-have-all-newsgroups] 2 (#$ . 53773) nil])
#@25 Check bogus newsgroups.
(defalias 'gnus-group-check-bogus-groups #[nil "ÀÁ!ˆÂ!‡" [gnus-check-bogus-newsgroups t gnus-group-list-groups gnus-have-all-newsgroups] 2 (#$ . 53982) nil])
#@105 Restrict visible newsgroups to the current region (START and END).
Type \[widen] to remove restriction.
(defalias 'gnus-group-restrict-groups #[(start end) "ŠbˆÁyˆ`\nbˆÃyˆ`}ˆ)ÄÅÆ!!‡" [start 0 end 1 message substitute-command-keys "Type \\[widen] to remove restriction"] 3 (#$ . 54172) "r"])
#@26 Edit a global KILL file.
(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 (#$ . 54470) nil])
#@25 Edit a local KILL file.
(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 (#$ . 54739) nil])
#@24 Update `.newsrc' file.
(defalias 'gnus-group-force-update #[nil "À ‡" [gnus-save-newsrc-file] 1 (#$ . 55028) nil])
#@162 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.
(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 (#$ . 55150) nil])
#@112 Quit reading news after updating `.newsrc'.
The hook `gnus-exit-gnus-hook' is called before actually quitting.
(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 (#$ . 55581) nil])
#@114 Quit reading news without updating `.newsrc'.
The hook `gnus-exit-gnus-hook' is called before actually quitting.
(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 (#$ . 56027) nil])
#@39 Describe Group mode commands briefly.
(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 (#$ . 56481) nil])
(byte-code "„Á Â!ˆÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#ˆÃÌÍ#ˆÃÎÏ#ˆÃÐÑ#ˆÃÒÓ#ˆÃÔÕ#ˆÃÖ×#ˆÃØÙ#ˆÃÚÛ#ˆÃÜÝ#ˆÃÞß#ˆÃàá#ˆÃâß#ˆÃãá#ˆÃäå#ˆÃæç#ˆÃèé#ˆÃêë#ˆÃìí#ˆÃîï#ˆÃðñ#ˆÃòó#ˆÃôõ#ˆÃö÷#ˆÃøù#ˆÃúû#ˆÃüý#ˆÃþÿ#ˆÃ@ A #ˆÃB C #ˆÃD E #ˆÃF G #ˆÃH I #ˆÃJ K #ˆÃL M #ˆÃN O #ˆÃP Q #ˆÃR S #ˆÃT U #ˆÃV W #ˆÃX Y #ˆÃZ [ #ˆÃ\\ ] #ˆÃ^ _ #ˆÃ` a #ˆÃb c #ˆÃd e #ˆÃf g #ˆÃh i #ˆÃj k #ˆÃl m #ˆÃn g #ˆÃo i #ˆÃp k #ˆÃq m #ˆÃr s #ˆÃt u #ˆÃv w #ˆÃx y #ˆÃ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)
#@12654 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-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.
(defalias 'gnus-summary-mode #[nil "À ˆÁÂ!ƒ Ã‚ ÄÅ!<ƒ ÃÄÅ!ABÆÈ	ÊË!ˆÌž„5 ÌÍD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 (#$ . 64722) nil])
(defalias 'gnus-mouse-pick-article #[(e) "À	!ˆÂÃ!‡" [mouse-set-point e gnus-summary-next-page nil] 2 nil "e"])
#@28 Initialize Summary buffer.
(defalias 'gnus-summary-setup-buffer #[nil "À	!ƒ	 	q‡Â	!qˆÃ ‡" [get-buffer gnus-summary-buffer get-buffer-create gnus-summary-mode] 2 (#$ . 78030)])
#@207 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-read-group #[(group &optional show-all no-article) "ÀÁ\n\"ˆÃ\n\f\"ƒ’ Å ˆÆÇ!ˆÈ ˆÆÉ!ˆÊ ËUƒ* ÌÍÎ\"ˆÀÏ!‡ƒ7 ƒ7 Ò ˆ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 (#$ . 78213)])
#@62 Prepare summary list of current newsgroup in Summary buffer.
(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 (#$ . 79452)])
#@190 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-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ƒ ß\fAT#ˆ‚ .‡" [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 (#$ . 79787)])
#@99 Set Summary mode line string.
If you don't like it, define your own `gnus-summary-set-mode-line'.
(defalias 'gnus-summary-set-mode-line #[nil "GÁ\n\"GZGÁ\n\"GZÆÇÈ	\nƒ$ ÇË\n\"‚% ÌÍUƒ5 \fÍUƒ5 Ì‚G \fÍUƒB ÇÎ\"‚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 (#$ . 80693)])
#@102 Search for next unread newsgroup.
If optional argument BACKWARD is non-nil, search backward instead.
(defalias 'gnus-summary-search-group #[(&optional backward) "ŠqˆŠÁ\nÃ\"… Ä *‡" [gnus-group-buffer gnus-group-search-forward backward nil gnus-group-group-name] 3 (#$ . 81227)])
#@248 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-subject #[(backward unread subject) "ƒ Á‚	 ÂÃÄÅÇ=ƒ È‚! ƒ  É‚! Êƒ2 ÌÍÎ!!ÏQ‚3 Ð#ƒD Ôyˆ‚G ÃˆÃÇ#ƒ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 (#$ . 81514)])
#@212 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-forward #[(&optional unread subject) "ÀÁ\n#‡" [gnus-summary-search-subject nil unread subject] 4 (#$ . 82254)])
#@213 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-search-backward #[(&optional unread subject) "ÀÁ\n#‡" [gnus-summary-search-subject t unread subject] 4 (#$ . 82616)])
#@81 Return the Article number around point.
If none, return current article number.
(defalias 'gnus-summary-article-number #[nil "ŠÀyˆÁÂ!ƒ ÃÄ”Ä•{!‚ )‡" [0 looking-at ".[ 	]+\\([0-9]+\\):" string-to-int 1 gnus-current-article] 3 (#$ . 82977)])
#@50 Return current subject string or nil if nothing.
(defalias 'gnus-summary-subject-string #[nil "ŠÀyˆÁÂ!… Ã”Ã•{)‡" [0 looking-at ".[ 	]+[0-9]+:.\\[[^]\n]*\\][ 	]+\\([^\n]*\\)[\n]" 1] 2 (#$ . 83225)])
#@34 Move point to ARTICLE's subject.
(defalias 'gnus-summary-goto-subject #[(article) "`ebˆ	ƒ ÂÃÄ	\"ÅÆ#† bˆÅ)‡" [current article re-search-forward format "^.[ 	]+%d:" nil t] 4 (#$ . 83433) (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))))])
#@33 Center point in Summary window.
(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 (#$ . 83830)])
#@47 Move point to NEWSGROUP in Group mode buffer.
(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 (#$ . 84066)])
#@139 Exit current newsgroup and then select next unread newsgroup.
If prefix argument NO-ARTICLE is non-nil, no article is selected initially.
(defalias 'gnus-summary-next-group #[(no-article) "À	!ˆÂ ‰„ ÄÅ	\"ˆÆ ˆÄÇ!‚R ÄÈ\"ˆÆÉ!ˆÀ!ˆÊË\f#ˆpÍ!=†R É=†R pÍ!=…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 (#$ . 84445) "P"])
#@143 Exit current newsgroup and then select previous unread newsgroup.
If prefix argument NO-ARTICLE is non-nil, no article is selected initially.
(defalias 'gnus-summary-prev-group #[(no-article) "À	!ˆÂÃ!‰„ ÅÆ	\"ˆÇ ˆÅÈ!‚U ÅÉ\f\"ˆÇÃ!ˆÀ\f!ˆÊ\fË\f#ˆpÍ!=†U Ã=†U pÍ!=…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 (#$ . 85030) "P"])
#@108 Go to Nth following summary line.
If optional argument UNREAD is non-nil, only unread article is selected.
(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 (#$ . 85603) "p"])
#@42 Go to Nth following unread summary line.
(defalias 'gnus-summary-next-unread-subject #[(n) "À	Â\"‡" [gnus-summary-next-subject n t] 3 (#$ . 85956) "p"])
#@107 Go to Nth previous summary line.
If optional argument UNREAD is non-nil, only unread article is selected.
(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 (#$ . 86116) "p"])
#@41 Go to Nth previous unread summary line.
(defalias 'gnus-summary-prev-unread-subject #[(n) "À	Â\"‡" [gnus-summary-prev-subject n t] 3 (#$ . 86469) "p"])
#@52 Expand Summary window to show headers full window.
(defalias 'gnus-summary-expand-window #[nil "ÀÁ!ˆÂ!‡" [gnus-configure-windows summary pop-to-buffer gnus-summary-buffer] 2 (#$ . 86627) nil])
#@36 Display ARTICLE in Article buffer.
(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 (#$ . 86827)])
#@235 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-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 (#$ . 87179)])
#@90 Put `+' at the current article.
Optional argument specifies CURRENT-MARK instead of `+'.
(defalias 'gnus-summary-set-current-mark #[(&optional current-mark) "ŠqˆÁebˆÃÄÁÅ#ƒ ÆÇ!ˆÈcˆebˆÃÉÊ\"ÁÅ#…2 ÆÌ!ˆ†1 Îc*‡" [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 (#$ . 87745)])
#@99 Select article after current one.
If argument UNREAD is non-nil, only unread article is selected.
(defalias 'gnus-summary-next-article #[(unread &optional subject) "ÀÂÃ\f\"!†ƒB ƒB Ç	\"ƒB \nË>ƒB p`\fÎ ˆp=…> `\fW…> ÏÐ!*‚ƒo \f„o „o Ò ‰ƒo Ó	À\"ˆÀdbˆÕ	CÖ\"ˆ)×!‚Ù ÖHÚ …„ \nÜ>…„ Ý ?‰ <ƒ”  @ Ïá\fƒž â‚Ÿ ãƒÑ ä=„Ñ ƒÅ åæç !è)\"JA@$‚Ò åêç !+#‚Ò ã#ˆƒæ ä=ƒæ ìÀ!‚…í ‰.<ƒú .@‚ü ././=ƒ. =ƒìÀ!‚.C‰0*+)‡" [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 (#$ . 88145) "P"])
#@42 Select unread article after current one.
(defalias 'gnus-summary-next-unread-article #[nil "ÀÁ\n… Ã \"‡" [gnus-summary-next-article t gnus-auto-select-same gnus-summary-subject-string] 3 (#$ . 89732) nil])
#@100 Select article before current one.
If argument UNREAD is non-nil, only unread article is selected.
(defalias 'gnus-summary-prev-article #[(unread &optional subject) "ÀÂÃ\f\"!†a ƒ+ ƒ+ Ç	\"ƒ+ \nË>ƒ+ Ì\fÀ\"‚a \fƒ5 ÍÎ!‚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 (#$ . 89946) "P"])
#@43 Select unread article before current one.
(defalias 'gnus-summary-prev-unread-article #[nil "ÀÁ\n… Ã \"‡" [gnus-summary-prev-article t gnus-auto-select-same gnus-summary-subject-string] 3 (#$ . 90721) nil])
#@127 Show next page of selected article.
If end of article, select next article.
Argument LINES specifies lines to be scrolled up.
(defalias 'gnus-summary-next-page #[(lines) "À Á\fƒ \fU„ Å!‚J ÆÃ!ˆÇ!ˆÉ \nËŽÇ\f!ˆÍ!*\nƒ> ƒ> ÏÐ!‚J \n…J ?…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 (#$ . 90936) "P"])
#@93 Show previous page of selected article.
Argument LINES specifies lines to be scrolled down.
(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 (#$ . 91557) "P"])
#@119 Scroll up (or down) one line current article.
Argument LINES specifies lines to be scrolled up (or down if negative).
(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 (#$ . 92046) "p"])
#@64 Select next article which has the same subject as current one.
(defalias 'gnus-summary-next-same-subject #[nil "ÀÁÂ \"‡" [gnus-summary-next-article nil gnus-summary-subject-string] 3 (#$ . 92505) nil])
#@68 Select previous article which has the same subject as current one.
(defalias 'gnus-summary-prev-same-subject #[nil "ÀÁÂ \"‡" [gnus-summary-prev-article nil gnus-summary-subject-string] 3 (#$ . 92713) nil])
#@71 Select next unread article which has the same subject as current one.
(defalias 'gnus-summary-next-unread-same-subject #[nil "ÀÁÂ \"‡" [gnus-summary-next-article t gnus-summary-subject-string] 3 (#$ . 92925) nil])
#@75 Select previous unread article which has the same subject as current one.
(defalias 'gnus-summary-prev-unread-same-subject #[nil "ÀÁÂ \"‡" [gnus-summary-prev-article t gnus-summary-subject-string] 3 (#$ . 93145) nil])
#@207 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'.
(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 (#$ . 93370) "P"])
#@218 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'.
(defalias 'gnus-summary-refer-article #[(message-id) "ÀÁ‰\"ˆ\n;ƒP \nGÃVƒP Ä ÆŽÇ!ˆÉÊ\n\"„& Ë\nPÉÌ\n\"„1 \nÍPÎÏ!‰\nš„L @š„L B+‚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 (#$ . 94036) "sMessage-ID: "])
#@44 Move to head of Nth next digested message.
(defalias 'gnus-summary-next-digest #[(n) "À ˆÁ ÃŽÄ!ˆÆ† È!*‡" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-article-next-digest n 1] 2 (#$ . 94759) "p"])
#@48 Move to head of Nth previous digested message.
(defalias 'gnus-summary-prev-digest #[(n) "À ˆÁ ÃŽÄ!ˆÆ† È!*‡" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-article-prev-digest n 1] 2 (#$ . 95067) "p"])
#@72 Select first unread article.  Return non-nil if successfully selected.
(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 (#$ . 95379) nil])
#@51 Do incremental search forward on current article.
(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 (#$ . 95701) nil])
#@134 Search for an article containing REGEXP forward.
`gnus-select-article-hook' is not called for articles examined
by searching search.
(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 (#$ . 96002) (list (read-string (concat "Search forward (regexp): " (if gnus-last-search-regexp (concat "(default " gnus-last-search-regexp ") ")))))])
#@135 Search for an article containing REGEXP backward.
`gnus-select-article-hook' is not called for articles examined
by searching search.
(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 (#$ . 96626) (list (read-string (concat "Search backward (regexp): " (if gnus-last-search-regexp (concat "(default " gnus-last-search-regexp ") ")))))])
#@183 Search for an article containing REGEXP.
Optional argument BACKWARD means do search for backward.
`gnus-select-article-hook' is not called for articles examined
by searching search.
(defalias 'gnus-summary-search-article #[(regexp &optional backward) "À‰	ƒ\n Â‚ ÃÀ‰É ˆÊ ˆËÌ\"ˆÎ ÐŽÑ!ˆŒ~ˆÀÔ#+„t ÕÖ	À‰#!ƒt ËÌ\"ˆÎ ×ŽÑ!ˆŒ~ˆ	ƒe d‚f ebˆÀÔ#+‚; ËØ!ˆ\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 (#$ . 97251)])
#@217 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.
(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 (#$ . 98141) (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)])
#@34 Go to beginning of article body.
(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 (#$ . 98987) nil])
#@28 Go to end of article body.
(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 (#$ . 99326) nil])
#@101 Read article number ARTICLE if it exists.
Optional argument ALL-HEADERS means show the full header.
(defalias 'gnus-summary-goto-article #[(article &optional all-headers) "À	!…\n Â	\"‡" [gnus-summary-goto-subject article gnus-summary-display-article all-headers] 3 (#$ . 99648) (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))))])
#@26 Go to last subject line.
(defalias 'gnus-summary-goto-last-article #[nil "… Á!‡" [gnus-last-article gnus-summary-goto-article] 2 (#$ . 100135) nil])
#@32 Force to show current article.
(defalias 'gnus-summary-show-article #[nil "?Á?Â\"‡" [gnus-have-all-headers gnus-summary-select-article t] 3 (#$ . 100293) nil])
#@123 Show original header if pruned header currently shown, or vice versa.
With arg, show original header iff arg is positive.
(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 (#$ . 100463) "P"])
#@31 Show original article header.
(defalias 'gnus-summary-show-all-headers #[nil "ÀÁ‰\"‡" [gnus-summary-select-article t] 3 (#$ . 100808) nil])
#@80 Toggle MIME processing.
With arg, turn MIME processing on iff arg is positive.
(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 (#$ . 100954) "P"])
#@66 Stop page breaking by linefeed temporary (widen article buffer).
(defalias 'gnus-summary-stop-page-breaking #[nil "À ˆÁ ÃŽÄ!ˆ~*‡" [gnus-summary-select-article selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer] 2 (#$ . 101231) nil])
#@197 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.
(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 (#$ . 101534) "P"])
#@176 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.
(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 (#$ . 102069) "P"])
#@210 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-same-subject #[(subject &optional unmark) "ÀŠ\n„ ÃÄÅ\"ˆ‚  \nÆVƒ ÇÄÈ\"ˆ‚  Ç ˆ	ƒP ÊÄ	\"ƒP \n„9 ÃÄÅ\"ˆ‚J \nÆVƒG ÇÄÈ\"ˆ‚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 (#$ . 102551)])
#@116 Mark current article as unread, and then go forward.
Argument COUNT specifies number of articles marked as unread.
(defalias 'gnus-summary-mark-as-unread-forward #[(count) "ÁV… ÂÃ‰\"ˆÄÅÃ\"ˆS‰‚ ‡" [count 0 gnus-summary-mark-as-unread nil gnus-summary-next-subject 1] 4 (#$ . 103071) "p"])
#@117 Mark current article as unread, and then go backward.
Argument COUNT specifies number of articles marked as unread.
(defalias 'gnus-summary-mark-as-unread-backward #[(count) "ÁV… ÂÃ‰\"ˆÄÅÃ\"ˆS‰‚ ‡" [count 0 gnus-summary-mark-as-unread nil gnus-summary-prev-subject 1] 4 (#$ . 103371) "p"])
#@171 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-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 (#$ . 103673)])
#@112 Mark current article as read, and then go forward.
Argument COUNT specifies number of articles marked as read.
(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 (#$ . 104206) "p"])
#@113 Mark current article as read, and then go backward.
Argument COUNT specifies number of articles marked as read.
(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 (#$ . 104503) "p"])
#@249 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-mark-as-read #[(&optional article mark) "ŠqˆÁ ˆÂ\f† ÅÆ † É!ˆ=„0 Ê!…9 ËyˆÌÍ!ˆ\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 (#$ . 104802)])
#@102 Remove current article's mark, and go forward.
Argument COUNT specifies number of articles unmarked.
(defalias 'gnus-summary-clear-mark-forward #[(count) "ÁV… ÂÃÄ\"ˆÅÆÃ\"ˆS‰‚ ‡" [count 0 gnus-summary-mark-as-unread nil t gnus-summary-next-subject 1] 4 (#$ . 105392) "p"])
#@103 Remove current article's mark, and go backward.
Argument COUNT specifies number of articles unmarked.
(defalias 'gnus-summary-clear-mark-backward #[(count) "ÁV… ÂÃÄ\"ˆÅÆÃ\"ˆS‰‚ ‡" [count 0 gnus-summary-mark-as-unread nil t gnus-summary-prev-subject 1] 4 (#$ . 105676) "p"])
#@60 Delete summary lines for articles that are marked as read.
(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 (#$ . 105961) nil])
#@55 Delete lines which are marked with MARKS (e.g. "DK").
(defalias 'gnus-summary-delete-marked-with #[(marks) "ÀŠebˆÂÃ\fÅQ!ˆ)Æ ÇU†' mƒ ÈÉ!‚' ÇyˆÊËÀÌ#)‡" [nil buffer-read-only delete-matching-lines "^[" marks "]" buffer-size 0 gnus-summary-prev-subject 1 search-forward ":" t] 4 (#$ . 106315) "sMarks: "])
#@106 Toggle showing conversation threads.
With arg, turn showing conversation threads on iff arg is positive.
(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 (#$ . 106626) "P"])
#@27 Show all thread subtrees.
(defalias 'gnus-summary-show-all-threads #[nil "… ŠÁÃedÄÅÆ%*‡" [gnus-show-threads nil buffer-read-only subst-char-in-region 13 10 t] 6 (#$ . 106968) nil])
#@23 Show thread subtrees.
(defalias 'gnus-summary-show-thread #[nil "… ŠÁÃÄyˆ`Áˆ`ÅÆÇ%*‡" [gnus-show-threads nil buffer-read-only subst-char-in-region 0 13 10 t] 6 (#$ . 107158) nil])
#@27 Hide all thread subtrees.
(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 (#$ . 107347) nil])
#@23 Hide thread subtrees.
(defalias 'gnus-summary-hide-thread #[nil "…= ŠÁyˆÂÃÄÅ#ˆÄ``i	Ê ƒ3 iWƒ3 iWƒ `‚ ËÌÍÅ%-‡" [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 (#$ . 107593) nil])
#@79 Go to the same level next thread.
Argument N specifies the number of threads.
(defalias 'gnus-summary-next-thread #[(n) "ÀyˆÁÂÃÄ#ˆ``iÀVƒ5 É ƒ5 iXƒ5 iUƒ `S‰‚ U?bˆ+‡" [0 search-forward ":" nil t level last init n gnus-summary-search-forward] 5 (#$ . 107885) "p"])
#@83 Go to the same level previous thread.
Argument N specifies the number of threads.
(defalias 'gnus-summary-prev-thread #[(n) "ÀyˆÁÂÃÄ#ˆ``iÀVƒ5 É ƒ5 iXƒ5 iUƒ `S‰‚ U?bˆ+‡" [0 search-forward ":" nil t level last init n gnus-summary-search-backward] 5 (#$ . 108176) "p"])
#@71 Go downward current thread.
Argument D specifies the depth goes down.
(defalias 'gnus-summary-down-thread #[(d) "ÀyˆÁÂÃÄ#ˆ`iÀVƒ4 È ƒ4 iXƒ4 iWƒ `iS‰‚ b*‡" [0 search-forward ":" nil t level last d gnus-summary-search-forward] 5 (#$ . 108472) "p"])
#@67 Go upward current thread.
Argument D specifies the depth goes up.
(defalias 'gnus-summary-up-thread #[(d) "ÀyˆÁÂÃÄ#ˆ`iÀVƒ. È ƒ. iVƒ `iS‰‚ b*‡" [0 search-forward ":" nil t level last d gnus-summary-search-backward] 5 (#$ . 108742) "p"])
#@169 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.
(defalias 'gnus-summary-kill-thread #[(unmark) "ƒ Á!ÂyˆÃÄÅÆ#ˆŠi„! ÈÅÉ\"ˆ‚2 ÂVƒ/ ÊÅÆ\"ˆ‚2 Ê ˆË ƒ^ iWƒ^ „J ÈÅÉ\"ˆ‚2 ÂVƒX ÊÅÆ\"ˆ‚2 Ê ˆ‚2 *„k \fƒk Í ˆ?…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 (#$ . 109002) "P"])
#@92 Toggle truncation of summary lines.
With arg, turn line truncation on iff arg is positive.
(defalias 'gnus-summary-toggle-truncation #[(arg) "„	 	?‚ Â!ÃVÄ ‡" [arg truncate-lines prefix-numeric-value 0 redraw-display] 2 (#$ . 109597) "P"])
#@78 Sort Summary buffer by article number.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-number #[(reverse) "ÀÁÂ#‡" [gnus-summary-keysort-summary < #[(a) "ÁH‡" [a 0] 2] reverse] 4 (#$ . 109846) "P"])
#@150 Sort Summary buffer by author name alphabetically.
If case-fold-search is non-nil, case of letters is ignored.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-author #[(reverse) "ÀÁÂ#‡" [gnus-summary-keysort-summary string-lessp #[(a) "ƒ	 	ÂH—‡	ÂH‡" [case-fold-search a 2] 2] reverse] 4 (#$ . 110075) "P"])
#@167 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.
(defalias 'gnus-summary-sort-by-subject #[(reverse) "ÀÁÂ#‡" [gnus-summary-keysort-summary string-lessp #[(a) "ƒ\f Á\nÃHÄ\"—‡Á\nÃHÄ\"‡" [case-fold-search gnus-simplify-subject a 1 re-only] 3] reverse] 4 (#$ . 110413) "P"])
#@68 Sort Summary buffer by date.
Argument REVERSE means reverse order.
(defalias 'gnus-summary-sort-by-date #[(reverse) "ÀÁÂ#‡" [gnus-summary-keysort-summary string-lessp #[(a) "À	ÂH!‡" [gnus-sortable-date a 5] 3] reverse] 4 (#$ . 110809) "P"])
#@110 Sort Summary buffer by PREDICATE using a value passed by KEY.
Optional argument REVERSE means reverse order.
(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 (#$ . 111058)])
#@82 Sort Summary buffer by PREDICATE.
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 (#$ . 111416)])
#@107 Once exit and then reselect the current newsgroup.
Prefix argument SHOW-ALL means to select all articles.
(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 (#$ . 111733) "P"])
#@201 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.
(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 (#$ . 112124) "P"])
#@326 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.
(defalias 'gnus-summary-rmail-digest #[nil "À ˆÁÂ!ˆÄ!Æ	qˆÊp!ˆË\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 (#$ . 112679) nil])
#@121 Save this article using default saver function.
The variable `gnus-default-article-saver' specifies the saver function.
(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 (#$ . 114661) nil])
#@209 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.
(defalias 'gnus-summary-save-in-rmail #[(&optional filename) "À	‰\"ˆÂ ÄŽÅ!ˆŠŒ~ˆ	\n#\f„4 ÍÎÏ!Ð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 (#$ . 115011) nil])
#@213 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.
(defalias 'gnus-summary-save-in-mail #[(&optional filename) "À	‰\"ˆÂ ÄŽÅ!ˆŠŒ~ˆ	\n#\f„4 ÍÎÏ!Ð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 (#$ . 115809) nil])
#@203 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.
(defalias 'gnus-summary-save-in-file #[(&optional filename) "À	‰\"ˆÂ ÄŽÅ!ˆŠŒ~ˆ	\n#\f„4 ÍÎÏ!Ð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 (#$ . 116721) nil])
#@114 Save this article to MH folder (using `rcvstore' in MH library).
Optional argument FOLDER specifies folder name.
(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 (#$ . 117503) nil])
#@34 Pipe this article to subprocess.
(defalias 'gnus-summary-pipe-output #[nil "À	‰\"ˆÂ ÄŽÅ!ˆŒ~ˆÇÈ	\"‰\nË˜ƒ# 	\nÌed\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 (#$ . 118375) nil])
#@135 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.
(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 (#$ . 118806) "P"])
#@69 Mark all articles before the current one in this newsgroup as read.
(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 (#$ . 119389) nil])
#@46 Mark all articles in this newsgroup as read.
(defalias 'gnus-summary-catchup-all #[(&optional quietly) "ÀÁ\n\"‡" [gnus-summary-catchup t quietly] 3 (#$ . 119678) nil])
#@146 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.
(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 (#$ . 119853) "P"])
#@61 Mark all articles in this newsgroup as read, and then exit.
(defalias 'gnus-summary-catchup-all-and-exit #[(&optional quietly) "ÀÁ\n\"‡" [gnus-summary-catchup-and-exit t quietly] 3 (#$ . 120495) nil])
#@26 Edit a global KILL file.
(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 (#$ . 120702) nil])
#@58 Edit a local KILL file applied to the current newsgroup.
(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 (#$ . 121003) nil])
#@151 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.
(defalias 'gnus-summary-exit #[(&optional temporary) "À	\n\fÆÇ!ˆÈ	Ê\n\"\f#ˆƒ( Ì		\nÍ=$qˆƒ= Ï@Í\"ˆA‰„0 Ï	!ˆ-Ð	!ˆÑÒ!ˆ?…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 (#$ . 121351) nil])
#@68 Quit reading current newsgroup without updating read article info.
(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 (#$ . 122173) nil])
#@41 Describe Summary mode commands briefly.
(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 (#$ . 122624) 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)
#@428 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.
(defalias 'gnus-article-mode #[nil "À ˆÁÂ!ƒ Ã‚ ÄÅ!<ƒ ÃÄÅ!ABÆÈ	ÊË!ˆÌž„5 ÌÍD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 (#$ . 123399) nil])
#@33 Initialize Article mode buffer.
(defalias 'gnus-article-setup-buffer #[nil "À	!† ŠÂ	!qˆÃ )‡" [get-buffer gnus-article-buffer get-buffer-create gnus-article-mode] 2 (#$ . 124372)])
#@185 Prepare ARTICLE in Article mode buffer.
ARTICLE can be either a article number or Message-ID.
If optional argument ALL-HEADERS is non-nil,
include the article's whole original header.
(defalias 'gnus-article-prepare #[(article &optional all-headers) "À „\f Á ˆÂ!ˆŠ\fqˆÅÇ ˆ;…  É!‰\nƒ- \nËH‚/ Ì!*ƒ Í!ˆ†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 (#$ . 124560)])
#@50 Show all article headers in Article mode buffer.
(defalias 'gnus-article-show-all-headers #[nil "† Á\nÃ\"‡" [gnus-have-all-headers gnus-article-prepare gnus-current-article t] 3 (#$ . 125715)])
#@99 Set Article mode line string.
If you don't like it, define your own `gnus-article-set-mode-line'.
(defalias 'gnus-article-set-mode-line #[nil "À	ƒ 	ÂH‚\f ÃÆÇ	ƒ ÆÊ	\"‚  Ã\fË\fG^O\fGVƒ2 Ì‚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 (#$ . 125917)])
#@29 Delete unnecessary headers.
(defalias 'gnus-article-delete-headers #[nil "ŠŒebˆeÀÁÂÃ#ˆ`}ˆebˆ\f;…0 Å\fÂÆ#…0 Çyˆ`ÅÈ!ˆÉuˆ`|ˆ‚ *‡" [search-forward "\n\n" nil move gnus-ignored-headers re-search-forward t 0 "\n[^ 	]" -1] 5 (#$ . 126365)])
#@144 Show next page of current article.
If end of article, return non-nil.  Otherwise return nil.
Argument LINES specifies lines to be scrolled up.
(defalias 'gnus-article-next-page #[(lines) "ÀÁ!ˆŠÂˆÃ … m)ƒ* \fƒ\" ŠŒ~ˆÅyˆm*ƒ$ Æ‡ÇÅ!ˆÂ‡ÂÈÉˆÂ‡" [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 (#$ . 126607) "P"])
#@92 Show previous page of current article.
Argument LINES specifies lines to be scrolled down.
(defalias 'gnus-article-prev-page #[(lines) "ÀÁ!ˆ\nƒ oƒ Œ~ˆo)„ ÃÄ!ˆdbˆÅÄ!‡Æ!‡" [move-to-window-line 0 gnus-break-pages gnus-narrow-to-page -1 recenter scroll-down lines] 2 (#$ . 127029) "P"])
#@81 Move to head of NTH next digested message.
Set mark at end of digested message.
(defalias 'gnus-article-next-digest #[(nth) "~ˆÀˆ	ÂVƒ Ã\fÀÅ#ƒ 	S‰‚ Ã\fÀÆ#ƒL `ÀˆÃ\fÀÆ#ƒ: ÈÉ!ˆÂyˆ‚= dbˆÊ ˆbˆËyˆÌÂ!)‡ÍÎ!‡" [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 (#$ . 127323)])
#@48 Move to head of Nth previous digested message.
(defalias 'gnus-article-prev-digest #[(n) "~ˆÀyˆ	ÂVƒ Ã\fÅÆ#ƒ 	S‰‚ Ã\fÅÇ#ƒI `ÅˆÉ\fÅÇ#ƒ: ÊË!ˆÂyˆ‚= dbˆÌ ˆbˆÍÂ!)‡ebˆÎÏ!‡" [0 n 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 (#$ . 127691)])
#@52 Read article specified by message-id around point.
(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 (#$ . 128041) nil])
#@25 Pop up article history.
(defalias 'gnus-article-pop-article #[nil "À‹‡" [((byte-code "qˆÁÂ!‡" [gnus-summary-buffer gnus-summary-refer-article nil] 2))] 1 (#$ . 128396) nil])
#@45 Reconfigure windows to show Summary buffer.
(defalias 'gnus-article-show-summary #[nil "ÀÁ!ˆÂ!ˆÄ!‡" [gnus-configure-windows article pop-to-buffer gnus-summary-buffer gnus-summary-goto-subject gnus-current-article] 2 (#$ . 128577) nil])
#@41 Describe Article mode commands briefly.
(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 (#$ . 128821) 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)
#@2957 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")

(Here we assume 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.
(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 (#$ . 129532) nil])
#@96 Begin editing a KILL file of NEWSGROUP.
If NEWSGROUP is nil, the global KILL file is selected.
(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 (#$ . 132829) "sNewsgroup: "])
#@42 Insert KILL command for current subject.
(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 (#$ . 133578) nil])
#@41 Insert KILL command for current author.
(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 (#$ . 133874) nil])
#@44 Apply current buffer to current newsgroup.
(defalias 'gnus-kill-file-apply-buffer #[nil "ƒ Á\n!ƒ ÃÄ ÅQŠÇ‹*‡È ˆÉÊ!‡" [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 (#$ . 134165) nil])
#@65 Apply sexp before point in current buffer to current newsgroup.
(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 (#$ . 134549) nil])
#@55 Save a KILL file, then return to the previous buffer.
(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 (#$ . 134944) nil])
#@80 Run batched KILL.
Usage: emacs -batch -l gnus -f gnus-batch-kill NEWSGROUP ...
(defalias 'gnus-batch-kill #[nil "„ ÁÂ!ˆÃÃÃÇÈÉÊË\f\"\"!‰@AÃÃÃÃ\fÓ ˆÔ!ƒ“ @@@A@Aƒ9 Ö\f\"JA@ØU„9 ƒl Ù\f\"‚m Úƒ9 ƒ} Ù\f\"„9 Û\fÃÚ#ˆpÜ!=ƒ9 ÞÚ!ˆ‚9 qˆà .	‡" [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 (#$ . 135252)])
#@189 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) "À	ƒ Â!‚ Ä!ÅÆÈH!Q	† Ê\"\fƒ? Í!Í\f!˜ƒ? ÎÏÐ\f!\"ƒ? ‚F \f†F )‡" [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 (#$ . 136016)])
#@189 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!Ì!˜ƒ= ÍÎÏ!\"ƒ= \n‚D †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 (#$ . 136645)])
#@186 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ƒ Ã\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 (#$ . 137249)])
#@186 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 (#$ . 137732)])
#@173 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ƒ Ã\f!‚ Å\f!P‡" [last-folder "+" gnus-use-long-file-name gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form] 3 (#$ . 138185)])
#@173 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 (#$ . 138593)])
#@43 Apply KILL file to the current newsgroup.
(defalias 'gnus-apply-kill-file #[nil "ÀÁÂ!ÃÂÃ$ˆÀÁ\f!ÃÂÃ$‡" [load gnus-newsgroup-kill-file nil t gnus-newsgroup-name] 5 (#$ . 138970)])
#@104 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\f†2 Å\"‡" [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 (#$ . 139155)])
#@104 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\f†0 Å\"‡" [newsgroup "" expand-file-name gnus-kill-file-name gnus-kill-files-directory "~/News" gnus-use-long-file-name "." gnus-newsgroup-directory-form "/"] 4 (#$ . 139570)])
#@71 Subscribe new NEWSGROUP and insert it at the beginning of newsgroups.
(defalias 'gnus-subscribe-randomly #[(newsgroup) "À	\n@@\"‡" [gnus-subscribe-newsgroup newsgroup gnus-newsrc-assoc] 3 (#$ . 139957)])
#@67 Subscribe new NEWSGROUP and insert it in strict alphabetic order.
(defalias 'gnus-subscribe-alphabetically #[(newgroup) "Á\n„\" ƒ\" \f@@™ƒ @@‰‚ A‚ Å\f\n\"*‡" [gnus-newsrc-assoc nil before groups newgroup gnus-subscribe-newsgroup] 4 (#$ . 140167)])
#@72 Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order.
(defalias 'gnus-subscribe-hierarchically #[(newgroup) "ŠÀ	!qˆ\nÃ\f„D ƒD ebˆÆÇ!È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 (#$ . 140433)])
#@124 Subscribe new NEWSGROUP interactively.
It is inserted in hierarchical newsgroup order if subscribed.
Unless, it is killed.
(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 (#$ . 140869)])
#@92 Subscribe new NEWSGROUP.
If optional argument NEXT is non-nil, it is inserted before NEXT.
(defalias 'gnus-subscribe-newsgroup #[(newsgroup &optional next) "À	ÂD\"ˆÄÅ	\"‡" [gnus-insert-newsgroup newsgroup t next message "Subscribe newsgroup: %s"] 3 (#$ . 141229)])
#@55 Make hierarchical directory name from NEWSGROUP name.
(defalias 'gnus-newsgroup-directory-form #[(newsgroup) "ÁÂOGÁ\fWƒ$ HÅUƒ ÆIˆT‰‚ +‡" [newsgroup 0 nil idx len 46 47] 4 (#$ . 141501)])
#@29 Make DIRECTORY recursively.
(defalias 'gnus-make-directory #[(directory) "À	\n\"Ã	!† ÄÅ	\")‡" [expand-file-name directory default-directory file-exists-p gnus-make-directory-1 ""] 3 (#$ . 141709)])
(defalias 'gnus-make-directory-1 #[(head tail) "ÀÁ\n\"ƒ2 Ã”Ã•Æ!\n\fOPÈ!„( ÉÊË‰‰%ˆÌ\n\fËO\"*‡\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])
#@71 Capitalize NEWSGROUP name with treating `.' and `-' as part of words.
(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 (#$ . 142175)])
#@99 Remove `Re:' and words in parentheses.
If optional argument RE-ONLY is non-nil, strip `Re:' only.
(defalias 'gnus-simplify-subject #[(subject &optional re-only) "ÀÂÃ\f\"ƒ \fÅ•ÆO„$ ÂÈ\f\"ƒ$ \fÅ‰”O‚ \f)‡" [t case-fold-search string-match "\\`\\(re\\(\\^[0-9]+\\)?:[ 	]+\\)+" subject 0 nil re-only "[ 	\n]*([^()]*)[ 	\n]*\\'"] 3 (#$ . 142517)])
#@48 Return a string like `NNN:AUTHOR' from HEADER.
(defalias 'gnus-optional-lines-and-from #[(header) "ÀGÂÃ\fÅHÆ\fÇH!È	É\"P#Ê	Å\\O)‡" ["umerin@photon" name-length format "%3d:%s" header 4 mail-strip-quoted-names 2 make-string 32 0] 7 (#$ . 142872)])
#@41 Return a string like `NNN' from HEADER.
(defalias 'gnus-optional-lines #[(header) "ÀÁ\nÃH\"‡" [format "%4d" header 4] 4 (#$ . 143125)])
#@171 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-headers #[(predicate key &optional reverse) "À\nƒ Ã\fŸ#Ÿ‚ Ã\f#‰)‡" [t inhibit-quit reverse gnus-keysort gnus-newsgroup-headers predicate key] 4 (#$ . 143268)])
#@53 Sort LIST by PREDICATE using a value passed by KEY.
(defalias 'gnus-keysort #[(list predicate key) "ÀÁÂÀÃ\f\"Å\"\"‡" [mapcar cdr sort #[(a) "	!	B‡" [key a] 2] list #[(a b) "	@\n@\"‡" [predicate a b] 3]] 6 (#$ . 143638)])
#@143 Sort current headers by PREDICATE safely.
*Safely* means C-g quitting is disabled during sort.
Optional argument REVERSE means reverse order.
(defalias 'gnus-sort-headers #[(predicate &optional reverse) "À\nƒ Ã\fŸ\"Ÿ‚ Ã\f\"‰)‡" [t inhibit-quit reverse sort gnus-newsgroup-headers predicate] 3 (#$ . 143868)])
#@136 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-string-lessp #[(a b) "ƒ\n 	—\n—™‡	\n™‡" [case-fold-search a b] 2 (#$ . 144190)])
#@42 Return T if DATE1 is earlyer than DATE2.
(defalias 'gnus-date-lessp #[(date1 date2) "À	!À\n!™‡" [gnus-sortable-date date1 date2] 3 (#$ . 144429)])
#@94 Convert DATE into a string that can be sorted with `string-lessp'.
Timezone package is used.
(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 (#$ . 144582)])
#@58 Return the value of the header FIELD of current article.
(defalias 'gnus-fetch-field #[(field) "ŠŒ~ˆebˆeÀÁÂÃ#ˆ`}ˆÄ!*‡" [search-forward "\n\n" nil move mail-fetch-field field] 5 (#$ . 144893)])
(defalias (quote gnus-expunge) (quote gnus-summary-delete-marked-with))
#@367 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-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 (#$ . 145166)])
#@312 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, ignore articles
marked as read or unread.
(defalias 'gnus-execute #[(field regexp form &optional backward ignore-marked) "À‰‰\fÅ˜ƒ À\fƒ7 \f;„ Æ\f!ÇÈ\f—P!‰ƒ2 É!ƒ2 K‚7 ÊË\f\"ˆ\f<ƒL \f@Í=„L ÍÀ\fE\fƒf Ï ‰ƒf 	>ƒn 	>„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 (#$ . 145799)])
(defalias 'gnus-execute-1 #[(function regexp form) "ŠÀ ‰??… \nƒC Ã	!Ä‰…? \n!‰;„' Ç!È	\"…? \n;ƒ< Ë\n!‚? \n *‚ Ä‰‰‰\fÐÑ	\"ˆÒ ˆÓ	Ô\"ˆŠqˆebˆÖ	ÄÔ#)…~ \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])
#@124 Caesar rotation of region by N, default 13, for decrypting netnews.
ROT47 will be performed for Japanese text in any case.
(defalias 'gnus-caesar-region #[(&optional n) "§„\n Á‚ ÂÃ\"ÄU?…/ÅÆ!ƒ' ÇHÇ\\U„ç ÄÈÉ\n\fÍÎ!ˆÏÐÄ\"\fÐWƒQ \f‰Iˆ\fT‰\f‚< ‰P‰–\nÄ\fÄÃWƒ‹ \fÇ\\\f\\HIˆ\fÑ\\\n\f\\HIˆ\fT‰\f‚_ Ò\fÓÒÔ\fÐWƒá \f\fH‰XƒÄ Wƒ½ ‚Õ Ù\\‚Õ XƒÓ ÙZ‚Õ )Iˆ\fT‰\f‚™ +ÍÚ!ˆ+Û Ü ÄÉ‰\f‰ {‰G\fWƒ!\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 (#$ . 147197) (byte-code "ƒ	 Á!C‡ÂC‡" [current-prefix-arg prefix-numeric-value nil] 2)])
#@34 Return article number in HEADER.
(defalias 'gnus-header-number #[(header) "ÁH‡" [header 0] 2 (#$ . 148079)])
#@34 Return subject string in HEADER.
(defalias 'gnus-header-subject #[(header) "ÁH‡" [header 1] 2 (#$ . 148195)])
#@33 Return author string in HEADER.
(defalias 'gnus-header-from #[(header) "ÁH‡" [header 2] 2 (#$ . 148312)])
#@31 Return xref string in HEADER.
(defalias 'gnus-header-xref #[(header) "ÁH‡" [header 3] 2 (#$ . 148425)])
#@25 Return lines in HEADER.
(defalias 'gnus-header-lines #[(header) "ÁH‡" [header 4] 2 (#$ . 148536)])
#@24 Return date in HEADER.
(defalias 'gnus-header-date #[(header) "ÁH‡" [header 5] 2 (#$ . 148642)])
#@22 Return Id in HEADER.
(defalias 'gnus-header-id #[(header) "ÁH‡" [header 6] 2 (#$ . 148746)])
#@30 Return references in HEADER.
(defalias 'gnus-header-references #[(header) "ÁH‡" [header 7] 2 (#$ . 148846)])
#@62 Append the current article to an Rmail file named FILE-NAME.
(defalias 'gnus-output-to-rmail #[(file-name) "ÀÁ!ˆÂ!‰pÅÆ!ŠÉ!„N Ê!„N ËÌÍQ!ƒJ Î!ŠqˆÐ ˆÑÓedÔÕ%ˆ*Ö!ˆ)‚N ×Ø!ˆqˆÙp!ˆÚ ˆÛ!ˆÜ ˆÉ!‰„s Þed#ˆ‚´ 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 (#$ . 148962)])
#@55 Append the current article to a file named FILE-NAME.
(defalias 'gnus-output-to-file #[(file-name) "À	!pÂÃ!Š\fqˆÆp!ˆÇ ˆÈ!ˆdbˆÉcˆÊed	#ˆ)Ë\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 (#$ . 149854)])
#@60 Convert article in current buffer to Rmail message format.
(defalias 'gnus-convert-article-to-rmail #[nil "ÀebˆÂcˆÃÄÀÅ#ƒ ÆÇ!ˆ‚ dbˆÈc)‡" [nil buffer-read-only "\f\n0, unseen,,\n*** EOOH ***\n" search-forward "\n" t replace-match "\n^_" ""] 4 (#$ . 150190)])
#@210 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.
(defalias 'gnus-start-news-server #[(&optional confirm) "À ?… 	„ \n„4 ƒ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 (#$ . 150459)])
(defalias 'gnus-server-opened #[nil "À‡" [nil] 1])
(defalias 'gnus-close-server #[nil "À‡" [nil] 1])
#@114 Return a message returned from NNTP server.
If no message is available and optional MESSAGE is given, return it.
(defalias 'gnus-nntp-message #[(&optional message) "À 	† Â‰;ƒ GÄVƒ ‚ 	*‡" [gnus-status-message message "" status 0] 3 (#$ . 151491)])
#@153 Define access functions for the access METHOD.
Methods definition is taken from optional argument ACCESS-METHODS or
the variable `gnus-access-methods'.
(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 (#$ . 151753)])
#@110 Select newsgroup GROUP.
If optional argument SHOW-ALL is non-nil, all of articles in the group
are selected.
(defalias 'gnus-select-newsgroup #[(group &optional show-all) "À ˆÁ\n!…ý Ã\nÆÇ\n\"JAA!	\nƒ, ÆÇ\n\"JAA!‚/ 	Ã\f§ƒ› Ã\fGVƒš ÃÐÑˆÒVƒf Wƒf Z\f›‚“ ÒWƒŠ [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 (#$ . 152154)])
#@203 Return a header specified by a NUMBER.
If you update the variable `gnus-newsgroup-headers', you must set the
hash table `gnus-newsgroup-headers-hashtb-by-number' to nil to indicate
rehash is necessary.
(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 (#$ . 153591)])
#@196 Return a header specified by an ID.
If you update the variable `gnus-newsgroup-headers', you must set the
hash table `gnus-newsgroup-headers-hashtb-by-id' 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 (#$ . 153999)])
#@69 Make hashtable for the variable `gnus-newsgroup-headers' by number.
(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 (#$ . 154369)])
#@65 Make hashtable for the variable `gnus-newsgroup-headers' by id.
(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 (#$ . 154690)])
#@70 Clear hash tables created for the variable `gnus-newsgroup-headers'.
(defalias 'gnus-clear-hashtables-for-newsgroup-headers #[nil "ÀÀ‰‡" [nil gnus-newsgroup-headers-hashtb-by-id gnus-newsgroup-headers-hashtb-by-number] 2 (#$ . 154985)])
#@27 Find new header backward.
(defalias 'gnus-more-header-backward #[nil "ÀÁ\n\"J8@\fÅ„. Vƒ. SÉC!@‰ƒ +‡" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-begin nil header artnum first gnus-retrieve-headers] 5 (#$ . 155230)])
#@26 Find new header forward.
(defalias 'gnus-more-header-forward #[nil "ÀÁ\n\"J8A\fÅ„. Wƒ. TÉC!@‰ƒ +‡" [2 intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-end nil header artnum last gnus-retrieve-headers] 5 (#$ . 155501)])
#@98 Extend newsgroup selection with HEADER.
Optional argument BACKWARD means extend toward backward.
(defalias 'gnus-extend-newsgroup #[(header &optional backward) "…= ÁHƒ \fB‚ Å\fC\"Æ ˆ\n>ƒ( \nBÉ\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 (#$ . 155767)])
#@42 Remember that ARTICLE is marked as read.
(defalias 'gnus-mark-article-as-read #[(article) "À	\n\"À	\"‰‡" [delq article gnus-newsgroup-unreads gnus-newsgroup-marked] 3 (#$ . 156222)])
#@145 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-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 (#$ . 156415)])
#@33 Clear all variables and buffer.
(defalias 'gnus-clear-system #[nil "‰ƒ 	@ÂLˆ	A‰„ )ÂÂÂÂÂÂÂ	Â\nÂ\fƒ> Í\f!ƒ> ÎÍ\f!!ˆÂ\f‰…a Ñ@!ƒW Î@!ˆA‰„I Â)‡" [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 (#$ . 156768)])
#@246 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-configure-windows #[(action) "<ƒ	 ‚ 	žA@Ã\f!Ã!Ã!	ÊÊ\fÍÍÍÑ\n?†U ?\n@ÍU=…U ?\nA@ÍU=…U 	?Ó\n8ÍU=?…€Ô†j †j 	†j Õ !ˆƒ} × ˆØÕ !\f‚¦ ƒ‡ Ø!‚ˆ Íƒ” Ø!‚• Í	ƒ¡ Ø	!‚¢ Í\\\\\fÙ\fÚ\"ˆÛ!ƒ· Ü!ˆÛ!ƒÃ Ü!ˆÝÞ\n\"\n@ÍU„Ý \f\n@_¥]\nA@ÍU„ó \f\nA@_¥]Ó\n8ÍU„	\fÓ\n8_¥]\\\\\fàÍ\fØÕ !Z]!ˆá!„<á!ƒ4á!„<â\\!ˆá!„Oá!„Oâ!ˆá!„_Ù\fÚ\"ˆãä!ˆá!„pÙÚ\"ˆãä!ˆÍU?…€å ˆÙÚ\".\n‡" [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 t split-window-keep-point 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 (#$ . 157305)])
#@63 Return a header which is a element of HEADERS and has NUMBER.
(defalias 'gnus-find-header-by-number #[(headers number) "À\nƒ 	„ \n@ÄH=ƒ \n@\nA‰„ 	)‡" [nil found headers number 0] 4 (#$ . 158513)])
#@67 Return a header which is a element of HEADERS and has Message-ID.
(defalias 'gnus-find-header-by-id #[(headers id) "À\nƒ 	„ \n@ÄH˜ƒ \n@\nA‰„ 	)‡" [nil found headers id 6] 4 (#$ . 158724)])
#@42 Version numbers of this version of GNUS.
(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 (#$ . 158927) nil])
#@34 Find Info documentation of GNUS.
(defalias 'gnus-info-find-node #[nil "ÀÁ!ˆ\nÃ=ƒ ÄÅ!ˆÆ!ˆ‚% \nÈ=ƒ% ÄÉ!ˆÆ\n!ˆË\n\fžA@!‡" [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 (#$ . 159201) nil])
#@131 Overload functions specified by optional argument OVERLOADS.
If nothing is specified, use the variable `gnus-overload-functions'.
(defalias 'gnus-overload-functions #[(&optional overloads) "À	† \n	…3 	@	AÄ@!„) AA@ƒ) ÅAA@ÀÆ#ˆ@A@Mˆ‚ *‡" [nil overloads gnus-overload-functions defs fboundp load nomessage] 4 (#$ . 159536)])
#@56 Make conversation threads tree from NEWSGROUP-HEADERS.
(defalias 'gnus-make-threads #[(newsgroup-headers) "Á‰‰‰‰ƒi @AÈ!ƒ ÉH‰…< ÊË\"…< ÌÍ”Í•O!„X \fƒX ÏÍHÐ\"Ï\fÍHÐ\"˜„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 (#$ . 159874)])
(defalias 'gnus-make-threads-1 #[(parent dependencies) "À‰	\nƒ( \n@\nAAƒ ÆHAÆH=ƒ @\fB‚ ÇÈ\f\"+B‡" [nil dependencies depends d children parent 6 mapcar #[(child) "À	\n\"‡" [gnus-make-threads-1 child dependencies] 3]] 4])
#@205 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.
(defalias 'gnus-narrow-to-page #[(&optional arg) "ƒ\n Á!‚ ÂŠÃÄ!ˆ~ˆÂVƒ  Ã!ˆ‚+ ÂWƒ+ ÃS!ˆÃ ˆ`ÃÄ!ˆlƒ> o„> Åyˆ`})‡" [arg prefix-numeric-value 0 forward-page -1 1] 3 (#$ . 160616) "P"])
#@147 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-make-hashtable-from-alist #[(alist &optional hashsize) "À	† \nGÃ]Ä\"\nƒ! Æ\n@@\"\n@Lˆ\nA‰„ )‡" [make-vector hashsize alist 200 0 hashtb intern] 4 (#$ . 161015)])
#@30 Return last element of LIST.
(defalias 'gnus-last-element #[(list) "À\nƒ \nA„ \n@\nA‰„ 	)‡" [nil last list] 2 (#$ . 161351)])
#@65 Return a list of elements of LIST1 that do not appear in LIST2.
(defalias 'gnus-set-difference #[(list1 list2) "À	!\nƒ Ã\n@	\"\nA‰„ 	)‡" [copy-sequence list1 list2 delq] 4 (#$ . 161489)])
#@64 Return a list of elements that appear in both LIST1 and LIST2.
(defalias 'gnus-intersection #[(list1 list2) "À\nƒ \n@>ƒ \n@	B\nA‰„ 	)‡" [nil result list2 list1] 3 (#$ . 161688)])
#@98 Setup news information.
If optional argument RAWFILE is non-nil, force to read raw startup file.
(defalias 'gnus-setup-news #[(&optional rawfile) "… 	… \n… ??‰ƒ ÅÅÅÆ ˆ\fƒ( Ç ˆÈ!ˆÉ ˆÊ ˆƒ; \f„; Í ˆÎ\f!\f…_ Ð ‰…^ @!ˆA‰„M Å))‡" [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-newsgroups-display gnus-newsgroups-alist gnus-newsgroups-retrieve-description gnus-make-hashtable-from-alist gnus-newsgroups-hashtb gnus-find-new-newsgroups new-newsgroups gnus-subscribe-newsgroup-method] 3 (#$ . 161880)])
#@51 Subscribe new NEWSGROUP safely and put it at top.
(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 (#$ . 162565)])
#@107 Looking for new newsgroups and return names.
`-n' option of options line in `.newsrc' file is recognized.
(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 (#$ . 162852)])
#@74 Kill GROUP from `gnus-newsrc-assoc', `.newsrc' and `gnus-unread-hashtb'.
(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 (#$ . 163325)])
#@95 Insert newsrc INFO entry before NEXT.
If optional argument NEXT is nil, appended to the last.
(defalias 'gnus-insert-newsgroup #[(info &optional next) "„	 ÁÂ\"ˆ@ÄÅÆ\"J8AA\"Æ	\"Jƒ) ÁÊ\"ˆ\f@@˜ƒ< \fB\f‚Œ Í\fA\f„p ƒp @@˜ƒc Ñ‰‚J AA‚H :ƒ B¡ˆ‚‹ Ò\fB\"\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 (#$ . 163706)])
#@92 Update `gnus-killed-assoc' based on `gnus-newsrc-assoc'.
Update `gnus-killed-hashtb' also.
(defalias 'gnus-check-killed-newsgroups #[nil "À‰	\nƒ; \n@@ƒ& Æ\f\"ƒ& ƒ4 Æ\f\"ƒ4 È\f	\"J„4 \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 (#$ . 164406)])
#@99 Delete bogus newsgroups.
If optional argument CONFIRM is non-nil, confirm deletion of newsgroups.
(defalias 'gnus-check-bogus-newsgroups #[(&optional confirm) "À	À‰\nÀÀ	\nÌÍ!ˆ\nƒY \n@@Î\"J„> ƒI ÑÒÓ\"!„I \n@	B	‚P B\nA‰\n„ 	ŸÔ	!ƒ’ @@Î\"Jƒ‰ Î\"J„‰ @BA‰„g ŸÔ\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 (#$ . 164848)])
#@49 Compute diffs between active and read articles.
(defalias 'gnus-get-unread-articles #[nil "Á‰‰‰ÇÈ!ˆ	„ ÊGÌ]Í\"	ƒl @‰@ÎÏ\f\"J8ƒN ÎÏ\f\"J8šƒN Ï\f	\"J„c ÑAA\"Ò\f	\"\fÓ\n!\nBBLˆA‰„# ÇÔ!-‡" [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 (#$ . 165694)])
#@50 Check expired article which is marked as unread.
(defalias 'gnus-expire-marked-articles #[nil "Á‰‰‰‰‰ƒV @‰AÁÈÉ@\n\"J8@\nƒ@ \fƒ@ \f@\nYƒ: \f@B\fA‚& ƒM @BBA‰„ Ë!‰\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 (#$ . 166204)])
#@146 Mark articles as read using cross references and return updated newsgroups.
Arguments are GROUP, HEADERS, UNREADS, and optional SUBSCRIBED-ONLY.
(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	DB)\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 (#$ . 166597)])
#@69 Parse Xref: field value, and return list of `(group . article-id)'.
(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 (#$ . 167239)])
#@54 Update unread article information using XREFS alist.
(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 (#$ . 167593)])
#@68 Update unread articles of GROUP using UNREAD-LIST and MARKED-LIST.
(defalias 'gnus-update-unread-articles #[(group unread-list marked-list) "ÀÁ\n\"J8Á\n\f\"J‰?† ??… ƒ* AÈ!¡ˆ‚/ AÉ¡ˆAÊAA! ˆ@ËVƒG ÌABÁ\n\"JAÎAA\"¡ˆÏ\n!ˆ<… Á\n\"J‰ƒu ¡‚ … \nB‰BÕ\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 (#$ . 167919)])
#@35 Get active file from NNTP server.
(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 (#$ . 168531)])
#@102 Convert active file format to internal format.
Lines matching `gnus-ignored-newsgroups' are ignored.
(defalias 'gnus-active-to-gnus-format #[nil "ebˆÀ	!ˆ\nÄÅed\"Æ]Ç\"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 (#$ . 168862)])
#@91 Read startup FILE.
If optional argument RAWFILE is non-nil, the raw startup file is read.
(defalias 'gnus-read-newsrc-file #[(&optional rawfile) "À	!‰ƒ \f@ÅLˆ\fA‰„\n )\n‰ÇPÅ	ŠÊ!qˆÅËÌˆ„P Î\"„P 	ƒP ƒP Ð!‰‚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 (#$ . 169353)])
#@74 Make server dependent file name by catenating FILE and server host name.
(defalias 'gnus-make-newsrc-file #[(file) "À	Â\"‰Ã\fQÆ!ƒ ‚ 	*‡" [expand-file-name file nil "-" gnus-nntp-server real-file file-exists-p] 4 (#$ . 170177)])
#@41 Parse current buffer as `.newsrc' file.
(defalias 'gnus-newsrc-to-gnus-format #[nil "À‰‰‰‰ÀÀÀÀ	ÊGÌed\"]Í]Î\"ebˆÐÑÀÒ#ƒS Ó”Ó•{ÔÕ\"ƒS ÖÎ•ÀO!‰@A)ebˆÐØÀÒ#ƒù Ó”Ó•{Ù\"Jƒu ÚÛ\"ˆ‚V Ü”Ü•{Ý˜ÞÀwˆ`ŠÀˆ`){ÀÔß\"ƒá Ó”Ó•OÓ•ÀOÔà\n\"ƒ¾ á\nÓ”Ó•O!á\nÜ”Ü•O!B	B‚Œ Ôâ\n\"ƒÒ á\n!á\n!B	B‚Œ ã ˆÚä\"ˆåÎ!ˆ‚Œ \f	ŸBB	B	æ\"	@Lˆ‚V 	Ÿ‰	-‡" [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 (#$ . 170417)])
#@70 Parse -n NEWSGROUPS options and return a cons of YES and NO regexps.
(defalias 'gnus-parse-n-options #[(options) "À‰‰‰ÅÆ\"ƒ[ È”È•OÉÊ”Ê•O!Ê•ÀOÅË	\"ƒA 	ÌÈ•OÍ	Ê”ÀOQ‚* \nÎ˜ƒN 	B‚ 	Í˜„ 	\fB‚ \f…l ÏÐÑÒÓ\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 (#$ . 171372)])
#@44 Save current status in the `.newsrc' file.
(defalias 'gnus-save-newsrc-file #[nil "„ 	…[ \n…[ ŠÃ\n!qˆÄ „ ÅÆ!‚Z ÅÇ\n\"ˆÈÉÈ\n\fÍÎ!ˆÏ ˆ+ÐÑ!qˆÒp!ˆÓ ˆÔ ˆÉ‰È\n\fÕ\nÖP!ˆ+×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 (#$ . 171947)])
#@176 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-update-newsrc-buffer #[(group &optional delete next) "ŠÀ	!†\n Â	!qˆÃ‰‰ebˆÇÈÉ\n!ËQÃÌ#ƒ4 Íyˆ`Îyˆ`|ˆÌ‚ ?…© Ð\n\"J‰??…¨ „u ;ƒk ebˆÇÈÉ!ËQÃÌ#ƒk Íyˆ‚u dbˆn„u ÔcˆÕÖ!ƒŽ Îyˆm„Ž Õ×!ƒŽ Îyˆ‚~ \nA@ƒ› Ø‚œ Ù±ˆÚ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 (#$ . 172569)])
#@67 Insert GNUS variables such as `gnus-newsrc-assoc' in Lisp format.
(defalias 'gnus-gnus-to-quick-newsrc-format #[nil "ÀcˆÁcˆÂ\fÈ ˆ…C @É!ƒ9 Jƒ9 ÊË!ÌÍ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 (#$ . 173323)])
#@33 Insert ranges of read articles.
(defalias 'gnus-ranges-to-newsrc-format #[(ranges) "À\n…G \n@\nA	@	AUƒ1 	@ÃUƒ! À‰‚ Ä	@!cˆ\nƒ Åcˆ‚ Ä	@!ÆÄ	A!±ˆ\nƒ Åcˆ‚ )‡" [nil range ranges 0 int-to-string "," "-"] 5 (#$ . 173804)])
#@43 Convert list of sorted numbers to ranges.
(defalias 'gnus-compress-sequence #[(numbers) "ÀÁ\n!Ã\"‰@\n@Æ\nƒ> \n@U„7 T\n@Uƒ) \n@‚7 \fBB\n@\n@\nA‰„ \fBBŸ,‡" [sort copy-sequence numbers < first last nil result] 4 (#$ . 174035)])
#@39 Expand compressed format of sequence.
(defalias 'gnus-uncompress-sequence #[(ranges) "À‰‰\fƒ. \f@@\f@A\nWƒ# 	BT‰‚ 	B\fA‰„\n 	Ÿ+‡" [nil result last first ranges] 4 (#$ . 174286)])
#@76 Compute number of articles from RANGE `((beg1 . end1) (beg2 . end2) ...)'.
(defalias 'gnus-number-of-articles #[(range) "À\nƒ! \n@AÀU„ 	\n@A\n@@ZÃ\\\\\nA‰„ 	)‡" [0 count range 1] 4 (#$ . 174485)])
#@140 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-difference-of-range #[(src obj) "@AÁƒQ ƒQ @@@A\fVƒ% Á‚J \fWƒ= \fS^B\nBT‚J \fYƒJ \fT]A*‚ ƒa \fXƒa \fB\nB\nƒj \nŸ‚n È‰BC+‡" [src nil range end beg obj end1 beg1 0] 3 (#$ . 174694)])
#@64 Get distributions file from NNTP server (NNTP2 functionality).
(defalias 'gnus-read-distributions-file #[nil "À ˆÁÂ!ˆÃÅ ƒ ŠqˆÇ ˆÁÈ!ˆ)É\n!Ã‰\f…K Í\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 (#$ . 175071)])
#@55 Convert distributions file format to internal format.
(defalias 'gnus-distributions-to-gnus-format #[nil "ÀebˆÂÃÀÄ#ƒ Å”Å•{C	B‚ 	Ÿ‰‡" [nil gnus-distribution-list re-search-forward "^\\([^ 	\n]+\\).*$" t 1] 4 (#$ . 175566)])
#@65 Retrieve newsgroups description and build gnus-newsgroups-alist
(defalias 'gnus-newsgroups-retrieve-description #[nil "ÀÁ!ˆÂ ƒ1 ŠÃqˆebˆÆÃÈ#ƒ, É”É•{Ê”Ê•{B\fB‚ ÀË!)‡ÀÌ!‡" [message "Reading newsgroups file..." gnus-request-list-newsgroups nil gnus-newsgroups-alist nntp-server-buffer re-search-forward gnus-newsgroups-regex t 1 2 "Reading newsgroups file...done" "Cannot read newsgroups file"] 4 (#$ . 175800)])
#@35 Update the newsgroups description
(defalias 'gnus-newsgroups-update-description #[nil "À ˆÁ\n!‰‡" [gnus-newsgroups-retrieve-description gnus-make-hashtable-from-alist gnus-newsgroups-alist gnus-newsgroups-hashtb] 2 (#$ . 176221) nil])
#@65 Toggle displaying newsgroup descriptions in *Newsgroup* buffer.
(defalias 'gnus-newsgroups-display-toggle #[nil "?	ƒ ÂÃ!‡ÂÄ!‡" [gnus-newsgroups-display gnus-newsgroups-showall gnus-group-list-groups t nil] 2 (#$ . 176463) nil])
(provide (quote gnus))