Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-art.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:17 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-art.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-art.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\301\302!\204\n�\302\303M\210\304\305!\210\306\304\307!\210)\304\310!\210\304\311!\210\304\312!\210\304\313!\210\304\314!\210\304\315!\210\304\316!\210\304\317!\210\304\320!\210\304\321!\210\322\323\324\325\326$\210\322\327\324\"\210\322\330\324\325\326$\210\322\331\332\325\211$\210\322\333\334\"\210\322\335\336\"\210\322\337\340\"\210\341\342\325\343\344\345\346\305&\210\341\347\325\350\344\351\346\342&\210\341\352\325\353\344\354\346\342&\210\341\355\325\356\344\357\346\342\346\360&	\210\341\361\325\362\344\363\346\342&\210\341\364\325\365\344\366\346\342&\210\341\367\325\370\344\371\346\342&\210\341\372\325\373\344\374\346\342&\210\341\375\325\376\344\377\346\342&\210\341\201@�\325\201A�\344\201B�\346\342&\210\341\201C�\325\201D�\344\201E�\346\342&\210\341\201F�\325\201G�\344\201H�\346\342&\207" [recursive-load-depth-limit fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require gnus 100 gnus-sum gnus-spec gnus-int gnus-win mm-bodies mail-parse mm-decode mm-view wid-edit mm-uu message autoload gnus-msg-mail "gnus-msg" nil t gnus-button-mailto gnus-button-reply parse-time-string "parse-time" ansi-color-apply-on-region "ansi-color" mm-url-insert-file-contents-external "mm-url" mm-extern-cache-contents "mm-extern" custom-declare-group gnus-article "Article display." :link (custom-manual "(gnus)Article Buffer") :group gnus-article-treat "Treating article parts." (custom-manual "(gnus)Article Hiding") gnus-article-hiding "Hiding article parts." (custom-manual "(gnus)Article Hiding") gnus-article-highlight "Article highlighting." (custom-manual "(gnus)Article Highlighting") gnus-visual gnus-article-signature "Article signatures." (custom-manual "(gnus)Article Signature") gnus-article-headers "Article headers." (custom-manual "(gnus)Hiding Headers") gnus-article-washing "Special commands on articles." (custom-manual "(gnus)Article Washing") gnus-article-emphasis "Fontisizing articles." (custom-manual "(gnus)Article Fontisizing") gnus-article-saving "Saving articles." (custom-manual "(gnus)Saving Articles") gnus-article-mime "Worshiping the MIME wonder." (custom-manual "(gnus)Using MIME") gnus-article-buttons "Pushable buttons in the article buffer." (custom-manual "(gnus)Article Buttons") gnus-article-various "Other article options." (custom-manual "(gnus)Misc Article")] 10)
#@197 *All headers that start with this regexp will be hidden.
This variable can also be a list of regexps of headers to be ignored.
If `gnus-visible-headers' is non-nil, this variable will be ignored.
(custom-declare-variable 'gnus-ignored-headers '(mapcar (lambda (header) (concat "^" header ":")) '("Path" "Expires" "Date-Received" "References" "Xref" "Lines" "Relay-Version" "Message-ID" "Approved" "Sender" "Received" "X-UIDL" "MIME-Version" "Return-Path" "In-Reply-To" "Content-Type" "Content-Transfer-Encoding" "X-WebTV-Signature" "X-MimeOLE" "X-MSMail-Priority" "X-Priority" "X-Loop" "X-Authentication-Warning" "X-MIME-Autoconverted" "X-Face" "X-Attribution" "X-Originating-IP" "Delivered-To" "NNTP-[-A-Za-z]+" "Distribution" "X-no-archive" "X-Trace" "X-Complaints-To" "X-NNTP-Posting-Host" "X-Orig.*" "Abuse-Reports-To" "Cache-Post-Path" "X-Article-Creation-Date" "X-Poster" "X-Mail2News-Path" "X-Server-Date" "X-Cache" "Originator" "X-Problems-To" "X-Auth-User" "X-Post-Time" "X-Admin" "X-UID" "Resent-[-A-Za-z]+" "X-Mailing-List" "Precedence" "Original-[-A-Za-z]+" "X-filename" "X-Orcpt" "Old-Received" "X-Pgp" "X-Auth" "X-From-Line" "X-Gnus-Article-Number" "X-Majordomo" "X-Url" "X-Sender" "MBOX-Line" "Priority" "X400-[-A-Za-z]+" "Status" "X-Gnus-Mail-Source" "Cancel-Lock" "X-FTN" "X-EXP32-SerialNo" "Encoding" "Importance" "Autoforwarded" "Original-Encoded-Information-Types" "X-Ya-Pop3" "X-Face-Version" "X-Vms-To" "X-ML-NAME" "X-ML-COUNT" "Mailing-List" "X-finfo" "X-md5sum" "X-md5sum-Origin" "X-Sun-Charset" "X-Accept-Language" "X-Envelope-Sender" "List-[A-Za-z]+" "X-Listprocessor-Version" "X-Received" "X-Distribute" "X-Sequence" "X-Juno-Line-Breaks" "X-Notes-Item" "X-MS-TNEF-Correlator" "x-uunet-gateway" "X-Received" "Content-length" "X-precedence" "X-Authenticated-User" "X-Comment" "X-Report" "X-Abuse-Info" "X-HTTP-Proxy" "X-Mydeja-Info" "X-Copyright" "X-No-Markup" "X-Abuse-Info" "X-From_" "X-Accept-Language" "Errors-To" "X-BeenThere" "X-Mailman-Version" "List-Help" "List-Post" "List-Subscribe" "List-Id" "List-Unsubscribe" "List-Archive" "X-Content-length" "X-Posting-Agent" "Original-Received" "X-Request-PGP" "X-Fingerprint" "X-WRIEnvto" "X-WRIEnvfrom" "X-Virus-Scanned" "X-Delivery-Agent" "Posted-Date" "X-Gateway" "X-Local-Origin" "X-Local-Destination" "X-UserInfo1" "X-Received-Date" "X-Hashcash" "Face" "X-DMCA-Notifications" "X-Abuse-and-DMCA-Info" "X-Postfilter" "X-Gpg-.*" "X-Disclaimer" "Envelope-To" "X-Spam-Score" "System-Type" "X-Injected-Via-Gmane" "X-Gmane-NNTP-Posting-Host" "Jabber-ID" "Archived-At" "Envelope-Sender" "Envelope-Recipients")) '(#$ . -2967) :type '(choice :custom-show nil regexp (repeat regexp)) :group 'gnus-article-hiding)
#@202 *All headers that do not match this regexp will be hidden.
This variable can also be a list of regexp of headers to remain visible.
If this variable is non-nil, `gnus-ignored-headers' will be ignored.
(custom-declare-variable 'gnus-visible-headers '"^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:" '(#$ . -5656) :type '(choice (repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) (const :tag "Use gnus-ignored-headers" nil) regexp) :group 'gnus-article-hiding)
#@194 *This variable is a list of regular expressions.
If it is non-nil, headers that match the regular expressions will
be placed first in the article buffer in the sequence specified by
this list.
(custom-declare-variable 'gnus-sorted-header-list ''("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:") '(#$ . -6461) :type '(repeat regexp) :group 'gnus-article-hiding)
#@553 Headers that are only to be displayed if they have interesting data.
Possible values in this list are:

'empty       Headers with no content.
  'newsgroups  Newsgroup identical to Gnus group.
  'to-address  To identical to To-address.
  'to-list     To identical to To-list.
  'cc-list     CC identical to To-list.
  'followup-to Followup-to identical to Newsgroups.
  'reply-to    Reply-to identical to From.
  'date        Date less than four days old.
  'long-to     To and/or Cc longer than 1024 characters.
  'many-to     Multiple To and/or Cc.
(custom-declare-variable 'gnus-boring-article-headers ''(empty followup-to reply-to) '(#$ . 6898) :type '(set (const :tag "Headers with no content." empty) (const :tag "Newsgroups identical to Gnus group." newsgroups) (const :tag "To identical to To-address." to-address) (const :tag "To identical to To-list." to-list) (const :tag "CC identical to To-list." cc-list) (const :tag "Followup-to identical to Newsgroups." followup-to) (const :tag "Reply-to identical to From." reply-to) (const :tag "Date less than four days old." date) (const :tag "To and/or Cc longer than 1024 characters." long-to) (const :tag "Multiple To and/or Cc headers." many-to)) :group 'gnus-article-hiding)
#@260 Skip over text that is not worth reading.
By default, if you set this t, then Gnus will display citations and
signatures, but will never scroll down to show you a page consisting
only of boring text.  Boring text is controlled by
`gnus-article-boring-faces'.
(custom-declare-variable 'gnus-article-skip-boring 'nil '(#$ . 8140) :version "22.1" :type 'boolean :group 'gnus-article-hiding)
#@202 Regexp matching signature separator.
This can also be a list of regexps.  In that case, it will be checked
from head to tail looking for a separator.  Searches will be done from
the end of the buffer.
(custom-declare-variable 'gnus-signature-separator ''("^-- $" "^-- *$") '(#$ . 8535) :type '(choice :format "%{%t%}: %[Value Menu%]\n%v" (regexp) (repeat :tag "List of regexp" regexp)) :group 'gnus-article-signature)
#@513 Provide a limit to what is considered a signature.
If it is a number, no signature may not be longer (in characters) than
that number.  If it is a floating point number, no signature may be
longer (in lines) than that number.  If it is a function, the function
will be called without any parameters, and if it returns nil, there is
no signature in the buffer.  If it is a string, it will be used as a
regexp.  If it matches, the text in question is not a signature.

This can also be a list of the above values.
(custom-declare-variable 'gnus-signature-limit 'nil '(#$ . 8960) :type '(choice (const nil) (integer :value 200) (number :value 4.0) function (regexp :value ".*")) :group 'gnus-article-signature)
#@39 Property list to use for hiding text.
(custom-declare-variable 'gnus-hidden-properties ''(invisible t intangible t) '(#$ . 9674) :type 'sexp :group 'gnus-article-hiding)
#@196 *String or function to be executed to display an X-Face header.
If it is a string, the command will be executed in a sub-shell
asynchronously.  The compressed face will be piped to this command.
(custom-declare-variable 'gnus-article-x-face-command '(if (featurep 'xemacs) (if (or (gnus-image-type-available-p 'xface) (gnus-image-type-available-p 'pbm)) 'gnus-display-x-face-in-from "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | ee -") (if (gnus-image-type-available-p 'pbm) 'gnus-display-x-face-in-from "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | display -")) '(#$ . -9851) :type '(choice string (function-item gnus-display-x-face-in-from) function) :version "21.1" :group 'gnus-picon :group 'gnus-article-washing)
#@70 Regexp matching posters whose face shouldn't be shown automatically.
(custom-declare-variable 'gnus-article-x-face-too-ugly 'nil '(#$ . 10613) :type '(choice regexp (const nil)) :group 'gnus-article-washing)
#@152 Banner alist for stripping.
For example,
     ((egroups . "^[ \t\n]*-------------------+\$ \\(e\\|Yahoo! \$Groups Sponsor -+\\)?....\n\$.+\n\$+"))
(custom-declare-variable 'gnus-article-banner-alist 'nil '(#$ . 10828) :version "21.1" :type '(repeat (cons symbol regexp)) :group 'gnus-article-washing)
#@53 Alist of regexps (to match group names) and banner.
(custom-declare-variable 'gnus-parameter-banner-alist 'nil '(#$ . 11139) :group 'gnus-group-parameter :group 'gnus-article-washing :type '(repeat (list (regexp :tag "Group") (choice :tag "Banner" :value nil (const :tag "Remove signature" signature) (symbol :tag "Item in `gnus-article-banner-alist'" none) regexp (const :tag "None" nil)))))
(byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq banner add-to-list (choice :tag "Banner" :value nil (const :tag "Remove signature" signature) (symbol :tag "Item in `gnus-article-banner-alist'" none) regexp (const :tag "None" nil)) "If non-nil, specify how to remove `banners' from articles.\n\nSymbol `signature' means to remove signatures delimited by\n`gnus-signature-separator'.  Any other symbol is used to look up a\nregular expression to match the banner in `gnus-article-banner-alist'.\nA string is used as a regular expression to match the banner\ndirectly."] 5)
#@2 
(defalias 'gnus-parameter-banner #[(name) "\205<�\305\306\307#\206<�	\307\211\f\211A@\211\2030�\203�\310@\"\203�\307A\202�\n:\203:�\n@\202;�\n+\207" [name gnus-parameter-banner-alist value elem alist gnus-group-find-parameter banner nil string-match] 4 (#$ . 12151)])
#@420 Alist of mail addresses and banners.
Each element has the form (ADDRESS . BANNER), where ADDRESS is a regexp
to match a mail address in the From: header, BANNER is one of a symbol
`signature', an item in `gnus-article-banner-alist', a regexp and nil.
If ADDRESS matches author's mail address, it will remove things like
advertisements.  For example:

(("@yoo-hoo\\.co\\.jp\\'" . "\n_+\nDo You Yoo-hoo!\\?\n.*\n.*\n"))

(custom-declare-variable 'gnus-article-address-banner-alist 'nil '(#$ . 12443) :type '(repeat (cons (regexp :tag "Address") (choice :tag "Banner" :value nil (const :tag "Remove signature" signature) (symbol :tag "Item in `gnus-article-banner-alist'" none) regexp (const :tag "None" nil)))) :version "22.1" :group 'gnus-article-washing)
(defalias 'gnus-emphasis-custom-with-format '(macro . #[(&rest body) "\301\302BB\207" [body let ((format "\$\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\$\$%s\\(\\w+\\(\\s-+\\w+\$*[.,]?\\)%s\\)\$\\([-,.;:!?\"]\\|\\s)\$+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)"))] 3]))
(defalias 'gnus-emphasis-custom-value-to-external #[(value) "\302	@:\203$�\300	@@	@A#\303	A@\203�\303\202�\304\303	8F\202%�	)\207" [format value "\$\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\$\$%s\\(\\w+\\(\\s-+\\w+\$*[.,]?\\)%s\\)\$\\([-,.;:!?\"]\\|\\s)\$+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3] 5])
(defalias 'gnus-emphasis-custom-value-to-internal #[(value) "\304\305\300\306!\307\211#\310Q\311\312\n@\211\"\203.�\313\314	\"\313\315	\"B\3158\315U\3168E\202/�+\207" [format pattern regexp value "\$\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\$\$%s\\(\\w+\\(\\s-+\\w+\$*[.,]?\\)%s\\)\$\\([-,.;:!?\"]\\|\\s)\$+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" "\\`" regexp-quote "\$[^()]+\$" "\\'" nil string-match match-string 1 2 3] 5])
#@416 *Alist that says how to fontify certain phrases.
Each item looks like this:

("_\$\\w+\$_" 0 1 'underline)

The first element is a regular expression to be matched.  The second
is a number that says what regular expression grouping used to find
the entire emphasized word.  The third is a number that says what
regexp grouping should be displayed and highlighted.  The fourth
is the face used for highlighting.
(custom-declare-variable 'gnus-emphasis-alist '(let ((types '(("\\*" "\\*" bold nil 2) ("_" "_" underline) ("/" "/" italic) ("_/" "/_" underline-italic) ("_\\*" "\\*_" underline-bold) ("\\*/" "/\\*" bold-italic) ("_\\*/" "/\\*_" underline-bold-italic)))) (nconc (gnus-emphasis-custom-with-format (mapcar (lambda (spec) (list (format format (car spec) (cadr spec)) (or (nth 3 spec) 2) (or (nth 4 spec) 3) (intern (format "gnus-emphasis-%s" (nth 2 spec))))) types)) '(("\$\\s-\\|^\$\$_\\(\\(\\w\\|_[^_]\$+\\)_\\)\$\\s-\\|[?!.,;]\$" 2 3 gnus-emphasis-underline)))) '(#$ . -14183) :type '(repeat (menu-choice :format "%[Customizing Style%]\n%v" :indent 2 (group :tag "Default" :value ("" 0 0 default) :value-create (lambda (widget) (let ((value (widget-get (cadr (widget-get (widget-get widget :parent) :args)) :value))) (if (not (eq (nth 2 value) 'default)) (widget-put widget :value (gnus-emphasis-custom-value-to-external value)))) (widget-group-value-create widget)) regexp (integer :format "Match group: %v") (integer :format "Emphasize group: %v") face) (group :tag "Simple" :value (("_" . "_") nil default) (cons :format "%v" (regexp :format "Start regexp: %v") (regexp :format "End regexp: %v")) (boolean :format "Show start and end patterns: %[%v%]\n" :on " On " :off " Off ") face))) :get #[(symbol) "\301\302\303!\"\207" [symbol mapcar gnus-emphasis-custom-value-to-internal default-value] 4] :set #[(symbol value) "\302\303\304	\"\"\207" [symbol value set-default mapcar gnus-emphasis-custom-value-to-external] 5] :group 'gnus-article-emphasis)
#@253 A regexp to describe whitespace which should not be emphasized.
Typical values are "^[ \t]+\\|[ \t]*\n" and "[ \t]+\\|[ \t]*\n".
The former avoids underlining of leading and trailing whitespace,
and the latter avoids underlining any whitespace at all.
(custom-declare-variable 'gnus-emphasize-whitespace-regexp '"^[ 	]+\\|[ 	]*\n" '(#$ . 16166) :version "21.1" :group 'gnus-article-emphasis :type 'regexp)
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\207" [custom-declare-face gnus-emphasis-bold ((t (:bold t))) "Face used for displaying strong emphasized text (*word*)." :group gnus-article-emphasis gnus-emphasis-italic ((t (:italic t))) "Face used for displaying italic emphasized text (/word/)." gnus-emphasis-underline ((t (:underline t))) "Face used for displaying underlined emphasized text (_word_)." gnus-emphasis-underline-bold ((t (:bold t :underline t))) "Face used for displaying underlined bold emphasized text (_*word*_)." gnus-emphasis-underline-italic ((t (:italic t :underline t))) "Face used for displaying underlined italic emphasized text (_/word/_)." gnus-emphasis-bold-italic ((t (:bold t :italic t))) "Face used for displaying bold italic emphasized text (/*word*/)." gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))) "Face used for displaying underlined bold italic emphasized text.\nExample: (_/*word*/_)." gnus-emphasis-strikethru ((t (:strike-through t))) "Face used for displaying strike-through text (-word-)." gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))) "Face used for displaying highlighted words."] 6)
#@280 Format for display of Date headers in article bodies.
See `format-time-string' for the possible values.

The variable can also be function, which should return a complete Date
header.  The function is called with one argument, the time, which can
be fed to `format-time-string'.
(custom-declare-variable 'gnus-article-time-format '"%a, %d %b %Y %T %Z" '(#$ . 17993) :type '(choice string function) :link '(custom-manual "(gnus)Article Date") :group 'gnus-article-washing)
#@208 *If non-nil, don't remove any headers before saving.
This will be overridden by the `:headers' property that the symbol of
the saver function, which is specified by `gnus-default-article-saver',
might have.
(custom-declare-variable 'gnus-save-all-headers 't '(#$ . -18472) :group 'gnus-article-saving :type 'boolean)
#@456 *This variable says how much prompting is to be done when saving articles.
If it is nil, no prompting will be done, and the articles will be
saved to the default files.  If this variable is `always', each and
every article that is saved will be preceded by a prompt, even when
saving large batches of articles.  If this variable is neither nil not
`always', there the user will be prompted once for a file name for
each invocation of the saving commands.
(custom-declare-variable 'gnus-prompt-before-saving ''always '(#$ . -18796) :group 'gnus-article-saving :type '(choice (item always) (item :tag "never" nil) (sexp :tag "once" :format "%t\n" :value t)))
#@433 Headers to keep if `gnus-save-all-headers' is nil.
If `gnus-save-all-headers' is non-nil, this variable will be ignored.
If that variable is nil, however, all headers that match this regexp
will be kept while the rest will be deleted before saving.  This and
`gnus-save-all-headers' will be overridden by the `:headers' property
that the symbol of the saver function, which is specified by
`gnus-default-article-saver', might have.
(custom-declare-variable 'gnus-saved-headers 'gnus-visible-headers '(#$ . 19460) :group 'gnus-article-saving :type 'regexp)
#@1548 A function to save articles in your favourite format.
The function will be called by way of the `gnus-summary-save-article'
command, and friends such as `gnus-summary-save-article-rmail'.

Gnus provides the following functions:

* gnus-summary-save-in-rmail (Rmail format)
* gnus-summary-save-in-mail (Unix mail format)
* gnus-summary-save-in-folder (MH folder)
* gnus-summary-save-in-file (article format)
* gnus-summary-save-body-in-file (article body)
* gnus-summary-save-in-vm (use VM's folder format)
* gnus-summary-write-to-file (article format -- overwrite)
* gnus-summary-write-body-to-file (article body -- overwrite)
* gnus-summary-save-in-pipe (article format)

The symbol of each function may have the following properties:

* :decode
The value non-nil means save decoded articles.  This is meaningful
only with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',
`gnus-summary-write-to-file', `gnus-summary-write-body-to-file', and
`gnus-summary-save-in-pipe'.

* :function
The value specifies an alternative function which appends, not
overwrites, articles to a file.  This implies that when saving many
articles at a time, `gnus-prompt-before-saving' is bound to t and all
articles are saved in a single file.  This is meaningful only with
`gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.

* :headers
The value specifies the symbol of a variable of which the value
specifies headers to be saved.  If it is omitted,
`gnus-save-all-headers' and `gnus-saved-headers' control what
headers should be saved.
(custom-declare-variable 'gnus-default-article-saver ''gnus-summary-save-in-rmail '(#$ . 20024) :group 'gnus-article-saving :type '(radio (function-item gnus-summary-save-in-rmail) (function-item gnus-summary-save-in-mail) (function-item gnus-summary-save-in-folder) (function-item gnus-summary-save-in-file) (function-item gnus-summary-save-body-in-file) (function-item gnus-summary-save-in-vm) (function-item gnus-summary-write-to-file) (function-item gnus-summary-write-body-to-file) (function-item gnus-summary-save-in-pipe) (function)))
#@801 Coding system used to save decoded articles to a file.

The recommended coding systems are `utf-8', `iso-2022-7bit' and so on,
which can safely encode any characters in text.  This is used by the
commands including:

* gnus-summary-save-article-file
* gnus-summary-save-article-body-file
* gnus-summary-write-article-file
* gnus-summary-write-article-body-file

and the functions to which you may set `gnus-default-article-saver':

* gnus-summary-save-in-file
* gnus-summary-save-body-in-file
* gnus-summary-write-to-file
* gnus-summary-write-body-to-file

Those commands and functions save just text displayed in the article
buffer to a file if the value of this variable is non-nil.  Note that
buttonized MIME parts will be lost in a saved file in that case.
Otherwise, raw articles will be saved.
(custom-declare-variable 'gnus-article-save-coding-system '(or (and (mm-coding-system-p 'utf-8) 'utf-8) (and (mm-coding-system-p 'iso-2022-7bit) 'iso-2022-7bit) (and (mm-coding-system-p 'emacs-mule) 'emacs-mule) (and (mm-coding-system-p 'escape-quoted) 'escape-quoted)) '(#$ . 22120) :group 'gnus-article-saving :type (byte-code "\300\301\302\303\304\305\306\307\310\311\"\"\312\"BBBB\207" [choice :format "%{%t%}:\n %[Value Menu%] %v" (const :tag "Save raw articles" nil) append delq nil mapcar #[(arg) "\301\3028!\205	�\207" [arg mm-coding-system-p 3] 3] ((const :tag "UTF-8" utf-8) (const :tag "iso-2022-7bit" iso-2022-7bit) (const :tag "Emacs internal" emacs-mule) (const :tag "escape-quoted" escape-quoted)) ((symbol :tag "Coding system"))] 10))
#@141 A function generating a file name to save articles in Rmail format.
The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE.
(custom-declare-variable 'gnus-rmail-save-name ''gnus-plain-save-name '(#$ . 23680) :group 'gnus-article-saving :type 'function)
#@145 A function generating a file name to save articles in Unix mail format.
The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE.
(custom-declare-variable 'gnus-mail-save-name ''gnus-plain-save-name '(#$ . 23956) :group 'gnus-article-saving :type 'function)
#@140 A function generating a file name to save articles in MH folder.
The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER.
(custom-declare-variable 'gnus-folder-save-name ''gnus-folder-save-name '(#$ . 24235) :group 'gnus-article-saving :type 'function)
#@143 A function generating a file name to save articles in article format.
The function is called with NEWSGROUP, HEADERS, and optional
LAST-FILE.
(custom-declare-variable 'gnus-file-save-name ''gnus-numeric-save-name '(#$ . 24512) :group 'gnus-article-saving :type 'function)
#@913 *Variable used to suggest where articles are to be saved.
For instance, if you would like to save articles related to Gnus in
the file "gnus-stuff", and articles related to VM in "vm-stuff",
you could set this variable to something like:

'(("^Subject:.*gnus\|^Newsgroups:.*gnus" "gnus-stuff")
   ("^Subject:.*vm\|^Xref:.*vm" "vm-stuff"))

This variable is an alist where the key is the match and the
value is a list of possible files to save in if the match is
non-nil.

If the match is a string, it is used as a regexp match on the
article.  If the match is a symbol, that symbol will be funcalled
from the buffer of the article to be saved with the newsgroup as the
parameter.  If it is a list, it will be evaled in the same buffer.

If this form or function returns a string, this string will be used as a
possible file name; and if it returns a non-nil list, that list will be
used as possible file names.
(custom-declare-variable 'gnus-split-methods ''((gnus-article-archive-name) (gnus-article-nndoc-name)) '(#$ . -24791) :group 'gnus-article-saving :type '(repeat (choice (list :value (fun) function) (cons :value (#1="" #1#) regexp (repeat string)) (sexp :value nil))))
#@140 *Regexp describing what to use as article page delimiters.
The default value is "^", which is a form linefeed at the
beginning of a line.
(custom-declare-variable 'gnus-page-delimiter '"^\f" '(#$ . -25978) :type 'regexp :group 'gnus-article-various)
#@241 *The format specification for the article mode line.
See `gnus-summary-mode-line-format' for a closer description.

The following additional specs are available:

%w  The article washing status.
%m  The number of MIME parts in the article.
(custom-declare-variable 'gnus-article-mode-line-format '"Gnus: %g [%w] %S%m" '(#$ . -26236) :type 'string :group 'gnus-article-various)
#@32 *A hook for Gnus article mode.
(custom-declare-variable 'gnus-article-mode-hook 'nil '(#$ . -26619) :type 'hook :group 'gnus-article-various)
#@56 *Hook run after the creation of the article mode menu.
(custom-declare-variable 'gnus-article-menu-hook 'nil '(#$ . -26767) :type 'hook :group 'gnus-article-various)
#@74 *A hook called after an article has been prepared in the article buffer.
(custom-declare-variable 'gnus-article-prepare-hook 'nil '(#$ . -26939) :type 'hook :group 'gnus-article-various)
#@94 List of headers to be removed when copying an article.
Each element is a regular expression.
(custom-declare-variable 'gnus-copy-article-ignored-headers 'nil '(#$ . 27132) :version "23.1" :type '(repeat regexp) :group 'gnus-article-various)
(byte-code "\300\301\302\"\210\303\304\305\306\307\310%\207" [make-obsolete-variable gnus-article-hide-pgp-hook "This variable is obsolete in Gnus 5.10." custom-declare-face gnus-button ((t (:weight bold))) "Face used for highlighting a button in the article buffer." :group gnus-article-buttons] 6)
#@160 Face used for highlighting buttons in the article buffer.

An article button is a piece of text that you can activate by pressing
`RET' or `mouse-2' above it.
(custom-declare-variable 'gnus-article-button-face ''gnus-button '(#$ . 27680) :type 'face :group 'gnus-article-buttons)
#@136 Face used for mouse highlighting in the article buffer.

Article buttons will be displayed in this face when the cursor is
above them.
(custom-declare-variable 'gnus-article-mouse-face ''highlight '(#$ . 27967) :type 'face :group 'gnus-article-buttons)
#@131 Face used for highlighting a signature in the article buffer.
Obsolete; use the face `gnus-signature' for customizations instead.
(custom-declare-variable 'gnus-signature-face ''gnus-signature '(#$ . 28227) :type 'face :group 'gnus-article-highlight :group 'gnus-article-signature)
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\301#\210\300\312\313\314\304\315\304\305&\210\307\316\311\312#\210\300\317\320\321\304\315\304\305&\210\307\322\311\317#\210\300\323\324\325\304\315\304\305&\210\307\326\311\323#\210\300\327\330\331\304\315\304\305&\210\307\332\311\327#\210\300\333\334\335\304\315\304\305&\210\307\336\311\333#\207" [custom-declare-face gnus-signature ((t (:italic t))) "Face used for highlighting a signature in the article buffer." :group gnus-article-highlight gnus-article-signature put gnus-signature-face face-alias gnus-header-from ((((class color) (background dark)) (:foreground "PaleGreen1")) (((class color) (background light)) (:foreground "red3")) (t (:italic t))) "Face used for displaying from headers." gnus-article-headers gnus-header-from-face gnus-header-subject ((((class color) (background dark)) (:foreground "SeaGreen1")) (((class color) (background light)) (:foreground "red4")) (t (:bold t :italic t))) "Face used for displaying subject headers." gnus-header-subject-face gnus-header-newsgroups ((((class color) (background dark)) (:foreground "yellow" :italic t)) (((class color) (background light)) (:foreground "MidnightBlue" :italic t)) (t (:italic t))) "Face used for displaying newsgroups headers.\nIn the default setup this face is only used for crossposted\narticles." gnus-header-newsgroups-face gnus-header-name ((((class color) (background dark)) (:foreground "SpringGreen2")) (((class color) (background light)) (:foreground "maroon")) (t (:bold t))) "Face used for displaying header names." gnus-header-name-face gnus-header-content ((((class color) (background dark)) (:foreground "SpringGreen1" :italic t)) (((class color) (background light)) (:foreground "indianred4" :italic t)) (t (:italic t))) "Face used for displaying header content." gnus-header-content-face] 8)
#@463 *Controls highlighting of article headers.

An alist of the form (HEADER NAME CONTENT).

HEADER is a regular expression which should match the name of a
header and NAME and CONTENT are either face names or nil.

The name of each header field will be displayed using the face
specified by the first element in the list where HEADER matches
the header name and NAME is non-nil.  Similarly, the content will
be displayed by the first non-nil matching CONTENT face.
(custom-declare-variable 'gnus-header-face-alist ''(("From" nil gnus-header-from) ("Subject" nil gnus-header-subject) ("Newsgroups:.*," nil gnus-header-newsgroups) ("" gnus-header-name gnus-header-content)) '(#$ . -30378) :group 'gnus-article-headers :group 'gnus-article-highlight :type '(repeat (list (regexp :tag "Header") (choice :tag "Name" (item :tag "skip" nil) (face :value default)) (choice :tag "Content" (item :tag "skip" nil) (face :value default)))))
#@674 Alist of image types and properties applied to Face and X-Face images.
Here are examples:

;; Specify the altitude of Face images in the From header.
(setq gnus-face-properties-alist
      '((pbm . (:face gnus-x-face :ascent 80))
	(png . (:ascent 80))))

;; Show Face images as pressed buttons.
(setq gnus-face-properties-alist
      '((pbm . (:face gnus-x-face :relief -2))
	(png . (:relief -2))))

See the manual for the valid properties for various image types.
Currently, `pbm' is used for X-Face images and `png' is used for Face
images in Emacs.  Only the `:face' property is effective on the `xface'
image type in XEmacs if it is built with the libcompface library.
(custom-declare-variable 'gnus-face-properties-alist '(if (featurep 'xemacs) '((xface :face gnus-x-face)) '((pbm :face gnus-x-face) (png))) '(#$ . 31311) :version "23.1" :group 'gnus-article-headers :type '(repeat (cons :format "%v" (symbol :tag "Image type") plist)))
#@43 *Hook run to decode charsets in articles.
(custom-declare-variable 'gnus-article-decode-hook ''(article-decode-charset article-decode-encoded-words article-decode-group-name article-decode-idna-rhs) '(#$ . -32259) :group 'gnus-article-headers :type 'hook)
#@36 Function to display MIME articles.
(custom-declare-variable 'gnus-display-mime-function ''gnus-display-mime '(#$ . 32521) :group 'gnus-article-mime :type 'function)
#@34 Function used to decode headers.
(defvar gnus-decode-header-function 'mail-decode-encoded-word-region (#$ . 32692))
#@36 Function used to decode addresses.
(defvar gnus-decode-address-function 'mail-decode-encoded-address-region (#$ . 32814))
#@37 Table for MS-to-Latin1 translation.
(defvar gnus-article-dumbquotes-map '(("\200" "EUR") ("\202" ",") ("\203" "f") ("\204" ",,") ("\205" "...") ("\213" "<") ("\214" "OE") ("\221" "`") ("\222" "'") ("\223" "``") ("\224" "\"") ("\225" "*") ("\226" "-") ("\227" "--") ("\230" "~") ("\231" "(TM)") ("\233" ">") ("\234" "oe") ("\264" "'")) (#$ . 32942))
#@52 List of MIME types that should be ignored by Gnus.
(custom-declare-variable 'gnus-ignored-mime-types 'nil '(#$ . 33297) :version "21.1" :group 'gnus-article-mime :type '(repeat regexp))
#@221 List of MIME types that should not be given buttons when rendered inline.
See also `gnus-buttonized-mime-types' which may override this variable.
This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil.
(custom-declare-variable 'gnus-unbuttonized-mime-types ''(".*/.*") '(#$ . 33490) :version "21.1" :group 'gnus-article-mime :type '(repeat regexp))
#@476 List of MIME types that should be given buttons when rendered inline.
If set, this variable overrides `gnus-unbuttonized-mime-types'.
To see e.g. security buttons you could set this to
`("multipart/signed")'.  You could also add "multipart/alternative" to
this list to display radio buttons that allow you to choose one of two
media types those mails include.  See also `mm-discouraged-alternatives'.
This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil.
(custom-declare-variable 'gnus-buttonized-mime-types 'nil '(#$ . 33864) :version "22.1" :group 'gnus-article-mime :type '(repeat regexp))
#@207 If non-nil, all MIME parts get buttons.
When nil (the default value), then some MIME parts do not get buttons,
as described by the variables `gnus-buttonized-mime-types' and
`gnus-unbuttonized-mime-types'.
(custom-declare-variable 'gnus-inhibit-mime-unbuttonizing 'nil '(#$ . 34484) :version "22.1" :group 'gnus-article-mime :type 'boolean)
#@156 String used to delimit header and body.
This variable is used by `gnus-article-treat-body-boundary' which can
be controlled by `gnus-treat-body-boundary'.
(custom-declare-variable 'gnus-body-boundary-delimiter '"_" '(#$ . 34832) :version "22.1" :group 'gnus-article-various :type '(choice (item :tag "None" :value nil) string))
#@167 Defines the location of the faces database.
For information on obtaining this database of pretty pictures, please
see http://www.cs.indiana.edu/picons/ftp/index.html
(custom-declare-variable 'gnus-picon-databases ''("/usr/lib/picon" "/usr/local/faces" "/usr/share/picons") '(#$ . 35167) :version "22.1" :type '(repeat directory) :link '(url-link :tag "download" "http://www.cs.indiana.edu/picons/ftp/index.html") :link '(custom-manual "(gnus)Picons") :group 'gnus-picon)
#@51 Say whether picons are installed on your machine.
(defalias 'gnus-picons-installed-p #[nil "\304	\304\211\203�@\305\n!\203�\306A\211\204\n�*)\207" [installed gnus-picon-databases database #1=#:--cl-dolist-temp-- nil file-exists-p t] 3 (#$ . 35644)])
#@178 Function called with a MIME handle as the argument.
This is meant for people who want to do something automatic based
on parts -- for instance, adding Vcard info to a database.
(custom-declare-variable 'gnus-article-mime-part-function 'nil '(#$ . 35912) :group 'gnus-article-mime :type '(choice (const nil) function))
#@54 An alist of MIME types to functions to display them.
(custom-declare-variable 'gnus-mime-multipart-functions 'nil '(#$ . 36236) :version "21.1" :group 'gnus-article-mime :type '(repeat (cons :format "%v" (string :tag "MIME type") function)))
#@212 Whether the X-Sent and Date headers can coexist.
When using `gnus-treat-date-lapsed', the "X-Sent:" header will
either replace the old "Date:" header (if this variable is nil), or
be added below it (otherwise).
(custom-declare-variable 'gnus-article-date-lapsed-new-header 'nil '(#$ . 36485) :version "21.1" :group 'gnus-article-headers :type 'boolean)
#@371 Function called with a MIME handle as the argument.
This is meant for people who want to view first matched part.
For `undisplayed-alternative' (default), the first undisplayed
part or alternative part is used.  For `undisplayed', the first
undisplayed part is used.  For a function, the first part which
the function return t is used.  For nil, the first part is
used.
(custom-declare-variable 'gnus-article-mime-match-handle-function ''undisplayed-alternative '(#$ . 36845) :version "21.1" :group 'gnus-article-mime :type '(choice (item :tag "first" :value nil) (item :tag "undisplayed" :value undisplayed) (item :tag "undisplayed or alternative" :value undisplayed-alternative) (function)))
#@54 An alist of actions that run on the MIME attachment.
(custom-declare-variable 'gnus-mime-action-alist ''(("save to file" . gnus-mime-save-part) ("save and strip" . gnus-mime-save-part-and-strip) ("replace with file" . gnus-mime-replace-part) ("delete part" . gnus-mime-delete-part) ("display as text" . gnus-mime-inline-part) ("view the part" . gnus-mime-view-part) ("pipe to command" . gnus-mime-pipe-part) ("toggle display" . gnus-article-press-button) ("toggle display" . gnus-article-view-part-as-charset) ("view as type" . gnus-mime-view-part-as-type) ("view internally" . gnus-mime-view-part-internally) ("view externally" . gnus-mime-view-part-externally)) '(#$ . 37545) :group 'gnus-article-mime :type '(repeat (cons (string :tag "name") (function))))
#@224 Advance to next MIME part when deleting or stripping parts.

When 0, point will be placed on the same part as before.  When
positive (negative), move point forward (backwards) this many
parts.  When nil, redisplay article.
(custom-declare-variable 'gnus-auto-select-part '1 '(#$ . 38312) :version "23.1" :group 'gnus-article-mime :type '(choice (const nil :tag "Redisplay article.") (const 1 :tag "Next part.") (const 0 :tag "Current part.") integer))
#@53 Hook called on parts that are to receive treatment.
(defvar gnus-part-display-hook nil (#$ . 38770))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\301\207" [current-load-list gnus-article-treat-custom default-boundp set-default (choice (const :tag "Off" nil) (const :tag "On" t) (const :tag "Header" head) (const :tag "First" first) (const :tag "Last" last) (integer :tag "Less") (repeat :tag "Groups" regexp) (sexp :tag "Predicate")) gnus-article-treat-head-custom (choice (const :tag "Off" nil) (const :tag "Header" head))] 3)
#@17 Parts to treat.
(defvar gnus-article-treat-types '("text/plain" "text/x-verbatim" "text/x-patch") (#$ . 39352))
#@31 Whether to inhibit treatment.
(defvar gnus-inhibit-treatment nil (#$ . 39470))
#@148 Highlight the signature.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-highlight-signature ''(or t (typep "text/x-vcard")) '(#$ . 39556) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(put 'gnus-treat-highlight-signature 'highlight t)
#@136 Add buttons.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-buttonize '100000 '(#$ . 39976) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(put 'gnus-treat-buttonize 'highlight t)
#@148 Add buttons to the head.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-buttonize-head ''head '(#$ . 40340) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
(put 'gnus-treat-buttonize-head 'highlight t)
#@139 Emphasize text.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-emphasize '50000 '(#$ . 40730) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(put 'gnus-treat-emphasize 'highlight t)
#@148 Remove carriage returns.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-cr 'nil '(#$ . 41096) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@157 Remove newlines from within URLs.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-unsplit-urls 'nil '(#$ . 41443) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@161 Remove leading whitespace in headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-leading-whitespace 'nil '(#$ . 41803) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@137 Hide headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-hide-headers ''head '(#$ . 42173) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@144 Hide boring headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-hide-boring-headers 'nil '(#$ . 42504) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@143 Hide the signature.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-hide-signature 'nil '(#$ . 42847) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@141 Fill the article.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-fill-article 'nil '(#$ . 43179) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@140 Hide cited text.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-hide-citation 'nil '(#$ . 43507) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@140 Hide cited text.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-hide-citation-maybe 'nil '(#$ . 43835) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@176 Strip list identifiers from `gnus-list-identifiers`.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-list-identifiers ''head '(#$ . 44169) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(make-obsolete-variable 'gnus-treat-strip-pgp "This option is obsolete in Gnus 5.10.")
#@145 Strip PEM signatures.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-pem 'nil '(#$ . 44647) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@224 Strip banners from articles.
The banner to be stripped is specified in the `banner' group parameter.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-banner 't '(#$ . 44976) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@146 Highlight the headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-highlight-headers ''head '(#$ . 45385) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
(put 'gnus-treat-highlight-headers 'highlight t)
#@145 Highlight cited text.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-highlight-citation 't '(#$ . 45779) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(put 'gnus-treat-highlight-citation 'highlight t)
#@153 Display the Date in UT (GMT).
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-ut 'nil '(#$ . 46165) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@163 Display the Date in the local timezone.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-local 'nil '(#$ . 46505) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@187 Display the Date in a format that can be read aloud in English.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-english 'nil '(#$ . 46858) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@193 Display the Date header in a way that says how much time has elapsed.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-lapsed 'nil '(#$ . 47253) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@166 Display the date in the original timezone.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-original 'nil '(#$ . 47637) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@163 Display the date in the ISO8601 format.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-iso8601 'nil '(#$ . 47996) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@232 Display the date in a user-defined format.
The format is defined by the `gnus-article-time-format' variable.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-date-user-defined 'nil '(#$ . 48367) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@190 Strip the X-No-Archive header line from the beginning of the body.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-headers-in-body 't '(#$ . 48796) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@249 Strip trailing blank lines.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.

When set to t, it also strips trailing blanks in all MIME parts.
Consider to use `last' instead.
(custom-declare-variable 'gnus-treat-strip-trailing-blank-lines 'nil '(#$ . 49196) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@216 Strip leading blank lines.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.

When set to t, it also strips trailing blanks in all MIME parts.
(custom-declare-variable 'gnus-treat-strip-leading-blank-lines 'nil '(#$ . 49646) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@151 Strip multiple blank lines.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-strip-multiple-blank-lines 'nil '(#$ . 50062) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@151 Unfold folded header lines.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-unfold-headers ''head '(#$ . 50414) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@248 If non-nil, allow unfolding headers even if the header is long.
If it is a regexp, only long headers matching this regexp are unfolded.
If it is t, all long headers are unfolded.

This variable has no effect if `gnus-treat-unfold-headers' is nil.
(custom-declare-variable 'gnus-article-unfold-long-headers 'nil '(#$ . 50772) :version "23.1" :group 'gnus-article-treat :type '(choice (const nil) (const :tag "all" t) (regexp)))
#@137 Fold headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-fold-headers 'nil '(#$ . 51206) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@168 Fold the Newsgroups and Followup-To headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-fold-newsgroups ''head '(#$ . 51546) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@154 Treat overstrike highlighting.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-overstrike 't '(#$ . 51922) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(put 'gnus-treat-overstrike 'highlight t)
#@157 Treat ANSI SGR control sequences.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-ansi-sequences '(if (locate-library "ansi-color") t) '(#$ . 52301) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(make-obsolete-variable 'gnus-treat-display-xface 'gnus-treat-display-x-face)
#@143 Display X-Face headers.
Valid values are nil and `head'.
See Info node `(gnus)Customizing Articles' and Info node
`(gnus)X-Face' for details.
(custom-declare-variable 'gnus-treat-display-x-face '(and (not noninteractive) (gnus-image-type-available-p 'xbm) (if (featurep 'xemacs) (featurep 'xface) (and (string-match "^0x" (shell-command-to-string "uncompface")) (executable-find "icontopbm"))) 'head) '(#$ . 52758) :group 'gnus-article-treat :version "21.1" :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)X-Face") :type gnus-article-treat-head-custom :set #[(symbol value) "\302\303!\204�\304N\203�	\2026�\303\305!\203\"�\306\307!\210\310\305!\2026�\305\304N\2035�\306\307!\210\311\305\304N@!\2026�	\"\207" [symbol value set-default boundp saved-value gnus-treat-display-xface message "** gnus-treat-display-xface is an obsolete variable; use gnus-treat-display-x-face instead" default-value eval] 5])
(put 'gnus-treat-display-x-face 'highlight t)
#@184 Display Face headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles' and Info
node `(gnus)Face' for details.
(custom-declare-variable 'gnus-treat-display-face '(and (not noninteractive) (gnus-image-type-available-p 'png) 'head) '(#$ . 53752) :group 'gnus-article-treat :version "22.1" :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)X-Face") :type gnus-article-treat-head-custom)
(put 'gnus-treat-display-face 'highlight t)
#@182 Display smileys.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles' and Info
node `(gnus)Smileys' for details.
(custom-declare-variable 'gnus-treat-display-smileys '(gnus-image-type-available-p 'xpm) '(#$ . 54290) :group 'gnus-article-treat :version "21.1" :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)Smileys") :type gnus-article-treat-custom)
(put 'gnus-treat-display-smileys 'highlight t)
#@199 Display picons in the From header.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles' and Info
node `(gnus)Picons' for details.
(custom-declare-variable 'gnus-treat-from-picon '(if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) '(#$ . 54795) :version "22.1" :group 'gnus-article-treat :group 'gnus-picon :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)Picons") :type gnus-article-treat-head-custom)
(put 'gnus-treat-from-picon 'highlight t)
#@201 Display picons in To and Cc headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles' and Info
node `(gnus)Picons' for details.
(custom-declare-variable 'gnus-treat-mail-picon '(if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) '(#$ . 55377) :version "22.1" :group 'gnus-article-treat :group 'gnus-picon :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)Picons") :type gnus-article-treat-head-custom)
(put 'gnus-treat-mail-picon 'highlight t)
#@222 Display picons in the Newsgroups and Followup-To headers.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles' and Info
node `(gnus)Picons' for details.
(custom-declare-variable 'gnus-treat-newsgroups-picon '(if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) '(#$ . 55961) :version "22.1" :group 'gnus-article-treat :group 'gnus-picon :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)Picons") :type gnus-article-treat-head-custom)
(put 'gnus-treat-newsgroups-picon 'highlight t)
#@133 Draw a boundary at the end of the headers.
Valid values are nil and `head'.
See Info node `(gnus)Customizing Articles' for details.
(custom-declare-variable 'gnus-treat-body-boundary '(if (or gnus-treat-newsgroups-picon gnus-treat-mail-picon gnus-treat-from-picon) 'head nil) '(#$ . 56578) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom)
#@159 Capitalize sentence-starting words.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-capitalize-sentences 'nil '(#$ . 57008) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@139 Format as HTML.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-wash-html 'nil '(#$ . 57378) :version "22.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@140 Fill long lines.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-fill-long-lines 'nil '(#$ . 57717) :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@136 Play sounds.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-play-sounds 'nil '(#$ . 58047) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@172 Translate articles from one language to another.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-translate 'nil '(#$ . 58385) :version "21.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
#@191 Verify X-PGP-Sig.
To automatically treat X-PGP-Sig, set it to head.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-treat-x-pgp-sig 'nil '(#$ . 58757) :version "22.1" :group 'gnus-article-treat :group 'mime-security :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list gnus-article-encrypt-protocol-alist default-boundp set-default (("PGP" . mml2015-self-encrypt))] 3)
#@90 The protocol used for encrypt articles.
It is a string, such as "PGP". If nil, ask user.
(custom-declare-variable 'gnus-article-encrypt-protocol '"PGP" '(#$ . 59350) :version "22.1" :type 'string :group 'mime-security)
#@46 Function used for converting HTML into text.
(defvar gnus-article-wash-function nil (#$ . 59575))
#@135 Whether IDNA decoding of headers is used when viewing messages.
This requires GNU Libidn, and by default only enabled if it is found.
(custom-declare-variable 'gnus-use-idna '(and (condition-case nil (require 'idna) (file-error)) (mm-coding-system-p 'utf-8) (executable-find idna-program)) '(#$ . 59680) :version "22.1" :group 'gnus-article-headers :type 'boolean)
#@78 If non-nil, allow scrolling the article buffer even when there no more text.
(custom-declare-variable 'gnus-article-over-scroll 'nil '(#$ . 60051) :version "22.1" :group 'gnus-article :type 'boolean)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\306\"\210\310B\302\310!\204<�\303\310\306\"\210\311B\302\311!\204K�\303\311\306\"\210\312B\302\312!\204Z�\303\312\306\"\210\313B\302\313!\204i�\303\313\314\"\210\315B\302\315!\204x�\303\315\306\"\210\316B\302\316!\204\207�\303\316\306\"\210\317B\302\317!\204\226�\303\317\306\"\210\306\207" [current-load-list gnus-english-month-names default-boundp set-default ("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December") article-goto-body-goes-to-point-min-p nil gnus-article-wash-types gnus-article-emphasis-alist gnus-article-image-alist gnus-article-mime-handle-alist-1 gnus-treatment-function-alist ((gnus-treat-x-pgp-sig gnus-article-verify-x-pgp-sig) (gnus-treat-strip-banner gnus-article-strip-banner) (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body) (gnus-treat-highlight-signature gnus-article-highlight-signature) (gnus-treat-buttonize gnus-article-add-buttons) (gnus-treat-fill-article gnus-article-fill-cited-article) (gnus-treat-fill-long-lines gnus-article-fill-long-lines) (gnus-treat-strip-cr gnus-article-remove-cr) (gnus-treat-unsplit-urls gnus-article-unsplit-urls) (gnus-treat-date-ut gnus-article-date-ut) (gnus-treat-date-local gnus-article-date-local) (gnus-treat-date-english gnus-article-date-english) (gnus-treat-date-original gnus-article-date-original) (gnus-treat-date-user-defined gnus-article-date-user) (gnus-treat-date-iso8601 gnus-article-date-iso8601) (gnus-treat-date-lapsed gnus-article-date-lapsed) (gnus-treat-display-x-face gnus-article-display-x-face) (gnus-treat-display-face gnus-article-display-face) (gnus-treat-hide-headers gnus-article-maybe-hide-headers) (gnus-treat-hide-boring-headers gnus-article-hide-boring-headers) (gnus-treat-hide-signature gnus-article-hide-signature) (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers) (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace) (gnus-treat-strip-pem gnus-article-hide-pem) (gnus-treat-from-picon gnus-treat-from-picon) (gnus-treat-mail-picon gnus-treat-mail-picon) (gnus-treat-newsgroups-picon gnus-treat-newsgroups-picon) (gnus-treat-highlight-headers gnus-article-highlight-headers) (gnus-treat-highlight-signature gnus-article-highlight-signature) (gnus-treat-strip-trailing-blank-lines gnus-article-remove-trailing-blank-lines) (gnus-treat-strip-leading-blank-lines gnus-article-strip-leading-blank-lines) (gnus-treat-strip-multiple-blank-lines gnus-article-strip-multiple-blank-lines) (gnus-treat-overstrike gnus-article-treat-overstrike) (gnus-treat-ansi-sequences gnus-article-treat-ansi-sequences) (gnus-treat-unfold-headers gnus-article-treat-unfold-headers) (gnus-treat-fold-newsgroups gnus-article-treat-fold-newsgroups) (gnus-treat-fold-headers gnus-article-treat-fold-headers) (gnus-treat-buttonize-head gnus-article-add-buttons-to-head) (gnus-treat-display-smileys gnus-treat-smiley) (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences) (gnus-treat-wash-html gnus-article-wash-html) (gnus-treat-emphasize gnus-article-emphasize) (gnus-treat-hide-citation gnus-article-hide-citation) (gnus-treat-hide-citation-maybe gnus-article-hide-citation-maybe) (gnus-treat-highlight-citation gnus-article-highlight-citation) (gnus-treat-body-boundary gnus-article-treat-body-boundary) (gnus-treat-play-sounds gnus-earcon-display)) gnus-article-mime-handle-alist article-lapsed-timer gnus-article-current-summary] 3)
#@86 Syntax table used in article mode buffers.
Initialized from `text-mode-syntax-table.
(defvar gnus-article-mode-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\307	#\210\303\310\311	#\210\303\312\311	#\210	)\207" [text-mode-syntax-table table copy-syntax-table modify-syntax-entry 62 ")<" 60 "(>" 39 " " 96] 4) (#$ . 63840))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\304\207" [current-load-list gnus-save-article-buffer default-boundp set-default nil gnus-number-of-articles-to-be-saved gnus-inhibit-hiding gnus-article-edit-mode] 3)
(defalias 'gnus-with-article-headers '(macro . #[(&rest forms) "\301\302\303\304\305\306BBBDE\207" [forms with-current-buffer gnus-article-buffer save-restriction let ((inhibit-read-only t) (inhibit-point-motion-hooks t) (case-fold-search t)) (article-narrow-to-head)] 7]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-with-article-headers lisp-indent-function 0 edebug-form-spec (body)] 4)
(defalias 'gnus-with-article-buffer '(macro . #[(&rest forms) "\301\302\303\304BBE\207" [forms with-current-buffer gnus-article-buffer let ((inhibit-read-only t))] 5]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-with-article-buffer lisp-indent-function 0 edebug-form-spec (body)] 4)
#@46 Go to HEADER, which is a regular expression.
(defalias 'gnus-article-goto-header #[(header) "\301\302\303Q\304\305#\207" [header re-search-forward "^\$" "\$:" nil t] 4 (#$ . 65241)])
#@71 Set text PROPS on the B to E region, extending `intangible' 1 past B.
(defalias 'gnus-article-hide-text #[(b e props) "\304\305\306	\n%\210\307\n>\205�\310Se]\307\211\n>\211AA)$\207" [b e props x gnus-add-text-properties-when article-type nil intangible put-text-property] 7 (#$ . 65433)])
(put 'gnus-article-hide-text 'byte-optimizer 'byte-compile-inline-expand)
#@60 Remove hidden text properties from region between B and E.
(defalias 'gnus-article-unhide-text #[(b e) "\303	\n#\210\304\n>\205�\305Se]\304\306$\207" [b e gnus-hidden-properties remove-text-properties intangible put-text-property nil] 5 (#$ . 65808)])
(put 'gnus-article-unhide-text 'byte-optimizer 'byte-compile-inline-expand)
#@36 Hide text of TYPE between B and E.
(defalias 'gnus-article-hide-text-type #[(b e type) "\306!\210	\n\307BB\310\307\311	\n\f%\210\312\f>\205,�\313	Se]	\312\211\f>\211AA)$+\207" [type b e gnus-hidden-properties props x gnus-add-wash-type article-type gnus-add-text-properties-when nil intangible put-text-property] 7 (#$ . 66146)])
#@38 Unhide text of TYPE between B and E.
(defalias 'gnus-article-unhide-text-type #[(b e type) "\304!\210\305	\n\306BB#\210\307>\205�\310	Se]	\307\311$\207" [type b e gnus-hidden-properties gnus-delete-wash-type remove-text-properties article-type intangible put-text-property nil] 6 (#$ . 66489)])
#@42 Hide text of TYPE in the current buffer.
(defalias 'gnus-article-hide-text-of-type #[(type) "\212ed\304	\305\n$\211\205�\306	\211T\211#\210\202�+\207" [e b type gnus-hidden-properties text-property-any article-type add-text-properties] 5 (#$ . 66795)])
#@44 Delete text of TYPE in the current buffer.
(defalias 'gnus-article-delete-text-of-type #[(type) "\212e	\302=\203@�b\210\303`\304\"\203�`\211\202&�\305`\304\"\211\205[�b\210\306\205[�\307\210\310\307w\210\303\311\"\302=\203\f�`|\210\202\f�\312d\311	$\211\205[�\313d\311	$\206V�d|\210\202@�*\207" [b type multipart get-text-property gnus-part next-single-property-change t nil "\n" article-type text-property-any text-property-not-all] 6 (#$ . 67062)])
#@50 Delete all invisible text in the current buffer.
(defalias 'gnus-article-delete-invisible-text #[nil "\212e\301d\302\303$\211\205�\304d\302\303$\206�d|\210\202�*\207" [b text-property-any invisible t text-property-not-all] 6 (#$ . 67532)])
#@57 Say whether any text of type TYPE exists in the buffer.
(defalias 'gnus-article-text-type-exists-p #[(type) "\301ed\302$\207" [type text-property-any article-type] 5 (#$ . 67786)])
#@75 Give the rank of the string HEADER as given by `gnus-sorted-header-list'.
(defalias 'gnus-article-header-rank #[nil "\303\n\203�\304\n@!\203�\305\211\202�\nA	T\202�	*\207" [gnus-sorted-header-list i list 1 looking-at nil] 3 (#$ . 67974)])
(put 'gnus-article-header-rank 'byte-optimizer 'byte-compile-inline-expand)
#@55 Hide unwanted headers and possibly sort them as well.
(defalias 'article-hide-headers #[(&optional arg delete) "?\205\370�\306\211	GT\306p\307\211\211 !\212\307\310\311\217\"?\205=�#;\2031�#\202=�#<\205=�\312\313#\314#\";\203I�\"\202Z�\"\205Z�\"<\205Z�\312\313\"\314#\203a�
q\210\214\315 \210\316\317!\203q�\320y\210\202e�o\204y�e`|\210\321\322\307\306#\203\326�\323 \210\324``T\325\203\223�\316!\204\235�\f\203\312�\316\f!\204\312�	\320$%%\203\304�\316%@!\203\267�\307\211%\202\245�%A%$T$\202\243�$*\202\316�\326\\$\210\320y\210\202y�\327 \210\330ed\325\326\\$\211\205\366�\331\332!\210\333e\334e\\\335#\210\nd|.\n\207" [gnus-inhibit-hiding gnus-sorted-header-list beg visible ignored cur t nil (byte-code "q\210\301\207" [gnus-summary-buffer t] 1) ((error)) mapconcat identity "\\|" article-narrow-to-head looking-at "From " 1 re-search-forward "^[^ 	:]*:" beginning-of-line put-text-property message-rank 2 message-sort-headers-1 text-property-any gnus-add-wash-type headers add-text-properties 5 (article-type headers dummy-invisible t) inhibit-point-motion-hooks max case-fold-search inhibit-read-only gnus-visible-headers gnus-ignored-headers i list] 8 (#$ . 68305) nil])
#@138 Toggle hiding of headers that aren't very interesting.
If given a negative prefix, always show; if given a positive prefix,
always hide.
(defalias 'article-hide-boring-headers #[(&optional arg) "\306\307\"?\205`	?\205`\212\214\310\211\311 \210\f\312\211?\203]?@eb\210
\313=\203Q�\314\315\312\310#\203T\316y\210\317\320 \312\210\314\321\312\310#\203J�\322\224\202K�d\307#\210\202,�
\323=\203\210�\324\325\326!\327\330!\203f�\202g�\331@\332\333@\"\203z�@\322\225\312O\202|�@)\"\203T\334\326!\210\202T
\335=\203\273�\336\337!\340\327\330!\203\235�\202\236�\331!\211A\203\267�\203\267�\312\341\342\217\203\267�\334\337!\210*\202T
\343=\203\356�\336\337!\344\327\330!\203\320�\202\321�\331!#\211A\203\352�#\203\352�\312\345\346\217\203\352�\334\337!\210*\202T
\347=\203!\336\350!\344\327\330!\203\202\331!#\211B\203#\203\312\351\352\217\203\334\350!\210*\202T
\353=\2039\324\336\354!\336\326!\"\203T\334\354!\210\202T
\355=\203p\356\357\"\203N\334\360!\210\202T\336\361!\336\360!-\211C\203l-\203l\312\362\363\217\203l\334\360!\210*\202T
\364=\203\230rDq\210\336\365!)\2114\203\224\366\367 4\"\370W\203\224\334\365!\210)\202T
\371=\203\303\336\337!\336\350!B\211AG\372V\203\263\334\337!\210BG\372V\203\277\334\350!\210*\202T
\373=\203T\322\211EFeb\210\314\374\312\310#\203\342FTF\202\322F\375V\203F\322V\203eb\210\214\314\374\312\211F$\210\316y\210`d}\210\334\337!\210)FS\211F\202\353eb\210\314\376\312\310#\203$ETE\202E\375V\203SE\322V\203Seb\210\214\314\376\312\211E$\210\316y\210`d}\210\334\350!\210)ES\211E\202-*?A\211?\204�.\312\207" [arg gnus-show-all-headers inhibit-point-motion-hooks inhibit-read-only gnus-boring-article-headers elem gnus-article-check-hidden-text boring-headers t article-narrow-to-head nil empty re-search-forward "^[^: 	]+:[ 	]*\n[^ 	]" -1 gnus-article-hide-text-type point-at-bol "^[^ 	]" 0 newsgroups gnus-string-equal gnus-fetch-field "newsgroups" boundp gnus-newsgroup-name "" string-match "^[^:]+:" gnus-article-hide-header to-address message-fetch-field "to" gnus-parameter-to-address (byte-code "\302\303!A@	\"\207" [to to-address gnus-string-equal mail-extract-address-components] 3) ((error)) to-list gnus-parameter-to-list (byte-code "\302\303!A@	\"\207" [to to-list gnus-string-equal mail-extract-address-components] 3) ((error)) cc-list "cc" (byte-code "\302\303!A@	\"\207" [cc to-list gnus-string-equal mail-extract-address-components] 3) ((error)) followup-to "followup-to" reply-to gnus-group-find-parameter broken-reply-to "reply-to" "from" (byte-code "\302\303\304\305\306\"\"\307\"\302\303\310\305	\306\"\"\307\"\232\207" [from reply-to sort mapcar #[(x) "\211A@)\227\207" [x] 2] mail-extract-address-components t string< #[(x) "\211A@)\227\207" [x] 2]] 7) ((error)) date "date" days-between current-time-string 4 long-to 1024 many-to "^to:" 1 "^cc:" #1=#:--cl-dolist-temp-- gname to cc from gnus-original-article-buffer cc-count to-count] 7 (#$ . 69531) (gnus-article-hidden-arg)])
(defalias 'gnus-article-hide-header #[(header) "\212eb\210\301\302\303Q\304\305#\205%�\306\307 \304\210\301\310\304\305#\203\"�\311\224\202#�d\312#)\207" [header re-search-forward "^" ":" nil t gnus-article-hide-text-type point-at-bol "^[^ 	]" 0 boring-headers] 6])
#@31 Length of normalized headers.
(defvar gnus-article-normalized-header-length 40 (#$ . 72852))
#@43 Make all header lines 40 characters long.
(defalias 'article-normalize-headers #[nil "\303\304\212\214\305 \210m?\205>�\306 `Z\211\nW\203'�\304\210\307\nZ\310\"c\210\2028�\nV\2038�\311\nu\210`\306 \312\303$\210\313y\210\202	�,\207" [column inhibit-read-only gnus-article-normalized-header-length t nil article-narrow-to-head point-at-eol make-string 32 gnus-put-text-property invisible 1] 5 (#$ . 72951) nil])
#@444 Translate M****s*** sm*rtq**t*s and other symbols into proper text.
Note that this function guesses whether a character is a sm*rtq**t* or
not, so it should only be used interactively.

Sm*rtq**t*s are M****s***'s unilateral extension to the
iso-8859-1 character map in an attempt to provide more quoting
characters.  If you see something like \222 or \264 where
you're expecting some kind of apostrophe or quotation mark, then
try this wash.
(defalias 'article-treat-dumbquotes #[nil "\301!\207" [gnus-article-dumbquotes-map article-translate-strings] 2 (#$ . 73374) nil])
#@175 Translate all characters in the body of the article according to FROM and TO.
FROM is a string of characters to translate from; to is a string of
characters to translate to.
(defalias 'article-translate-characters #[(from to) "\212\305 \205@�\306\307\310\311\"\312T\211	GW\203!�	\211I\210\202�\313\211GW\203:�	H\fHI\210T\211\202$�\314`d	#+)\207" [i x inhibit-read-only from to article-goto-body t make-string 225 120 -1 0 translate-region] 5 (#$ . 73956)])
#@133 Translate all string in the body of the article according to MAP.
MAP is an alist where the elements are on the form ("from" "to").
(defalias 'article-translate-strings #[(map) "\212\305 \2053�\306	\307\211\2031�@\212\310\n@\307\306#\203)�\311\n\211A@)!\210\202�)A\211\204�+\307)\207" [inhibit-read-only map elem #1=#:--cl-dolist-temp-- x article-goto-body t nil search-forward replace-match] 5 (#$ . 74434)])
#@39 Translate overstrikes into bold text.
(defalias 'article-treat-overstrike #[nil "\212\303 \205g�\304\305\306\307\304#\205f�\307f`\310Zf\211	=\2031�\311`\310Z`\312#\210\313``T\314\315$\210\202b�\n\316=\203L�\311`S`T\312#\210\313`\310Z`S\314\317$\210\202b�	\316=\203b�\311`\310Z`\312#\210\313``T\314\317$\210*\202�))\207" [inhibit-read-only previous next article-goto-body t search-forward "" nil 2 gnus-article-hide-text-type overstrike put-text-property face bold 95 underline] 6 (#$ . 74860) nil])
#@64 Translate ANSI SGR control sequences into overlays or extents.
(defalias 'article-treat-ansi-sequences #[nil "\212\301 \205
�\302\303`d\"))\207" [inhibit-read-only article-goto-body t ansi-color-apply-on-region] 3 (#$ . 75370) nil])
#@106 Unfold folded message headers.
Only the headers that fit into the current window width will be
unfolded.
(defalias 'gnus-article-treat-unfold-headers #[nil "rq\210\214\306\211\211\307 \210\310m?\205�\214\311 \210\312 \306\232\206.�;\205.�\313
\"\314\315!rq\210\316\216
c\210eb\210\317\320\310\306#\203S�\321\322\306\211#\210\202B�+\323de\324#\204f�\f\325 W\203w�\317\320\310\306#\203w�\321\322\306\211#\210\202f�*db\210)\202�.\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only length header t article-narrow-to-head nil mail-header-narrow-to-field buffer-string string-match generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) re-search-forward "\n[	 ]" replace-match " " - 1 window-width gnus-article-unfold-long-headers unfoldable #1#] 4 (#$ . 75611) nil])
#@23 Fold message headers.
(defalias 'gnus-article-treat-fold-headers #[nil "rq\210\214\304\211\211\305 \210m?\205!�\214\306 \210\307 \210db\210)\202�-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only t article-narrow-to-head mail-header-narrow-to-field mail-header-fold-field] 3 (#$ . 76509) nil])
#@75 Toggle display of textual emoticons ("smileys") as small graphical icons.
(defalias 'gnus-treat-smiley #[nil "rq\210\306\307\n>\203�\310\307!\202<�\311 \210\312`d\"\211\205;�\313\307!\210\314\211\2039�
@\315\307\f\"\210
A\211\204*�*\314)*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types images image #1=#:--cl-dolist-temp-- t smiley gnus-delete-images article-goto-body smiley-region gnus-add-wash-type nil gnus-add-image] 5 (#$ . 76853) nil])
#@44 Remove all images from the article buffer.
(defalias 'gnus-article-remove-images #[nil "rq\210\305\n\306\211\203�\f@\307@!\210\fA\211\204�,\306\207" [gnus-article-buffer inhibit-read-only gnus-article-image-alist elem #1=#:--cl-dolist-temp-- t nil gnus-delete-images] 3 (#$ . 77332) nil])
#@106 Unfold folded message headers.
Only the headers that fit into the current window width will be
unfolded.
(defalias 'gnus-article-treat-fold-newsgroups #[nil "rq\210\214\304\211\211\305 \210\306\307!\2053�\214\310 \210\311\312\313\304#\203)�\314\315\304\211#\210\202�\316 \210db\210)\202�-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only t article-narrow-to-head gnus-article-goto-header "newsgroups\\|followup-to" mail-header-narrow-to-field re-search-forward ", *" nil replace-match ", " mail-header-fold-field] 4 (#$ . 77637) nil])
#@173 Value of `truncate-lines' in Gnus Article buffer.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate.  See Info node `(gnus)Customizing Articles'.
(custom-declare-variable 'gnus-article-truncate-lines '(default-value 'truncate-lines) '(#$ . 78224) :version "23.1" :group 'gnus-article :type 'boolean)
#@221 Toggle whether to fold or truncate long lines in article the buffer.
If ARG is non-nil and not a number, toggle
`gnus-article-truncate-lines' too.  If ARG is a number, truncate
long lines if and only if arg is positive.
(defalias 'gnus-article-toggle-truncate-lines #[(&optional arg) "\247\203�\305V\203�\306\202!�\247\203�\307\202!�\203!�	?r\nq\210\306\247\2037�\305V\2037�\307\202>�\247\203>�\306\310 *\207" [arg gnus-article-truncate-lines gnus-article-buffer inhibit-read-only truncate-lines 0 t nil toggle-truncate-lines] 2 (#$ . 78557) "P"])
#@50 Place a boundary line at the end of the headers.
(defalias 'gnus-article-treat-body-boundary #[nil "\205Q�G\306V\205Q�r	q\210\214\307\211\211\310 \210db\210`\311c\210\312
`\313#\210\314\315 SGY\203=�P\202*�\306\315 SO)\316\261\210\317
`\320\321$.\207" [gnus-body-boundary-delimiter gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only start 0 t article-narrow-to-head "X-Boundary: " gnus-add-text-properties (invisible t intangible t) nil window-width "\n" gnus-put-text-property gnus-decoration header str] 5 (#$ . 79127) nil])
#@50 Fill lines that are wider than the window width.
(defalias 'article-fill-long-lines #[nil "\212\305\306\307p!!\214\310 \210\311m?\205<�\311\210i^Y\2036�`Td^\312 }\210\313 \314\311!\210\315\f!b\210)~\210\316y\210\202�-\207" [width inhibit-read-only adaptive-fill-mode fill-column goback t window-width get-buffer-window article-goto-body nil point-at-bol point-marker fill-paragraph marker-position 1] 4 (#$ . 79710) nil])
#@45 Capitalize the first word in each sentence.
(defalias 'article-capitalize-sentences #[nil "\212\302\303\304 \210m?\205�\305\306!\210\307 \210\202�+\207" [paragraph-start inhibit-read-only t "^[\n\f]" article-goto-body capitalize-word 1 forward-sentence] 2 (#$ . 80146) nil])
#@64 Remove trailing CRs and then translate remaining CRs into LFs.
(defalias 'article-remove-cr #[nil "\212\301eb\210\302\303\304\301#\203�\305\306\301\211#\210\202�eb\210\307\310\304\301#\205+�\305\311\301\211#\210\202�*\207" [inhibit-read-only t re-search-forward "
+$" nil replace-match "" search-forward "
" "\n"] 4 (#$ . 80431) nil])
#@51 Remove all trailing blank lines from the article.
(defalias 'article-remove-trailing-blank-lines #[nil "\212\301db\210`o\204�\302\303!\203�\304`\305 \"\204�\306y\210\202�\307y\210`|*\207" [inhibit-read-only t looking-at "^[ 	]*$" gnus-annotation-in-region-p point-at-eol -1 1] 4 (#$ . 80776) nil])
#@41 Display any Face headers in the header.
(defalias 'article-display-face #[(&optional force) "r\nq\210\214\306\211\211\307 \210	\203!�\310>\203!�\311\310!\202\326�\312\313!\314\211 r	\203D�\315!!\203D�\316\317\314\306#\204D�!q\210\214\320 \210\"\204i�#\203i� \204`�\312\313!\211 \203i�\321# \"\204y�\322\323!\203y�\324 B\202i�*\205\325�eb\210\314\211$\322\313!\211 \204\232�\325c\210` \326c\210\205\324�\327\211A@!\211\203\232�\330\331\332\306\332%\236A%$ b\210\333\310!\210\334\310$\"\210\335$\314\310#\210\202\232�*+.\207" [buffer-read-only wash-face-p gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only t article-narrow-to-head face gnus-delete-images message-fetch-field "from" nil gnus-buffer-live-p re-search-forward "^Face:[	 ]*" mail-narrow-to-head string-match gnus-article-goto-header "Face" mail-header-field-value "From:" " [no `from' set]\n" gnus-convert-face-to-png apply gnus-create-image png gnus-add-wash-type gnus-add-image gnus-put-image gnus-article-wash-types faces from gnus-original-article-buffer force gnus-article-x-face-too-ugly image gnus-face-properties-alist] 7 (#$ . 81085) (list 'force)])
#@54 Look for an X-Face header and display it if present.
(defalias 'article-display-x-face #[(&optional force) "r\nq\210\214\306\211\211\307 \210\310\311!\203�\312\311!\210	\203+�\313$>\203+�\314\313!\202\333�\315\316!\317\211%&'r	\203N�\320(!\203N�\321\322\317\306#\204N�(q\210\214\323 \210#\203\210�)\204x�*\203x�'\204o�\315\316!\211'\203x�\324*'\"\204\210�\325\326!\203\210�\327 &B&\202x�*&\205\332�\330#!\203\236�\331#&\"\202\332�#;\203\324�\317+\332\333\311\317,-#%\317\"\210\334\335!.r.q\210\336\216&@c\210\337\311ed#\210+\340\311!)\202\332�\341\342#\343#+.\207" [buffer-read-only wash-face-p gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only t article-narrow-to-head process-status "article-x-face" delete-process xface gnus-delete-images message-fetch-field "from" nil gnus-buffer-live-p re-search-forward "^X-Face:[	 ]*" mail-narrow-to-head string-match gnus-article-goto-header "X-Face" mail-header-field-value functionp mapc gnus-set-process-query-on-exit-flag start-process generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) process-send-region process-send-eof error "`%s' set to `%s' is not a function" gnus-article-x-face-command gnus-article-wash-types face x-faces from gnus-original-article-buffer force gnus-article-x-face-too-ugly process-connection-type shell-file-name shell-command-switch #1#] 7 (#$ . 82289) (list 'force)])
#@47 Decode all MIME-encoded words in the article.
(defalias 'article-decode-mime-words #[nil "rq\210\306\211\nrq\210\f)	\307ed\"-\207" [gnus-article-buffer inhibit-read-only gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets t mail-decode-encoded-word-region mail-parse-charset inhibit-point-motion-hooks] 4 (#$ . 83778) nil])
#@104 Decode charset-encoded text in the article.
If PROMPT (the prefix), prompt for a coding system to use.
(defalias 'article-decode-charset #[(&optional prompt) "\306\211\211\212\307\310\311\217\210	)\307\211\211\211\211 !\"\212\214\312 \210\313\314\306\"\313\315\306\"\205:�\316!#\203F�\317\320!\202N�\f\205N�\321\f\303\"\f\205W�\321\f\302\"
\203`�\322
!\f\203n�\323\324\f@\"\204n�\307db\210)\325y\210\214`d}\210\326=\203\213�\327 \330=\203\213�\f\203\226�\f@\331\232\205\252�\n?\205\252�\332
\205\247�\333\334
!\227!\f@#.\f\207" [gnus-newsgroup-charset gnus-newsgroup-ignored-charsets format charset ctl cte t nil (set-buffer gnus-summary-buffer) ((error)) article-narrow-to-head message-fetch-field "Content-Type" "Content-Transfer-Encoding" mail-header-parse-content-type mm-read-coding-system "Charset to decode: " mail-content-type-get mail-header-strip string-match "/" 1 gnus-decoded mm-body-7-or-8 8bit "text/plain" mm-decode-body intern gnus-strip-whitespace ct mail-parse-ignored-charsets mail-parse-charset inhibit-read-only case-fold-search inhibit-point-motion-hooks prompt] 10 (#$ . 84167) "P"])
#@44 Remove encoded-word encoding from headers.
(defalias 'article-decode-encoded-words #[nil "\306\212\307\310\311\217\210	)\306\307\211eb\210\312\313\307\314#\203#�\315y\210`o?\205W�\315y\210o\2048�\307f\316>\204*�`\317\320!\203I�\n\"\210\202O�\n\"\210\n\211b\210\202%�.\207" [gnus-newsgroup-charset gnus-newsgroup-ignored-charsets start end inhibit-read-only mail-parse-ignored-charsets t nil (set-buffer gnus-summary-buffer) ((error)) search-forward "\n\n" move -1 (9 32) looking-at "\$?:Resent-\$?\$?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\$?Reply-To\\|Sender\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):" mail-parse-charset inhibit-point-motion-hooks gnus-decode-address-function gnus-decode-header-function] 6 (#$ . 85314)])
#@65 Decode group names in Newsgroups, Followup-To and Xref headers.
(defalias 'article-decode-group-name #[nil "\306\211\307!\310
\204�\205v�\311!\205v�\214\312 \210\313\310\211\203t�@rq\210eb\210)\314\315Q\316	\310\306#\203h�\317\320 \321\216\322rq\210\316	\310\306#\210\323\324!)\n#*\306\211\310\324%\210\202<�eb\210A\211\204(�+\310,\207" [gnus-newsgroup-name regexp method inhibit-read-only inhibit-point-motion-hooks gnus-group-name-charset-method-alist t gnus-find-method-for-group nil gnus-buffer-live-p article-narrow-to-head ("Newsgroups" "Followup-To" "Xref") "^" ":\$[^\n]*\\(?:\n[	 ]+[^\n]+\$*\\)\n" re-search-forward replace-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) gnus-decode-newsgroups match-string 1 gnus-group-name-charset-group-alist gnus-original-article-buffer header #1=#:--cl-dolist-temp-- save-match-data-internal] 7 (#$ . 86069)])
(autoload 'idna-to-unicode "idna")
#@167 Decode IDNA strings in RHS in various headers in current buffer.
The following headers are decoded: From:, To:, Cc:, Reply-To:,
Mail-Reply-To: and Mail-Followup-To:.
(defalias 'article-decode-idna-rhs #[nil "\205T�\214\306\211\307 \210eb\210\310\311\312\306#\205S�\312\211\313 \314\216\315\316!\211\205=�\212\317\320\312\306#\2054�\321\322!)\205=�\323\f!\211*\203O�\f\230\204O�\324\312\211\211\316%\210*\202�+\207" [gnus-use-idna inhibit-read-only inhibit-point-motion-hooks unicode ace save-match-data-internal t article-narrow-to-head re-search-forward "@[^ 	\n
,>]*\$xn--[-A-Za-z0-9.]*\$[ 	\n
,>]" nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) match-string 1 re-search-backward "^[^ 	]" looking-at "From\\|To\\|Cc\\|Reply-To\\|Mail-Reply-To\\|Mail-Followup-To" idna-to-unicode replace-match] 6 (#$ . 87058)])
#@167 Translate a quoted-printable-encoded article.
If FORCE, decode the article whether it is marked as quoted-printable
or not.
If READ-CHARSET, ask for a coding system.
(defalias 'article-de-quoted-unreadable #[(&optional force read-charset) "\212\306\307\211\310!\2035�rq\210\311\312!\311\313!\211\205 �\314\f!\211\205)�\315
\300\"\211;\2034�\316\227!+\203?�\317\320\"\204F�\204Z�	\205d�\306\321\322	\")\205d�\323 \210\324`d\325!#,\207" [charset type inhibit-read-only gnus-original-article-buffer ct ctl t nil gnus-buffer-live-p gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get intern mm-read-coding-system "Charset: " string-match "quoted-printable" article-goto-body quoted-printable-decode-region mm-charset-to-coding-system read-charset gnus-newsgroup-charset force case-fold-search] 6 (#$ . 87945) (list 'force current-prefix-arg)])
#@136 Translate a base64 article.
If FORCE, decode the article whether it is marked as base64 not.
If READ-CHARSET, ask for a coding system.
(defalias 'article-de-base64-unreadable #[(&optional force read-charset) "\212\306\307\211\310!\2035�rq\210\311\312!\311\313!\211\205 �\314\f!\211\205)�\315
\300\"\211;\2034�\316\227!+\203?�\317\320\"\204F�\204Z�	\205o�\306\321\322	\")\205o�\323 \210\214`d}\210\324ed\"\210\325ed\326!#),\207" [charset type inhibit-read-only gnus-original-article-buffer ct ctl t nil gnus-buffer-live-p gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get intern mm-read-coding-system "Charset: " string-match "base64" article-goto-body base64-decode-region mm-decode-coding-region mm-charset-to-coding-system read-charset gnus-newsgroup-charset force case-fold-search] 6 (#$ . 88877) (list 'force current-prefix-arg)])
#@33 Translate a HZ-encoded article.
(defalias 'article-decode-HZ #[nil "\301\302!\210\212\303\304ed\"*\207" [inhibit-read-only require rfc1843 t rfc1843-decode-region] 3 (#$ . 89805) nil])
#@63 Remove the newlines that some other mailers insert into URLs.
(defalias 'article-unsplit-urls #[nil "\212\301eb\210\302\303\304\301#\203�\305\306\301\"\210\202�)t\205�\307\304!)\207" [inhibit-read-only t re-search-forward "\$\\(https?\\|ftp\$://\\S-+\\) *\n\$\\S-+\$" nil replace-match "\\1\\3" gnus-treat-article] 4 (#$ . 89997) nil])
#@161 Format an HTML article.
If READ-CHARSET, ask for a coding system.  If it is a number, the
charset defined in `gnus-summary-show-article-charset-alist' is used.
(defalias 'article-wash-html #[(&optional read-charset) "\212\306\307\n\2037�\n\247\203�\n\236A\211\204�\310\311!\211\2030�\312BCr\fq\210\313\312!\210*\202l�\314\315!\210\202l�\316
!\203e�r
q\210\317\320!\211\205N�\321!\211\205Y�\322\300\"\211;\203d�\323\227!+\204l�\324 \210\325\213+\207" [charset inhibit-read-only read-charset gnus-summary-show-article-charset-alist gnus-summary-buffer gnus-original-article-buffer t nil mm-read-coding-system "Charset: " 1 gnus-summary-show-article error "No charset is given" gnus-buffer-live-p gnus-fetch-field "content-type" mail-header-parse-content-type mail-content-type-get intern article-goto-body ((byte-code "\214`d}\210\206\n�	\211\236\211\203�\fA\305\n!\203!�\n \202'�\306\n@\nA\"+\207" [gnus-article-wash-function mm-text-html-renderer func mm-text-html-washer-alist entry functionp apply] 4)) ct ctl gnus-newsgroup-charset] 4 (#$ . 90348) "P"])
#@34 Wash the current buffer with w3.
(defalias 'gnus-article-wash-html-with-w3 #[nil "\304 \210\305 \306\211\307\307\310\311\217,\207" [w3-honor-stylesheets url-gateway-unplugged url-standalone-mode w3-strict-width mm-setup-w3 window-width t nil (byte-code "\300ed\"\207" [w3-region] 3) ((error))] 4 (#$ . 91441)])
#@41 Wash the current buffer with emacs-w3m.
(defalias 'gnus-article-wash-html-with-w3m #[nil "\306 \210\307\310ed\"\210*\311ed\312\313$\210\205\234�\314\304!\205\234�\f\205\234�\314\305!\203\226�
\203\226�ed\315\316\"\317
!\307\320\f\"\210W\205\224�\203p�\321\316\307$\206a�\311\322$\210\202\210�\323\316\307$\206}�\311\322\f$\210?\202G�-\207\311ed\322\f$\207" [mm-w3m-safe-url-regexp w3m-force-redisplay w3m-safe-url-regexp mm-inline-text-html-with-w3m-keymap w3m-minor-mode-map w3m-link-map mm-setup-w3m nil w3m-region put-text-property mm-inline-text-html-with-w3m t boundp get-text-property w3m-href-anchor copy-keymap set-keymap-parent text-property-any keymap text-property-not-all start end on map next] 5 (#$ . 91762)])
#@35 Wash the current buffer with w3m.
(defalias 'gnus-article-wash-html-with-w3m-standalone #[nil "\303 \203'�\304!\204
�\305\211\306ed\307\310\211\311\312\313\314\315\316!\317\316!&
*\207\320\311\307\312\313\314%\207" [charset coding-system-for-read coding-system-for-write mm-w3m-standalone-supports-m17n-p mm-coding-system-p iso-8859-1 call-process-region "w3m" t nil "-dump" "-T" "text/html" "-I" symbol-name "-O" mm-inline-wash-with-stdin] 15 (#$ . 92550)])
#@89 List of temporary files created by `gnus-article-browse-html-parts'.
Internal variable.
(defvar gnus-article-browse-html-temp-list nil (#$ . 93022))
#@279 What to do with temporary files from `gnus-article-browse-html-parts'.
If nil, don't delete temporary files.  If it is t, delete them on
exit from the summary buffer.  If it is the symbol `file', query
on each file, if it is `ask' ask once when exiting from the
summary buffer.
(custom-declare-variable 'gnus-article-browse-delete-temp ''ask '(#$ . 93178) :group 'gnus-article :version "23.1" :type '(choice (const :tag "Don't delete" nil) (const :tag "Don't ask" t) (const :tag "Ask" ask) (const :tag "Ask for each file" file)))
#@64 Delete temp-files created by `gnus-article-browse-html-parts'.
(defalias 'gnus-article-browse-delete-temp-files #[(&optional how) "\203N�	\204�\n\211\203N�	\305=\203 �\306\307\310G\"!\203 �\311\312\211\203K�\f@\313!\203D�	\311=\204@�\306\307\314\"!\203D�\315!\210\fA\211\204(�*\312\207" [gnus-article-browse-html-temp-list how gnus-article-browse-delete-temp file #1=#:--cl-dolist-temp-- ask gnus-y-or-n-p format "Delete all %s temporary HTML file(s)? " t nil file-exists-p "Delete temporary HTML file `%s'? " delete-file] 5 (#$ . 93714)])
#@179 View all "text/html" parts from LIST.
Recurse into multiparts.  The optional HEADER that should be a decoded
message header will be added to the bodies of the "text/html" parts.
(defalias 'gnus-article-browse-html-parts #[(list &optional header) "\306\211\211\211\211
\306@\211A\203sA@\211@<\203j@A@\211@\307\232\204h�\f@\310\232\203\220B\204I�\311\f\312\"\206D�\311\313@8\314\"\211\203\220\315@8\204W�\316\317\320\217\203\220\315@8\211@A@\211@\307\232\203\220\311\f\302\"\211\204z�B\204z�\204\200�\321\322\306\323#B\203\306\211\211\211\211CDEFG\324\325!HrHq\210\326\216\327 \210\330IB\331\261\210\332\333!Geb\210\334\335\306\330#\203\325�\336\337\224\203\306�\340\202\320�\341\224\203\317�\342\202\320�\343!\210\202\264�eb\210\344c\210db\210\345c\210\n\346=\203\347\350\351 \n\"FG\205\372�\350G\n\"G\350\352@!\n\"E\202\267\353ed\"\211DG\337U\203#D@D\354D!C\2021DG\337V\2031\347\211DCC\203\253\n\203\212\354\n!ECE=\203e\350\351 C\"FG\205Z\350GC\"G\352@!E\202\267\347\350\351 \n\"FG\205x\350G\n\"G\350\355\352@!E\"\n\"E\202\267D\350\351 C\"FG\205\240\350GC\"G\352@!E\202\267\356\351 !F\352@!E\357 \210\360 \210Ec\210\n\203\313\361@\n\"\210G\203\350eb\210\362\363\306\330#\204\350\334\364\306\330#\210\363G\365\261\210eb\210\334\366\306\330#\204\371\334\367\306\330#\210Fc\210\370ed	\306\211\211\371\330&\210.\202d\n\203Z\324\325!JrJq\210\372\216\360 \210\n\346=\2033\350\352@!\347\211\"\2027\352@!c\210\361@\n\"\204E\204T\370ed	\306\211\211\371\330&\210\202V\306+\202d	\203d\373@	\"\210	\203m\374\375	\"\210\376\377\201M�\"\210\376\201N�\201O�\"\210\201P�	\206\211\201Q�!!\210\330\202j@@\201R�@\211@@;\203\247@@\202\254@A@@)\201S�\"@)\201T�\232\203\312\201U�@B\"\203j\330\202j@\211@@;\203\332@@\202\337@A@@)\201V�\232\203j\324\325!KrKq\210\201W�\216\327 \210\201X�@!\210\201Y�\330\211\"@\201Z�@@!\203@A@@;\203@C@B\203U\201[� \210\201L�\201\\�N\2065LL\201]� \210)eb\210\362\201^�\306\201_�#\210\201`�\306x\210e`{B+\201U�@B\"\201a�@!\210\203j\330AA\211A\204�*-\207" [showed tmp-file charset file type list nil "text/html" "message/external-body" mail-content-type-get name 4 filename 6 code (byte-code "\301!\210\302\207" [handle mm-extern-cache-contents t] 2) ((error (byte-code "\302\303\304\305!#\210	\303Y\203�\306\307!\210\310\207" [code gnus-verbose gnus-message 3 "%s" error-message-string sit-for 2 nil] 5))) mm-make-temp-file "mm-" ".html" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte t "\n" message-fetch-field "subject" re-search-forward "\$<\$\\|\$>\$\\|&" replace-match 1 "&lt;" 2 "&gt;" "&amp;" "<pre>\n" "</pre>\n<hr>\n" gnus-decoded utf-8 mm-encode-coding-string buffer-string mm-get-part mm-find-mime-charset-region mm-charset-to-coding-system mm-decode-coding-string mm-string-as-unibyte erase-buffer mm-disable-multibyte mm-add-meta-html-tag search-forward "<title>" "<head>\\s-*" "</title>\n" "<body\$?:\\s-+[^>]+\\|\\s-*\$>\\s-*" "</head\$?:\\s-+[^>]+\\|\\s-*\$>\\s-*" mm-write-region binary ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-save-part-to-file add-to-list gnus-article-browse-html-temp-list add-hook gnus-summary-prepare-exit-hook handle #3=#:--cl-dolist-temp-- header coding hcharset body eheader title #1# case-fold-search #2# #4=#:temp-buffer gnus-visible-headers gnus-article-browse-delete-temp-files gnus-exit-gnus-hook #[nil "\300\301!\207" [gnus-article-browse-delete-temp-files t] 2] browse-url-of-file expand-file-name split-string "/" "multipart" gnus-article-browse-html-parts "message/rfc822" ((byte-code "\301!\203\n�\302!\210\301\207" [#4# buffer-name kill-buffer] 2)) mm-insert-part mm-dissect-buffer bufferp article-decode-encoded-words standard-value article-hide-headers "\n\n" move "	\n " mm-destroy-parts] 10 (#$ . 94276)])
#@537 View "text/html" parts of the current article with a WWW browser.
The message header is added to the beginning of every html part unless
the prefix argument ARG is given.

Warning: Spammers use links to images in HTML articles to verify
whether you have read the message.  As
`gnus-article-browse-html-article' passes the HTML content to the
browser without eliminating these "web bugs" you should only
use it for mails from trusted senders.

If you always want to display HTML parts in the browser, set
`mm-text-html-renderer' to nil.
(defalias 'gnus-article-browse-html-article #[(&optional arg) "\203\n�\306 \210\202�\301\307N\206�	\310\306 \210*rq\210?\205>�\214~\210\311eb\312\313\310\314#\2034�\315\224\202<�db\210\316\310x\210`\")\310q\210\317\314\211\"\320\f@!\203\\�\fA@@;\203\\�\fC\321\f
\"\204h�\322\323\324\"\210\325\f!\210?\205s�\306 +\207" [arg gnus-visible-headers gnus-treat-body-boundary gnus-article-buffer parts header gnus-summary-show-article standard-value nil buffer-substring-no-properties search-forward "\n\n" t 0 "	\n " mm-dissect-buffer bufferp gnus-article-browse-html-parts gnus-error 3 "Mail doesn't contain a \"text/html\" part!" mm-destroy-parts gnus-original-article-buffer] 6 (#$ . 98307) "P"])
#@108 Remove list identifies from the Subject header.
The `gnus-list-identifiers' variable specifies what to do.
(defalias 'article-hide-list-identifiers #[nil "\304:\203�\305\306\307#\202�\304\n\205D�\212\214\310 \210eb\210\311\312\n\313Q\314\304#\2036�\315\224\316\225|\210\317 \210\202�\311\320\314\304#\205C�\321\224\321\225|*+\207" [gnus-list-identifiers inhibit-read-only regexp inhibit-point-motion-hooks t mapconcat identity " *\\|" article-narrow-to-head re-search-forward "^Subject: +\$R[Ee]: +\$*\$" " *\$" nil 2 0 beginning-of-line "^Subject: +\$\\(R[Ee]: +\$+\\)R[Ee]: +" 1] 5 (#$ . 99558) nil])
#@155 Toggle hiding of any PEM headers and signatures in the current article.
If given a negative prefix, always show; if given a positive prefix,
always hide.
(defalias 'article-hide-pem #[(&optional arg) "\303\304\"?\205G�\212\305\306eb\210\307\310\306\305#\205F�\311\224T\211\205F�\312\304!\210\313	\307\314\306\305#\2033�\311\225\2024�d\304#\210\307\315\306\305#\205F�\313\311\224\311\225\304#+\207" [arg end inhibit-read-only gnus-article-check-hidden-text pem t nil search-forward "\n-----BEGIN PRIVACY-ENHANCED MESSAGE-----\n" 0 gnus-add-wash-type gnus-article-hide-text-type "\n\n" "\n-----END PRIVACY-ENHANCED MESSAGE-----\n"] 6 (#$ . 100183) (gnus-article-hidden-arg)])
#@105 Strip the banners specified by the `banner' group parameter and by
`gnus-article-address-banner-alist'.
(defalias 'article-strip-banner #[nil "\212\214\306\307	!\203�\310\307	!!\210\n\2054�\214~\210\311 \210\312\313!)\211\2053�\f!\211A@)\211\2053�\314\315\215)+\207" [inhibit-point-motion-hooks gnus-newsgroup-name gnus-article-address-banner-alist from gnus-extract-address-components x t gnus-parameter-banner article-really-strip-banner article-narrow-to-head mail-fetch-field "from" found (byte-code "\304\211\203\"�\n@\305	@\"\203�\306\307\310	A!\"\210\nA\211\204�*\304\207" [gnus-article-address-banner-alist pair #1=#:--cl-dolist-temp-- from nil string-match throw found article-really-strip-banner] 5)] 4 (#$ . 100868) nil])
#@45 Strip the banner specified by the argument.
(defalias 'article-really-strip-banner #[(banner) "\212\214\305\306\305\307 \210\310=\203!�\311 \205V�~\210\312y\210`d|\202V�9\203@�\f\236A\211\205V�\313\306\305#\205V�\314\224\314\225|\210\202/�;\205V�\313\306\305#\205V�\314\224\314\225|\210\202E�-\207" [inhibit-read-only gnus-signature-limit inhibit-point-motion-hooks banner gnus-article-banner-alist t nil article-goto-body signature gnus-article-narrow-to-signature -1 re-search-forward 0] 4 (#$ . 101621)])
#@56 Translate article using an online translation service.
(defalias 'article-babel #[nil "\306\307!\210rq\210\310\311 \205'�`d\n{\312\f!\214\n}\210\n|\210
c-*\207" [gnus-article-buffer inhibit-read-only start end orig trans require babel t article-goto-body babel-as-string] 2 (#$ . 102145) nil])
#@126 Hide the signature in the current article.
If given a negative prefix, always show; if given a positive prefix,
always hide.
(defalias 'article-hide-signature #[(&optional arg) "\302\303\"\204�\212\214\304\305 \203�\306ed\303#\210+\307\310!\207" [arg inhibit-read-only gnus-article-check-hidden-text signature t gnus-article-narrow-to-signature gnus-article-hide-text-type gnus-set-mode-line article] 4 (#$ . 102455) (gnus-article-hidden-arg)])
#@38 Strip offensive headers from bodies.
(defalias 'article-strip-headers-in-body #[nil "\212\301 \210\302\303\304!\205�\305 \306y\210`|*\207" [case-fold-search article-goto-body t looking-at "x-no-archive:" point-at-bol 1] 2 (#$ . 102910) nil])
#@59 Remove all blank lines from the beginning of the article.
(defalias 'article-strip-leading-blank-lines #[nil "\212\302\211\303 \205 �m?\205 �\304\305!\205 �\306 \307y\210`|\210\202\n�+\207" [inhibit-read-only inhibit-point-motion-hooks t article-goto-body looking-at "[ 	]*$" point-at-bol 1] 2 (#$ . 103160) nil])
#@105 Narrow the buffer to the head of the message.
Point is left at the beginning of the narrowed-to region.
(defalias 'article-narrow-to-head #[nil "eb\300\301\302\303#\203�`S\202�d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 103483)])
#@39 Place point at the start of the body.
(defalias 'article-goto-body #[nil "eb\210\203	�\301\207\302\303\304\301#\203�\301\207db\210\304\207" [article-goto-body-goes-to-point-min-p t search-forward "\n\n" nil] 4 (#$ . 103729)])
#@54 Replace consecutive blank lines with one empty line.
(defalias 'article-strip-multiple-blank-lines #[nil "\212\302\211\303 \210\304\305\306\302#\203\"�\307\310\224\310\225\"\204�\311\312\306\302#\210\202�\303 \210\304\313\306\302#\205?�\307\310\224\310\225\"\204%�\314\224\314\225|\210\202%�+\207" [inhibit-read-only inhibit-point-motion-hooks t article-goto-body re-search-forward "^[ 	]+$" nil gnus-annotation-in-region-p 0 replace-match "" "\n\n\$\n+\$" 1] 4 (#$ . 103963) nil])
#@72 Remove all white space from the beginning of the lines in the article.
(defalias 'article-strip-leading-space #[nil "\212\302\211\303 \210\304\305\306\302#\205�\307\310\302\211#\210\202�+\207" [inhibit-read-only inhibit-point-motion-hooks t article-goto-body re-search-forward "^[ 	]+" nil replace-match ""] 4 (#$ . 104457) nil])
#@66 Remove all white space from the end of the lines in the article.
(defalias 'article-strip-trailing-space #[nil "\212\302\211\303 \210\304\305\306\302#\205�\307\310\302\211#\210\202�+\207" [inhibit-read-only inhibit-point-motion-hooks t article-goto-body re-search-forward "[ 	]+$" nil replace-match ""] 4 (#$ . 104797) nil])
#@51 Strip leading, trailing and multiple blank lines.
(defalias 'article-strip-blank-lines #[nil "\300 \210\301 \210\302 \207" [article-strip-leading-blank-lines article-remove-trailing-blank-lines article-strip-multiple-blank-lines] 1 (#$ . 105132) nil])
#@24 Strip all blank lines.
(defalias 'article-strip-all-blank-lines #[nil "\212\302\211\303 \210\304\305\306\302#\205�\307\310\302\211#\210\202�+\207" [inhibit-read-only inhibit-point-motion-hooks t article-goto-body re-search-forward "^[ 	]*\n" nil replace-match ""] 4 (#$ . 105390) nil])
#@70 Narrow to the signature; return t if a signature is found, else nil.
(defalias 'gnus-article-narrow-to-signature #[nil "\305\306 \205k�\307y\210	<\203�	\202�	C\310\211\f\211A@\211\203`�\250\2031�d`ZW\204�\311!\203@�\312`d\"W\204�\313!\203K� \204�;\203X�\314\310\305#\203�\305\310\211\202�\n?\205j�`d}\210\305+)\207" [inhibit-point-motion-hooks gnus-signature-limit limited limit limits t gnus-article-search-signature 1 nil floatp count-lines functionp re-search-forward] 5 (#$ . 105686)])
#@111 Search the current buffer for the signature separator.
Put point at the beginning of the signature separator.
(defalias 'gnus-article-search-signature #[nil "`db\210	;\203�\303	\304\305#\202,�	\n\203*�\303\n@\304\305#\204*�\n\211A@\210\202�\n)\2033�\305\2027�b\210\304)\207" [cur gnus-signature-separator seps re-search-backward nil t] 4 (#$ . 106206)])
#@63 Return the current prefix arg as a number, or 0 if no prefix.
(defalias 'gnus-article-hidden-arg #[nil "\203\n�\301!\202�\302C\207" [current-prefix-arg prefix-numeric-value 0] 2 (#$ . 106572)])
#@131 Return nil if hiding is necessary.
Arg can be nil or a number.  nil and positive means hide, negative
means show, 0 means toggle.
(defalias 'gnus-article-check-hidden-text #[(type arg) "\212\214\303!\n\203�\n\304V\203�\305\202-�\n\304W\203\"�\306!\210\307\202-�	\310=\205-�\306!\210\307+\207" [type hide arg gnus-article-hidden-text-p 0 nil gnus-article-show-hidden-text t hidden] 2 (#$ . 106776)])
#@67 Say whether the current buffer contains hidden text of type TYPE.
(defalias 'gnus-article-hidden-text-p #[(type) "\302ed\303$\211\203%�\304	\305\"\204%�\304	\306\"\204%�\302	Td\303$\211\204�	\205*�\307)\207" [type pos text-property-any article-type get-text-property invisible dummy-invisible hidden] 6 (#$ . 107187)])
#@76 Show all hidden text of type TYPE.
Originally it is hide instead of DUMMY.
(defalias 'gnus-article-show-hidden-text #[(type &optional dummy) "\304\211\305\306\ned\306\nBB%\210\307\n!*\207" [inhibit-point-motion-hooks inhibit-read-only type gnus-hidden-properties t gnus-remove-text-properties-when article-type gnus-delete-wash-type] 8 (#$ . 107517)])
#@37 Mapping from time units to seconds.
(defconst article-time-units (byte-code "\300\301B\302\303B\304\305B\306\307B\310BBBB\207" [year 31557600.0 week 604800 day 86400 hour 3600 ((minute . 60) (second . 1))] 5) (#$ . 107878))
#@128 Move point to the start of the next header.
If the current header is a continuation header, this can be several
lines forward.
(defalias 'gnus-article-forward-header #[nil "\301?\205�\302y\210\303\304!\203�\302y\210\202�\305\211\202�)\207" [ended nil 1 looking-at "[ 	]+[^ 	]" t] 3 (#$ . 108109)])
#@328 Convert DATE date to universal time in the current article.
If TYPE is `local', convert to local time; if it is `lapsed', output
how much time has lapsed since DATE.  For `lapsed', the value of
`gnus-article-date-lapsed-new-header' says whether the "X-Sent:" header
should replace the "Date:" one, or should be added below it.
(defalias 'article-date-ut #[(&optional type highlight) "\306	\204\n�\202�\n\307=\203�\310\202�\203�\311\202�\312\211\312 \313\211!\"\313\211#$\212\214~\210eb\210\314`\211!\315\"\211\"\204W�\316`\315\"\211!\205)\314!\315\"\"!\317!d\315\313$\211!\203{�!b\210n\204r�m\203v�`\202|�`T\202|�d}\210eb\210\320\313\312#\203\230�\314\321 \322\"#\314\323 S\322\"$eb\210\313!\320\f\313\312#\203\307�!\203\266�\321 \324 \210`|\210\202\236�\321 \324 \210\325u\210`|\210`!\202\236�!\204\327�\320\313\312#\203\327�\326y\210!\211%\203\343�%b\210)\327\"\n\206\354�\330\"c\210!\204\372�\331c\210\325y\210\332 \210\333\334!\203\335\326\224\326\225T\322#$\210\335\336\224\336\225\322$$\210\335edS\315\"$\210db\210~\210\2029�.\207" [tdate-regexp gnus-article-date-lapsed-new-header type article-lapsed-timer date-regexp case-fold-search "^Date:[ 	]\\|^X-Sent:[ 	]" lapsed "^X-Sent:[ 	]" "^Date:[ 	]" t nil get-text-property original-date next-single-property-change text-property-any re-search-forward point-at-bol face point-at-eol gnus-article-forward-header -1 1 article-make-date-line ut "\n" beginning-of-line looking-at "\$[^:]+\$: *\$.*\$$" put-text-property 2 inhibit-read-only inhibit-point-motion-hooks pos date bface eface point] 7 (#$ . 108421) (list 'ut t)])
#@29 Return a DATE line of TYPE.
(defalias 'article-make-date-line #[(date type) "\301>\204�\302\303\"\210\304\305\306\217\207" [type (local ut original user iso8601 lapsed english) error "Unknown conversion type: %s" nil (byte-code "\306!\n\307=\203�\310\311	!P\202\275\n\312=\203c�\310\311\313!\314\315\"\211@\f\211@A@)\316	!@Z\211A\317W\203D�
SA\320\\D\202Y�A\321V\203U�
TA\320ZD\202Y�
AD,!\317\322O\323Q\202\275\n\324=\203~�\310\325\326\"\203y�\317\211\224O\202z�P\202\275\n\327=\203\250�\330\331\332\217\206\215�B\333!\203\235�	!\202\244�\310\334	\"P)\202\275\n\335=\203\333�\316	!@C\310\334\336	\"\337\340C\317V\203\306�\341\202\307�\342\343C!\344\245\343C!\344\246\345\245$Q)\202\275\n\346=\203@\347 D\350D	\"\211E\205�\351E@!\320_E\211@A@)\\FE\205\343F!G\330\211HIE\204\352\202;\353G!\203'\354\202;\355\356\357J\360#F\317V\2039\361\202:\362Q.\202\275\n\363=\205\275\364	!K\365\366\367K8!\367K8\370\246L\367K8\371>\203g\372\202\211L\373U\203r\374\202\211L\375U\203}\376\202\211L\367U\203\210\377\202\211\372)\201N�\201O�K8SM8\201P�\366\201Q�K8!\201R�\337\201S�\375K8\"\201T�\337\201S�KA@\"\260))\207" [date time type e tm ms date-to-time local "Date: " message-make-date ut parse-time-string apply encode-time current-time-zone 0 65536 65535 -5 "UT" original string-match "\n+$" user nil (byte-code "rq\210	)\207" [gnus-summary-buffer gnus-article-time-format] 1) ((error)) functionp format-time-string iso8601 "%Y%m%dT%H%M%S" format "%s%02d%02d" "+" "-" abs 3600 60 lapsed current-time subtract-time float "X-Sent: Unknown" zerop "X-Sent: Now" "X-Sent: " mapconcat #[(unit) "\304\305	A\245!\211!\203�\306\207\n	A_Z\203�\307\202�\306\310\311\n!!\312\313	@!\n\314V\2033�\315\2024�\306\260\316\207" [sec unit num prev zerop ffloor #1="" ", " int-to-string floor " " symbol-name 1 "s" t] 6] #1# " ago" " in the future" english decode-time "Date: the " number-to-string 3 10 (11 12 13) "th" 1 "st" 2 "nd" "rd" x ls gnus-article-time-format tz now real-time real-sec sec num prev article-time-units dtime digit gnus-english-month-names " of " 4 " " 5 " at " "%02d" ":"] 14) ((error (format "Date: %s (from Gnus)" date)))] 3 (#$ . 110056)])
#@57 Convert the current article date to the local timezone.
(defalias 'article-date-local #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut local] 3 (#$ . 112300) (list t)])
#@71 Convert the current article date to something that is proper English.
(defalias 'article-date-english #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut english] 3 (#$ . 112495) (list t)])
#@187 Convert the current article date to what it was originally.
This is only useful if you have used some other date conversion
function and want to see what the date was before converting.
(defalias 'article-date-original #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut original] 3 (#$ . 112709) (list t)])
#@68 Convert the current article date to time lapsed since it was sent.
(defalias 'article-date-lapsed #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut lapsed] 3 (#$ . 113040) (list t)])
#@65 Function to be run from a timer to update the lapsed time line.
(defalias 'article-update-date-lapsed #[nil "\302 \303\216\304\212\304\305\306\217,\207" [save-match-data-internal deactivate-mark match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil (byte-code "\300\301\302\303#\207" [walk-windows #[(w) "\303!q\210	\304=\205'�\305 eb\210\306\307\310\311#\203�\312\311!\210\313\n!b\210\n\310\211\223)\207" [w major-mode mark window-buffer gnus-article-mode point-marker re-search-forward "^X-Sent:" nil t article-date-lapsed marker-position] 4] nil visible] 4) ((error))] 3 (#$ . 113248)])
#@145 Start a timer to update the X-Sent header in the article buffers.
The numerical prefix says how frequently (in seconds) the function
is to run.
(defalias 'gnus-start-date-timer #[(&optional n) "\204�\302\303 \210\304\302\305#\211\207" [n article-lapsed-timer 1 gnus-stop-date-timer run-at-time article-update-date-lapsed] 4 (#$ . 113897) "p"])
#@24 Stop the X-Sent timer.
(defalias 'gnus-stop-date-timer #[nil "\205�\301!\210\302\211\207" [article-lapsed-timer nnheader-cancel-timer nil] 2 (#$ . 114252) nil])
#@129 Convert the current article date to the user-defined format.
This format is defined by the `gnus-article-time-format' variable.
(defalias 'article-date-user #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut user] 3 (#$ . 114424) (list t)])
#@46 Convert the current article date to ISO8601.
(defalias 'article-date-iso8601 #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut iso8601] 3 (#$ . 114689) (list t)])
#@63 Save the original date as a text property and evaluate FORMS.
(defalias 'gnus-article-save-original-date '(macro . #[(&rest forms) "\301\302\303\304\305\306\307\"BBBBB\207" [forms let* ((case-fold-search t) (start (progn (goto-char (point-min)) (when (and (re-search-forward "^date:[	\n ]+" nil t) (not (bolp))) (match-end 0)))) (date (when (and start (re-search-forward "[	 ]*\n\$?:[^	 ]\\|\\'\$" nil t)) (buffer-substring-no-properties start (match-beginning 0))))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) 'original-date date) append ((goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) 'original-date date))] 8 (#$ . 114877)]))
#@47 Remove excessive whitespace from all headers.
(defalias 'article-remove-leading-whitespace #[nil "\212\214\301\302 \210eb\210\303\304\305\301#\205�\306\224\306\225|\210\202\n�+\207" [inhibit-read-only t article-narrow-to-head re-search-forward "^[^ :]+: \$[ 	]+\$" nil 1] 4 (#$ . 115605) nil])
#@52 Emphasize text according to `gnus-emphasis-alist'.
(defalias 'article-emphasize #[(&optional arg) "\306\307\"?\205\367�\212\310\311\312\217\206�	\313\314\315\n\"\310\211\211\211\211\211 !\"#\316 \210`#\211A#@\211\205\365�b\210@ A@\3178\3208\321 \310\313#\2031�\f\224\203V�
\224\203V�
\224
\225!!$%\322\323\310%$!%\210\324!>\203\234�\325%Se]%\324\211!>\211&AA)$\210+\326\f\224\f\225\307#\210\f\224\f\225\303'()\327 *\330\216\212\214b\210\321+)\331#\203\334�\332\333\334\224\"('#\210`\202\277�\332\333`\"('#\210.\335\307!\210
\225b\210\202V�.\n\207" [arg gnus-emphasis-alist gnus-hidden-properties face visible invisible gnus-article-check-hidden-text emphasis nil (byte-code "rq\210	)\207" [gnus-summary-buffer gnus-article-emphasis-alist] 1) ((error)) t append (article-type emphasis) article-goto-body 2 3 re-search-forward gnus-add-text-properties-when article-type intangible put-text-property gnus-article-unhide-text-type match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) move gnus-overlay-put gnus-make-overlay 0 gnus-add-wash-type beg elem regexp props inhibit-read-only alist e b x val prop end save-match-data-internal gnus-emphasize-whitespace-regexp] 9 (#$ . 115909) (gnus-article-hidden-arg)])
#@33 Setup newsgroup emphasis alist.
(defalias 'gnus-article-setup-highlight-words #[(&optional highlight-words) "?\205h�	\205�	\306\307\n\"\203�\n\310\225\311O\202�\n)\312\300!\210\f\311\211\211A@\211\203O�\203)�\306@\"\203)�\311\313A!\202)�
+\313
!\244	\205a�\313\314	\315\316#!\244\244\211)\207" [gnus-article-emphasis-alist gnus-newsgroup-name gname name gnus-group-highlight-words-alist highlight string-match "^[^:]+:" 0 nil make-local-variable copy-sequence gnus-group-find-parameter highlight-words t elem alist gnus-emphasis-alist] 6 (#$ . 117237)])
#@38 Save the currently selected article.
(defalias 'gnus-article-save #[(save-buffer file &optional num) "\306N\204\n�	\204#�\306NJ\206�\n\206�\307r
q\210\310\311\312\"\210+\313\213\207" [gnus-default-article-saver gnus-save-all-headers gnus-saved-headers gnus-visible-headers gnus-summary-buffer save-buffer :headers nil article-hide-headers 1 t ((byte-code "\204�\306\307!\207	q\210\n\f\204�\310\202 �\f\311=\203�\312\202 �
\f\f\313=\205*�
q\210\f!+\207" [gnus-default-article-saver gnus-article-buffer save-buffer gnus-save-article-buffer gnus-prompt-before-saving file error "No default saver is defined" default always nil t filename num gnus-number-of-articles-to-be-saved gnus-article-current-summary] 2))] 3 (#$ . 117827)])
(defalias 'gnus-read-save-file-name #[(prompt &optional filename function group headers variable dir-var) "	\nJ#\306\307\310=\203�
\202\311=\203 �
\202\203*�\202J\2039�\307\312
!J\"\313!\314\203V�\315V\203V�\314\316\"\202W�\317\"\204p�\320\321\312
!\322R\323
!
#\202\367�;\203\217�\nJ#\320\321\312
!\322R\323
!
#\202\367�G\315U\203\317�\307@ \"!\324!!\203\256�\325!!\202\274�\326!!\203\272�!\202\274� \"\320\321!\322R\"!#*\202\367�\237\306#\244#\307\320\327P @# \")\f#B\211#@)$\330\323$!!\210\324$!\203\307\312
!\325$!\"$\331$!+!\330\323\f!!\210\203'\fL\210\2033\323\f!L\210\f*\207" [function group headers variable result default-name nil expand-file-name default t file-name-nondirectory gnus-get-split-value format 1 "these %d articles" "this article" read-file-name " (default " "): " file-name-directory file-directory-p file-name-as-directory file-exists-p " (`M-p' for defaults): " gnus-make-directory nnheader-translate-file-chars filename dir-var gnus-split-methods split-name prompt gnus-number-of-articles-to-be-saved gnus-article-save-directory name dir file-name-history file] 6])
#@71 Return the first instance of an "Archive-name" in the current buffer.
(defalias 'gnus-article-archive-name #[(group) "\302\303\304\305\302#\205�\306	\307\310!\")\207" [case-fold-search gnus-article-save-directory t re-search-forward "archive-name: *\$[^ \n	]+\$[ 	]*$" nil nnheader-concat match-string 1] 4 (#$ . 119778)])
#@66 If GROUP is an nndoc group, return the name of the parent group.
(defalias 'gnus-article-nndoc-name #[(group) "\301!@\302=\205
�\303\304\"\207" [group gnus-find-method-for-group nndoc gnus-group-get-parameter save-article-group] 3 (#$ . 120111)])
#@150 Append this article to Rmail file.
Optional argument FILENAME specifies file name.
Directory to save to is default to `gnus-article-save-directory'.
(defalias 'gnus-summary-save-in-rmail #[(&optional filename) "\306\307	\n\310&\311 
\312\313\"\314\216\203,�\315!\210\316!q\210\2021�\317!\210\212\214~\210\320!\210.\207" [filename gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in rmail file" gnus-newsgroup-last-rmail selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-output-to-rmail #2=#:buf #3=#:w] 7 (#$ . 120367)])
#@154 Append this article to Unix mail file.
Optional argument FILENAME specifies file name.
Directory to save to is default to `gnus-article-save-directory'.
(defalias 'gnus-summary-save-in-mail #[(&optional filename) "\306\307	\n\310&\311 
\312\313\"\314\216\203,�\315!\210\316!q\210\2021�\317!\210\212\214~\210\320!\203N�\321!\203N�\322!\203N�\323!\210\202R�\324!\210.\207" [filename gnus-mail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in Unix mail file" gnus-newsgroup-last-mail selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer file-readable-p file-regular-p mail-file-babyl-p gnus-output-to-rmail gnus-output-to-mail #2=#:buf #3=#:w] 7 (#$ . 121082)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-summary-save-in-file :decode t :headers gnus-saved-headers] 4)
#@144 Append this article to file.
Optional argument FILENAME specifies file name.
Directory to save to is default to `gnus-article-save-directory'.
(defalias 'gnus-summary-save-in-file #[(&optional filename overwrite) "\306\307	\n\310&\311 
\312\313\"\314\216\203,�\315!\210\316!q\210\2021�\317!\210\212\214~\210\203D�\320!\203D�\321!\210\322!\210.\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in file" gnus-newsgroup-last-file selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer file-exists-p delete-file gnus-output-to-file #2=#:buf #3=#:w overwrite] 7 (#$ . 122052)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\207" [put gnus-summary-write-to-file :decode t :function gnus-summary-save-in-file :headers gnus-saved-headers] 4)
#@182 Write this article to a file, overwriting it if the file exists.
Optional argument FILENAME specifies file name.
The directory to save in defaults to `gnus-article-save-directory'.
(defalias 'gnus-summary-write-to-file #[(&optional filename) "\304\305	\n\306\307&\310\311\"\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-read-save-file-name "Save %s in file" nil gnus-newsgroup-last-directory gnus-summary-save-in-file t] 8 (#$ . 123014)])
(put 'gnus-summary-save-body-in-file :decode t)
#@153 Append this article body to a file.
Optional argument FILENAME specifies file name.
The directory to save in defaults to `gnus-article-save-directory'.
(defalias 'gnus-summary-save-body-in-file #[(&optional filename overwrite) "\306\307	\n\310&\311 
\312\313\"\314\216\203,�\315!\210\316!q\210\2021�\317!\210\212\214~\210\320 \203>�`d}\210\203M�\321!\203M�\322!\210\323!\210.\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s body in file" gnus-newsgroup-last-file selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer article-goto-body file-exists-p delete-file gnus-output-to-file #2=#:buf #3=#:w overwrite] 7 (#$ . 123548)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-summary-write-body-to-file :decode t :function gnus-summary-save-body-in-file] 4)
#@187 Write this article body to a file, overwriting it if the file exists.
Optional argument FILENAME specifies file name.
The directory to save in defaults to `gnus-article-save-directory'.
(defalias 'gnus-summary-write-body-to-file #[(&optional filename) "\304\305	\n\306\307&\310\311\"\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-read-save-file-name "Save %s body in file" nil gnus-newsgroup-last-directory gnus-summary-save-body-in-file t] 8 (#$ . 124526)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-summary-save-in-pipe :decode t :headers gnus-saved-headers] 4)
#@511 Pipe this article to subprocess COMMAND.
Valid values for COMMAND include:
  a string
    The executable command name and possibly arguments.
  nil
    You will be prompted for the command in the minibuffer.
  the symbol `default'
    It will be replaced with the command which the variable
    `gnus-summary-pipe-output-default-command' holds or the command
    last used for saving.
Non-nil value for RAW overrides `:decode' and `:headers' properties
and the raw article including all headers will be piped.
(defalias 'gnus-summary-save-in-pipe #[(&optional command raw) "\306`\307\"\211\203
�\310!\210)\306`\311\"\206�\312 	?\205�\313\314N\315\211\211\203\202�\316\317
+\2368!\203z�r\320\f\211\315
$\210\321\f\203F�,\202H�-\322\323!!\210	\204v�\313\324N\204]�.\204v�\313\324NJ\206k�/\206k�0\31510\325\326\327\"\210*)\202\206�\330\331
\"\210\202\206�\330\332!\2102\206\215�34;\204\251�4\302=\203\243�\n\203\243�\n\202\247�\333\334\n\"44\335\230\203\276�\n\203\272�\n4\202\276�\330\336!\210\337 56\3406\341\"7\342\2167\203\341�\3437!\210\3447!q\210\202\346�\3456!\210\214~\210\346ed4\315$\210-\2118\2119\205\n9;\203\347\202\3509!)\203\351\3478!:\":\3528!\210-4\2112\207" [to raw default save-buffer decode article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-save-in-pipe :decode nil vectorp 3 gnus-summary-select-article insert-buffer-substring nnheader-set-temp-buffer " *Gnus Save*" :headers article-hide-headers 1 t error "%d is not a real article" "No article to pipe" gnus-read-shell-command "Shell command on this article: " "" "A command is required" selected-window gnus-get-buffer-window visible ((select-window #1=#:GnusStartBufferWindow)) select-window window-buffer pop-to-buffer shell-command-on-region get-buffer buffer-name delete kill-buffer gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-save-all-headers gnus-saved-headers gnus-visible-headers gnus-summary-buffer gnus-summary-pipe-output-default-command gnus-last-shell-command command #1# #2=#:buf #3=#:w buf buffer gnus-buffers] 6 (#$ . 125161)])
#@33 Pipe this article to muttprint.
(defalias 'gnus-summary-pipe-to-muttprint #[(&optional command) ";\204\f�\303\304	\305	$\n\306!\210)\211\207" [command gnus-summary-muttprint-program gnus-summary-pipe-output-default-command read-string "Print using command: " nil gnus-summary-save-in-pipe] 5 (#$ . 127333)])
#@28 Capitalize NEWSGROUP name.
(defalias 'gnus-capitalize-newsgroup #[(newsgroup) "\301G!?\205�\302\303H\226!\304\305OP\207" [newsgroup zerop char-to-string 0 1 nil] 4 (#$ . 127653)])
#@193 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
If variable `gnus-use-long-file-name' is non-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) "\305\306\307!\203
�\310!\202�\311!\312\313	\314H!Q\n\"\f\2035�\315!\315\f!\230\2035�\316\317\320\f!\"\2035�\202:�\f\206:�)\207" [newsgroup headers gnus-article-save-directory default last-file expand-file-name gnus-use-long-file-name not-save gnus-capitalize-newsgroup gnus-newsgroup-directory-form "/" int-to-string 0 file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 127844)])
#@194 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
If variable `gnus-use-long-file-name' is non-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) "\305\306\307!\203�\202�\310!\311\312	\313H!Q\n\"\f\2033�\314!\314\f!\230\2033�\315\316\317\f!\"\2033�\2028�\f\2068�)\207" [newsgroup headers gnus-article-save-directory default last-file expand-file-name gnus-use-long-file-name not-save gnus-newsgroup-directory-form "/" int-to-string 0 file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 128532)])
#@191 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
If variable `gnus-use-long-file-name' is non-nil, it is
~/News/news.group.  Otherwise, it is like ~/News/news/group/news.
(defalias 'gnus-plain-save-name #[(newsgroup headers &optional last-file) "\206�\304\305\306!\203�	\202�\307\304\310\311	!\"\n\"\"\207" [last-file newsgroup default-directory gnus-article-save-directory expand-file-name gnus-use-long-file-name not-save file-relative-name "news" gnus-newsgroup-directory-form] 6 (#$ . 129190)])
#@33 Generate file name from sender.
(defalias 'gnus-sender-save-name #[(newsgroup headers &optional last-file) "\303H\304	\203�\305\306	\"\203�\307\310	\"\202�\311\n\")\207" [headers from gnus-article-save-directory 2 expand-file-name string-match "\$[^ <]+\$@" match-string 1 "nobody"] 4 (#$ . 129719)])
#@19 Verify X-PGP-Sig.
(defalias 'article-verify-x-pgp-sig #[nil "\306!\205<rq\210\307\310!)\311\211\211\211\205;
\205;\312
7\2368\205;\313\314!8r8q\210\315\216\316!\210\317\f!\320 \210\321\2119:\322\323\317A@\324\"\325#*ed|\210\326c\210\327A@\330\261\210	c\210~\210\311y\210m\204y�\331\332!\203s�\333c\210\311y\210\202f�\334c\210\335@\336\261\210\322\337\211;AA)\330#c\210\340c\210\341\342!C<\343 \210=\206\242�\344>\312
7\2368 \210)\345\346\347<@#\206\276�\345\346\350<@#,\n\205;\321\311\211?@A\214\320 \210db\210\351y\210\345\352 \353\"@\345\354 S\353\"?\355\356!\210\357\360\311\321#\203\370�\311y\210\202\373�db\210``}\210\361\n\330\261\210eb\210\311y\210m\204\331\362!\204\363c\210\311y\210\202eb\210\331\364!\205:\365\366\224\366\225T\353@$\210\365\346\225d\353?$,,\207" [gnus-original-article-buffer headers info items sig mml2015-use gnus-buffer-live-p gnus-fetch-field "X-PGP-Sig" nil 5 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring split-string message-narrow-to-head t mapconcat #[(header) "\301\302!\303R\207" [header ": " mail-fetch-field "\n"] 4] "," "" "-----BEGIN PGP SIGNED MESSAGE-----\n\n" "X-Signed-Headers: " "\n" looking-at "^-" "- " "\n-----BEGIN PGP SIGNATURE-----\n" "Version: " "\n\n" identity "\n-----END PGP SIGNATURE-----\n" format "multipart/signed" mml2015-clean-buffer iso-8859-1 get-text-property 0 gnus-details gnus-info -1 point-at-bol face point-at-eol message-remove-header "X-Gnus-PGP-Verify" re-search-forward "^X-PGP-Sig:" "X-Gnus-PGP-Verify: " "^[ 	]" " " "\$[^:]+\$: *" put-text-property 1 mml2015-function-alist #1# case-fold-search inhibit-point-motion-hooks x mm-security-handle gnus-newsgroup-charset coding-system-for-write eface bface inhibit-read-only] 6 (#$ . 130033) nil])
#@28 Verify Cancel-Lock header.
(defalias 'article-verify-cancel-lock #[nil "\301!\205	�\302!\207" [gnus-original-article-buffer gnus-buffer-live-p canlock-verify] 2 (#$ . 131912) nil])
(byte-code "\303\304\305\"\210\306\307\310\311#\210\312	\"\210\313\300\314\"\210\315\316\317#\210\313\320\321\"\210\322\n\323\324#\207" [gnus-article-mode-map widget-keymap gnus-article-send-map mapc #[(func) "\303\211\n:\203�\n@\nA\202�\n\304\305\306\n\"!\307\310	!\205>�\311\312\313	\314\"\315\316\317\320\321\322\323	DD\324\323	D\325BBFE\257\"*\207" [gfunc afunc func nil intern format "gnus-%s" defalias fboundp lambda (&optional interactive &rest args) documentation t (interactive (list t)) with-current-buffer gnus-article-buffer if interactive call-interactively quote apply (args)] 14] (article-hide-headers article-verify-x-pgp-sig article-verify-cancel-lock article-hide-boring-headers article-treat-overstrike article-treat-ansi-sequences article-fill-long-lines article-capitalize-sentences article-remove-cr article-remove-leading-whitespace article-display-x-face article-display-face article-de-quoted-unreadable article-de-base64-unreadable article-decode-HZ article-wash-html article-unsplit-urls article-hide-list-identifiers article-strip-banner article-babel article-hide-pem article-hide-signature article-strip-headers-in-body article-remove-trailing-blank-lines article-strip-leading-blank-lines article-strip-multiple-blank-lines article-strip-leading-space article-strip-trailing-space article-strip-blank-lines article-strip-all-blank-lines article-date-local article-date-english article-date-iso8601 article-date-original article-date-ut article-decode-mime-words article-decode-charset article-decode-encoded-words article-date-user article-date-lapsed article-emphasize article-treat-dumbquotes article-normalize-headers) put gnus-article-mode mode-class special set-keymap-parent gnus-define-keys-1 (" " gnus-article-goto-next-page "" gnus-article-goto-prev-page [delete] gnus-article-goto-prev-page [backspace] gnus-article-goto-prev-page "^" gnus-article-refer-article "h" gnus-article-show-summary "s" gnus-article-show-summary "
" gnus-article-mail "?" gnus-article-describe-briefly "e" gnus-summary-edit-article "<" beginning-of-buffer ">" end-of-buffer "	" gnus-info-find-node "" gnus-bug "R" gnus-article-reply-with-original "F" gnus-article-followup-with-original "k" gnus-article-describe-key "c" gnus-article-describe-key-briefly "b" gnus-article-describe-bindings "" gnus-article-read-summary-keys "\252" gnus-article-read-summary-keys "\243" gnus-article-read-summary-keys "\336" gnus-article-read-summary-keys "\347" gnus-article-read-summary-keys) substitute-key-definition undefined gnus-article-read-summary-keys (gnus-article-send-map "S" gnus-article-mode-map) ("W" gnus-article-wide-reply-with-original) define-key [t] gnus-article-read-summary-send-keys] 4)
(defalias 'gnus-article-make-menu-bar #[nil "\301\302!\204	�\303 \210\304\305!\210\301\306!?\205G�\307\306\310\311#\210\312\306!\204%�\313\306\314\"\210\315\306\311\316$\210\307\317\310\311#\210\312\317!\204=�\313\317\314\"\210\315\317\311\320$\210\321\322!\207" [gnus-article-mode-map boundp gnus-article-commands-menu gnus-summary-make-menu-bar gnus-turn-off-edit-menu article gnus-article-article-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define ("Article" ["Scroll forwards" gnus-article-goto-next-page t] ["Scroll backwards" gnus-article-goto-prev-page t] ["Show summary" gnus-article-show-summary t] ["Fetch Message-ID at point" gnus-article-refer-article t] ["Mail to address at point" gnus-article-mail t] ["Send a bug report" gnus-bug t]) gnus-article-treatment-menu ("Treatment" ["Hide headers" gnus-article-hide-headers t] ["Hide signature" gnus-article-hide-signature t] ["Hide citation" gnus-article-hide-citation t] ["Treat overstrike" gnus-article-treat-overstrike t] ["Treat ANSI sequences" gnus-article-treat-ansi-sequences t] ["Remove carriage return" gnus-article-remove-cr t] ["Remove leading whitespace" gnus-article-remove-leading-whitespace t] ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t] ["Remove base64" gnus-article-de-base64-unreadable t] ["Treat html" gnus-article-wash-html t] ["Remove newlines from within URLs" gnus-article-unsplit-urls t] ["Decode HZ" gnus-article-decode-HZ t]) gnus-run-hooks gnus-article-menu-hook] 5])
#@644 Major mode for displaying an article.

All normal editing commands are switched off.

The following commands are available in addition to all summary mode
commands:
\<gnus-article-mode-map>
\[gnus-article-next-page]	 Scroll the article one page forwards
\[gnus-article-prev-page]	 Scroll the article one page backwards
\[gnus-article-refer-article]	 Go to the article referred to by an article id near point
\[gnus-article-show-summary]	 Display the summary buffer
\[gnus-article-mail]	 Send a reply to the address near point
\[gnus-article-describe-briefly]	 Describe the current mode briefly
\[gnus-info-find-node]	 Go to the Gnus info node
(defalias 'gnus-article-mode #[nil "\306 \210\307 \210\310\311\312\313!\210\314\n!\210\315\316\317\"\203&�\320 \210\203&�\312\304!\210\321\322\323\"\210\312\324!\210
\312\325!\210\322\312\326!\210\312\327!\210\312\330!\210\312\331!\210\312\332!\210\312\333!\210\312\334!\210\312\335!\210\312\336!\210\312\337!\210\322\211'()\340 \210\341 \210\342*\322+\343,!\210\344 \210\345\346!\207" [mode-name major-mode gnus-article-mode-map gnus-summary-tool-bar-map tool-bar-map gnus-page-delimiter kill-all-local-variables gnus-simplify-mode-line "Article" gnus-article-mode make-local-variable minor-mode-alist use-local-map gnus-visual-p article-menu menu gnus-article-make-menu-bar gnus-update-format-specifications nil article-mode page-delimiter gnus-page-broken gnus-button-marker-list gnus-article-current-summary gnus-article-mime-handles gnus-article-decoded-p gnus-article-mime-handle-alist gnus-article-wash-types gnus-article-image-alist gnus-article-charset gnus-article-ignored-charsets nobreak-char-display gnus-set-default-directory buffer-disable-undo t set-syntax-table mm-enable-multibyte gnus-run-mode-hooks gnus-article-mode-hook cursor-in-non-selected-windows gnus-article-truncate-lines truncate-lines buffer-read-only show-trailing-whitespace gnus-article-mode-syntax-table] 4 (#$ . 136347) nil])
#@81 Regexp matching any of the regexps from `gnus-button-alist'.
Internal variable.
(defvar gnus-button-marker-list nil (#$ . 138325))
#@32 Initialize the article buffer.
(defalias 'gnus-article-setup-buffer #[nil "\203�\306\202\f�\307	\310Q\311\312\n\"\210\313\n\314\225\315OP\n\315(r%q\210\2041�\n\316 \210)\317 \210r\320
!q\210\321 \210\322)\323\324!\210)\325\n!\203\321�r\nq\210!\203\231�\326\327!\203\223�\330\315!\210\n\211*\211+\205w�+;\203s�\325\202t�\331+!)\203\212�\332\325*!,\",\333*!\210)\334\335!\210\315\202\232�\336\337!\202\232�\340)\203\321�r\nq\210\323\341!\210\315!-\203\266�\342-!\210\315-\315(\343 \210\340.\315/)\344=\204\314�\344 \210p)\202\351�r\320\n!q\210\344 \210\323\345!\210\346	!%\347	!\210p)*\207" [gnus-single-article-buffer gnus-newsgroup-name name original gnus-article-buffer gnus-original-article-buffer "*Article*" "*Article " "*" string-match "\\*Article" " *Original Article" 0 nil gnus-set-global-variables gnus-article-setup-highlight-words gnus-get-buffer-create mm-enable-multibyte gnus-original-article-mode make-local-variable gnus-original-article get-buffer y-or-n-p "Article mode edit in progress; discard? " set-buffer-modified-p buffer-name delete kill-buffer message "" error "Action aborted" t gnus-article-edit-mode mm-destroy-parts buffer-disable-undo gnus-article-mode gnus-summary-buffer gnus-summary-buffer-name gnus-summary-set-local-parameters gnus-article-mime-handle-alist major-mode buf buffer gnus-buffers gnus-article-mime-handles buffer-read-only gnus-button-marker-list] 5 (#$ . 138462)])
(defalias 'gnus-article-set-window-start #[(&optional line) "\303\304\"\211\205+�\305	rq\210eb\210\n\204�e\202)�\306\307\310\"\210\311\312\313\304#\210\ny\210`)\")\207" [gnus-article-buffer article-window line gnus-get-buffer-window t set-window-start gnus-message 6 "Moved to bookmark" search-forward "\n\n" nil] 7])
#@210 Prepare ARTICLE in article mode buffer.
ARTICLE should either be an article number or a Message-ID.
If ARTICLE is an id, HEADER should be the article headers.
If ALL-HEADERS is non-nil, no headers are hidden.
(defalias 'gnus-article-prepare #[(article &optional all-headers header) "\212\306=\204\n�	q\210p\n\203�\n\307H\202�p-./0\3101\212\311 \2102q\210\312\313!\203;�\203;�\3103\3144\3150\")\2111\204\224�\212\247\205\220�5>?\205\220�/B6	q\21078>\203~�\316\317/!!\204~�\320!\210\321\322!\202\220�\3239\"\2105>?\205\220�\324\325\326\")\202}1\327=\204\242�1\330=\203\332�r
q\210:B:7;\3077\310\211<61\330=\203\307�\331\332!\210\202\313�\331\303!\210\333 \210)=>\334\303!)\202}\247\203@7=\204@r
q\210:B:7;7\3357?\2368</7B6\336<!\204\310<\3377!\210\340 \203 \3377!\210\341\342!\210\334\332!\210\343\344\345\"\2033\341\346!\210\333 \210@\206=AB)\212\331\303!\210)\247\204P;\203^\347 \210eb\210C\203^\350 \210=>\334\303!\210)\351 \210o\204q\352y\210\353\354p!`\"\210\331\303!\210\314.\207" [major-mode gnus-summary-buffer header article gnus-article summary-buffer gnus-summary-mode 0 nil gnus-article-setup-buffer boundp transient-mark-mode t gnus-request-article-this-buffer gnus-online gnus-find-method-for-group gnus-summary-set-agent-mark message "Message marked for downloading" gnus-summary-mark-article gnus-error 1 "No such article (may have expired or been canceled)" pseudo nneething gnus-configure-windows summary gnus-set-global-variables gnus-set-mode-line 3 vectorp gnus-summary-goto-subject gnus-summary-show-thread gnus-run-hooks gnus-mark-article-hook gnus-visual-p article-highlight highlight gnus-visual-mark-article-hook gnus-article-prepare-display gnus-narrow-to-page article-goto-body -1 set-window-point get-buffer-window gnus-article-internal-prepare-hook gnus-tmp-internal-hook gnus-newsgroup-name group result gnus-article-buffer mark-active inhibit-read-only gnus-newsgroup-sparse gnus-article-current gnus-current-article gnus-newsgroup-undownloaded gnus-canceled-mark gnus-newsgroup-history gnus-last-article gnus-current-headers gnus-article-mime-handle-alist gnus-article-mime-handle-alist-1 gnus-newsgroup-data all-headers gnus-show-all-headers gnus-have-all-headers gnus-break-pages] 4 (#$ . 140238)])
#@51 Make the current buffer look like a nice article.
(defalias 'gnus-article-prepare-display #[nil "p\306\307\310=\204�\310 \210\306\211\306\311\312!\210\f\203\"�\f \210\311\313!+\207" [inhibit-read-only buffer-read-only gnus-article-buffer major-mode gnus-article-wash-types gnus-article-image-alist nil t gnus-article-mode gnus-run-hooks gnus-tmp-internal-hook gnus-article-prepare-hook gnus-display-mime-function] 4 (#$ . 142567)])
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307!\204�\304\307\310\311#\210\307B\312\307!\204(�\313\307\314 \"\210\306\315!\2044�\304\315\310\311#\210\315B\312\315!\204D�\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^�\313\301\317\301\320\"\210	\"\210\304\311\321\322#\207" [current-load-list gnus-sticky-article-mode-abbrev-table gnus-sticky-article-mode-hook variable-documentation put "Hook run when entering StickyArticle mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-sticky-article-mode-map definition-name gnus-sticky-article-mode default-boundp set-default make-sparse-keymap gnus-sticky-article-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent gnus-article-mode] 5)
#@236 Mode for sticky articles.

In addition to any hooks its parent mode `gnus-article-mode' might have run,
this mode runs the hook `gnus-sticky-article-mode-hook', as the final step
during initialization.

\{gnus-sticky-article-mode-map}
(defalias 'gnus-sticky-article-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210'(\326\327\330#\210\326\331\330#\210\332\333)\211*\203t�*@)\334)\333#\210*A\211*\204_�*\334\335\336#\210\334\337\340#\210\334\341\342#\210\334\343\344#\210)\345\346!\207" [delay-mode-hooks major-mode mode-name gnus-sticky-article-mode-map gnus-sticky-article-mode-syntax-table parent make-local-variable t gnus-article-mode gnus-sticky-article-mode "StickyArticle" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table substitute-key-definition gnus-article-read-summary-keys undefined gnus-article-refer-article ("e" "h" "s" "F" "R") nil define-key "k" gnus-kill-sticky-article-buffer "q" bury-buffer "c" describe-key-briefly "k" describe-key run-mode-hooks gnus-sticky-article-mode-hook gnus-sticky-article-mode-abbrev-table local-abbrev-table k #1=#:--cl-dolist-temp--] 6 (#$ . 143849) nil])
#@107 Make the current article sticky.
If a prefix ARG is given, ask for a name for this sticky article buffer.
(defalias 'gnus-sticky-article #[(arg) "\306 \210\307\310\211\311#\210\310\312 \n\313\314\"\315\216\f\203'�\316\f!\210\317\f!q\210\202+�\320!\210\321
\2036�\322\323!\202v�r\nq\210\214\324\211\211%&'\325 \210\326\327!\210\330\331 \332 \"eb\210\326\333!\210\334\330\331 \332 \"Qeb\210\326\335!\210\334\330\331 \332 \"Q\211-\336Q\337!\203\222�rq\210()\340=\203\222�\341!\210\202\227�\342\324\"\340 \210,)\343 \210\344 \207" [new-art-buf-name #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf #3=#:w arg gnus-summary-show-thread gnus-summary-select-article nil pseudo selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer "*Sticky Article: " read-from-minibuffer "Sticky article buffer name: " t article-narrow-to-head gnus-article-goto-header "subject" buffer-substring-no-properties line-beginning-position line-end-position "from" ", " "date" "*" gnus-buffer-live-p gnus-sticky-article-mode switch-to-buffer rename-buffer gnus-summary-recenter gnus-summary-position-point case-fold-search inhibit-point-motion-hooks inhibit-read-only major-mode] 6 (#$ . 145240) "P"])
#@133 Kill the given sticky article BUFFER.
If none is given, assume the current buffer and kill it if it has
`gnus-sticky-article-mode'.
(defalias 'gnus-kill-sticky-article-buffer #[(&optional buffer) "\204�prq\210	\304=\2053�\211\211\205$�;\203!�\305\202\"�\306!)\2052�\307\305\n!\"\310\n!))\207" [buffer major-mode buf gnus-buffers gnus-sticky-article-mode get-buffer buffer-name delete kill-buffer] 4 (#$ . 146506) nil])
#@82 Kill all sticky article buffers.
If a prefix ARG is given, ask for confirmation.
(defalias 'gnus-kill-sticky-article-buffers #[(arg) "\305 \306\211\203x�	@rq\210\n\307=\203p�\204A�\211\211\205.�\f;\203+�\310\202,�\311\f!)\203=�\312\310!
\"\313!\210)\202p�\314\315\311!\316Q!\203p�\211\211\205`�\f;\203]�\310\202^�\311\f!)\203o�\312\310!
\"\313!\210))	A\211\204	�*\306\207" [buf #1=#:--cl-dolist-temp-- major-mode arg buffer gnus-buffers nil gnus-sticky-article-mode get-buffer buffer-name delete kill-buffer yes-or-no-p "Kill buffer " "? "] 5 (#$ . 146942) "P"])
#@362 Format of the MIME buttons.

Valid specifiers include:
%t  The MIME type
%T  MIME type, along with additional info
%n  The `name' parameter
%d  The description, if any
%l  The length of the encoded part
%p  The part identifier number
%e  Dots if the part isn't displayed

General format specifiers can also be used.  See Info node
`(gnus)Formatting Variables'.
(defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n" (#$ . 147531))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\301\207" [current-load-list gnus-mime-button-line-format-alist default-boundp set-default ((116 gnus-tmp-type 115) (84 gnus-tmp-type-long 115) (110 gnus-tmp-name 115) (100 gnus-tmp-description 115) (112 gnus-tmp-id 115) (108 gnus-tmp-length 100) (101 gnus-tmp-dots 115)) gnus-mime-button-commands ((gnus-article-press-button "
" "Toggle Display") (gnus-mime-view-part "v" "View Interactively...") (gnus-mime-view-part-as-type "t" "View As Type...") (gnus-mime-view-part-as-charset "C" "View As charset...") (gnus-mime-save-part "o" "Save...") (gnus-mime-save-part-and-strip "" "Save and Strip") (gnus-mime-replace-part "r" "Replace part") (gnus-mime-delete-part "d" "Delete part") (gnus-mime-copy-part "c" "View As Text, In Other Buffer") (gnus-mime-inline-part "i" "View As Text, In This Buffer") (gnus-mime-view-part-internally "E" "View Internally") (gnus-mime-view-part-externally "e" "View Externally") (gnus-mime-print-part "p" "Print") (gnus-mime-pipe-part "|" "Pipe To Command...") (gnus-mime-action-on-part "." "Take action on the part..."))] 3)
(defalias 'gnus-article-mime-part-status #[nil "\203�G\301=\203
�\302\207\303\304G\"\207\305\207" [gnus-article-mime-handle-alist-1 1 " (1 part)" format " (%d parts)" ""] 3])
(byte-code "\306B\307\306!\204C�\310\306\311 \312	\n\313#\210\312	\314#\210\f\315\211\203>�@\312	
\211A@)
@#\210A\211\204$�*	)\"\210\315\207" [current-load-list map gnus-mouse-2 gnus-down-mouse-3 gnus-mime-button-commands c gnus-mime-button-map default-boundp set-default make-sparse-keymap define-key gnus-article-push-button gnus-mime-button-menu nil #:--cl-dolist-temp-- x] 7)
#@19 MIME button menu.
(defvar gnus-mime-button-menu nil (#$ . 149699))
(byte-code "\302\303\304\305\306\307	\"B$\207" [gnus-mime-button-map gnus-mime-button-commands easy-menu-do-define gnus-mime-button-menu "MIME button menu." "MIME Part" mapcar #[(c) "\302\211AA)@@\303\304$\207" [c x vector :active t] 6]] 8)
#@54 Construct a context-sensitive menu of MIME commands.
(defalias 'gnus-mime-button-menu #[(event prefix) "\300\213\207" [((byte-code "\211:\203
�A@\202�\305 `\306\307F)\310	\211@)!\210	\311\n8\2066�\nA@:\2033�\nA@@\2026�\nA@)b\210\312 \210\313\314\f#)\207" [event pos position gnus-mime-button-menu prefix selected-window (0 . 0) 0 select-window 5 gnus-article-check-buffer popup-menu nil] 5))] 1 (#$ . 150017) "e\nP"])
#@26 View all the MIME parts.
(defalias 'gnus-mime-view-all-parts #[(&optional handles) "rq\210	\206	�\nr\fq\210
)\f\211\2054�\306	!\210eb\210\307\310!\204)�db\210\311
`d|\210\312	!),\207" [gnus-article-buffer handles gnus-article-mime-handles gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mm-remove-parts search-forward "\n\n" t mm-display-parts mail-parse-ignored-charsets mail-parse-charset inhibit-read-only] 4 (#$ . 150449) nil])
#@22 Jump to MIME part N.
(defalias 'gnus-article-jump-to-part #[(n) "\305!\210\306\307!\210	G\204�\310\311\312\313\n\"!!\250\203)�\nX\203)�\314Y\2042�\315\316\317\n$\210\n\315\320\321#\210\f\314Y\203R�\nX\205o�\322!?\205o�T\211\202?�\f\307W\203l�\314Y\205o�\322!?\205o�S\211\202Y�\322!)\207" [gnus-article-buffer gnus-article-mime-handle-alist parts n gnus-auto-select-part pop-to-buffer sit-for 0 string-to-number read-string format "Jump to part (2..%s): " 1 gnus-message 7 "Invalid part `%s', using %s instead." 9 "Jumping to part %s." gnus-article-goto-part] 6 (#$ . 150921) "P"])
#@54 Replace MIME part under point with an external body.
(defalias 'gnus-mime-replace-part #[(file) "\301!\207" [file gnus-mime-save-part-and-strip] 2 (#$ . 151528) (list (read-file-name "Replace MIME part with file: " (or mm-default-directory default-directory) nil nil))])
#@119 Save the MIME part under point then replace it with an external body.
If FILE is given, use it for the external part.
(defalias 'gnus-mime-save-part-and-strip #[(&optional file) "\306 \210\307 \203\f�\310\311!\210\312!\203�\310\313!\210\314`\315\"\314`\316\"\317
\2041�	\2050�\320	\321\"
\205 r	@q\210\322 \210\323	\211?@;\203M�?@\202R�?A@@)\261\210\324	A@A\325\"\210\326\327\330\331
!\"!\210\332c\210\333\334 \332\261\210\335c\210\332c\210)	\317\336\337\340
BE\317\211\211\211\211\211\257A\241\210\f\n@\341\342\317\343\344\345\346\347\350\351ADED\352\347\353\351BDED\354BB\355\356\357\351\fDD\360BBBBB\257\342\361\345\346\347\350\351ADED\362\363\352\347\353\351BDEDF\364BB\365C\366H\206\336�\367\307 D\370BBBBF\371#\210\372 \210\373 \210\374 \210@\205E\250\205\375\376ed\316@E\\$\203@E\\\202rFq\210GG)!*,\207" [gnus-article-mime-handles data id param handles file gnus-article-check-buffer gnus-group-read-only-p error "The current group does not support deleting of parts" mm-complicated-handles "The current article has a complicated MIME structure, giving up..." get-text-property gnus-data gnus-part nil mm-save-part "Delete MIME part and save to: " erase-buffer "Content-Type: " mml-insert-parameter-string (charset) mml-insert-parameter mail-header-encode-parameter "name" file-name-nondirectory "\n" "Content-ID: " message-make-message-id "Content-Transfer-Encoding: binary\n" "message/external-body" (access-type . "LOCAL-FILE") name gnus-article-edit-article lambda (buffer-disable-undo) (erase-buffer) let mail-parse-charset or gnus-article-charset quote mail-parse-ignored-charsets gnus-article-ignored-charsets ((mbl mml-buffer-list)) (setq mml-buffer-list nil) (insert-buffer-substring gnus-original-article-buffer) mime-to-mml ((setq gnus-article-mime-handles nil) (let ((mbl1 mml-buffer-list)) (setq mml-buffer-list mbl) (set (make-local-variable 'mml-buffer-list) mbl1)) (gnus-make-local-hook 'kill-buffer-hook) (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (no-highlight) (message-options message-options) (message-options-set-recipient) ((mml-to-mime) (mml-destroy-buffers) (remove-hook 'kill-buffer-hook 'mml-destroy-buffers t) (kill-local-variable 'mml-buffer-list)) gnus-summary-edit-article-done 5 "" (no-highlight) t gnus-article-edit-done gnus-summary-expand-window gnus-summary-show-article gnus-article-jump-to-part text-property-any handle current-id gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer gnus-auto-select-part gnus-article-buffer gnus-article-mime-handle-alist] 14 (#$ . 151807) nil])
#@92 Delete the MIME part under point.
Replace it with some information about the removed part.
(defalias 'gnus-mime-delete-part #[nil "\306 \210\307 \203\f�\310\311!\210\312!\203�\310\313!\210	\204 �\314\315!\205N\316`\317\"\316`\320\"\321\322\n8\211@\205;�\323@!)A\324\325\n8\326\"\206H�
\n\211B@;\203Y�B@\202^�BA@@)C\n\204i�\310\327!\210r\n@q\210\330\331\332 \"D\333 \210\334\335\336\337C\340\341\340\342D\343A\205\221�\344A\340Q\345\260c\210\n\346\347\346\211\350C\330\351D\"\346\211\257A\241\210*\fE\352\353\346\354\355\356\357\360\361\362FDED\363\360\364\362GDED\365BB\366\367\370\362\fDD\371BBBBB\257\353\372\356\357\360\361\362FDED\373\374\363\360\364\362GDEDF\375BB\376H\322H\206\375�\377\307 I\201M�BBBBF\201N�#\210\201O� \210\201P� \210\201Q� \210E\205LJ\250\205L\201R�\201S�ed\320EJ\\$\203BEJ\\\202KrKq\210LG)!.	\207" [gnus-article-mime-handles gnus-expert-user data id handles none gnus-article-check-buffer gnus-group-read-only-p error "The current group does not support deleting of parts" mm-complicated-handles "The current article has a complicated MIME structure, giving up..." gnus-yes-or-no-p "Deleting parts may malfunction or destroy the article; continue? " get-text-property gnus-data gnus-part "(none)" 5 mail-decode-encoded-word-string mail-content-type-get 4 filename "No MIME part under point" format "%s" buffer-size erase-buffer ",----\n" "| The following attachment has been deleted:\n" "|\n" "| Type:           " "\n" "| Filename:       " "| Size (encoded): " " Byte\n" "| Description:    " "`----\n" nil ("text/plain" (charset . gnus-decoded)) "attachment" "Deleted attachment (%s bytes)" gnus-article-edit-article lambda (buffer-disable-undo) (erase-buffer) let mail-parse-charset or gnus-article-charset quote mail-parse-ignored-charsets gnus-article-ignored-charsets ((mbl mml-buffer-list)) (setq mml-buffer-list nil) (insert-buffer-substring gnus-original-article-buffer) mime-to-mml ((setq gnus-article-mime-handles nil) (let ((mbl1 mml-buffer-list)) (setq mml-buffer-list mbl) (set (make-local-variable 'mml-buffer-list) mbl1)) (gnus-make-local-hook 'kill-buffer-hook) (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (no-highlight) (message-options message-options) (message-options-set-recipient) ((mml-to-mime) (mml-destroy-buffers) (remove-hook 'kill-buffer-hook 'mml-destroy-buffers t) (kill-local-variable 'mml-buffer-list)) gnus-summary-edit-article-done "" desc description handle type bsize current-id gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer gnus-auto-select-part gnus-article-buffer gnus-article-mime-handle-alist (no-highlight) t gnus-article-edit-done gnus-summary-expand-window gnus-summary-show-article gnus-article-jump-to-part text-property-any] 16 (#$ . 154434) nil])
#@33 Save the MIME part under point.
(defalias 'gnus-mime-save-part #[nil "\301 \210\302`\303\"\211\205�\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data mm-save-part] 4 (#$ . 157271) nil])
#@46 Pipe the MIME part under point to a process.
(defalias 'gnus-mime-pipe-part #[nil "\301 \210\302`\303\"\211\205�\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data mm-pipe-part] 4 (#$ . 157487) nil])
#@70 Interactively choose a viewing method for the MIME part under point.
(defalias 'gnus-mime-view-part #[nil "\302 \210\303`\304\"\211\205�\305	\306!\211\"\307!)\207" [data gnus-article-mime-handles gnus-article-check-buffer get-text-property gnus-data mm-merge-handles copy-sequence mm-interactively-view-part] 5 (#$ . 157716) nil])
(defalias 'gnus-mime-view-part-as-type-internal #[nil "\303 \210\304`\305\"\306A@\301\"\206�\307\3108A\236A\211\205 �\311	!\211\203+�\n\312B\206R�\203Q�\313\211@;\203?�@\202C�A@@)\314\"@)\315\232\203Q�\316\202R�\317+\207" [handle name def-type gnus-article-check-buffer get-text-property gnus-data mail-content-type-get filename 4 mm-default-file-encoding 0 split-string "/" "text" ("text/plain" . 0) ("application/octet-stream" . 0)] 4])
#@147 Choose a MIME media type, and view the part as such.
If non-nil, PRED is a predicate to use during completion to limit the
available media-types.
(defalias 'gnus-mime-view-part-as-type #[(&optional mime-type pred) "\204�\305 \306\307\310	@\"\311\312\313 \"\n\314\211\211	@&)\315 \210\316`\317\"\211\205z�\211@;\2035�@\2029�A@@)\320\232\203M�\3218\204I�\322!\210\3218@A@AB\3238\3248\3258\3268\314\3278\257\330\f\"\331!\203w�\332!\210\333!)\207" [mime-type default pred handle gnus-article-mime-handles gnus-mime-view-part-as-type-internal completing-read format "View as MIME type (default %s): " mapcar list mailcap-mime-types nil gnus-article-check-buffer get-text-property gnus-data "message/external-body" 6 mm-extern-cache-contents 2 3 4 5 7 mm-merge-handles mm-handle-displayed-p mm-remove-part gnus-mm-display-part] 10 (#$ . 158512) nil])
#@142 Put the MIME part under point into a new buffer.
If `auto-compression-mode' is enabled, compressed files like .gz and .bz2
are decompressed.
(defalias 'gnus-mime-copy-part #[(&optional handle arg) "\306 \210\204\f�\307`\310\"\205\357�\311A@\312\"\206�\311\3138\305\"\314\211\211\211\315\316!&r&q\210\317\216\320 \210\321!\210\314\322\323\217\206D�\324 +
\203P�\325
!\202Y�\203X�\326\202Y�\327\204\241�'\204\216�\311A@\302\"\211\204\241�\315\316!(r(q\210\330\216\320 \210\fc\210\331 +\211\204\241�)\202\241�'\247\203\241�'*\236A\206\240�\332\333!\334\315
!!\210	\204\275�\n\203\327�\335\n!\211\203\327�\n\336=\204\327�\337 \210\340\f	\"c\210\341\342!\203\321�\342J\202\322�	+\202\341�\320 \210\fc\210,+\343\216\344
!-\345 \210)eb-\207" [handle coding-system charset dont-decode contents filename gnus-article-check-buffer get-text-property gnus-data mail-content-type-get name 4 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte mm-insert-part (byte-code "\301\302\303#\207" [filename mm-decompress-buffer nil sig] 4) ((error (byte-code "\301\302\207" [dont-decode t nil] 1))) buffer-string file-name-nondirectory "*raw data*" "*decoded*" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-find-buffer-file-coding-system mm-read-coding-system "Charset: " switch-to-buffer mm-charset-to-coding-system ascii mm-enable-multibyte mm-decode-coding-string boundp last-coding-system-used ((byte-code "\301\211\207" [buffer-file-name nil] 2)) expand-file-name normal-mode #1# arg #2# gnus-newsgroup-charset gnus-summary-show-article-charset-alist buffer-file-coding-system mm-binary-coding-system buffer-file-name] 5 (#$ . 159393) (list nil current-prefix-arg)])
#@34 Print the MIME part under point.
(defalias 'gnus-mime-print-part #[(&optional handle filename) "\306 \210\206�\307`\310\"\211\205�\311!\312\313\314\n\"!\315\211@;\203)�@\202-�A@@)\316\"	\205m�\f\203V�\317\216\320\"\210\321
\322\323\324!\322\325\fA@#&)\202m�\323\326!rq\210\327\216	c\210\330 \210+\331!,\207" [handle contents mm-tmp-directory file printer shell-file-name gnus-article-check-buffer get-text-property gnus-data mm-get-part mm-make-temp-file expand-file-name "mm." mailcap-mime-info "print" ((delete-file file)) mm-save-part-to-file call-process nil generate-new-buffer " *mm*" mm-mailcap-command " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) gnus-print-buffer ps-despool shell-command-switch #1# filename] 11 (#$ . 161234) (list nil (ps-print-preprint current-prefix-arg))])
#@112 Insert the MIME part under point into the current buffer.
Compressed files like .gz and .bz2 are decompressed.
(defalias 'gnus-mime-inline-part #[(&optional handle arg) "\306 \210\204\f�\307`\310\"\205\334�`\311\312\211\211\"\204+�\3138\203+�\314!\202\333�\315\316!#r#q\210\317\216\320 \210\321!\210\322\323A@\324\"\206N�\323\3258\326\"\312\311#\206V�\327 +\"\204\210�\323A@\302\"\211\204\262�\315\316!$r$q\210\330\216\320 \210c\210\331 +\211\204\262�%\202\262�\"\247\203\250�\3138\203\230�\314!\210\"&\236A\206\244�\332\333!\202\262�\3138\203\262�\314!\210\334y\210\335	\204\315�\n\203\324�\336\n!\211\203\324�	\337=\204\324�\340	\"\202\327�\341!\"\210
b-\207" [handle coding-system charset contents inhibit-read-only b gnus-article-check-buffer get-text-property gnus-data t nil 3 mm-remove-part generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte mm-insert-part mm-decompress-buffer mail-content-type-get name 4 filename buffer-string ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-find-buffer-file-coding-system mm-read-coding-system "Charset: " 2 mm-insert-inline mm-charset-to-coding-system ascii mm-decode-coding-string mm-string-to-multibyte arg #1# #2# gnus-newsgroup-charset gnus-summary-show-article-charset-alist] 5 (#$ . 162112) (list nil current-prefix-arg)])
#@82 Set CHARSET to parameters in HANDLE.
CHARSET may either be a string or a symbol.
(defalias 'gnus-mime-set-charset-parameters #[(handle charset) ";\204	�\306!	@;\203*�	A\307\211\203'�@\310\n\"\210A\211\204�*\307\207	\211@;\2037�	@\202;�	A@@)\311\232\203Q�\312	8\204K�\313	!\210\312	8\202R�	A@\300\fA\236\211\203d�
\241\202l�\f\300B\fAB\241*\207" [charset handle h #1=#:--cl-dolist-temp-- type param symbol-name nil gnus-mime-set-charset-parameters "message/external-body" 6 mm-extern-cache-contents] 5 (#$ . 163571)])
#@87 Insert the MIME part under point into the current buffer using the
specified charset.
(defalias 'gnus-mime-view-part-as-charset #[(&optional handle arg) "\306 \210\206�\307`\310\"\307`\311\"\312\313\211\211\211\211\205\314�\2053�\236A\2061�\314\315!\211\3168\203=�\317!\210\205\314�\320\f\"\210\243\211:\203\310�\313\321\322\217\211\203\310�\211AA)@\211\203\310�\n@\323=\203s�\n\211A@)\n\307`\310\"\232\204\310�\307`\324\"\211\203\310�	\236A\211\203\310�	\211@;\203\234�@\202\240�A@@)\325\232\203\310�\326	A!\211\203\310�\211AA)\323\n	\235\211A@)\206\305�	@D\240\210!.\207" [handle parts preferred form charset gnus-newsgroup-ignored-charsets gnus-article-check-buffer get-text-property gnus-data gnus-callback gnus-all nil mm-read-coding-system "Charset: " 3 mm-remove-part gnus-mime-set-charset-parameters (byte-code "\301\236\207" [form gnus-mime-display-alternative] 2) ((error)) quote gnus-part "multipart/alternative" reverse fun arg gnus-summary-show-article-charset-alist x gnus-article-mime-handle-alist] 8 (#$ . 164110) (list nil current-prefix-arg)])
#@57 View the MIME part under point with an external viewer.
(defalias 'gnus-mime-view-part-externally #[(&optional handle) "\306 \210\206�\307`\310\"\311\211r
q\210)\211@;\203(�@\202,�A@@)\312!\313;\204E�\314\311\315\"\202X�\205X�\3168\203U�\317!\202X�\320!.\207" [handle mm-user-display-methods mm-inlined-types gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-article-check-buffer get-text-property gnus-data nil mailcap-mime-info t gnus-mime-view-part-as-type #[(types) "\301@!;\207" [types mailcap-mime-info] 2] 3 mm-remove-part mm-display-part gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets type method mm-enable-external] 4 (#$ . 165227) nil])
#@117 View the MIME part under point with an internal viewer.
If no internal viewer is available, use an external viewer.
(defalias 'gnus-mime-view-part-internally #[(&optional handle) "\306 \210\206�\307`\310\"\311\312r
q\210)\312\313!\204+�\314\315\316\"\202>�\205>�\3178\203;�\320!\202>�\321!.\207" [handle mm-inlined-types mm-inline-large-images gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-article-check-buffer get-text-property gnus-data (".*") t mm-inlinable-p gnus-mime-view-part-as-type nil #[(types) "\302	@\"\207" [handle types mm-inlinable-p] 3] 3 mm-remove-part mm-display-part gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets inhibit-read-only] 3 (#$ . 165942) nil])
#@51 Do something with the MIME attachment at (point).
(defalias 'gnus-mime-action-on-part #[(&optional action) "\303 \210\304	\"\211\205�\nA )\207" [action gnus-mime-action-alist action-pair gnus-article-check-buffer assoc] 4 (#$ . 166676) (list (completing-read "Action: " gnus-mime-action-alist nil t))])
#@152 Call FUNCTION on MIME part N.
Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument.
If INTERACTIVE, call FUNCTION interactivly.
(defalias 'gnus-article-part-wrapper #[(n function &optional no-handle interactive) "\306\211\307\n!\203�\310\n\311\"\211\203�\312\313	!\211!\204!�\314\315!\210r\nq\210rq\210\f\316`\317\"\211\2037�\320
!\210)\316`\321\"\206A�\322 )=\204J�\314\323!\210%\203X�\324%!%\202\241�`&\316&\325\"\206\236�o\204p�\316&S\325\"\206\236�\316\326y\210`&b\210\325\"\206\236�\316\327&\325\"\211&\203\220�&S\206\230�\330`\325\"\206\230�`\325\"\206\236�\326%)%'GV\203\256�\314\331!\210)\332	\333 \334\335 !\210!\210\336%!\205
\311\337\340 ()*\341\216+\203\342�,\203\342�\342-!\210\202+\203\356�- \210\202,\203\342-%'\236A\"\210\202-%'\236A!\210,\311?\205+.\203\314\331!\202+\311.\343 \210\344%-+#)*\207" [frame window gnus-article-buffer gnus-summary-buffer gnus-current-article to nil gnus-buffer-live-p get-buffer-window t frame-visible-p window-frame error "No article is displayed" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject "You should select the right article first" prefix-numeric-value gnus-part 1 previous-single-property-change next-single-property-change "No such part" select-window selected-window gnus-select-frame-set-input-focus selected-frame gnus-article-goto-part "=>" point-marker ((byte-code "\304\211\223\210	\204�\305\n!\210\306!\210\304\207" [overlay-arrow-position gnus-auto-select-part frame window nil gnus-select-frame-set-input-focus select-window] 3)) call-interactively gnus-summary-show-article gnus-article-part-wrapper n pt gnus-article-mime-handle-alist overlay-arrow-position overlay-arrow-string cursor-in-non-selected-windows no-handle interactive function gnus-inhibit-mime-unbuttonizing] 6 (#$ . 166989)])
#@50 Pipe MIME part N, which is the numerical prefix.
(defalias 'gnus-article-pipe-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-pipe-part] 3 (#$ . 168890) "P"])
#@50 Save MIME part N, which is the numerical prefix.
(defalias 'gnus-article-save-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-save-part] 3 (#$ . 169068) "P"])
#@64 View MIME part N interactively, which is the numerical prefix.
(defalias 'gnus-article-interactively-view-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-interactively-view-part] 3 (#$ . 169246) "P"])
#@50 Copy MIME part N, which is the numerical prefix.
(defalias 'gnus-article-copy-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-copy-part] 3 (#$ . 169466) "P"])
#@72 View MIME part N using a specified charset.
N is the numerical prefix.
(defalias 'gnus-article-view-part-as-charset #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-view-part-as-charset] 3 (#$ . 169651) "P"])
#@61 View MIME part N externally, which is the numerical prefix.
(defalias 'gnus-article-view-part-externally #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-view-part-externally] 3 (#$ . 169880) "P"])
#@52 Inline MIME part N, which is the numerical prefix.
(defalias 'gnus-article-inline-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-inline-part] 3 (#$ . 170098) "P"])
#@83 Save MIME part N and replace it with an external body.
N is the numerical prefix.
(defalias 'gnus-article-save-part-and-strip #[(n) "\301\302\303#\207" [n gnus-article-part-wrapper gnus-mime-save-part-and-strip t] 4 (#$ . 170289) "P"])
#@71 Replace MIME part N with an external body.
N is the numerical prefix.
(defalias 'gnus-article-replace-part #[(n) "\301\302\303\211$\207" [n gnus-article-part-wrapper gnus-mime-replace-part t] 5 (#$ . 170532) "P"])
#@96 Delete MIME part N and add some information about the removed part.
N is the numerical prefix.
(defalias 'gnus-article-delete-part #[(n) "\301\302\303#\207" [n gnus-article-part-wrapper gnus-mime-delete-part t] 4 (#$ . 170753) "P"])
#@79 Choose a MIME media type, and view part N as such.
N is the numerical prefix.
(defalias 'gnus-article-view-part-as-type #[(n) "\301\302\303#\207" [n gnus-article-part-wrapper gnus-mime-view-part-as-type t] 4 (#$ . 170993) "P"])
(defalias 'gnus-article-mime-match-handle-first #[(condition) "\203z�\306\n\306\211\203r�\f@\307!\203�A!\202S�\310=\203D�\311A8\206@�A\211@;\2039�
@\202=�
A@@)\312\232?\202S�\313=\203R�\311A8?\202S�\314\203k�\315@!\203k�	\203h�@	W\203k�@\fA\211\204�*	\206x�\316)\207\316\207" [condition n gnus-article-mime-handle-alist ihandle #1=#:--cl-dolist-temp-- handle nil functionp undisplayed 3 "multipart/alternative" undisplayed-alternative t gnus-article-goto-part 1] 3])
#@50 View MIME part N, which is the numerical prefix.
(defalias 'gnus-article-view-part #[(&optional n) "rq\210	\247\204
�\305\n!	GV\203�\306\307!\210	\236A\310	!\2059�\f@\311\232\203/�\312 \2029�\313\f!\314=\2059�\315 *\207" [gnus-article-buffer n gnus-article-mime-match-handle-function gnus-article-mime-handle-alist handle gnus-article-mime-match-handle-first error "No such part" gnus-article-goto-part "multipart/alternative" gnus-article-press-button gnus-mm-display-part internal gnus-set-window-start] 2 (#$ . 171716) "P"])
(defalias 'gnus-article-mime-total-parts #[nil "\301@!\203	�\302\207GS\207" [gnus-article-mime-handles bufferp 1] 2])
(put 'gnus-article-mime-total-parts 'byte-optimizer 'byte-compile-inline-expand)
#@37 Display HANDLE and fix MIME button.
(defalias 'gnus-mm-display-part #[(handle) "\306`\307\"`\310\311y\210\312 \313\f!\205�r\fq\210
)\212\314\216\315p\310\"`\211\2036�\316!\210	b\210\317y\210\320!\203J�\321!\202\222�\214`m\203T�`\202V�`T}\210\321!\210eb\210\311y\210`d}\210\322\317\n\323@!\203v�\311\202z�GS\211@;\203\212�@\202\217�A@@)$).	b\210\324 \311y\210`|\210\325\n\320!C#\210	b\210+\207" [inhibit-read-only point id gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets get-text-property gnus-part t 1 selected-window gnus-buffer-live-p ((byte-code "\301!\203\n�\302!\210\301\207" [window window-live-p select-window] 2)) gnus-get-buffer-window select-window nil mm-handle-displayed-p mm-display-part gnus-treat-article bufferp point-at-bol gnus-insert-mime-button mail-parse-ignored-charsets mail-parse-charset window beg win handle gnus-article-mime-handles] 7 (#$ . 172457)])
#@20 Go to MIME part N.
(defalias 'gnus-article-goto-part #[(n) "\302ed\303$\211\205
�	b)\207" [n point text-property-any gnus-part] 6 (#$ . 173411)])
(defalias 'gnus-insert-mime-button #[(handle gnus-tmp-id &optional displayed) "\306A@\307\"\206�\306\3108\311\"\206�\306A@\312\"\206�\313\211@;\203)�@\202-�A@@)\3148\2065�\313	\203>�	@\202A�\315!\203H�\313\202I�\316r@q\210\317 )\320\211\211+,-.\321\322.\"\203q�\323\313\324\211.$.-.\313\232?\205�\325.PP,\313\232\204\214�\326\fPn\204\223�\327c\210`\330/0\3311\332\333\3342\335\336\337\257\n#\210n\203\263�`S\202\264�`3\203\306�\340\341\n\320\324$\3423#\210\343\344\n\345\346\347\3501\351\352&.\207" [handle displayed e b gnus-tmp-type-long gnus-tmp-length mail-content-type-get name 4 filename url "" 5 mm-handle-displayed-p "..." buffer-size nil string-match ".*/" replace-match t "; " " --- " "\n" gnus-eval-format keymap gnus-callback gnus-mm-display-part gnus-part article-type annotation gnus-data gnus-overlay-put gnus-make-overlay face widget-convert-button link :mime-handle :action gnus-widget-press-button :button-keymap :help-echo #[(widget/window &optional overlay pos) "\305\300!\203�\306\307\310	\311H\312\n\203$�r\313\n!q\210\314\315\316\n!!\317\")\202(�\314\317\"!\2030�\320\2021�\321\f\311H$\207" [help-echo-owns-message gnus-mouse-2 overlay widget/window gnus-down-mouse-3 boundp t format "%S: %s the MIME part; %S: more options" 0 mm-handle-displayed-p gnus-overlay-buffer widget-get widget-at gnus-overlay-start :mime-handle "hide" "show"] 8] gnus-tmp-dots gnus-tmp-description gnus-tmp-type gnus-tmp-name gnus-mime-button-line-format gnus-mime-button-line-format-alist gnus-mime-button-map gnus-tmp-id gnus-article-button-face] 14])
(defalias 'gnus-widget-press-button #[(elems el) "\301\302\"b\210\303 \207" [elems widget-get :from gnus-article-press-button] 3])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-displaying-mime default-boundp set-default nil] 3)
#@25 Display the MIME parts.
(defalias 'gnus-display-mime #[(&optional ihandles) "\212\306 \307\310\311 \"r\312\216\313\n!`\211\203 �\314\f!\210\315\f\"\210*
\316\317\"#\211$\204O�\320\317%\"\211$\203F�&\203O�\321$!\210\202O�&\203O�\322 $
\204s�'\204s�(\203e�\323(!\210\317)$(*\203s�\324$!\210$\203\241�$@;\203\205�$A\203\241�
\204\225�'\204\225�\325 \210`d|\210\316'\326$!\210)\202\262�\214\325 \210`d}\210\327\317\330\211#\210~\210)
\204
\212\214\325 \210e`}\210\316+eb\210\331\332\317\316#\205\324�n?\205\324�\333\225\211,\205\350�\331\334\317\316#\205\350�\335,\333\224\"-db\210\336\317x\210\337e`\340-$\210\327\341!\210db\210\336\317x\210\337e`\340-$\210-.db\210n?\205\336c)\207" [save-selected-window-alist save-selected-window-window gnus-article-buffer point window ihandles selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(�\n@\305	@!\203!�\306	A!\203!�\307	@	A\310#\210\nA\211\204�*\306!\2034�\311\310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) get-buffer-window select-window set-window-point t nil mm-dissect-buffer mm-uu-dissect-text-parts mm-uu-dissect mm-destroy-parts gnus-mime-part-function article-goto-body gnus-mime-display-part gnus-treat-article 1 re-search-forward "^date:[	\n ]+" 0 "[	 ]*\n\$?:[^	 ]\\|\\'\$" buffer-substring-no-properties "\n" put-text-property original-date head handle inhibit-read-only handles gnus-article-loose-mime gnus-article-emulate-mime gnus-displaying-mime gnus-article-mime-handles gnus-article-mime-handle-alist gnus-article-mime-part-function case-fold-search start date] 6 (#$ . 175437)])
#@187 Display "multipart" parts as  "multipart/mixed".

If t, it overrides nil values of
`gnus-mime-display-multipart-alternative-as-mixed' and
`gnus-mime-display-multipart-related-as-mixed'.
(custom-declare-variable 'gnus-mime-display-multipart-as-mixed 'nil '(#$ . 177243) :group 'gnus-article-mime :type 'boolean)
#@62 Display "multipart/alternative" parts as  "multipart/mixed".
(custom-declare-variable 'gnus-mime-display-multipart-alternative-as-mixed 'nil '(#$ . 177560) :version "22.1" :group 'gnus-article-mime :type 'boolean)
#@242 Display "multipart/related" parts as  "multipart/mixed".

If displaying "text/html" is discouraged (see
`mm-discouraged-alternatives') images or other material inside a
"multipart/related" part might be overlooked when this variable is nil.
(custom-declare-variable 'gnus-mime-display-multipart-related-as-mixed 'nil '(#$ . 177781) :version "22.1" :group 'gnus-article-mime :type 'boolean)
(defalias 'gnus-mime-display-part #[(handle) "?\206�@;\204�\306!\207\307@	\"A\203!�\307@	\"A!\207@\310\232\203C�\n\204C�\204C�\fGT\211B\fB\311A\312\211
$)\207@\313\232\203]�\n\204]�\204]�\314\211A@)!\207@\315\232\203l�\316\317!\210\320!\207@\321\232\203{�\316\322!\210\320!\207\323A!\207" [handle gnus-mime-multipart-functions gnus-mime-display-multipart-as-mixed gnus-mime-display-multipart-alternative-as-mixed gnus-article-mime-handle-alist id gnus-mime-display-single assoc "multipart/alternative" gnus-mime-display-alternative nil "multipart/related" gnus-mime-display-part "multipart/signed" gnus-add-wash-type signed gnus-mime-display-security "multipart/encrypted" encrypted gnus-mime-display-mixed gnus-mime-display-multipart-related-as-mixed x] 6])
(defalias 'gnus-mime-part-function #[(handles) "@;\203\f�\302\303A\"\207	!\207" [handles gnus-article-mime-part-function mapcar gnus-mime-part-function] 3])
(defalias 'gnus-mime-display-mixed #[(handles) "\301\302\"\207" [handles mapcar gnus-mime-display-part] 3])
(defalias 'gnus-mime-display-single #[(handle) "\211@;\203
�@\202�A@@)	\306\307\211\211\n\310\311\215.\207" [handle gnus-ignored-mime-types text display move not-attachment t nil ignored (byte-code "\203�\306\211A@	\"\203��\307\300\310\"\210\202��\311\n!?\2051�\312\n8?\2061�\312\n8@\313\232\2061�\314\n!\211\203S�\315\n!\203S�\316\n!\203H�\317\n!\204N�\320	!\203S�\321\202s�\n\322\n\211@;\203c�\n@\202g�\nA@@)\323\"@)\324\232\203s�\321.GT\310/\2110\nB.B.\f\203\304�\n\322\n\211@;\203\230�\n@\202\234�\nA@@)\323\"@)\325\232\203\304�\326\327n\204\260�\330\202\302�o\204\275�`SSf\327=\203\301�\331\202\302�\332\"\210\f\203\316�\333	!\204\344�\334\n0\f\206\333�\205\333�
C#\210\335 \210\3211`/\f\2031\203\366�\336y\210`/2\212\310\337\340\217\2103)45\341\n\321\"\210*db\210\202f
\203f\203f1\203$\336y\210`/\335 \210\342\n\343\nA@\344\"\2069	\345\232\2059\346\211$\204G\347\350\n!!\202`$\351=\203Yr\n@q\210\352 )\202`\353\350\n!$\")\"\210db\210\212\214/`}\210\n6=\203\216\354\310\332\211\n\211@;\203\205\n@\202\211\nA@@)$\202\337\31076\3108\2119\203\3009@\2118;\204\2678A@@\355\232\204\26787B79A\2119\204\234*\354\310\n7>G7G\n\211@;\203\330\n@\202\334\nA@@)$),\207" [ignored type handle not-attachment display text string-match throw nil mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlinable-p mm-inlined-p mm-automatic-external-display-p t split-string "/" "text" "message" insert-char 10 2 0 1 gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -1 (set-buffer gnus-summary-buffer) ((error)) mm-display-part mm-insert-inline mail-content-type-get charset "text/calendar" utf-8 mm-string-as-multibyte mm-get-part gnus-decoded buffer-string mm-decode-string gnus-treat-article "application/pgp-signature" gnus-article-mime-handle-alist beg id move gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-article-mime-handles handles part #1=#:--cl-dolist-temp--] 6) type] 7])
#@41 Say whether TYPE is to be unbuttonized.
(defalias 'gnus-unbuttonized-mime-type-p #[(type) "?\205�\301\302\215\205�\301\303\215?\207" [gnus-inhibit-mime-unbuttonizing found (byte-code "	\205�\303	\211A@\n\"\203�\304\305\306\"\210\202�)\207" [gnus-unbuttonized-mime-types types type string-match throw found t] 3) (byte-code "	\205�\303	\211A@\n\"\203�\304\305\306\"\210\202�)\207" [gnus-buttonized-mime-types types type string-match throw found t] 3)] 2 (#$ . 181306)])
#@47 Insert a newline, but mark it as undeletable.
(defalias 'gnus-article-insert-newline #[nil "\300`\301c\210`\302\303$\207" [gnus-put-text-property "\n" gnus-undeletable t] 5 (#$ . 181796)])
(defalias 'gnus-mime-display-alternative #[(handles &optional preferred ibegend id) "\206�\306	!	`\307\310\307\211\n\307\211\f
\311\213\210\205&�b.	\207" [preferred handles ihandles point handle inhibit-read-only mm-preferred-alternative nil t ((byte-code "\214\203�@A\206�@b\210\306y\210`}\210ed|\210\307	!\210\310 C\f\235\211A@)\211,\2044�\f@,\204B�\203B�\311\312!\204\313`\211-\314\315.\"c\210`\316\317\320\321?\322\323\324DEE\325\324\fD\324,D\324\nD.\257F\326/01\3272\330.\331BBBBBBBBBB#\210\332\333-`\334\335\3363&\210	\211A@\2114\203\313`\211-\314\3374\232\203\261�\340\202\262�\3414\2114@;\203\302�4@\202\307�4A@@)#c\210`\316\317\342\321?\322\323\324DEE\325\324\fD\3244D\324\nD.\257F\326/01\3272\330.\3434\257\f#\210\332\333-`\334\335\3363&\210\344c\210\202\224�\345c\210\203t@;\203%\346!\210\202l5r6q\2107)89\347!\210\212\214\n@d}\210\350\351G\352:@!\203O\353\202S:GS4\2114@;\203c4@\202h4A@@)$\210,db\210\n\310 \241\210)\351\207" [ibegend handles begend preferred ihandles x 2 mm-remove-parts point-marker gnus-unbuttonized-mime-type-p "multipart/alternative" gnus-add-text-properties format "%d.  " gnus-callback lambda (handles) unless setq gnus-article-mime-handle-alist quote gnus-mime-display-alternative keymap face gnus-part (article-type multipart) widget-convert-button link :action gnus-widget-press-button :button-keymap "(%c) %-18s" 42 32 (handles) gnus-data "  " "\n\n" gnus-display-mime mm-display-part gnus-treat-article nil bufferp 1 not-pref from id gnus-mime-button-map gnus-mouse-face-prop gnus-article-mouse-face gnus-article-button-face gnus-widget-button-keymap handle gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-article-mime-handles] 16)) from props begend not-pref ibegend] 3])
#@304 Alist of strings describing wash status in the mode line.
Each entry has the form (KEY ON OF), where the KEY is a symbol
representing the particular washing function, ON is the string to use
in the article mode line when the washing function is active, and OFF
is the string to use when it is inactive.
(defconst gnus-article-wash-status-strings (byte-code "\306\307\211\307\211\203L�@\211@\310\nA@!\311\n8\310\312\n8!\313\n8\314\315\316\317%\210\314\315\316\317\f
%\210
EB-A\211\204\f�\307,\207" [result alist entry #1=#:--cl-dolist-temp-- off-help off ((cite "c" "Possible hidden citation text" " " "All citation text visible") (headers "h" "Hidden headers" " " "All headers visible.") (pgp "p" "Encrypted or signed message status hidden" " " "No hidden encryption nor digital signature status") (signature "s" "Signature has been hidden" " " "Signature is visible") (overstrike "o" "Overstrike (^H) characters applied" " " "No overstrike characters applied") (emphasis "e" "/*_Emphasis_*/ characters applied" " " "No /*_emphasis_*/ characters applied")) nil copy-sequence 2 3 4 put-text-property 0 1 help-echo on-help on key] 8) (#$ . 183881))
(defalias 'gnus-article-wash-status-entry #[(key value) "\304	\"\203�\nA@\202�\305\n8)\207" [key gnus-article-wash-status-strings entry value assoc 2] 3])
#@58 Return a string which display status of article washing.
(defalias 'gnus-article-wash-status #[nil "rq\210\306	>\307	>\310	>\311	>\312	>\313	>\305	>\304	>\303	>\302	>\n	
\314\306\"\314\307\206@�
\"\314\311	\206S�\n\206S�\206S�
\"\314\304\f\"\314\303\"\314\302\n\"\260.\207" [gnus-article-buffer gnus-article-wash-types emphasis overstrike signature encrypted cite headers boring-headers pgp pem signed gnus-article-wash-status-entry boring] 11 (#$ . 185222)])
#@46 Add a washing of TYPE to the current status.
(defalias 'gnus-add-wash-type #[(type) "\301\302\"\207" [type add-to-list gnus-article-wash-types] 3 (#$ . 185714)])
#@46 Add a washing of TYPE to the current status.
(defalias 'gnus-delete-wash-type #[(type) "\302	\"\211\207" [type gnus-article-wash-types delq] 3 (#$ . 185883)])
#@56 Add IMAGE of CATEGORY to the list of displayed images.
(defalias 'gnus-add-image #[(category image) "	\236\211\204�C\211	B\nC\244)\207" [category gnus-article-image-alist entry image] 3 (#$ . 186050)])
#@32 Delete all images in CATEGORY.
(defalias 'gnus-delete-images #[(category) "	\236\211A\305\211\203�\f@\306\"\210\fA\211\204
�*\307\n	\"\310!)\207" [category gnus-article-image-alist entry image #1=#:--cl-dolist-temp-- nil gnus-remove-image delq gnus-delete-wash-type] 5 (#$ . 186265)])
(defalias 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
#@96 Hide unwanted headers if `gnus-have-all-headers' is nil.
Provided for backwards compatibility.
(defalias 'gnus-article-maybe-hide-headers #[nil "\303!\203�rq\210	)?\205�\n?\205�\304 \207" [gnus-summary-buffer gnus-have-all-headers gnus-inhibit-hiding gnus-buffer-live-p gnus-article-hide-headers] 2 (#$ . 186648)])
#@283 Append the current article to a file named FILE-NAME.
If `gnus-article-save-coding-system' is non-nil, it is used to encode
text and used as the value of the coding cookie which is added to the
top of a file.  Otherwise, this function saves a raw article without
the coding cookie.
(defalias 'gnus-output-to-file #[(file-name) "p	\211?\205\f�
\f\206�\206�
\306 !!\307\310!\"r\"q\210\311\216!\203E�\312 !\210eb\210\313\314!\203E�\315\224\315\225|\210db\210\316!\210db\210\317c\210\f\203u�\320\321!\203k�\322\323\213!\211\324\236A\206i�\feb\210\325\326\"c\210!\203\214�\327ed \330\331%\210\332\333 \"\210\202\223�\327ed #\210.	\334\207" [artbuf nnmail-pathname-coding-system file-name-coding-system gnus-article-save-coding-system coding mm-text-coding-system file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents looking-at "X-Gnus-Coding-System: .+\n\n" 0 insert-buffer-substring "\n" fboundp select-safe-coding-system coding-system-base ((byte-code "\301ed#\207" [coding select-safe-coding-system] 4)) ((mule-utf-8 . utf-8)) format "X-Gnus-Coding-System: -*- coding: %s; -*-\n\n" write-region nil no-message message "Appended to %s" t coding-system-for-read mm-text-coding-system-for-write coding-system-for-write file-name exists #1#] 7 (#$ . 186975)])
#@88 Narrow the article buffer to a page.
If given a numerical ARG, move forward ARG pages.
(defalias 'gnus-narrow-to-page #[(&optional arg) "\203\n�\306!\202�\307r	q\210~\210\310\311!\203#�\312\313\314!\210\313\315!\210)\316\211\211\212\307W\203c�\317\316\320\321!$\203Q�\307\224\211\211\317\316\312#\203\272�\307\225\202\272�\322\316\312#\205\272�\307\224e\211\202\272�\307V\203\232�\322\316\320$\203\210�\307\225\211\211\322\316\312#\203\272�\307\224\202\272�\317\316\312#\205\272�\307\225d\211\202\272�\317\316\312#\203\251�\307\225\211b\210\322\316\312#\203\265�\307\224
\206\272�\f)\205\357�\312\203\310�b\210
\206\315�e\f\206\322�d}\210\310\311!\205\357�\212\f\203\345�\fb\210\323 \210
\205\356�
b\210\324 ),\207" [arg gnus-article-buffer inhibit-read-only pt nd st prefix-numeric-value 0 gnus-visual-p page-marker t gnus-remove-text-with-property gnus-prev gnus-next nil re-search-backward move abs re-search-forward gnus-insert-next-page-button gnus-insert-prev-page-button page-delimiter gnus-page-broken] 7 (#$ . 188369) "P"])
#@36 Show the next page of the article.
(defalias 'gnus-article-goto-next-page #[nil "\300 \205�eb\210\301\302\303\304!\"\207" [gnus-article-next-page gnus-article-read-summary-keys nil gnus-character-to-event 110] 4 (#$ . 189452) nil])
#@40 Show the previous page of the article.
(defalias 'gnus-article-goto-prev-page #[nil "\214~\210o)\203�\300\301\302\303!\"\207\304\301!\207" [gnus-article-read-summary-keys nil gnus-character-to-event 112 gnus-article-prev-page] 4 (#$ . 189691) nil])
#@152 Show the next page of the 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 #[(&optional lines) "\304\305Z!\210	\203�\306\307 d\"\n\206�\310 S\\V\204M�\212\311\210\312 \205)�`TdY)\203M�\203=�\212\214~\210\311y\210m*\203G�	\203E�\313\n!\210\314\207\315\316!\210\311\207\313\n!\210\311\207" [scroll-margin gnus-article-over-scroll lines gnus-page-broken move-to-window-line -1 count-lines window-start window-height nil pos-visible-in-window-p gnus-article-next-page-1 t gnus-narrow-to-page 1] 3 (#$ . 189948) "p"])
#@126 Move point to the beginning of the window.
In Emacs, the point is placed at the line number which `scroll-margin'
specifies.
(defalias 'gnus-article-beginning-of-window '(macro . #[nil "\300\207" [(move-to-window-line (min (max 0 scroll-margin) (max 1 (- (window-height) (if mode-line-format 1 0) (if header-line-format 1 0) 2))))] 1 (#$ . 190584)]))
(defalias 'gnus-article-next-page-1 #[(lines) "\247\203�\304V\203�	\304V\203�\304\305\306 d\"	Z]^\307\310\311\217\210\312\304	]\313\314\315 \n\2032�\313\2023�\304\203;�\313\202<�\304\316$]^!\207" [lines scroll-margin mode-line-format header-line-format 0 count-lines window-start nil (byte-code "\302\303	!\210)\302\207" [scroll-in-place lines nil scroll-up] 2) ((end-of-buffer (byte-code "db\207" [] 1))) move-to-window-line 1 - window-height 2] 8])
#@92 Show previous page of current article.
Argument LINES specifies lines to be scrolled down.
(defalias 'gnus-article-prev-page #[(&optional lines) "\306\307!\210\2036�o\2036�\214~\210o)\2046�\310\311!\210db\210\312	\2033�\n\203,�\n\\\313]\2024�\314 \315Z\2024�\311!\207\316\317\320\217\306\307]\321\322\314 \f\203J�\321\202K�\307
\203S�\321\202T�\307\315$]^!\210\207" [gnus-page-broken gnus-article-over-scroll lines scroll-margin mode-line-format header-line-format move-to-window-line 0 gnus-narrow-to-page -1 recenter 3 window-height 2 nil (byte-code "\302\303	!)\207" [scroll-in-place lines nil scroll-down] 2) ((beginning-of-buffer (byte-code "eb\207" [] 1))) 1 -] 9 (#$ . 191401) "p"])
#@184 Decide whether there is only boring text remaining in the article.
Something "interesting" is a word of at least two letters that does
not have a face in `gnus-article-boring-faces'.
(defalias 'gnus-article-only-boring-p #[nil "\205�\302\303!\205�\303J\205�\212\304\305\306\215*\207" [gnus-article-skip-boring inhibit-point-motion-hooks boundp gnus-article-boring-faces t only-boring (byte-code "\301\302\303\304#\203+�\305u\210\306`\307\303\310\311\"\312\313\314!\"B\")\315J\"\204��\316\317\303\"\210\202��\316\317\304\"\207" [pos re-search-forward "\\b\\w\\w" nil t -1 gnus-intersection delq get-text-property face mapcar #[(overlay) "\301\302\"\207" [overlay overlay-get face] 3] overlays-at gnus-article-boring-faces throw only-boring] 8)] 2 (#$ . 192102)])
#@52 Read article specified by message-id around point.
(defalias 'gnus-article-refer-article #[nil "\212\302\303\304 \305#\210\306\307\310 \305#\210\306\311\310 \305#\203)�\312\313\314!\315Q	q\210\316!)\202,�\317\320!)\207" [msg-id gnus-summary-buffer re-search-backward "[ 	]\\|^" point-at-bol t re-search-forward "<?news:<?\\|<" point-at-eol "[^@ ]+@[^ 	>]+" "<" match-string 0 ">" gnus-summary-refer-article error "No references around point"] 4 (#$ . 192879) nil])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-article-show-summary #[nil "\302!\204\n�\303\304!\207\305 \210\306\307!\210\310	!\210\311 \207" [gnus-summary-buffer gnus-current-article gnus-buffer-live-p error "There is no summary buffer for this article buffer" gnus-article-set-globals gnus-configure-windows article gnus-summary-goto-subject gnus-summary-position-point] 2 (#$ . 193352) nil])
#@41 Describe article mode commands briefly.
(defalias 'gnus-article-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 6 substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page	 \\[gnus-article-goto-prev-page]:Prev page  \\[gnus-article-show-summary]:Show summary  \\[gnus-info-find-node]:Run Info  \\[gnus-article-describe-briefly]:This help"] 4 (#$ . 193768) nil])
#@51 Execute the last keystroke in the summary buffer.
(defalias 'gnus-article-summary-command #[nil "p\304 \305\306\307\"\210\310\311 \312 \"\313!\210\nq\210\314	!\210\315\316p!`\"+\207" [func owin obuf gnus-article-current-summary current-window-configuration nil switch-to-buffer norecord lookup-key current-local-map this-command-keys call-interactively set-window-configuration set-window-point get-buffer-window] 3 (#$ . 194185) nil])
#@51 Execute the last keystroke in the summary buffer.
(defalias 'gnus-article-summary-command-nosave #[nil "\302\303	!\210\304\305 \306 \"\307!)\207" [func gnus-article-current-summary nil pop-to-buffer lookup-key current-local-map this-command-keys call-interactively] 3 (#$ . 194633) nil])
#@35 Beep if not in an article buffer.
(defalias 'gnus-article-check-buffer #[nil "\301\232?\205\n�\302\303!\207" [major-mode gnus-article-mode error "Command invoked outside of a Gnus article buffer"] 2 (#$ . 194930)])
#@76 Read a summary buffer key sequence and execute it from the article buffer.
(defalias 'gnus-article-read-summary-keys #[(&optional arg key not-restore-window) "\306 \210\307\310\311\312\313\211r6q\210\313789\206 �:C\2448\314\313\315\"*\316\317!\210	\211GSH\320=\203A�\321	\322\323O!\202\303	
\235\204S�	\f\235\204S�	\235\203\211�\313;\324\213\210;\203d�;\247\203j�\325 \210\202{�	\235\204t�6q\210\326;!\210`	\f\235\205\205�\327<!)\202\303p\330 \313\211\211\211\211\211\211=>?@A;BCDE\203\266�\3276!\210\331 B\202\367�\3326!\211B\203\310�\333B!\210\202\367�6F\334\335!\210\332F\336\"\211B\204\352�\337G\334\335!\210)\332F\336\"B\340\341B!!\210\333B!\210)pA\3137\342\343 	\")\211;\203\252\344;!\203\252\345\346\347\217\203\252B\331 =\203-`\350B!?\351B!>Ap=\204?Dp=\205\301Aq\210\352 @Dq\210E\204Q\353C!\210@\354=\203t\203t\355\332p!\356\"\210\357\332p!\360 \203q`S\202r`\"\210E?\205\301\205\301\361B!\205\301r\362B!q\210H)\363=\205\301\357B\"\210\355B?\"\210\364B>\"\202\301\353C!\210=\203\277\365=@=A\"\202\301\325 .	.\207" [new-sum-point keys up-to-top nosave-in-article nosave-but-article nosaves gnus-article-check-buffer ("q" "Q" "c" "r" "" "m" "a" "f" "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP" "=" "^" "\336" "|") ("A " "A<" "A>" "AM" "AP" "AR" "AT" "A" "A\215" "A
" "Ab" "Ae" "An" "Ap" [65 (meta return)] [65 delete]) ("AS" "") ("n" "Gn" "p" "Gp") nil read-key-sequence t message "" 8 gnus-article-describe-bindings 0 -1 ((byte-code "\304!\210\305\306\307 \n\")\305\207" [gnus-article-current-summary gnus-pick-mode keys func pop-to-buffer nil lookup-key current-local-map] 3)) ding call-interactively pop-to-buffer current-window-configuration selected-window get-buffer-window select-window gnus-configure-windows article visible (article ((vertical 1.0 (summary 0.25 point) (article 1.0)))) gnus-select-frame-set-input-focus window-frame lookup-key current-local-map functionp code (byte-code "\301!\210\302\207" [func call-interactively t] 2) ((error (byte-code "\302\207" [code err nil] 1))) window-start window-hscroll gnus-summary-select-article set-window-configuration old set-window-start 1 set-window-point article-goto-body window-live-p window-buffer gnus-summary-mode set-window-hscroll signal gnus-article-current-summary gnus-pick-mode unread-command-events key last-command-event func gnus-article-buffer err new-sum-hscroll new-sum-start selected in-buffer win owin obuf not-restore-window summary-buffer gnus-buffer-configuration major-mode] 9 (#$ . 195152) "P"])
(defalias 'gnus-article-read-summary-send-keys #[nil "\301\302!C\303 )\207" [unread-command-events gnus-character-to-event 83 gnus-article-read-summary-keys] 2 nil nil])
#@84 Display documentation of the function invoked by KEY.
KEY is a string or a vector.
(defalias 'gnus-article-describe-key #[(key) "\305 \210\306\307\"\310>\203!�r	q\210\311\312\"\307\313\314\315\313\307\"!+\207\314!\207" [key gnus-article-current-summary unread-command-events gnus-pick-mode cursor-in-echo-area gnus-article-check-buffer key-binding t (gnus-article-read-summary-keys gnus-article-read-summary-send-keys) mapcar #[(x) "\250\203�\301Y\203�\302\301ZD\207\207" [x 128 meta] 3] nil describe-key read-key-sequence] 4 (#$ . 197934) (list (let ((cursor-in-echo-area t)) (read-key-sequence "Describe key: ")))])
#@84 Display documentation of the function invoked by KEY.
KEY is a string or a vector.
(defalias 'gnus-article-describe-key-briefly #[(key &optional insert) "\306 \210\307\310\"\311>\203\"�r	q\210\312\313\"\310\314\315\316\314\310\"
\"+\207\315
\"\207" [key gnus-article-current-summary unread-command-events gnus-pick-mode cursor-in-echo-area insert gnus-article-check-buffer key-binding t (gnus-article-read-summary-keys gnus-article-read-summary-send-keys) mapcar #[(x) "\250\203�\301Y\203�\302\301ZD\207\207" [x 128 meta] 3] nil describe-key-briefly read-key-sequence] 4 (#$ . 198570) (list (let ((cursor-in-echo-area t)) (read-key-sequence "Describe key: ")) current-prefix-arg)])
#@184 Show a list of all defined keys, and their definitions.
The optional argument PREFIX, if non-nil, should be a key sequence;
then we display only bindings that start with that prefix.
(defalias 'gnus-article-describe-bindings #[(&optional prefix) "\306 \210\307!\307	!\310\311!\312\211)\313)\314
#\210\313
\315\312#\210r*q\210\316
\317\314!\"\210\312\211\211+,-\f\203\242�\f\211A@-\320-!\203\205�-G\321U\203\205�-\322H\211,:\203\205�,@\247\203\205�,A\247\203\205�,@,A]\323W\2036�\324\325\326\327,!\237\"\f\"\211\2027�\317-!\211,\2036�,\330=\2046�\313)-,#\210\2026�+\331\332!\203\254�\331\333!\203\265�)\334\335!.r.q\210\336\216\337)!\210\340\332!\210\340\333!\210\n\341/!\210+\342\343\344p\345BBE/D0r\346\347!\203\370�\3121\347 )\202\371�\350q\2100\2112.\207" [gnus-article-mode-map gnus-article-send-map draft agent sumkeys map gnus-article-check-buffer copy-keymap where-is-internal gnus-article-read-summary-keys nil define-key "S" [t] set-keymap-parent key-binding vectorp 1 0 128 append mapcar vector gnus-uncompress-range undefined boundp gnus-agent-summary-mode gnus-draft-mode generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) use-local-map make-local-variable describe-bindings lambda (prefix) with-current-buffer ((gnus-article-describe-bindings prefix)) fboundp help-buffer "*Help*" keymap gnus-article-current-summary gnus-pick-mode def key #1# prefix item help-xref-following help-xref-stack-item] 6 (#$ . 199271) nil])
#@157 Start composing a reply mail to the current message.
The text in the region will be yanked.  If the region isn't active,
the entire article will be yanked.
(defalias 'gnus-article-reply-with-original #[(&optional wide) "A\306\307 \204�rq\210\310\nCC\f\")\2027�`\311\312!{\313\305!\203+�
\203+�\306\frq\210\310\n	DC\f\")*\207" [gnus-article-current contents article gnus-summary-buffer wide transient-mark-mode nil gnus-region-active-p gnus-summary-reply mark t boundp mark-active] 3 (#$ . 200833) nil])
#@162 Start composing a wide reply mail to the current message.
The text in the region will be yanked.  If the region isn't active,
the entire article will be yanked.
(defalias 'gnus-article-wide-reply-with-original #[nil "\300\301!\207" [gnus-article-reply-with-original t] 2 (#$ . 201351) nil])
#@147 Compose a followup to the current article.
The text in the region will be yanked.  If the region isn't active,
the entire article will be yanked.
(defalias 'gnus-article-followup-with-original #[nil "A\306\307 \204�rq\210\310\nCC!)\2024�`\311\312!{\313\304!\203)�\f\203)�\306rq\210\310\n	DC!)*\207" [gnus-article-current contents article gnus-summary-buffer transient-mark-mode mark-active nil gnus-region-active-p gnus-summary-followup mark t boundp] 3 (#$ . 201649) nil])
#@167 Hide all the gruft in the current article.
This means that signatures, cited text and (some) headers will be
hidden.
If given a prefix, show the hidden text instead.
(defalias 'gnus-article-hide #[(&optional arg force) "\302!\210\303!\210\304	\"\210\305!\207" [arg force gnus-article-hide-headers gnus-article-hide-list-identifiers gnus-article-hide-citation-maybe gnus-article-hide-signature] 3 (#$ . 202138) (byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3)])
#@68 Do some article highlighting if article highlighting is requested.
(defalias 'gnus-article-maybe-highlight #[nil "\300\301\302\"\205	�\303 \207" [gnus-visual-p article-highlight highlight gnus-article-highlight-some] 3 (#$ . 202636)])
(defalias 'gnus-check-group-server #[nil "\301\302!!?\205�\303\302!!\210\304\305\"\207" [gnus-newsgroup-name gnus-server-opened gnus-find-method-for-group gnus-check-server gnus-request-group t] 3])
#@48 Get an article and insert it into this buffer.
(defalias 'gnus-request-article-this-buffer #[(article group) "\306\211\212\307 \210\310 \210\n\206�\f;\203�\311\f!\210\f\247\203\266�
\203\266�\312
!\203\266�
\2111\205>�1;\203:�\312\202;�\3131!)\203\266�r
q\210\314\f2\23683\f\315W\203\206�\f4>\203p�\f3\316H\311\f!\317\f4\"4\202\206�\3203!\203�3\316H\202\206�\321\3223!\210\323!\2115@\324=\203\265�\3203!\203\265�\3253\316H!\2116;\203\264�\3266!\203\264�\324\3276!\210)+\f\247\203\362�
\203\362�\312
!\203\362�
\2111\205\332�1;\203\326�\312\202\327�\3131!)\203\362�r
q\210\f7\236)A8=\203\362�\306\202>\3129!\203%\f\247\203%r9q\210:@\n\232\205:A\f=)\203%\330r9q\210ed{)!c\210\304\202>;\2036\331\n\fp#\2036\304\202>\332\n\fp#\203X\333\n\f
#\210\f\247\203T;\203T\334\n\fp#\210\304\202><\203m\f\247\203m\335\f\n\"\203m\304\202>\336\f\n\"\203x\304\202>\f;\204\202\f\247\203==\f;\205\213>\323!@\306\337?@AB=B<\203\261B@9\203\266B@C\236\203\266BCB=\204\311B\203\311B\211AB@=@\2041=\340=\203\336r
q\210D)=\307 \210\310 \210\n\341 \210)\342\f\np#\203\f\247\203\333\n\f
#\210;\203\334\n\fp#\210\304\211@\202\313B\203 B\211AB@=\202\311\343\344\345A!\"\204\311\346\211@\203\316@\304=\2059\304-\202>\f)
E\312F!\203\216\313p!\313\312F!!\232\203\216\212\3129!\203e9q\210\202t\3479!q\210\350 \210\351G\337H\337?\307 \210\352F!\210)\n\fB:)\353\354!\210,I	\203\272\f\247\204\234\f;\203\272pJ
q\210\355	\"\210\356	\306\337#\210\357\360p\337\"`\"\210Jq\210)*\207" [sparse-header do-update-line group gnus-newsgroup-name article gnus-summary-buffer nil erase-buffer gnus-kill-all-overlays gnus-read-header get-buffer buffer-name 3 0 4 delq vectorp pseudo gnus-request-pseudo-article gnus-find-method-for-group nneething nneething-get-file-name file-directory-p gnus-group-enter-directory mm-string-to-multibyte gnus-backlog-request-article gnus-async-request-fetched-article gnus-async-prefetch-next gnus-backlog-enter-article gnus-cache-request-article gnus-agent-request-article t current gnus-check-group-server gnus-request-article string-match "^400 " nnheader-get-report done gnus-get-buffer-create buffer-disable-undo gnus-original-article-mode insert-buffer-substring run-hooks gnus-article-decode-hook gnus-summary-update-article gnus-summary-goto-subject set-window-point gnus-get-buffer-window buffer gnus-newsgroup-data header gnus-newsgroup-sparse method dir gnus-newsgroup-reads gnus-canceled-mark gnus-original-article-buffer gnus-original-article gnus-keep-backlog gnus-use-cache gnus-override-method gnus-refer-article-method inhibit-read-only result backend methods nnoo-definition-alist gnus-current-select-method gnus-article-current-summary gnus-article-buffer major-mode buffer-read-only gnus-article-decoded-p buf] 6 (#$ . 203080)])
#@40 Hook run in article edit mode buffers.
(custom-declare-variable 'gnus-article-edit-mode-hook 'nil '(#$ . 205964) :group 'gnus-article-various :type 'hook)
(byte-code "\303B\304\303!\204�\305\303\306\"\210\301B\304\301!\204�\305\301\306\"\210	\2044�\307 \310	\n\"\210\311\301\312\"\210\311\313\314\"\210\306\207" [current-load-list gnus-article-edit-mode-map text-mode-map gnus-article-edit-done-function default-boundp set-default nil make-keymap set-keymap-parent gnus-define-keys-1 ("?" describe-mode "" gnus-article-edit-done "" gnus-article-edit-exit "" message-goto-to "" message-goto-from "" message-goto-bcc "" message-goto-cc "" message-goto-subject "" message-goto-reply-to "" message-goto-newsgroups "" message-goto-distribution "" message-goto-followup-to "
" message-goto-mail-followup-to "" message-goto-keywords "" message-goto-summary "	" message-insert-or-toggle-importance "" message-generate-unsubscribed-mail-followup-to "" message-goto-body "	" message-goto-signature "" message-insert-to "" message-insert-newsgroups "" message-sort-headers "" message-elide-region "" message-delete-not-region "" message-kill-to-signature "\215" message-newline-and-reformat "" mml-attach-file "" message-beginning-of-line "	" message-tab "\273" comment-region) (gnus-article-edit-wash-map "" gnus-article-edit-mode-map) ("f" gnus-article-edit-full-stops)] 3)
#@2 
(defvar gnus-article-edit-mode-field-menu nil (#$ . 207406))
(byte-code "\303\304\305\306$\210\307\310N\204�\311\307\310\312#\210\313\300!\204�\311\300\314\315#\210\300	B\316\300!\204/�\317\300\320 \"\210\313\321!\204;�\311\321\314\315#\210\321	B\316\321!\204K�\317\321\322 \"\210\311\302\314\315#\210\302	B\316\302!\204e�\317\302\323\302\324\"\210\n\"\210\311\315\325\326#\207" [gnus-article-edit-mode-map current-load-list gnus-article-edit-mode-abbrev-table easy-menu-do-define gnus-article-edit-mode-field-menu "" ("Field" ["Fetch To" message-insert-to t] ["Fetch Newsgroups" message-insert-newsgroups t] "----" ["To" message-goto-to t] ["From" message-goto-from t] ["Subject" message-goto-subject t] ["Cc" message-goto-cc t] ["Reply-To" message-goto-reply-to t] ["Summary" message-goto-summary t] ["Keywords" message-goto-keywords t] ["Newsgroups" message-goto-newsgroups t] ["Followup-To" message-goto-followup-to t] ["Mail-Followup-To" message-goto-mail-followup-to t] ["Distribution" message-goto-distribution t] ["Body" message-goto-body t] ["Signature" message-goto-signature t]) gnus-article-edit-mode-hook variable-documentation put "Hook run when entering Article Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name gnus-article-edit-mode default-boundp set-default make-sparse-keymap gnus-article-edit-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent message-mode] 5)
#@265 Major mode for editing articles.
This is an extended text-mode.

\{gnus-article-edit-mode-map}

In addition to any hooks its parent mode `message-mode' might have run,
this mode runs the hook `gnus-article-edit-mode-hook', as the final step
during initialization.
(defalias 'gnus-article-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210\"#\306\326!\210\306\327!\210\306\330!\210\331\306\332!\210\333\306\311!\210\307	\334$%\"\210\335 \210\336&\337 \210~\210)\340\341!\207" [delay-mode-hooks major-mode mode-name gnus-article-edit-mode-map gnus-article-edit-mode-syntax-table parent make-local-variable t message-mode gnus-article-edit-mode "Article Edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table gnus-article-edit-done-function gnus-prev-winconf font-lock-defaults (message-font-lock-keywords t) mail-header-separator "" easy-menu-add mml-mode nil buffer-enable-undo run-mode-hooks gnus-article-edit-mode-hook gnus-article-edit-mode-abbrev-table local-abbrev-table message-mode-field-menu message-mode-map buffer-read-only] 6 (#$ . 208943) nil])
#@153 Edit the current article.
This will have permanent effect only in mail groups.
If FORCE is non-nil, allow editing of articles even in read-only
groups.
(defalias 'gnus-article-edit #[(&optional force) "\204
�\303 \203
�\304\305!\210\306 \210\307\310\311\312\313\314	\315H\206�\316\303 \n\317BBBBF\"\207" [force gnus-current-headers gnus-summary-buffer gnus-group-read-only-p error "The current newsgroup does not support article editing" gnus-article-date-original gnus-article-edit-article ignore lambda (no-highlight) 'ignore gnus-summary-edit-article-done 5 "" (no-highlight)] 10 (#$ . 210281) "P"])
#@59 Start editing the contents of the current article buffer.
(defalias 'gnus-article-edit-article #[(start-func exit-func &optional quiet) "\306 	q\210\307\310 \210) \210\311\307!\210\312\313!\210\f?\205&�\314\315\316\")\207" [winconf gnus-article-buffer message-auto-save-directory start-func exit-func gnus-article-edit-done-function current-window-configuration nil gnus-article-edit-mode set-buffer-modified-p gnus-configure-windows edit-article gnus-message 6 "C-c C-c to end edits" gnus-prev-winconf quiet] 3 (#$ . 210892)])
#@36 Update the article edits and exit.
(defalias 'gnus-article-edit-done #[(&optional arg) "p\306 `	~\210!\210
q\210\203%�\307@A\"\210\310!\2035�rq\210\311)\203C�\312@A\"\210\313 \210\314ed\311#\210\315 \210\316\n!\210
q\210\317\320
!\f\"\210\321\320
!`\"\210-\322 \207" [gnus-article-edit-done-function gnus-prev-winconf winconf p start buf window-start gnus-backlog-remove-article get-buffer nil gnus-cache-update-article kill-all-local-variables set-text-properties gnus-article-mode set-window-configuration set-window-start get-buffer-window set-window-point gnus-summary-show-article func arg gnus-keep-backlog gnus-article-current gnus-original-article-buffer gnus-original-article gnus-use-cache] 5 (#$ . 211435) "P"])
#@44 Exit the article editing without updating.
(defalias 'gnus-article-edit-exit #[nil "\306 \203�\307\310!\205<�p`\300 \311 \210\312!\203�\313!\210\f\314 \210\315 \210\316
!\210r\nq\210\317\320p!\"\210	b\210-\321 \207" [window-start p curbuf gnus-original-article-buffer gnus-prev-winconf winconf buffer-modified-p yes-or-no-p "Article modified; kill anyway? " erase-buffer gnus-buffer-live-p insert-buffer-substring kill-all-local-variables gnus-article-mode set-window-configuration set-window-start get-buffer-window gnus-summary-show-article] 3 (#$ . 212193) nil])
#@51 Interactively repair spacing at end of sentences.
(defalias 'gnus-article-edit-full-stops #[nil "\212eb\210\301\302\303\304#\210\303\305\306\307\"*\207" [case-fold-search search-forward-regexp "^$" nil t query-replace-regexp "\$[.!?][])}]* \$\$[[({A-Z]\$" "\\1 \\2"] 4 (#$ . 212774) nil])
#@39 Regular expression that matches URLs.
(custom-declare-variable 'gnus-button-url-regexp '(concat "\\b\$\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\$:\\)" "\$//[-a-z0-9_.]+:[0-9]*\$?" (if (string-match "[[:digit:]]" "1") (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]") (punct "!?:;.,")) (concat "\$?:" "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "[" chars "]*" "\\|" "[" chars punct "]+" "[" chars "]" "\$")) (concat "\$[-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\$+" "\$[-a-z0-9_=#$@~%&*+\\/]\\|\\w\$")) "\\)") '(#$ . 213074) :group 'gnus-article-buttons :type 'regexp)
#@47 Regular expression that matches a valid FQDN.
(custom-declare-variable 'gnus-button-valid-fqdn-regexp 'message-valid-fqdn-regexp '(#$ . 213716) :version "22.1" :group 'gnus-article-buttons :type 'regexp)
#@72 Regular expression that matches a localpart of mail addresses or MIDs.
(custom-declare-variable 'gnus-button-valid-localpart-regexp '"[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n	 @]*" '(#$ . 213926) :version "22.1" :group 'gnus-article-buttons :type 'regexp)
#@123 Function to use for displaying man pages.
The function must take at least one argument with a string naming the
man page.
(custom-declare-variable 'gnus-button-man-handler ''manual-entry '(#$ . 214181) :version "22.1" :type '(choice (function-item :tag "Man" manual-entry) (function-item :tag "Woman" woman) (function :tag "Other")) :group 'gnus-article-buttons)
#@253 Top directory of a CTAN (Comprehensive TeX Archive Network) archive.
If the default site is too slow, try to find a CTAN mirror, see
<URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also
the variable `gnus-button-handle-ctan'.
(custom-declare-variable 'gnus-ctan-url '"http://tug.ctan.org/tex-archive/" '(#$ . 214551) :version "22.1" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type '(choice (const "http://www.tex.ac.uk/tex-archive/") (const "http://tug.ctan.org/tex-archive/") (const "http://www.dante.de/CTAN/") (string :tag "Other")))
#@108 Function to use for displaying CTAN links.
The function must take one argument, the string naming the URL.
(custom-declare-variable 'gnus-button-ctan-handler ''browse-url '(#$ . 215156) :version "22.1" :type '(choice (function-item :tag "Browse Url" browse-url) (function :tag "Other")) :group 'gnus-article-buttons)
#@39 Bogus strings removed from CTAN URLs.
(custom-declare-variable 'gnus-button-handle-ctan-bogus-regexp '"^/?tex-archive/\\|^/" '(#$ . 215479) :version "22.1" :group 'gnus-article-buttons :type '(choice (const "^/?tex-archive/\\|/") (regexp :tag "Other")))
#@111 Regular expression for ctan directories.
It should match all directories in the top level of `gnus-ctan-url'.
(custom-declare-variable 'gnus-button-ctan-directory-regexp '(regexp-opt (list "archive-tools" "biblio" "bibliography" "digests" "documentation" "dviware" "fonts" "graphics" "help" "indexing" "info" "language" "languages" "macros" "nonfree" "obsolete" "support" "systems" "tds" "tools" "usergrps" "web") t) '(#$ . 215740) :version "22.1" :group 'gnus-article-buttons :type 'regexp)
#@65 Regular expression that matches a message ID or a mail address.
(custom-declare-variable 'gnus-button-mid-or-mail-regexp '(concat "\\b\$<?" gnus-button-valid-localpart-regexp "@" gnus-button-valid-fqdn-regexp ">?\$\\b") '(#$ . 216238) :version "22.1" :group 'gnus-article-buttons :type 'regexp)
#@504 What to do when the button on a string as "foo123@bar.invalid" is pushed.
Strings like this can be either a message ID or a mail address.  If it is one
of the symbols `mid' or `mail', Gnus will always assume that the string is a
message ID or a mail address, respectively.  If this variable is set to the
symbol `ask', always query the user what do do.  If it is a function, this
function will be called with the string as its only argument.  The function
must return `mid', `mail', `invalid' or `ask'.
(custom-declare-variable 'gnus-button-prefer-mid-or-mail ''gnus-button-mid-or-mail-heuristic '(#$ . 216542) :version "22.1" :group 'gnus-article-buttons :type '(choice (function-item :tag "Heuristic function" gnus-button-mid-or-mail-heuristic) (const ask) (const mid) (const mail)))
#@224 An alist of (RATE . REGEXP) pairs for `gnus-button-mid-or-mail-heuristic'.

A negative RATE indicates a message IDs, whereas a positive indicates a mail
address.  The REGEXP is processed with `case-fold-search' set to nil.
(custom-declare-variable 'gnus-button-mid-or-mail-heuristic-alist ''((-10.0 . ".+\\$.+@") (-10.0 . "#") (-10.0 . "\\*") (-5.0 . "\\+[^+]*\\+.*@") (-5.0 . "@[Nn][Ee][Ww][Ss]") (-5.0 . "@.*[Dd][Ii][Aa][Ll][Uu][Pp]") (-1.0 . "^[^a-z]+@") (-5.0 . "\\.[0-9][0-9]+.*@") (-5.0 . "[a-z].*[A-Z].*[a-z].*[A-Z].*@") (-3.0 . "[A-Z][A-Z][a-z][a-z].*@") (-5.0 . "\\...?.?@") (-2.0 . "^[0-9]") (-1.0 . "^[0-9][0-9]") (-3.0 . "^[0-9][0-9a-fA-F][0-9a-fA-F][^0-9a-fA-F]") (-5.0 . "^[0-9][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][^0-9a-fA-F]") (-3.0 . "[0-9][0-9][0-9][0-9][0-9][^0-9].*@") (-3.0 . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9].*@") (-3.0 . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].*@") (25.0 . "-dated-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]+.*@") (-20.0 . "\\.fsf@") (-20.0 . "^slrn") (-20.0 . "^Pine") (-20.0 . "^alpine\\.") (-20.0 . "_-_") (-20.0 . "\\.ln@") (-30.0 . "@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de") (-30.0 . "@4[Aa][Xx]\\.com") (10.0 . "^[^0-9]+@") (3.0 . "^[^0-9]+[0-9][0-9]?[0-9]?@") (3.0 . "@stud") (2.0 . "[a-z][a-z][._-][A-Z][a-z].*@") (0.5 . "^[A-Z][a-z]") (0.5 . "^[A-Z][a-z][a-z]") (1.5 . "^[A-Z][a-z][A-Z][a-z][^a-z]") (2.0 . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]")) '(#$ . 217335) :version "22.1" :group 'gnus-article-buttons :type '(repeat (cons (number :tag "Rate") (regexp :tag "Regexp"))))
#@196 Guess whether MID-OR-MAIL is a message ID or a mail address.
Returns `mid' if MID-OR-MAIL is a message IDs, `mail' if it's a mail
address, `ask' if unsure and `invalid' if the string is invalid.
(defalias 'gnus-button-mid-or-mail-heuristic #[(mid-or-mail) "\306\307\306\211\211\211-.\310/\311\312#G\313\314\315/\n$\210\316\317/\"\2031�\313\314\320/#\210\321\316\322/\"\203B�\313\314\323/#\210\324
\247\203\331�-\203u�-@\211@	A-A-\316/\"\203G�
\f\\\313\325\326/\f
&\210\202G�\n\327X\203\207�
\330\\\313\325\331/
$\210\n\332Y\203\331�\313\325\333/#\210\316\334/\"\203\264�\335\336\337\n_\\_
\f\\\313\325\340/\f
%\210\202\331�\316\341/\"\203\314�
\342\\\313\325\343/\344
%\210\202\331�
\345\\\313\325\346/\347
%\210\313\314\350/
$\210
9\203\352�
\202\377�
\351W\203\364�\352\202\377�
\353V\203\376�\321\202\377�\354.\207" [gnus-button-mid-or-mail-heuristic-alist elem lpartlen regexp rate result nil 0 gnus-replace-in-string "^\$.*\$@.*$" "\\1" gnus-message 8 "`%s', length of local part=`%s'." string-match "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$\\|^[0-9]+\\.[0-9]+@compuserve\\|@public\\.gmane\\.org" "`%s' is a known mail address." mail "@.*@\\| " "`%s' is invalid." invalid 9 "`%s' matched `%s', rate `%s', result `%s'." 7 5.0 "`%s' matched (<= lpartlen 7), result `%s'." 12 "`%s' matched (>= lpartlen 12)" "[0-9][^0-9]+[0-9].*@" -1.0 5.0 0.1 "Many digits in `%s', rate `%s', result `%s'." "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*@" -5.0 "Few vowels in `%s', rate `%s', result `%s'." -5.0 5.0 "`%s', rate `%s', result `%s'." 5.0 "`%s': Final rate is `%s'." -10.0 mid 10.0 ask list case-fold-search mid-or-mail] 8 (#$ . 218891)])
(defalias 'gnus-button-handle-mid-or-mail #[(mid-or-mail) "\306\307\310Q\311\310Q\312\313\314#\210\315	!\2035�	\316\317\320#!\211\321=\204.�\n\322=\2033�\n\2025�\323	\323=\203>�\324\213\210	\321=\203P�\312\325\326\f#\210\327\f!\202f�	\322=\203b�\312\325\330
#\210\331
!\202f�\312\332\333\",\207" [gnus-button-prefer-mid-or-mail pref guessed mid-or-mail url-mid url-mailto nil "news" ":" "mailto" gnus-message 9 "mid-or-mail=%s" fboundp gnus-replace-in-string "^<\\|>$" "" mid mail ask ((byte-code "\302\303\304Q!\203�\305\202�\306\302\207" [mid-or-mail pref y-or-n-p "Is <" "> a mail address? " mail mid] 4)) 8 "calling `gnus-button-handle-news' %s" gnus-button-handle-news "calling `gnus-url-mailto'  %s" gnus-url-mailto 3 "Invalid string."] 6])
#@121 Call function FUN on argument ARG.
Both FUN and ARG are supposed to be strings.  ARG will be passed
as a symbol to FUN.
(defalias 'gnus-button-handle-custom #[(fun arg) "\302!\303\304\"\203�	\202�\302	!!\207" [fun arg intern string-match "^customize-apropos"] 4 (#$ . 221344)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list gnus-button-handle-describe-prefix default-boundp set-default "^\$C-h\\|<?[Ff]1>?\$"] 3)
#@69 Call `describe-function' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-function #[(url) "\302\303\304	\305#!!\207" [url gnus-button-handle-describe-prefix describe-function intern gnus-replace-in-string ""] 6 (#$ . 221804)])
#@69 Call `describe-variable' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-variable #[(url) "\302\303\304	\305#!!\207" [url gnus-button-handle-describe-prefix describe-variable intern gnus-replace-in-string ""] 6 (#$ . 222072)])
#@89 Display help on variable or function.
Calls `describe-variable' or `describe-function'.
(defalias 'gnus-button-handle-symbol #[(url) "\302!\303	!\203�\304	!\202!�\305	!\203�\306	!\202!�\307\310\311#)\207" [url sym intern fboundp describe-function boundp describe-variable gnus-message 3 "`%s' is not a known function of variable."] 4 (#$ . 222340)])
#@64 Call `describe-key' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-key #[(url) "\304	\305#\306\307\310\217\211\203�\311!\202�\312\313\314\n#*\207" [url gnus-button-handle-describe-prefix key-string keys gnus-replace-in-string "" nil (byte-code "\301\302D!\207" [key-string eval kbd] 3) ((error)) describe-key gnus-message 3 "Invalid key sequence in button: %s"] 5 (#$ . 222701)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos #[(url) "\302\303	\304#!\207" [url gnus-button-handle-describe-prefix apropos gnus-replace-in-string ""] 5 (#$ . 223129)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-command #[(url) "\302\303	\304#!\207" [url gnus-button-handle-describe-prefix apropos-command gnus-replace-in-string ""] 5 (#$ . 223355)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-variable #[(url) "\302\303!\203\n�\303\202�\304\305	\306#!\207" [url gnus-button-handle-describe-prefix fboundp apropos-variable apropos gnus-replace-in-string ""] 5 (#$ . 223597)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-documentation #[(url) "\302\303!\203\n�\303\202�\304\305	\306#!\207" [url gnus-button-handle-describe-prefix fboundp apropos-documentation apropos gnus-replace-in-string ""] 5 (#$ . 223883)])
#@66 Call `locate-library' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-library #[(url) "\303\304\305#\210\306!\307	\206�\310\311\312#	\204 �\303\313\314#\202#�\315\n!*\207" [url lib file gnus-message 9 "url=`%s'" locate-library gnus-replace-in-string "" ".elc" ".el" 1 "Cannot locale library `%s'." find-file-read-only] 4 (#$ . 224179)])
#@51 Call `browse-url' when pushing a CTAN URL button.
(defalias 'gnus-button-handle-ctan #[(url) "	\304\n\305#P!\207" [gnus-button-ctan-handler gnus-ctan-url url gnus-button-handle-ctan-bogus-regexp gnus-replace-in-string ""] 6 (#$ . 224553)])
#@399 *Integer that says how many TeX-related buttons Gnus will show.
The higher the number, the more buttons will appear and the more false
positives are possible.  Note that you can set this variable local to
specific groups.  Setting it higher in TeX groups is probably a good idea.
See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
how to set variables in specific groups.
(custom-declare-variable 'gnus-button-tex-level '5 '(#$ . -224802) :version "22.1" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer)
#@400 *Integer that says how many man-related buttons Gnus will show.
The higher the number, the more buttons will appear and the more false
positives are possible.  Note that you can set this variable local to
specific groups.  Setting it higher in Unix groups is probably a good idea.
See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
how to set variables in specific groups.
(custom-declare-variable 'gnus-button-man-level '5 '(#$ . -225383) :version "22.1" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer)
#@420 *Integer that says how many emacs-related buttons Gnus will show.
The higher the number, the more buttons will appear and the more false
positives are possible.  Note that you can set this variable local to
specific groups.  Setting it higher in Emacs or Gnus related groups is
probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
`gnus-parameters' on how to set variables in specific groups.
(custom-declare-variable 'gnus-button-emacs-level '5 '(#$ . -225965) :version "22.1" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer)
#@171 *Integer that says how many buttons for news or mail messages will appear.
The higher the number, the more buttons will appear and the more false
positives are possible.
(custom-declare-variable 'gnus-button-message-level '5 '(#$ . -226569) :version "22.1" :group 'gnus-article-buttons :type 'integer)
#@158 *Integer that says how many buttons for browsing will appear.
The higher the number, the more buttons will appear and the more false
positives are possible.
(custom-declare-variable 'gnus-button-browse-level '5 '(#$ . -226878) :version "22.1" :group 'gnus-article-buttons :type 'integer)
#@662 *Alist of regexps matching buttons in article bodies.

Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
REGEXP: is the string (case insensitive) matching text around the button (can
also be Lisp expression evaluating to a string),
BUTTON: is the number of the regexp grouping actually matching the button,
FORM: is a Lisp expression which must eval to true for the button to
be added,
CALLBACK: is the function to call when the user push this button, and each
PAR: is a number of a regexp grouping whose text will be passed to CALLBACK.

CALLBACK can also be a variable, in that case the value of that
variable it the real callback function.
(custom-declare-variable 'gnus-button-alist ''(("<\$url:[>\n	 ]*?\$?\$nntp\\|news\$:[>\n	 ]*\$[^>\n	 ]*@[^>\n	 ]*\$>" 0 (>= gnus-button-message-level 0) gnus-button-handle-news 3) ((concat "\\b\$nntp\\|news\$:\$" gnus-button-valid-localpart-regexp "@[a-z0-9.-]+[a-z]\$") 0 t gnus-button-handle-news 2) ("\$\\b<\\(url:[>\n	 ]*\$?\$nntp\\|news\$:[>\n	 ]*\$//\$?\$[^>\n	 ]*\$>\\)" 1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5) ("\\b\$nntp\\|news\$:\$//\$?\$[^'\">\n	 ]+\$" 0 (>= gnus-button-message-level 0) gnus-button-fetch-group 3) ("\\bmid:\$//\$?\$[^'\">\n	 ]+@[^'\">\n	 /]+\$" 0 (>= gnus-button-message-level 0) gnus-button-message-id 2) ("\\bin\$ +article\\| +message\$? +\$<\\([^\n @<>]+@[^\n @<>]+\$>\\)" 2 (>= gnus-button-message-level 0) gnus-button-message-id 3) ("\\b\$mid\\|message-id\$:? +\$<\\([^\n @<>]+@[^\n @<>]+\$>\\)" 2 (>= gnus-button-message-level 0) gnus-button-message-id 3) ("\$<URL: *\$mailto: *\$[^> \n	]+\$>" 0 (>= gnus-button-message-level 0) gnus-url-mailto 2) ("\\bmailto:\$[-a-z.@_+0-9%=?&/]+\$" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) ("\\bmailto:\$[^ \n	]+\$" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) ((concat "\\bCTAN:[ 	\n]?[^>)!;:,'\n	 ]*\$" gnus-button-ctan-directory-regexp "[^][>)!;:,'\n	 ]+\$") 0 (>= gnus-button-tex-level 1) gnus-button-handle-ctan 1) ((concat "\\btex-archive/\$" gnus-button-ctan-directory-regexp "/[-_.a-z0-9/]+[-_./a-z0-9]+[/a-z0-9]\$") 1 (>= gnus-button-tex-level 6) gnus-button-handle-ctan 1) ((concat "\\b\$" gnus-button-ctan-directory-regexp "/[-_.a-z0-9]+/[-_./a-z0-9]+[/a-z0-9]\$") 1 (>= gnus-button-tex-level 8) gnus-button-handle-ctan 1) ("\\binfo://?\$[^'\">\n	]+\$" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 1) ("\\binfo://\$[^'\">\n	 ]+\$" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 1) ("\\binfo:\$[^('\n	
 \"><][^'\n	
 \"><]*\$" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url-gnome 1) ("<\$info:\\(([^)]+)[^>\n
]*\$\\)>" 1 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url-kde 2) ("\$(Info-goto-node\\|(info\$[ 	\n]*\$\"[^\"]*\"\$)" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 2) ("\\b\$C-h\\|<?[Ff]1>?\$[ 	\n]+i[ 	\n]+d?[ 	\n]?m[ 	\n]+[^ ]+ ?[^ ]+[ 	\n]+RET\$[ 	\n]+i[ 	\n]+[^ ]+ ?[^ ]+[ 	\n]+RET\\([ 	\n,]*\$\\)?" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-keystrokes 0) ("M-x[ 	\n]\$customize-[^ ]+\$[ 	\n]RET[ 	\n]\$[^ ]+\$[ 	\n]RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1 2) ("M-x[ 	\n]+apropos[ 	\n]+RET[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos 1) ("M-x[ 	\n]+apropos-command[ 	\n]+RET[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-command 1) ("M-x[ 	\n]+apropos-variable[ 	\n]+RET[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1) ("M-x[ 	\n]+apropos-documentation[ 	\n]+RET[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1) ("/\$[a-z][-a-z0-9]+\\.el\$\\>[^.?]" 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) ("`\$[a-z][-a-z0-9]+\\.el\$'" 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) ("`\$[a-z][a-z0-9]+-[a-z0-9]+-[-a-z0-9]*[a-z]\\|\\(gnus\\|message\$-[-a-z]+\\)'" 0 (>= gnus-button-emacs-level 8) gnus-button-handle-symbol 1) ("`\$[a-z][a-z0-9]+-[a-z]+\$'" 0 (>= gnus-button-emacs-level 9) gnus-button-handle-symbol 1) ("(setq[ 	\n]+\$[a-z][a-z0-9]+-[-a-z0-9]+\$[ 	\n]+.+)" 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-variable 1) ("\\bM-x[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-function 1) ("\\b\$C-h\\|<?[Ff]1>?\$[ 	\n]+f[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2) ("\\b\$C-h\\|<?[Ff]1>?\$[ 	\n]+v[ 	\n]+\$[^ 	\n]+\$[ 	\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2) ("`\$\\(C-h\\|<?[Ff]1>?\$[ 	\n]+k[ 	\n]+\$[^']+\$\\)'" 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3) ("<URL: *\$[^\n<>]*\$>" 1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1) ("\"URL: *\$[^\n\"]*\$\"" 1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1) (gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) browse-url 0) ("\\b\$[a-z][a-z]+([1-9])\$\\W" 0 (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3)) gnus-button-handle-man 1) ("\\b\$[a-z][-_.a-z0-9]+([1-9])\$\\W" 0 (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5)) gnus-button-handle-man 1) ("\\b\$\\(?:[a-z][-+_.:a-z0-9]+([1-9][X1a-z]*)\$\\|\\b\$?:X([1-9])\$\\)\\W" 0 (>= gnus-button-man-level 5) gnus-button-handle-man 1) ("^--- \$[^ .]+\\.el\$.*\n.*\n@@ -?\$[0-9]+\$" 1 (>= gnus-button-message-level 4) gnus-button-patch 1 2) ("^\\*\\*\\* \$[^ .]+\\.el\$.*\n.*\n\\*+\n\\*\\*\\* \$[0-9]+\$" 1 (>= gnus-button-message-level 4) gnus-button-patch 1 2) (gnus-button-mid-or-mail-regexp 0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1)) '(#$ . -227173) :group 'gnus-article-buttons :type '(repeat (list (choice regexp variable sexp) (integer :tag "Button") (sexp :tag "Form") (function :tag "Callback") (repeat :tag "Par" :inline t (integer :tag "Regexp group")))))
(put 'gnus-button-alist 'risky-local-variable t)
#@328 *Alist of headers and regexps to match buttons in article heads.

This alist is very similar to `gnus-button-alist', except that each
alist has an additional HEADER element first in each entry:

(HEADER REGEXP BUTTON FORM CALLBACK PAR)

HEADER is a regexp to match a header.  For a fuller explanation, see
`gnus-button-alist'.
(custom-declare-variable 'gnus-header-button-alist ''(("^\$References\\|Message-I[Dd]\\|^In-Reply-To\$:" "<[^<>]+>" 0 (>= gnus-button-message-level 0) gnus-button-message-id 0) ("^\$From\\|Reply-To\$:" ": *\$.+\$$" 1 (>= gnus-button-message-level 0) gnus-button-reply 1) ("^\$Cc\\|To\$:" "[^ 	\n<>,()\"]+@[^ 	\n<>,()\"]+" 0 (>= gnus-button-message-level 0) gnus-msg-mail 0) ("^X-[Uu][Rr][Ll]:" gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) browse-url 0) ("^Subject:" gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) browse-url 0) ("^[^:]+:" gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) browse-url 0) ("^OpenPGP:.*url=" gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) gnus-button-openpgp 0) ("^[^:]+:" "\\bmailto:\$[-a-z.@_+0-9%=?&/]+\$" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) ("^[^:]+:" "\$<\\(url: \$?\$nntp\\|news\$:\$[^>\n ]*\$>\\)" 1 (>= gnus-button-message-level 0) gnus-button-message-id 4)) '(#$ . -233327) :group 'gnus-article-buttons :group 'gnus-article-headers :type '(repeat (list (regexp :tag "Header") (choice regexp variable) (integer :tag "Button") (sexp :tag "Form") (function :tag "Callback") (repeat :tag "Par" :inline t (integer :tag "Regexp group")))))
(put 'gnus-header-button-alist 'risky-local-variable t)
#@186 Check text under the mouse pointer for a callback function.
If the text under the mouse pointer has a `gnus-callback' property,
call it with the value of the `gnus-data' text property.
(defalias 'gnus-article-push-button #[(event) "\305\211:\203�A@\202�\306 `\307\310F)\211@)!q\210\211:\203)�A@\202/�\306 `\307\310F)\311	8\206H�	A@:\203E�	A@@\202H�	A@)\312\n\313\"\312\n\314\"\nb\210\f\205^�\f!+\207" [event position pos data fun window-buffer selected-window (0 . 0) 0 5 get-text-property gnus-data gnus-callback] 6 (#$ . 234962) "e"])
#@156 Check text at point for a callback function.
If the text at point has a `gnus-callback' property,
call it with the value of the `gnus-data' text property.
(defalias 'gnus-article-press-button #[nil "\302`\303\"\302`\304\"\205�	!*\207" [fun data get-text-property gnus-data gnus-callback] 4 (#$ . 235520) nil])
#@252 Highlight current article.
This function calls `gnus-article-highlight-headers',
`gnus-article-highlight-citation',
`gnus-article-highlight-signature', and `gnus-article-add-buttons' to
do the highlighting.  See the documentation for those functions.
(defalias 'gnus-article-highlight #[(&optional force) "\301 \210\302!\210\303 \210\304!\210\305 \207" [force gnus-article-highlight-headers gnus-article-highlight-citation gnus-article-highlight-signature gnus-article-add-buttons gnus-article-add-buttons-to-head] 2 (#$ . 235842) (list 'force)])
#@217 Highlight current article.
This function calls `gnus-article-highlight-headers',
`gnus-article-highlight-signature', and `gnus-article-add-buttons' to
do the highlighting.  See the documentation for those functions.
(defalias 'gnus-article-highlight-some #[(&optional force) "\300 \210\301 \210\302 \207" [gnus-article-highlight-headers gnus-article-highlight-signature gnus-article-add-buttons] 1 (#$ . 236398) (list 'force)])
#@69 Highlight article headers as specified by `gnus-header-face-alist'.
(defalias 'gnus-article-highlight-headers #[nil "rq\210\214\306\211\211\307 \210\310\211\211\211\211\211\310\211\203\300�@eb\210\311@\312\230\203>�\313\202A�@\314QA@\3158\316\310\306#\203\267�m\204\267�\317 \210`\320\321\310\306#\204o�\322u\210\203\207�`
>\204\207�`
B\323`\324$\210\203Q�`\211\f>\204Q�\fB\316\325\310\306#\203\250�\326u\210\202\253�db\210\323`\324$\210\202Q�A\211\204)�.
\310\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only fpoints hpoints t article-narrow-to-head nil "^\$" "" "[^	 ]" "\$" 2 re-search-forward beginning-of-line search-forward ":" 1 gnus-put-text-property face "^[^ 	]" -2 from field-face header-face regexp gnus-header-face-alist entry #1=#:--cl-dolist-temp--] 6 (#$ . 236832) nil])
#@146 Highlight the signature in an article.
It does this by highlighting everything after
`gnus-signature-separator' using the face `gnus-signature'.
(defalias 'gnus-article-highlight-signature #[nil "rq\210\306\211\214\2055�\307 \2055�\310\311ed\312\306$\313#\210~\210\314 \210\315\224\316 \315\225T\312\223\317
\fS\320\f$*,\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks gnus-signature-face end start t gnus-article-narrow-to-signature gnus-overlay-put gnus-make-overlay nil face gnus-article-search-signature 0 make-marker gnus-article-add-button gnus-signature-toggle] 7 (#$ . 237731) nil])
#@40 Say whether PROP exists in the region.
(defalias 'gnus-button-in-region-p #[(b e prop) "\303	\n\304$\207" [b e prop text-property-not-all nil] 5 (#$ . 238358)])
#@164 Find external references in the article and make buttons of them.
"External references" are things like Message-IDs and URLs, as
specified by `gnus-button-alist'.
(defalias 'gnus-article-add-buttons #[(&optional force) "rq\210\306\211\306\n\307\211\211\307\211\211\211A@\211\203c�eW\2048�dY\203B�B\202�b\210\310 \211\203Z�\311\fA@\224\fA@\225\312\307$\210\307\211\223\210\202�+\313 \210`\211A@\211\205\341�\314\f@!
b\210\315\307\306#\203m�\fA@\224\fA@\225\316\224\317\f8\306=\204\251�\314\317\f8!\203\335�\320\312#\204\335�\321 \307\223\211B\f@\322=\203\323�\323#\204\335�\324\325$\210+\202\201�.\207" [gnus-article-buffer inhibit-read-only gnus-button-alist regexp entry beg t nil gnus-button-entry put-text-property gnus-callback article-goto-body eval re-search-forward 0 2 gnus-button-in-region-p make-marker gnus-button-url-regexp gnus-article-extend-url-button gnus-article-add-button gnus-button-push alist case-fold-search inhibit-point-motion-hooks new-list marker gnus-button-marker-list from end start] 7 (#$ . 238527) (list 'force)])
#@337 Extend url button if url is folded into two or more lines.
Return non-nil if button is extended.  BEG is a marker that points to
the beginning position of a text containing url.  START and END are
the endpoints of a url button before it is extended.  The concatenated
url is put as the `gnus-button-url' overlay property on the button.
(defalias 'gnus-article-extend-url-button #[(beg start end) "`	D\306\211\211!	b\210\307\310!?\205\313�b\210\311\312\313 {\"\205\313�	{C\314\224\2032�\315\2023�\316\317 \210\307\"!\205J�\320\225W\205J�\321\322\320!!\323\324R\314y\210\307\n!\203�\314\224\322\325!\206c�\322\314!\fB\325\225\206m�\314\225\211
B\325\224\206y�\314\224
B\204O�\325\224\205\313�\306\211#$
\203\241�\326
\211A@
\211A@\327%$\210\202\212�*\330	\"&\331&\332\333#\210\331&\334\335\336\f\237\337#C#\210$\203\311�\331&\340$#\210)\333!b\210-\207" [start end regexp delim url points nil looking-at "[	 ]*[\">]" string-match "\$?:\"\\|\\(<\$\\)[	 ]*\$?:url[	 ]*:[	 ]*\$?\\'" point-at-bol 1 ">" "\"" beginning-of-line 0 regexp-quote match-string "[	 ]*\$?:\\([^	\n \">]+\$[	 ]*$\\|\$[^	\n \">]*\$[	 ]*" "\\)" 2 gnus-article-add-button gnus-button-push gnus-make-overlay gnus-overlay-put evaporate t gnus-button-url mapconcat identity "" mouse-face opoint message-cite-prefix-regexp widget-mouse-face gnus-article-mouse-face beg overlay] 7 (#$ . 239662)])
#@41 Add buttons to the head of the article.
(defalias 'gnus-article-add-buttons-to-head #[nil "rq\210\214\306\211\211\307 \210\310\211\310\211\203\233�@eb\210\311@\310\306#\203\222�\312\224\311\313\310\306#\203?�\312\224\206@�d
b\210\311\314A@!\f\306#\203\214�A\211A@\224A@\225\3158\312\225b\210\314!\203\210�\316\f\3178\3208\224\3208\225{$\210,\202D�\fb\210\202%�A\211\204�.	\310\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only end beg t article-narrow-to-head nil re-search-forward 0 "^[^ 	]" eval 2 gnus-article-add-button 3 4 gnus-header-button-alist entry #1=#:--cl-dolist-temp-- start form] 8 (#$ . 241065) nil])
#@70 Create a button between FROM and TO with callback FUN and data DATA.
(defalias 'gnus-article-add-button #[(from to fun &optional data) "\203�\306\307	\n\310\311$\312#\210\313	\n\205�\fD\314
D\244\205&�\315D\244#\210\316\317	\n\320\321\322&\207" [gnus-article-button-face from to gnus-article-mouse-face gnus-mouse-face-prop fun gnus-overlay-put gnus-make-overlay nil t face gnus-add-text-properties gnus-callback gnus-data widget-convert-button link :action gnus-widget-press-button :button-keymap data gnus-widget-button-keymap] 8 (#$ . 241776)])
(defalias 'gnus-article-set-globals #[nil "rq\210\301 )\207" [gnus-summary-buffer gnus-set-global-variables] 1])
(defalias 'gnus-signature-toggle #[(end) "rq\210\306\211\307d\310\311$\203$�\312\311!\210\313\310\311d\310\311\fBB%\210\2024�\314\311!\210\315\310\316d\310\311\fBB%\210)
\317\320!+\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks end gnus-hidden-properties gnus-article-mime-handle-alist t text-property-any article-type signature gnus-delete-wash-type gnus-remove-text-properties-when gnus-add-wash-type gnus-add-text-properties-when nil gnus-set-mode-line article gnus-article-mime-handle-alist-1] 9])
(defalias 'gnus-button-entry #[nil "\303\n\203\"�\n\211A@\304\305	@!!\203�\303\211\202�\303\202�	*\207" [gnus-button-alist entry alist nil looking-at eval] 4])
(defalias 'gnus-button-push #[(marker) "\212b\210\305 \306\307	8	@\310=\203�\311\312\"\206!�\313\314\315	\233\"\316!\203/�\317\f\"\202K�\320!\203D�\316J!\203D�\317J\f\"\202K�\321\322\323\fB#-\207" [marker entry inhibit-point-motion-hooks fun args gnus-button-entry t 3 gnus-button-url-regexp get-char-property gnus-button-url mapcar #[(group) "\302!\303\304	G\305	$\210	)\207" [group string match-string set-text-properties 0 nil] 5] 4 fboundp apply boundp gnus-message 1 "You must define `%S' to use this button"] 5])
(defalias 'gnus-parse-news-url #[(url) "\306\211\211\211\211\211\307\310!rq\210\311\216c\210eb\210\312\313!\203-�\314\315!\316\225b\210\312\317!\203N�\314\315!\314\320!;\203F�\321\314\320!!\202I�\314\320!\316\225b\210\312\322!\203[�\314\315!\202\200�\312\323!\203o�\314\315!\324\314\325!\326\"\202\200�\312\327!\203|�\314\315!\202\200�\330\331!\210+
\f\n	\257.\207" [articles message-id group port server scheme nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) looking-at "\$[A-Za-z]+\$:" match-string 1 0 "//\$[^:/]+\$\$:?\$\$[0-9]+\$?/" 3 string-to-number "\$.*@.*\$" "\$[^/]+\$/\$[-0-9]+\$" split-string 2 "-" "\$[^/]+\$/?" error "Unknown news URL syntax" #1# url] 6])
#@19 Fetch a news URL.
(defalias 'gnus-button-handle-news #[(url) "\306!\211G\307U\203�	\211A@\202�\310\311\312	GD\"	\211A@	\211A@	\211A@	\211A@	@\203o�rq\210\203g�\313DC\244\f\206R�\314\315\316\317$\210\320!*\202k�\320!)\202v�
\205v�\321!.\207" [url #1=#:--cl-rest-- scheme server port group gnus-parse-news-url 6 signal wrong-number-of-arguments nil nntp "nntp" gnus-message 7 "Fetching %s with %s" gnus-summary-refer-article gnus-button-fetch-group message-id articles gnus-summary-buffer gnus-refer-article-method nntp-port-number] 6 (#$ . 244484)])
#@51 Visit an Emacs Lisp library LIBRARY on line LINE.
(defalias 'gnus-button-patch #[(library line) "\303\304!!\211\204�\305\306\"\210\307	!\210\310\311\n!!)\207" [library file line locate-library file-name-nondirectory error "Couldn't find library %s" find-file goto-line string-to-number] 4 (#$ . 245078) nil])
#@19 Fetch a man page.
(defalias 'gnus-button-handle-man #[(url) "\302\303\304	$\210\305=\203�\306	\307\310#\302\303\304	$\210	!\207" [gnus-button-man-handler url gnus-message 9 "`%s' `%s'" woman gnus-replace-in-string "([1-9][X1a-z]*).*\\'" ""] 5 (#$ . 245397)])
#@20 Fetch an info URL.
(defalias 'gnus-button-handle-info-url #[(url) "\301\302\303#\304\305\"\203#�\306\307\310\311\312\"!\206�\313\314\310\311\315\"!R!\207\304\316\"\2038�\317\211\320\321#\322\323#\306!\207\324\325\"\207" [url mm-subst-char-in-string 43 32 string-match "^\$[^:/]+\$?/\$.*\$" gnus-info-find-node "(" gnus-url-unhex-string match-string 1 "Gnus" ")" 2 "([^)\"]+)[^\"]+" gnus-replace-in-string "[\n	 ]+" " " "\"" "" error "Can't parse %s"] 8 (#$ . 245668)])
#@29 Fetch GNOME style info URL.
(defalias 'gnus-button-handle-info-url-gnome #[(url) "\301\302\303#\304\305\"\203#�\306\307\310\311\312\"!\313\310\311\314\"!\206 �\315R!\207\316\317\"\207" [url mm-subst-char-in-string 95 32 string-match "\$[^#]+\$#?\$.*\$" gnus-info-find-node "(" gnus-url-unhex-string match-string 1 ")" 2 "Top" error "Can't parse %s"] 8 (#$ . 246158)])
#@27 Fetch KDE style info URL.
(defalias 'gnus-button-handle-info-url-kde #[(url) "\301\302!!\207" [url gnus-info-find-node gnus-url-unhex-string] 3 (#$ . 246542)])
#@56 Call `info' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-info-keystrokes #[(url) "\306\211\211\307\310\"\203�\311\312\"\311\313\"\202�\314\315\"\210\316 \210\317 \210\320\n!\210	G\321V\205s�\307\322	\"\210\311\312	\"\311\323	\"\324	!\210\203r�\325\326!r\fq\210\327\216c\210eb\210\330\331!+\321
W\203q�\332\323!\210
T\211\202`�*\306+\207" [comma indx node url #1=#:temp-buffer i nil string-match "\\b\$C-h\\|<?[Ff]1>?\$[ 	\n]+i[ 	\n]+d?[ 	\n]?m[ 	\n]+\$[^ ]+ ?[^ ]+\$[ 	\n]+RET\$[ 	\n]+i[ 	\n]+[^ ]+ ?[^ ]+[ 	\n]+RET\\(?:[ 	\n,]*\$\\)?" match-string 2 3 error "Can't parse %s" info Info-directory Info-menu 0 "[ 	\n]+i[ 	\n]+\$[^ ]+ ?[^ ]+\$[ 	\n]+RET\$[ 	\n,]*\$" 1 Info-index generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) how-many "," Info-index-next #2=#:--cl-dotimes-temp--] 3 (#$ . 246709)])
#@67 Retrieve and add an OpenPGP key given URL from an OpenPGP header.
(defalias 'gnus-button-openpgp #[(url) "\302\303!rq\210\304\216\305	!\210\306ed\"\210\307\310\211\211#+\207" [#1=#:temp-buffer url generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-url-insert-file-contents-external pgg-snarf-keys-region pgg-display-output-buffer nil] 4 (#$ . 247635)])
#@19 Fetch MESSAGE-ID.
(defalias 'gnus-button-message-id #[(message-id) "rq\210\302	!)\207" [gnus-summary-buffer message-id gnus-summary-refer-article] 2 (#$ . 248058)])
#@35 Fetch GROUP specified by ADDRESS.
(defalias 'gnus-button-fetch-group #[(address &rest ignore) "\302\303\"\203\f�\304\305\"\302\306\"\204�\307	\"\207\302\310\"\204$�\311\312\"\207\307\304\313\"\314\304\315\"\316\304\315\"D\317\305\225\203A�\304\305\"\202B�\320DF\321\211\211\322\225\205S�\323\304\322\"!C&\207" [address gnus-select-method string-match "\\`\$nntp\\|news\$:\$//\$?\$.*\$\\'" match-string 3 "[:/]" gnus-group-read-ephemeral-group "^\$[^:/]+\$\$:\\([^/]+\$\\)?/\$[^/]+\$\$/\\([0-9]+\$\\)?" error "Can't parse %s" 4 nntp 1 nntp-address nntp-port-number "nntp" nil 6 string-to-number] 10 (#$ . 248230)])
(defalias 'gnus-url-parse-query-string #[(query &optional downcase) "\306\211\211\211\211\307
\310\"\203U�@A\311\312\n\"\203�\313\n\314\211\224O!\313\n\314\225\306O\315\"\2039�	\227\316	\f\"\211\203L�\n\nAB\241\210\202�	D\fB\202�\f-\207" [val key cur pairs retval query nil split-string "&" string-match "=" gnus-url-unhex-string 0 t assoc downcase] 6])
(defalias 'gnus-url-mailto #[(url) "\306\307\"\203
�\310\224\311O\311\211\211\211\312\306\313\"\203$�\310\311O\202<�\306\314\"\2039�\315\316\310\"\317\316\320\"R\202<�\315P\321\"\322\323\"\243\324 \210\203\207�\325\326\211@@)\227P!\327	!\203d�	 \210\202m�\330\211@@)!\210\331\332\333\334\211@A)!\335#\336\337\321$c\210A\211\204L�\n\203\220�\340 \202\222�\341 ,\207" [url func subject args to x string-match "mailto:/*\$.*\$" 1 nil gnus-url-parse-query-string "^\\?" "^\$[^?]+\$\\?\$.*\$" "to=" match-string "&" 2 t assoc "subject" gnus-msg-mail intern-soft "message-goto-" fboundp message-position-on-field gnus-replace-in-string mapconcat identity reverse ", " "
\n" "\n" message-goto-body message-goto-subject] 8])
#@37 Activate ADDRESS with `browse-url'.
(defalias 'gnus-button-embedded-url #[(address) "\301\302!!\207" [address browse-url gnus-strip-whitespace] 3 (#$ . 250004)])
(byte-code "\305B\306\305!\204�\307\305\310\"\210\311B\306\311!\204�\307\311\312\"\210\313B\306\313!\204=�\307\313\314 \315	\n\316#\210\315	\317\316#\210	)\"\210\320B\306\320!\204g�\307\320\314 \321Y\204W�\322	\f\"\210\315	\n\323#\210\315	\317\323#\210	)\"\210\305\207" [current-load-list map gnus-mouse-2 emacs-major-version gnus-article-mode-map gnus-next-page-line-format default-boundp set-default "%{%(Next page...%)%}\n" gnus-prev-page-line-format "%{%(Previous page...%)%}\n" gnus-prev-page-map make-sparse-keymap define-key gnus-button-prev-page "
" gnus-next-page-map 21 set-keymap-parent gnus-button-next-page] 6)
(defalias 'gnus-insert-prev-page-button #[nil "`\306\307\310\306\311\f\312BB#\210n\203�`S\202�`
\203*�\313\314\n	\306\307$\315
#\210\316\317\n	\320\321\322\f&+\207" [inhibit-read-only e b gnus-prev-page-line-format gnus-prev-page-map gnus-article-button-face nil t gnus-eval-format keymap (gnus-prev t gnus-callback gnus-article-button-prev-page article-type annotation) gnus-overlay-put gnus-make-overlay face widget-convert-button link :action gnus-button-prev-page :button-keymap] 8])
#@22 Go to the next page.
(defalias 'gnus-button-next-page #[(&optional args more-args) "\302 \303\304	\305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-next-page] 4 (#$ . 251306) nil])
#@22 Go to the prev page.
(defalias 'gnus-button-prev-page #[(&optional args more-args) "\302 \303\304	\305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-prev-page] 4 (#$ . 251570) nil])
(defalias 'gnus-insert-next-page-button #[nil "`\306\307\310\306\311\f\312BB#\210n\203�`S\202�`
\203*�\313\314\n	\306\307$\315
#\210\316\317\n	\320\321\322\f&+\207" [inhibit-read-only e b gnus-next-page-line-format gnus-next-page-map gnus-article-button-face nil t gnus-eval-format keymap (gnus-next t gnus-callback gnus-article-button-next-page article-type annotation) gnus-overlay-put gnus-make-overlay face widget-convert-button link :action gnus-button-next-page :button-keymap] 8])
#@22 Go to the next page.
(defalias 'gnus-article-button-next-page #[(arg) "\302 \303\304	\305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-next-page] 4 (#$ . 252330) "P"])
#@22 Go to the prev page.
(defalias 'gnus-article-button-prev-page #[(arg) "\302 \303\304	\305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-prev-page] 4 (#$ . 252581) "P"])
#@417 List of methods used to decode headers.

This variable is a list of FUNCTION or (REGEXP . FUNCTION).  If item
is FUNCTION, FUNCTION will be applied to all newsgroups.  If item is a
(REGEXP . FUNCTION), FUNCTION will be only apply to the newsgroups
whose names match REGEXP.

For example:
(("chinese" . gnus-decode-encoded-word-region-by-guess)
 mail-decode-encoded-word-region
 ("chinese" . rfc1843-decode-region))

(defvar gnus-decode-header-methods '(mail-decode-encoded-word-region) (#$ . 252833))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-decode-header-methods-cache default-boundp set-default nil] 3)
#@66 Apply the functions from `gnus-encoded-word-methods' that match.
(defalias 'gnus-multi-decode-header #[(start end) "\203�	@=\204@�	C\n\306\211\203?�\f@\2119\203&�C\244\210\2028�	\2038�\307@	\"\2038�AC\244\210\fA\211\204�*\211A\214	}\210
\205\\�
\211A@ed\"\210\202L�*\207" [gnus-decode-header-methods-cache gnus-newsgroup-name gnus-decode-header-methods x #1=#:--cl-dolist-temp-- xlist nil string-match start end] 5 (#$ . 253489)])
(defalias 'gnus-treat-article #[(condition &optional part-number total-parts type) "deZ\306	?\206
�\307\310\215\311\312\313\"\314\211\315\316!\210\314\211\203n�@\212\317!\203;�q\210\n@J)\211:\204I�
\203e�\320!\203e�\n@\313N\203Z�\f\203e�\214\n\211A@) \210)A\211\204+�.	\314\207" [gnus-treatment-function-alist type elem val highlightp treated-type t found (byte-code "	\205�\303	\211A@\n\"\203�\304\305\306\"\210\202�)\207" [gnus-article-treat-types list type string-match throw found t] 3) gnus-visual-p article-highlight highlight nil gnus-run-hooks gnus-part-display-hook gnus-buffer-live-p gnus-treat-predicate article-goto-body-goes-to-point-min-p alist length #1=#:--cl-dolist-temp-- gnus-summary-buffer x] 7])
(defalias 'gnus-treat-predicate #[(val) "\204�\306\207	\203�	=\207<\203+�@;\203+�\307\310\311\312\313\314\315\n\206%�\316EE\"\"\207<\203w�\211A@\211\317=\203F�\307\310\311\320\"\"\202u�\321=\203V�\307\322\311\320\"\"\202u�\323=\203d�\320@!?\202u�\324=\203q�@\f\232\202u�\325\326\")\207\327=\203�\327\207\330=\203\207�\306\207\331=\203\221�
\332=\207\333=\203\234�
=\207\247\203\246�W\207\325\334\"\207" [val condition gnus-newsgroup-name pred type part-number nil apply gnus-or mapcar lambda (s) string-match s "" or gnus-treat-predicate and gnus-and not typep error "%S is not a valid predicate" t head first 1 last "%S is not a valid value" total-parts length] 9])
#@27 Encrypt the article body.
(defalias 'gnus-article-encrypt-body #[(protocol &optional n) "\203�	\203�\306\307!\204�\310\311!\210\312\n\"A\211\204!�\310\313\n\"\210
\314\235\203,�\310\315
\"\210\316*!++\205\372�\317+@!\210r,q\210-.,\320\211/0123\321 \210\322 \203`�\310\323!\210\324\325!\2104\326H\206l�\32705q\210\3256\330\331\332\"7\333 \210\334\335!\210db\210`/\336\3377\"c\210~\210/d}\21088\340\3419\"\210\340\3429\"\210\340\343\344\"\210\f \210)eb\210\345c\210~\210\3460\3201\325$\210*:\203\317�\347;@;A\"\210\350<!\203\337�r<q\210\320=)>\203\355�\351;@;A\"\210.+\211A+@\210\2022�*\207" [gnus-article-encrypt-protocol gnus-novice-user protocol gnus-article-encrypt-protocol-alist func gnus-newsgroup-name gnus-y-or-n-p "Really encrypt article(s)? " error "Encrypt aborted." assoc "Can't find the encrypt protocol %s" ("nndraft:delayed" "nndraft:drafts" "nndraft:queue") "Can't encrypt the article in group %s" gnus-summary-work-articles gnus-summary-goto-subject nil gnus-set-global-variables gnus-group-read-only-p "The current newsgroup does not support article encrypt" gnus-summary-show-article t 5 "" mapcar #[(field) "\214\301 \210eb\210\302\303\304#)\205�\305 \210\306 ed|\210~\210\207" [field message-narrow-to-head search-forward nil t message-narrow-to-field buffer-string] 4] ("Content-Type:" "Content-Transfer-Encoding:" "Content-Disposition:") message-narrow-to-head message-remove-header "MIME-Version" apply concat message-options-set message-sender message-recipients message-sign-encrypt not "MIME-Version: 1.0\n" gnus-summary-edit-article-done gnus-backlog-remove-article get-buffer gnus-cache-update-article n #1=#:gnus-summary-iterate-articles gnus-summary-buffer gnus-newsgroup-charset gnus-newsgroup-ignored-charsets point references summary-buffer mail-parse-ignored-charsets mail-parse-charset gnus-current-headers gnus-article-buffer inhibit-read-only headers message-options user-mail-address gnus-keep-backlog gnus-article-current gnus-original-article-buffer gnus-original-article gnus-use-cache] 6 (#$ . 255399) (list (or gnus-article-encrypt-protocol (completing-read "Encrypt protocol: " gnus-article-encrypt-protocol-alist nil t)) current-prefix-arg)])
#@126 The following specs can be used:
%t  The security MIME type
%i  Additional info
%d  Details
%D  Details if button is pressed
(defvar gnus-mime-security-button-line-format "%{%([[%t:%i]%D]%)%}\n" (#$ . 257641))
#@126 The following specs can be used:
%t  The security MIME type
%i  Additional info
%d  Details
%D  Details if button is pressed
(defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n" (#$ . 257858))
(byte-code "\306B\307\306!\204�\310\306\311\"\210\304B\307\304!\204�\310\304\312\"\210\313B\307\313!\204a�\310\313\314 \315	\n\316#\210\315	\317#\210\f\320\211\203\\�@\315	
\211A@)
@#\210A\211\204B�*	)\"\210\320\207" [current-load-list map gnus-mouse-2 gnus-down-mouse-3 gnus-mime-security-button-commands c gnus-mime-security-button-line-format-alist default-boundp set-default ((116 gnus-tmp-type 115) (105 gnus-tmp-info 115) (100 gnus-tmp-details 115) (68 gnus-tmp-pressed-details 115)) ((gnus-article-press-button "
" "Show Detail") (undefined "v") (undefined "t") (undefined "C") (gnus-mime-security-save-part "o" "Save...") (undefined "") (undefined "r") (undefined "d") (undefined "c") (undefined "i") (undefined "E") (undefined "e") (undefined "p") (gnus-mime-security-pipe-part "|" "Pipe To Command...") (undefined ".")) gnus-mime-security-button-map make-sparse-keymap define-key gnus-article-push-button gnus-mime-security-button-menu nil #:--cl-dolist-temp-- x] 7)
#@23 Security button menu.
(defvar gnus-mime-security-button-menu nil (#$ . 259082))
(byte-code "\302\303\304\305\306\307\310\311	\"\"B$\207" [gnus-mime-security-button-map gnus-mime-security-button-commands easy-menu-do-define gnus-mime-security-button-menu "Security button menu." "Security Part" delq nil mapcar #[(c) "@\302=?\205�\303\211AA)@@\304\305$\207" [c x undefined vector :active t] 6]] 10)
#@58 Construct a context-sensitive menu of security commands.
(defalias 'gnus-mime-security-button-menu #[(event prefix) "\300\213\207" [((byte-code "\211:\203
�A@\202�\305 `\306\307F)\310	\211@)!\210	\311\n8\2066�\nA@:\2033�\nA@@\2026�\nA@)b\210\312 \210\313\314\f#)\207" [event pos position gnus-mime-security-button-menu prefix selected-window (0 . 0) 0 select-window 5 gnus-article-check-buffer popup-menu nil] 5))] 1 (#$ . 259492) "e\nP"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list gnus-mime-security-details-buffer default-boundp set-default nil gnus-mime-security-button-pressed] 3)
#@49 If non-nil, show details in the article buffer.
(defvar gnus-mime-security-show-details-inline t (#$ . 260170))
(defalias 'gnus-mime-security-verify-or-decrypt #[(handle) "\306A!\210\307\310\311@#\312\313\211\203�@b\210`r\307\310\314@#q\210\315\211\316A\"\211A=\204?�\317A!\210\241\210,\320!\210\203Y�`A|\210@\312\211\223\210A\312\211\223\210\nb+\207" [handle inhibit-read-only point region mm-verify-option mm-decrypt-option mm-remove-parts get-text-property 0 gnus-region nil t buffer known mm-possibly-verify-or-decrypt mm-destroy-parts gnus-mime-display-security nparts] 5])
(defalias 'gnus-mime-security-show-details #[(handle) "\306\307\310@#\211\204�\311\312\313\"\202z�\n\203R�\306`\314\"?\306`\315\"\316\317u\210\306`\315\"\f=\2035�\317u\210\202&�\320u\210\214``}\210\321!\210)`\322`d\315\f$\206M�d|+\202z�\323!\203e�rq\210\324 \210)\202j�\325\326!rq\210	c\210eb\210)\327!)\207" [handle details gnus-mime-security-show-details-inline inhibit-read-only gnus-mime-security-button-line-format gnus-mime-security-button-pressed get-text-property 0 gnus-details gnus-message 5 "No details." gnus-mime-details gnus-line-format t -1 nil gnus-insert-mime-security-button text-property-not-all gnus-buffer-live-p erase-buffer gnus-get-buffer-create "*MIME Security Details*" pop-to-buffer gnus-mime-security-details-buffer] 7])
(defalias 'gnus-mime-security-press-button #[(handle) "\212\301\302\303@#\203�\304!\202�\305!)\207" [handle get-text-property 0 gnus-info gnus-mime-security-show-details gnus-mime-security-verify-or-decrypt] 4])
(defalias 'gnus-insert-mime-security-button #[(handle &optional displayed) "\306\307\301@#\310\311	\n\"8\206�\310\311	\"8\206�\312@\313\232\203%�\314\202&�\315\316Q\306\307\317@#\2063�\320\306\307\321@#*\322\211+,\322-*\203Q�\323*P\202R�\324*.\203^�*\202_�\324+n\204h�\323c\210`,\325/0\3261\327\330\331/\332.\333\334\335\257\f#\210n\203\214�`S\202\215�`-2\203\242�\336\337,-\322\340$\3412#\210\342\343,-\344\345\346\3471\350\351&.\207" [handle protocol mm-verify-function-alist mm-decrypt-function-alist gnus-tmp-type gnus-tmp-info get-text-property 0 2 assoc "Unknown" "multipart/signed" " Signed" " Encrypted" " Part" gnus-info "Undecided" gnus-details nil "\n" "" gnus-eval-format keymap gnus-callback gnus-mime-security-press-button gnus-line-format gnus-mime-details article-type annotation gnus-data gnus-overlay-put gnus-make-overlay t face widget-convert-button link :mime-handle :action gnus-widget-press-button :button-keymap :help-echo #[(widget/window &optional overlay pos) "\303\300!\203�\304\305\306	\307H\n\307H#\207" [help-echo-owns-message gnus-mouse-2 gnus-down-mouse-3 boundp t format "%S: show detail; %S: more options" 0] 5] gnus-tmp-details gnus-tmp-pressed-details b e gnus-mime-security-button-pressed gnus-mime-security-button-line-format gnus-mime-security-button-line-format-alist gnus-mime-security-button-map gnus-article-button-face] 16])
(defalias 'gnus-mime-display-security #[(handle) "\214``}\210\306@!\204�\307!\210\310\211A@)!\210n\204 �\311c\210\306@!\204.�\n\307!\210)\312\313 e\314\223\313 d\314\223B\211\203M�\315\316@G
\f@%\210+db)\207" [handle x gnus-mime-security-button-end-line-format gnus-mime-security-button-line-format value parameter gnus-unbuttonized-mime-type-p gnus-insert-mime-security-button gnus-mime-display-part "\n" gnus-region make-marker nil put-text-property 0] 7])
#@50 Run FUNCTION with the security part under point.
(defalias 'gnus-mime-security-run-function #[(function) "\305 \210\306`\307\"\310\211\211\242;\205R�\306\311\301\n@#\211\205R�\n\211A@)\211\205R�\312@!\203?�	\313A!B\314\233\310\240\210\202O�	\306\311\315@#\310\211\211\211\211\211\257\f!+\207" [handle buffer data x function gnus-article-check-buffer get-text-property gnus-data nil 0 bufferp copy-sequence 3 protocol] 9 (#$ . 263646)])
#@37 Save the security part under point.
(defalias 'gnus-mime-security-save-part #[nil "\300\301!\207" [gnus-mime-security-run-function mm-save-part] 2 (#$ . 264102) nil])
#@50 Pipe the security part under point to a process.
(defalias 'gnus-mime-security-pipe-part #[nil "\300\301!\207" [gnus-mime-security-run-function mm-pipe-part] 2 (#$ . 264275) nil])
(byte-code "\300 \210\301\302!\210\303\304!\207" [gnus-ems-redefine provide gnus-art run-hooks gnus-art-load-hook] 2)

${this.title}

Code Editor : gnus-art.elc