%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\301\313!\210\301\314!\210\301\315!\210\301\316!\210\301\317!\210\320\321\322\323\324$\210\320\325\322\"\210\320\326\322\323\324$\210\320\327\330\323\211$\210\320\331\332\"\210\320\333\334\"\210\320\335\336\"\210\320\337\340\"\210\341\342\323\343\344\345\346\302&\210\341\347\323\350\344\351\346\342&\210\341\352\323\353\344\354\346\342&\210\341\355\323\356\344\357\346\342\346\360& \210\341\361\323\362\344\363\346\342&\210\341\364\323\365\344\366\346\342&\210\341\367\323\370\344\371\346\342&\210\341\372\323\373\344\374\346\342&\210\341\375\323\376\344\377\346\342&\210\341\201@ \323\201A \344\201B \346\342&\210\341\201C \323\201D \344\201E \346\342&\210\341\201F \323\201G \344\201H \346\342&\210\201I \201J \201K \201L \201M \201N \346\352&\210\201I \201O \201P \201Q \201M \201R \346\352&\210\201I \201S \201T \201U \201M \201V \346\352&\210\201I \201W \201X \201Y \201M \201Z \346\352&\210\201I \201[ \323\201\\ \201] \201^ \201M \201_ \346\352& \210\201I \201` \201a \201b \201M \201c \346\361&\210\201I \201d \323\201e \201M \201f \346\361&\210\201I \201g \201h \201i \201M \201j \346\352&\210\201I \201k \201l \201m \201M \201n \201] \201o \346\201p \346\367& \210\201I \201q \323\201r \201M \201s \346\367&\210\201I \201t \323\201u \201] \201v \201M \201w \346\367& \210\201I \201x \323\201y \346\201z \346\367\201M \201{ & \210\201| \201} \236\"\201~ \300\201} \201 \201\200 E\"\207" [gnus-group-parameters-more require gnus gnus-sum gnus-spec gnus-int gnus-win mm-bodies mail-parse mm-decode mm-view wid-edit mm-uu message mouse seq 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" url-expand-file-name "url-expand" 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") 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")) "All headers that start with this regexp will be hidden.\nThis variable can also be a list of regexps of headers to be ignored.\nIf `gnus-visible-headers' is non-nil, this variable will be ignored." :type (choice regexp (repeat regexp)) 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:" "All headers that do not match this regexp will be hidden.\nThis variable can also be a list of regexp of headers to remain visible.\nIf this variable is non-nil, `gnus-ignored-headers' will be ignored." (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) gnus-sorted-header-list '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:") "This variable is a list of regular expressions.\nIf it is non-nil, headers that match the regular expressions will\nbe placed first in the article buffer in the sequence specified by\nthis list." (repeat regexp) gnus-boring-article-headers '(empty followup-to reply-to) "Headers that are only to be displayed if they have interesting data.\nPossible values in this list are:\n\n `empty' Headers with no content.\n `newsgroups' Newsgroup identical to Gnus group.\n `to-address' To identical to To-address.\n `to-list' To identical to To-list.\n `cc-list' Cc identical to To-list.\n `followup-to' Followup-To identical to Newsgroups.\n `reply-to' Reply-To identical to From.\n `date' Date less than four days old.\n `long-to' To and/or Cc longer than 1024 characters.\n `many-to' Multiple To and/or Cc." (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)) gnus-article-skip-boring "Skip over text that is not worth reading.\nBy default, if you set this t, then Gnus will display citations and\nsignatures, but will never scroll down to show you a page consisting\nonly of boring text. Boring text is controlled by\n`gnus-article-boring-faces'." :version "22.1" boolean gnus-signature-separator '("^-- $" "^-- *$") "Regexp matching signature separator.\nThis can also be a list of regexps. In that case, it will be checked\nfrom head to tail looking for a separator. Searches will be done from\nthe end of the buffer." (choice :format "%{%t%}: %[Value Menu%]\n%v" (regexp) (repeat :tag "List of regexp" regexp)) gnus-signature-limit "Provide a limit to what is considered a signature.\nIf it is a number, no signature may not be longer (in characters) than\nthat number. If it is a floating point number, no signature may be\nlonger (in lines) than that number. If it is a function, the function\nwill be called without any parameters, and if it returns nil, there is\nno signature in the buffer. If it is a string, it will be used as a\nregexp. If it matches, the text in question is not a signature.\n\nThis can also be a list of the above values." (choice (const nil) (integer :value 200) (number :value 4.0) function (regexp :value ".*") (repeat (choice (const nil) (integer :value 200) (number :value 4.0) function (regexp :value ".*")))) gnus-hidden-properties '(invisible t) "Property list to use for hiding text." plist gnus-article-x-face-command (and (gnus-image-type-available-p 'pbm) 'gnus-display-x-face-in-from) "String or function to be executed to display an X-Face header.\nIf it is a string, the command will be executed in a sub-shell\nasynchronously. The compressed face will be piped to this command." (choice string (function-item gnus-display-x-face-in-from) function) "27.1" gnus-picon gnus-article-x-face-too-ugly "Regexp matching posters whose face shouldn't be shown automatically." (choice regexp (const nil)) gnus-article-banner-alist "Banner alist for stripping.\nFor example,\n ((egroups . \"^[ \\t\\n]*-------------------+\\\\( \\\\(e\\\\|Yahoo! \\\\)Groups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))" "21.1" (repeat (cons symbol regexp)) gnus-parameter-banner-alist "Alist of regexps (to match group names) and banner." gnus-group-parameter (repeat (list (regexp :tag "Group") #1=(choice :tag "Banner" :value nil (const :tag "Remove signature" signature) (symbol :tag "Item in `gnus-article-banner-alist'" none) regexp (const :tag "None" nil)))) delq banner add-to-list #1# "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."] 12)
#@2
(defalias 'gnus-parameter-banner #[(name) "\205< \305\306\307#\206< \307\211 \f\211A\242\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-banner-alist value elem alist gnus-group-find-parameter banner nil string-match] 4 (#$ . 11222)])
#@422 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 '(#$ . 11517) :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\315 8\315U\316 8E\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])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\315\316\317\320\312\313\304\321& \210\322\323\324\325\312\313%\210\322\326\327\330\312\313%\210\322\331\332\333\312\313%\210\322\334\335\336\312\313%\210\322\337\340\341\312\313%\210\322\342\343\344\312\313%\210\322\345\346\347\312\313%\210\322\350\351\352\312\313%\210\322\353\354\355\312\313%\210\300\356\357\360\304\361\362\363\312\364& \210\300\365\366\367\312\370\304\371&\210\300\372\373\374\312\370\304\375&\210\300\376\377\201@ \317\201A \312\201B \304\371& \210\300\201C \201D \201E \312\370\304\321&\210\300\201F \201G \201H \312\370\304\201I &\210\300\201J \201K \201L \312\370\304\201M \201N \201O \201P \201Q \201R \377\201S \201T \201U \"\"\201V \"BBBB&\210\300\201W \201X \201Y \312\370\304\201Z &\210\300\201[ \201\\ \201] \312\370\304\201Z &\210\300\201^ \201_ \201` \312\370\304\201Z &\210\300\201a \201b \201c \312\370\304\201Z &\210\300\201d \201e \201f \312\370\304\201g &\210\300\201h \201i \201j \304\321\312\201k &\210\300\201l \201m \201n \317\201o \304\201p \312\201k & \210\300\201q \377\201r \304\201s \312\201k &\210\300\201t \377\201u \304\201s \312\201k &\210\300\201v \377\201w \304\201s \312\201k &\210\300\201x \377\201y \317\201z \304\201{ \312\201k & \210\201| \201} \377\201~ #\210\322\201 \201\200 \201\201 \312\201\202 %\210\300\201\203 \201\204 \201\205 \304\201\206 \312\201\202 &\210\300\201\207 \201\210 \201\211 \304\201\206 \312\201\202 &\210\300\201\212 \201\213 \201\214 \304\201\206 \312\201\215 \312\201\216 & \210\322\201\217 \201\220 \201\221 \312\201\215 \312\201\216 &\210\322\201\222 \201\223 \201\224 \312\201\225 \312\201\215 &\210\322\201\226 \201\227 \201\230 \312\201\225 \312\201\215 &\210\322\201\231 \201\232 \201\233 \312\201\225 \312\201\215 &\210\322\201\234 \201\235 \201\236 \312\201\225 \312\201\215 &\210\322\201\237 \201\240 \201\241 \312\201\225 \312\201\215 &\210\300\201\242 \201\243 \201\244 \312\201\225 \312\201\215 \304\201\245 & \210\300\201\246 \201\247 \201\250 \317\201z \312\201\225 \304\201\251 & \210\300\201\252 \201\253 \201\254 \312\201\225 \304\201s &\210\300\201\255 \201\256 \201\257 \312\201\260 \304\201Z &\207" [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)))) "Alist that says how to fontify certain phrases.\nEach item looks like this:\n\n (\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline)\n\nThe first element is a regular expression to be matched. The second\nis a number that says what regular expression grouping used to find\nthe entire emphasized word. The third is a number that says what\nregexp grouping should be displayed and highlighted. The fourth\nis the face used for highlighting." :type (repeat (menu-choice :format "%[Customizing Style%]\n%v" :indent 2 (group :tag "Default" :value (#1="" 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 gnus-emphasize-whitespace-regexp "^[ ]+\\|[ ]*\n" "A regexp to describe whitespace which should not be emphasized.\nTypical values are \"^[ \\t]+\\\\|[ \\t]*\\n\" and \"[ \\t]+\\\\|[ \\t]*\\n\".\nThe former avoids underlining of leading and trailing whitespace,\nand the latter avoids underlining any whitespace at all." :version "21.1" regexp custom-declare-face gnus-emphasis-bold ((t (:bold t))) "Face used for displaying strong emphasized text (*word*)." 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." gnus-article-time-format "%a, %d %b %Y %T %Z" "Format for display of Date headers in article bodies.\nSee `format-time-string' for the possible values.\n\nThe variable can also be function, which should return a complete Date\nheader. The function is called with one argument, the time, which can\nbe fed to `format-time-string'." (choice string function) :link (custom-manual "(gnus)Article Date") gnus-article-washing gnus-save-all-headers t "If non-nil, don't remove any headers before saving.\nThis will be overridden by the `:headers' property that the symbol of\nthe saver function, which is specified by `gnus-default-article-saver',\nmight have." gnus-article-saving boolean gnus-prompt-before-saving 'always "This variable says how much prompting is to be done when saving articles.\nIf it is nil, no prompting will be done, and the articles will be\nsaved to the default files. If this variable is `always', each and\nevery article that is saved will be preceded by a prompt, even when\nsaving large batches of articles. If this variable is neither nil not\n`always', there the user will be prompted once for a file name for\neach invocation of the saving commands." (choice (item always) (item :tag "never" nil) (sexp :tag "once" :format "%t\n" :value t)) gnus-article-show-cursor nil "If non-nil, show the cursor in the Article buffer even when not selected." "25.1" gnus-article gnus-saved-headers gnus-visible-headers "Headers to keep if `gnus-save-all-headers' is nil.\nIf `gnus-save-all-headers' is non-nil, this variable will be ignored.\nIf that variable is nil, however, all headers that match this regexp\nwill be kept while the rest will be deleted before saving. This and\n`gnus-save-all-headers' will be overridden by the `:headers' property\nthat the symbol of the saver function, which is specified by\n`gnus-default-article-saver', might have." gnus-default-article-saver 'gnus-summary-save-in-rmail "A function to save articles in your favorite format.\nThe function will be called by way of the `gnus-summary-save-article'\ncommand, and friends such as `gnus-summary-save-article-rmail'.\n\nGnus provides the following functions:\n\n* gnus-summary-save-in-rmail (Rmail format)\n* gnus-summary-save-in-mail (Unix mail format)\n* gnus-summary-save-in-folder (MH folder)\n* gnus-summary-save-in-file (article format)\n* gnus-summary-save-body-in-file (article body)\n* gnus-summary-save-in-vm (use VM's folder format)\n* gnus-summary-write-to-file (article format -- overwrite)\n* gnus-summary-write-body-to-file (article body -- overwrite)\n* gnus-summary-save-in-pipe (article format)\n\nThe symbol of each function may have the following properties:\n\n* :decode\nThe value non-nil means save decoded articles. This is meaningful\nonly with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',\n`gnus-summary-write-to-file', `gnus-summary-write-body-to-file', and\n`gnus-summary-save-in-pipe'.\n\n* :function\nThe value specifies an alternative function which appends, not\noverwrites, articles to a file. This implies that when saving many\narticles at a time, `gnus-prompt-before-saving' is bound to t and all\narticles are saved in a single file. This is meaningful only with\n`gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.\n\n* :headers\nThe value specifies the symbol of a variable of which the value\nspecifies headers to be saved. If it is omitted,\n`gnus-save-all-headers' and `gnus-saved-headers' control what\nheaders should be saved." (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)) 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)) "Coding system used to save decoded articles to a file.\n\nThe recommended coding systems are `utf-8', `iso-2022-7bit' and so on,\nwhich can safely encode any characters in text. This is used by the\ncommands including:\n\n* gnus-summary-save-article-file\n* gnus-summary-save-article-body-file\n* gnus-summary-write-article-file\n* gnus-summary-write-article-body-file\n\nand the functions to which you may set `gnus-default-article-saver':\n\n* gnus-summary-save-in-file\n* gnus-summary-save-body-in-file\n* gnus-summary-write-to-file\n* gnus-summary-write-body-to-file\n\nThose commands and functions save just text displayed in the article\nbuffer to a file if the value of this variable is non-nil. Note that\nbuttonized MIME parts will be lost in a saved file in that case.\nOtherwise, raw articles will be saved." choice :format "%{%t%}:\n %[Value Menu%] %v" (const :tag "Save raw articles" nil) append delq 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")) gnus-rmail-save-name 'gnus-plain-save-name "A function generating a file name to save articles in Rmail format.\nThe function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." function gnus-mail-save-name 'gnus-plain-save-name "A function generating a file name to save articles in Unix mail format.\nThe function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." gnus-folder-save-name 'gnus-folder-save-name "A function generating a file name to save articles in MH folder.\nThe function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER." gnus-file-save-name 'gnus-numeric-save-name "A function generating a file name to save articles in article format.\nThe function is called with NEWSGROUP, HEADERS, and optional\nLAST-FILE." gnus-split-methods '((gnus-article-archive-name) (gnus-article-nndoc-name)) "Variable used to suggest where articles are to be saved.\nFor instance, if you would like to save articles related to Gnus in\nthe file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",\nyou could set this variable to something like:\n\n ((\"^Subject:.*gnus\\|^Newsgroups:.*gnus\" \"gnus-stuff\")\n (\"^Subject:.*vm\\|^Xref:.*vm\" \"vm-stuff\"))\n\nThis variable is an alist where the key is the match and the\nvalue is a list of possible files to save in if the match is\nnon-nil.\n\nIf the match is a string, it is used as a regexp match on the\narticle. If the match is a symbol, that symbol will be funcalled\nfrom the buffer of the article to be saved with the newsgroup as the\nparameter. If it is a list, it will be evalled in the same buffer.\n\nIf this form or function returns a string, this string will be used as a\npossible file name; and if it returns a non-nil list, that list will be\nused as possible file names." (repeat (choice (list :value (fun) function) (cons :value (#1# #1#) regexp (repeat string)) (sexp :value nil))) gnus-page-delimiter "^\f" "Regexp describing what to use as article page delimiters.\nThe default value is \"^\f\", which is a form linefeed at the\nbeginning of a line." gnus-article-various gnus-article-mode-line-format "Gnus: %g %S%m" "The format specification for the article mode line.\nSee `gnus-summary-mode-line-format' for a closer description.\n\nThe following additional specs are available:\n\n%w The article washing status.\n%m The number of MIME parts in the article." "24.1" string gnus-article-mode-hook "A hook for Gnus article mode." hook gnus-article-menu-hook "Hook run after the creation of the article mode menu." gnus-article-prepare-hook "A hook called after an article has been prepared in the article buffer." gnus-copy-article-ignored-headers "List of headers to be removed when copying an article.\nEach element is a regular expression." "23.1" (repeat regexp) make-obsolete-variable gnus-article-hide-pgp-hook "Gnus 5.10 (Emacs 22.1)" gnus-button ((t (:weight bold))) "Face used for highlighting a button in the article buffer." gnus-article-buttons gnus-article-button-face 'gnus-button "Face used for highlighting buttons in the article buffer.\n\nAn article button is a piece of text that you can activate by pressing\n`RET' or `mouse-2' above it." face gnus-article-mouse-face 'highlight "Face used for mouse highlighting in the article buffer.\n\nArticle buttons will be displayed in this face when the cursor is\nabove them." gnus-signature-face 'gnus-signature "Face used for highlighting a signature in the article buffer.\nObsolete; use the face `gnus-signature' for customizations instead." gnus-article-highlight gnus-article-signature gnus-signature ((t (:italic t))) "Face used for highlighting a signature in the article buffer." 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-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-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-name ((((class color) (background dark)) (:foreground "SpringGreen2")) (((class color) (background light)) (:foreground "maroon")) (t (:bold t))) "Face used for displaying header names." 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-face-alist '(("From" nil gnus-header-from) ("Subject" nil gnus-header-subject) ("Newsgroups:.*," nil gnus-header-newsgroups) (#1# gnus-header-name gnus-header-content)) "Controls highlighting of article headers.\n\nAn alist of the form (HEADER NAME CONTENT).\n\nHEADER is a regular expression which should match the name of a\nheader and NAME and CONTENT are either face names or nil.\n\nThe name of each header field will be displayed using the face\nspecified by the first element in the list where HEADER matches\nthe header name and NAME is non-nil. Similarly, the content will\nbe displayed by the first non-nil matching CONTENT face." (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)))) gnus-face-properties-alist '((pbm :face gnus-x-face) (png)) "Alist of image types and properties applied to Face and X-Face images.\nHere are examples:\n\n;; Specify the altitude of Face images in the From header.\n(setq gnus-face-properties-alist\n \\='((pbm . (:face gnus-x-face :ascent 80))\n (png . (:ascent 80))))\n\n;; Show Face images as pressed buttons.\n(setq gnus-face-properties-alist\n \\='((pbm . (:face gnus-x-face :relief -2))\n (png . (:relief -2))))\n\nSee the manual for the valid properties for various image types.\nCurrently, `pbm' is used for X-Face images and `png' is used for Face\nimages in Emacs." (repeat (cons :format "%v" (symbol :tag "Image type") plist)) gnus-article-decode-hook '(article-decode-charset article-decode-encoded-words article-decode-group-name article-decode-idna-rhs) "Hook run to decode charsets in articles." gnus-display-mime-function 'gnus-display-mime "Function to display MIME articles." gnus-article-mime] 17)
#@34 Function used to decode headers.
(defvar gnus-decode-header-function 'mail-decode-encoded-word-region (#$ . 30870))
#@36 Function used to decode addresses.
(defvar gnus-decode-address-function 'mail-decode-encoded-address-region (#$ . 30992))
#@37 Table for MS-to-Latin1 translation.
(defvar gnus-article-smartquotes-map '((128 "EUR") (130 ",") (131 "f") (132 ",,") (133 "...") (139 "<") (140 "OE") (145 "`") (146 "'") (147 "``") (148 "\"") (149 "*") (150 "-") (151 "--") (152 "~") (153 "(TM)") (155 ">") (156 "oe") (180 "'")) (#$ . 31120))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315& \210\304\316\317\320\310\311\312\313\314\321& \210\304\322\306\323\310\324\312\313\314\325& \210\304\326\306\327\310\324\312\313\314\330& \210\304\331\332\333\310\324\312\334\314\335& \210\304\336\337\340\310\324\314\341\342\343\342\344\312\345&
\207" [make-obsolete-variable gnus-article-dumbquotes-map gnus-article-smartquotes-map "27.1" custom-declare-variable gnus-ignored-mime-types nil "List of MIME types that should be ignored by Gnus." :version "21.1" :group gnus-article-mime :type (repeat regexp) gnus-unbuttonized-mime-types '(".*/.*") "List of MIME types that should not be given buttons when rendered inline.\nSee also `gnus-buttonized-mime-types' which may override this variable.\nThis variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil." (repeat regexp) gnus-buttonized-mime-types "List of MIME types that should be given buttons when rendered inline.\nIf set, this variable overrides `gnus-unbuttonized-mime-types'.\nTo see e.g. security buttons you could set this to\n`(\"multipart/signed\")'. You could also add \"multipart/alternative\" to\nthis list to display radio buttons that allow you to choose one of two\nmedia types those mails include. See also `mm-discouraged-alternatives'.\nThis variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil." "22.1" (repeat regexp) gnus-inhibit-mime-unbuttonizing "If non-nil, all MIME parts get buttons.\nWhen nil (the default value), then some MIME parts do not get buttons,\nas described by the variables `gnus-buttonized-mime-types' and\n`gnus-unbuttonized-mime-types'." boolean gnus-body-boundary-delimiter "_" "String used to delimit header and body.\nThis variable is used by `gnus-article-treat-body-boundary' which can\nbe controlled by `gnus-treat-body-boundary'." gnus-article-various (choice (item :tag "None" :value nil) string) gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces" "/usr/share/picons") "Defines the location of the faces database.\nFor information on obtaining this database of pretty pictures, please\nsee http://www.cs.indiana.edu/picons/ftp/index.html" (repeat directory) :link (url-link :tag "download" "http://www.cs.indiana.edu/picons/ftp/index.html") (custom-manual "(gnus)Picons") gnus-picon] 14)
#@51 Say whether picons are installed on your machine.
(defalias 'gnus-picons-installed-p #[nil "\304 \304\211\203 @\305\n!\203 \306 A\211\204\n *)\207" [installed gnus-picon-databases database --dolist-tail-- nil file-exists-p t] 3 (#$ . 33728)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\304\305\306\314& \210\300\315\316\317\312\320\304\321\306\322& \210\300\323\302\324\312\320\304\321\306\325& \210\300\326\327\330\312\313\304\305\306\331& \210\300\332\333\334\304\305\306\335&\210\300\336\337\340\312\341\304\305\306\342& \207" [custom-declare-variable gnus-article-mime-part-function nil "Function called with a MIME handle as the argument.\nThis is meant for people who want to do something automatic based\non parts -- for instance, adding Vcard info to a database." :group gnus-article-mime :type (choice (const nil) function) gnus-mime-multipart-functions "An alist of MIME types to functions to display them." :version "21.1" (repeat (cons :format "%v" (string :tag "MIME type") function)) gnus-article-date-headers '(combined-lapsed) "A list of Date header formats to display.\nValid formats are `ut' (Universal Time), `local' (local time\nzone), `english' (readable English), `lapsed' (elapsed time),\n`combined-lapsed' (both the original date and the elapsed time),\n`combined-local-lapsed' (both the local time and the elapsed time),\n`original' (the original date header), `iso8601' (ISO8601\nformat), and `user-defined' (a user-defined format defined by the\n`gnus-article-time-format' variable).\n\nYou have as many date headers as you want in the article buffer.\nSome of these headers are updated automatically. See\n`gnus-article-update-date-headers' for details." "24.1" gnus-article-headers (set (const :tag "Universal time (UT)" ut) (const :tag "Local time zone" local) (const :tag "Readable English" english) (const :tag "Elapsed time" lapsed) (const :tag "Original and elapsed time" combined-lapsed) (const :tag "Local and elapsed time" combined-local-lapsed) (const :tag "Original date header" original) (const :tag "ISO8601 format" iso8601) (const :tag "User-defined" user-defined)) gnus-article-update-date-headers "A number that says how often to update the date header (in seconds).\nIf nil, don't update it at all." (choice (item :tag "Don't update" :value nil) integer) gnus-article-mime-match-handle-function 'undisplayed-alternative "Function called with a MIME handle as the argument.\nThis is meant for people who want to view first matched part.\nFor `undisplayed-alternative' (default), the first undisplayed\npart or alternative part is used. For `undisplayed', the first\nundisplayed part is used. For a function, the first part which\nthe function return t is used. For nil, the first part is\nused." (choice (item :tag "first" :value nil) (item :tag "undisplayed" :value undisplayed) (item :tag "undisplayed or alternative" :value undisplayed-alternative) (function)) 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)) "An alist of actions that run on the MIME attachment." (repeat (cons (string :tag "name") (function))) gnus-auto-select-part 1 "Advance to next MIME part when deleting or stripping parts.\n\nWhen 0, point will be placed on the same part as before. When\npositive (negative), move point forward (backwards) this many\nparts. When nil, redisplay article." "23.1" (choice (const nil :tag "Redisplay article.") (const 1 :tag "Next part.") (const 0 :tag "Current part.") integer)] 10)
#@53 Hook called on parts that are to receive treatment.
(defvar gnus-part-display-hook nil (#$ . 37755))
(defvar gnus-article-treat-custom '(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")))
(defvar gnus-article-treat-head-custom '(choice (const :tag "Off" nil) (const :tag "Header" head)))
#@36 Part types eligible for treatment.
(defvar gnus-article-treat-types '("text/plain" "text/x-verbatim" "text/x-patch" "text/html") (#$ . 38205))
#@31 Whether to inhibit treatment.
(defvar gnus-inhibit-treatment nil (#$ . 38354))
(byte-code "\303\304\305\306\307\310\311\312\313& \210\314\304\315\316#\210\303\317\320\321\307\310\311\322\313& \210\314\317\315\316#\210\303\323\324\325\307\310\311\326\313 & \210\314\323\315\316#\210\303\327\330\331\332\333\307\310\311\334\313 & \210\303\335\336\337\307\310\311\340\313& \210\314\335\315\316#\210\303\341\342\343\332\344\307\310\311\345\313& \210\303\346\342\347\332\344\307\310\311\350\313& \210\303\351\342\352\332\344\307\310\311\353\313& \210\303\354\355\356\307\310\311\357\313 & \210\303\360\342\361\307\310\311\362\313 & \210\303\363\342\364\307\310\311\365\313& \210\303\366\342\367\307\310\311\370\313& \210\303\371\342\372\307\310\311\373\313& \210\303\374\342\375\307\310\311\376\313& \210\303\377\201@ \201A \332\201B \307\310\311\201C \313& \210\303\201D \342\201E \307\201F \307\201G \313\201H & \210\201I \201J \n\236\n\"\201K \302\201J \201L \201M E\"\207" [gnus-article-treat-custom gnus-article-treat-head-custom gnus-group-parameters-more custom-declare-variable gnus-treat-highlight-signature '(or t (typep "text/x-vcard")) "Highlight the signature.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." :group gnus-article-treat :link (custom-manual "(gnus)Customizing Articles") :type put highlight t gnus-treat-buttonize '(and 100000 (typep "text/plain")) "Add buttons.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-buttonize-head 'head "Add buttons to the head.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-date 'head "Display dates according to the `gnus-article-date-headers' variable.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." :version "24.1" (custom-manual "(gnus)Customizing Articles") gnus-treat-emphasize 50000 "Emphasize text.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-cr nil "Remove carriage returns.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." "22.1" (custom-manual "(gnus)Customizing Articles") gnus-treat-unsplit-urls "Remove newlines from within URLs.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-leading-whitespace "Remove leading whitespace in headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-hide-headers 'head "Hide headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-hide-boring-headers "Hide boring headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-hide-signature "Hide the signature.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-fill-article "Fill the article.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-hide-citation "Hide cited text.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'.\n\nSee `gnus-article-highlight-citation' for variables used to\ncontrol what it hides." (custom-manual "(gnus)Customizing Articles") gnus-treat-hide-citation-maybe "Hide cited text according to certain conditions.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'.\n\nSee `gnus-cite-hide-percentage' and `gnus-cite-hide-absolute' for\nhow to control what it hides." (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-list-identifiers 'head "Strip list identifiers from `gnus-list-identifiers'.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." "21.1" (custom-manual "(gnus)Customizing Articles") gnus-parameter-list-identifier-alist "Alist of regexps and correspondent identifiers." gnus-group-parameter gnus-article-washing (repeat (list (regexp :tag "Group") #1=(choice :tag "Identifier" :value nil (symbol :tag "Item in `gnus-list-identifiers'" none) regexp (const :tag "None" nil)))) delq list-identifier add-to-list #1# "If non-nil, specify how to remove `identifiers' from articles' subject.\n\nAny symbol is used to look up a regular expression to match the\nbanner in `gnus-list-identifiers'. A string is used as a regular\nexpression to match the identifier directly."] 12)
#@2
(defalias 'gnus-parameter-list-identifier #[(name) "\205< \305\306\307#\206< \307\211 \f\211A\242\211\2030 \203 \310 @\"\203 \307 A\202 \n:\203: \n@\202; \n+\207" [name gnus-parameter-list-identifier-alist value elem alist gnus-group-find-parameter list-identifier nil string-match] 4 (#$ . 43797)])
(byte-code "\302\303\304\305#\210\306\307\304\310\311\312\313\314\315& \210\306\316\317\320\311\312\313\321\315& \210\306\322\323\324\311\312\313\325\315 & \210\326\322\327\317#\210\306\330\317\331\311\312\313\332\315& \210\326\330\327\317#\210\306\333\317\334\335\336\311\312\313\337\315& \210\306\340\304\341\311\312\313\342\315& \210\306\343\304\344\311\312\313\345\315& \210\306\346\304\347\311\312\313\350\315& \210\306\351\352\353\335\354\311\312\313\355\315& \210\306\356\304\357\335\360\311\312\315\361& \210\306\362\304\363\335\354\311\312\313\364\315& \210\306\365\366\367\335\354\311\312\313\370\315& \210\306\371\317\372\311\312\313\373\315& \210\326\371\327\317#\210\306\374\317\375\311\312\313\376\315& \210\302\377\201@ \201A #\210\306\201@ \201B \201C \311\312\335\336\313\201D \313\201E \315 \201F \201G &\210\326\201@ \327\317#\210\306\201H \201I \201J \311\312\335\354\313\201K \313\201L \315 &
\210\326\201H \327\317#\210\306\201M \201N \201O \311\312\335\336\313\201P \313\201Q \315&
\210\326\201M \327\317#\210\306\201R \201S \201T \335\354\311\312\311\201U \313\201V \313\201W \315 &\210\326\201R \327\317#\210\306\201X \201Y \201Z \335\354\311\312\311\201U \313\201[ \313\201\\ \315 &\210\326\201X \327\317#\210\306\201] \201^ \201_ \335\354\311\312\311\201U \313\201` \313\201a \315 &\210\326\201] \327\317#\210\306\201b \304\201c \335\201d \311\312\311\201e \313\201f \313\201g \315 &\210\326\201b \327\317#\210\306\201h \304\201i \335\201d \311\312\311\201e \313\201j \313\201k \315 &\210\326\201h \327\317#\210\306\201l \201m \201n \335\354\311\312\313\201o \315 & \210\306\201p \304\201q \335\336\311\312\313\201r \315& \210\306\201s \304\201t \335\354\311\312\313\201u \315& \210\306\201v \201w \201x \335\201d \311\312\313\201y \315& \210\306\201z \304\201{ \335\354\311\312\311\201| \313\201} \315&
\207" [gnus-article-treat-custom gnus-article-treat-head-custom make-obsolete-variable gnus-treat-strip-pgp nil "Gnus 5.10 (Emacs 22.1)" custom-declare-variable gnus-treat-strip-pem "Strip PEM signatures.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." :group gnus-article-treat :link (custom-manual "(gnus)Customizing Articles") :type gnus-treat-strip-banner t "Strip banners from articles.\nThe banner to be stripped is specified in the `banner' group parameter.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-highlight-headers 'head "Highlight the headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") put highlight gnus-treat-highlight-citation "Highlight cited text.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-headers-in-body "Strip the X-No-Archive header line from the beginning of the body.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." :version "21.1" (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-trailing-blank-lines "Strip trailing blank lines.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'.\n\nWhen set to t, it also strips trailing blanks in all MIME parts.\nConsider to use `last' instead." (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-leading-blank-lines "Strip leading blank lines.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'.\n\nWhen set to t, it also strips trailing blanks in all MIME parts." (custom-manual "(gnus)Customizing Articles") gnus-treat-strip-multiple-blank-lines "Strip multiple blank lines.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-unfold-headers 'head "Unfold folded header lines.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." "22.1" (custom-manual "(gnus)Customizing Articles") gnus-article-unfold-long-headers "If non-nil, allow unfolding headers even if the header is long.\nIf it is a regexp, only long headers matching this regexp are unfolded.\nIf it is t, all long headers are unfolded.\n\nThis variable has no effect if `gnus-treat-unfold-headers' is nil." "23.1" (choice (const nil) (const :tag "all" t) (regexp)) gnus-treat-fold-headers "Fold headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-fold-newsgroups 'head "Fold the Newsgroups and Followup-To headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-overstrike "Treat overstrike highlighting.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-ansi-sequences "Treat ANSI SGR control sequences.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-display-xface gnus-treat-display-x-face "Emacs 22.1" (and (not noninteractive) (gnus-image-type-available-p 'xbm) (condition-case nil (and (string-match "^0x" (shell-command-to-string "uncompface")) (executable-find "icontopbm")) (error nil)) 'head) "Display X-Face headers.\nValid values are nil and `head'.\nSee Info node `(gnus)Customizing Articles' and Info node\n`(gnus)X-Face' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)X-Face") :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] gnus-treat-display-face (and (not noninteractive) (gnus-image-type-available-p 'png) 'head) "Display Face headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Face' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)X-Face") gnus-treat-display-smileys (gnus-image-type-available-p 'xpm) "Display smileys.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Smileys' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Smileys") gnus-treat-from-picon (if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) "Display picons in the From header.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Picons' for details." gnus-picon (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Picons") gnus-treat-mail-picon (if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) "Display picons in To and Cc headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Picons' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Picons") gnus-treat-newsgroups-picon (if (and (gnus-image-type-available-p 'xpm) (gnus-picons-installed-p)) 'head nil) "Display picons in the Newsgroups and Followup-To headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Picons' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Picons") gnus-treat-from-gravatar "Display gravatars in the From header.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Gravatars' for details." "24.1" gnus-gravatar (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Gravatars") gnus-treat-mail-gravatar "Display gravatars in To and Cc headers.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles' and Info\nnode `(gnus)Gravatars' for details." (custom-manual "(gnus)Customizing Articles") (custom-manual "(gnus)Gravatars") gnus-treat-body-boundary (if (or gnus-treat-newsgroups-picon gnus-treat-mail-picon gnus-treat-from-picon gnus-treat-from-gravatar gnus-treat-mail-gravatar) 'head nil) "Draw a boundary at the end of the headers.\nValid values are nil and `head'.\nSee Info node `(gnus)Customizing Articles' for details." (custom-manual "(gnus)Customizing Articles") gnus-treat-capitalize-sentences "Capitalize sentence-starting words.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-wash-html "Format as HTML.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-fill-long-lines '(typep "text/plain") "Fill long lines.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." (custom-manual "(gnus)Customizing Articles") gnus-treat-x-pgp-sig "Verify X-PGP-Sig.\nTo automatically treat X-PGP-Sig, set it to head.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." mime-security (custom-manual "(gnus)Customizing Articles")] 16)
(defvar gnus-article-encrypt-protocol-alist '(("PGP" . mml2015-self-encrypt)))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\316\306\317& \210\300\320\321\322\304\305\310\323\306\317& \210\300\324\321\325\304\326\310\323\306\317& \210\300\327\330\331\304\326\310\332\306\333& \207" [custom-declare-variable gnus-article-encrypt-protocol "PGP" "The protocol used for encrypt articles.\nIt is a string, such as \"PGP\". If nil, ask user." :version "22.1" :type string :group mime-security gnus-use-idna t "Whether IDNA decoding of headers is used when viewing messages." "26.1" gnus-article-headers boolean gnus-article-over-scroll nil "If non-nil, allow scrolling the article buffer even when there no more text." gnus-article gnus-inhibit-images "Non-nil means inhibit displaying of images inline in the article body." "24.1" gnus-blocked-images 'gnus-block-private-groups "Images that have URLs matching this regexp will be blocked.\nNote that the main reason external images are included in HTML\nemails (these days) is to allow tracking whether you've read the\nemail message or not. If you allow loading images in HTML\nemails, you give up privacy.\n\nThe default value of this variable blocks loading external\nresources when reading email groups (and therefore stops\ntracking), but allows loading external resources when reading\nfrom NNTP newsgroups and the like.\n\nPeople controlling these external resources won't be able to tell\nthat any one person in particular has read the message (since\nit's in a public venue, many people will end up loading that\nresource), but they'll be able to tell that somebody from your IP\naddress has accessed the resource.\n\nThis can also be a function to be evaluated. If so, it will be\ncalled with the group name as the parameter, and should return a\nregexp." gnus-art (choice (const :tag "Allow all" nil) (regexp :tag "Regular expression") (function :tag "Use a function"))] 10)
(defvar gnus-english-month-names '("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"))
(defvar article-goto-body-goes-to-point-min-p nil)
(defvar gnus-article-wash-types nil)
(defvar gnus-article-emphasis-alist nil)
(defvar gnus-article-image-alist nil)
(defvar gnus-article-mime-handle-alist-1 nil)
(defvar gnus-treatment-function-alist '((gnus-treat-strip-cr gnus-article-remove-cr) (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-cited-long-lines) (gnus-treat-unsplit-urls gnus-article-unsplit-urls) (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-from-picon gnus-treat-from-picon) (gnus-treat-mail-picon gnus-treat-mail-picon) (gnus-treat-newsgroups-picon gnus-treat-newsgroups-picon) (gnus-treat-strip-pem gnus-article-hide-pem) (gnus-treat-date gnus-article-treat-date) (gnus-treat-from-gravatar gnus-treat-from-gravatar) (gnus-treat-mail-gravatar gnus-treat-mail-gravatar) (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)))
(defvar gnus-article-mime-handle-alist nil)
(defvar article-lapsed-timer nil)
(defvar gnus-article-current-summary nil)
#@87 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) (#$ . 59437))
(defvar gnus-save-article-buffer nil)
(defvar gnus-number-of-articles-to-be-saved nil)
(defvar gnus-inhibit-hiding nil)
(defvar gnus-article-edit-mode nil)
(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\304\305\306BBEE\207" [forms when (buffer-live-p (get-buffer gnus-article-buffer)) with-current-buffer gnus-article-buffer let ((inhibit-read-only t))] 7]))
(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 (#$ . 60718)])
#@38 Set text PROPS on the B to E region.
(defalias 'gnus-article-hide-text #[(b e props) "\303\304\305 \n%\207" [b e props gnus-add-text-properties-when article-type nil] 6 (#$ . 60910)])
(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#\207" [b e gnus-hidden-properties remove-text-properties] 4 (#$ . 61175)])
(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) "\305!\210 \n\306 BB \307\306\310 \n\f%+\207" [type b e gnus-hidden-properties props gnus-add-wash-type article-type gnus-add-text-properties-when nil] 6 (#$ . 61445)])
#@38 Unhide text of TYPE between B and E.
(defalias 'gnus-article-unhide-text-type #[(b e type) "\304!\210\305 \n\306 BB#\207" [type b e gnus-hidden-properties gnus-delete-wash-type remove-text-properties article-type] 6 (#$ . 61711)])
#@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 (#$ . 61950)])
#@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 (#$ . 62420)])
#@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 (#$ . 62674)])
(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\306\211 GT\306p\307\211\211 \212\3101) !q\210\3060\202+ \210\307\"?\205H #;\203< #\202H #<\205H \311\312#\313#\";\203T \"\202e \"\205e \"<\205e \311\312\"\313#\203l
q\210\214\314 \210\315\316!\203| \317y\210\202p o\204\204 e`|\210\320\321\307\306#\203\341 \322 \210\323``T\324 \203\236 \315 !\204\250 \f\203\325 \315\f!\204\325 \317 $ %%\203\317 \315%@!\203\302 \307\211%\202\260 %A%$T$\202\256 $*\202\331 \325 \\$\210\317y\210\202\204 \326 \210\327ed\324\325 \\$\211\205\330\331!\210\332e\333e\\\334#\210\nd|.\n\207" [gnus-inhibit-hiding gnus-sorted-header-list beg visible ignored cur t nil (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-summary-buffer gnus-visible-headers gnus-ignored-headers i list] 8 (#$ . 63005) 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\"?\205z ?\205z\212\214\310\211\311 \210\f\312 \211 9\205x9@eb\210
\313\267\202n\314\315\312\310#\203n\316y\210\317\320 \312\210\314\321\312\310#\203J \322\224\202K d\307#\210\202, \202n\323\324\325!\326\327!\203c \202d \330 :\331\332:\"\203w \333:\322\225\"\202y :)\"\203n\334\325!\210\202n\335\336!\337\326\327!\203\224 \202\225 \330! ;\211 <\203\276 ;\203\276 \3401\265 \323\341<!A@;\"0\202\267 \210\312\203\276 \334\336!\210*\202n\335\336!\342\326\327!\203\321 \202\322 \330! =\211 <\203\373 =\203\373 \3431\362 \323\341<!A@=\"0\202\364 \210\312\203\373 \334\336!\210*\202n\335\344!\342\326\327!\203\202\330! =\211 >\2038=\2038\3451/\323\341>!A@=\"0\2021\210\312\2038\334\344!\210*\202n\323\335\346!\335\325!\"\203n\334\346!\210\202n\347\350\"\203]\334\351!\210\202n\335\352!\335\351! ?\211 @\203\230?\203\230\3531\217\354\355\356\341@\310\"\"\357\"\354\355\360\341?\310\"\"\357\"\2320\202\221\210\312\203\230\334\351!\210*\202nrAq\210\335\361!)\211 B\203\272\362\363 B\"\364W\203\272\334\361!\210)\202n\335\336!\335\344! >\211 <G\365V\203\323\334\336!\210>G\365V\203\337\334\344!\210*\202n\322\211 C Deb\210\314\366\312\310#\203\374DTD\202\354D\367V\203+D\322V\203+eb\210\214\314\366\312\211D$\210\316y\210`d}\210\334\336!\210)DS\211D\202eb\210\314\370\312\310#\203>CTC\202.C\367V\203mC\322V\203meb\210\214\314\370\312\211C$\210\316y\210`d}\210\334\344!\210)CS\211C\202G*9A\2119\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 #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (empty 44 newsgroups 84 to-address 133 to-list 194 cc-list 255 followup-to 316 reply-to 334 date 412 long-to 446 many-to 483)) re-search-forward "^[^: ]+:[ ]*\n[^ ]" -1 gnus-article-hide-text-type point-at-bol "^[^ ]" 0 gnus-string-equal gnus-fetch-field "newsgroups" boundp gnus-newsgroup-name "" string-match "^[^:]+:" substring gnus-article-hide-header message-fetch-field "to" gnus-parameter-to-address (error) mail-extract-address-components gnus-parameter-to-list (error) "cc" (error) "followup-to" gnus-group-find-parameter broken-reply-to "reply-to" "from" (error) sort mapcar #[(x) "A@\227\207" [x] 1] string< #[(x) "A@\227\207" [x] 1] "date" days-between current-time-string 4 1024 "^to:" 1 "^cc:" --dolist-tail-- gname to-address to to-list cc reply-to from gnus-original-article-buffer date cc-count to-count] 8 (#$ . 64213) (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 (#$ . 67325))
#@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 put-text-property invisible 1] 5 (#$ . 67424) nil])
#@446 Translate "Microsoft smartquotes" and other symbols into proper text.
Note that this function guesses whether a character is a smartquote or
not, so it should only be used interactively.
Smartquotes are Microsoft'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-smartquotes #[nil "\301!\207" [gnus-article-smartquotes-map article-translate-strings] 2 (#$ . 67842) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias article-treat-dumbquotes article-treat-smartquotes nil make-obsolete "27.1"] 4)
#@65 Translate many Unicode characters into their ASCII equivalents.
(defalias 'article-treat-non-ascii #[nil "\306\301!\210\307\310! \310\211\2034 @\211<\203- \311\n8G\312U\203- \313\311\n8\314H\315\n8#\210 A\211\204 *\212\316 \205t \317\310\211 m?\205s gH\211\204U \312u\210\202B \320`!\211\321\312!\210\203m \322`
c\210`\f#\210\202B
c\210\202B +*\207" [table org-entities elem --dolist-tail-- props replace require make-char-table nil 6 1 set-char-table-range 0 4 article-goto-body t text-properties-at delete-char add-text-properties inhibit-read-only] 6 (#$ . 68573) nil])
#@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\306 \205S \307 \310\211\205R @\211@\nA@ \212
;\203/ \311
\310\307#\203I \312\f!\210\202 m\204I g
=\203C \313\314!\210\fc\210\202/ \314u\210\202/ + A\211\204 \310+)\207" [inhibit-read-only map elem --dolist-tail-- to from article-goto-body t nil search-forward replace-match delete-char 1] 5 (#$ . 69168)])
#@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 (#$ . 69672) 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 (#$ . 70182) 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\310 m?\205 \214\311 \210\312 \306=\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*" #[nil "\301!\205 \302!\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 (#$ . 70423) 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 (#$ . 71302) nil])
#@75 Toggle display of textual emoticons ("smileys") as small graphical icons.
(defalias 'gnus-treat-smiley #[nil "\306\307!!\205E rq\210\310\311\n>\203 \312\311!\202D \313 \210\314`d\"\211\205C \315\311!\210 \316 \211 \205B
@\317\311\f\"\210
A\211\2042 \316*)*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types images image --dolist-tail-- buffer-live-p get-buffer t smiley gnus-delete-images article-goto-body smiley-region gnus-add-wash-type nil gnus-add-image] 4 (#$ . 71646) nil])
#@44 Remove all images from the article buffer.
(defalias 'gnus-article-remove-images #[nil "\305\306!!\205* rq\210\307\214~\210\n\310\211 \205) \f@\311 @!\210\fA\211\204 \310-\207" [gnus-article-buffer inhibit-read-only gnus-article-image-alist elem --dolist-tail-- buffer-live-p get-buffer t nil gnus-delete-images] 4 (#$ . 72159) nil])
#@115 Show any images that are in the HTML-rendered article buffer.
This only works if the article in question is HTML.
(defalias 'gnus-article-show-images #[nil "\306\307!!\205k rq\210\310\214~\210\n\311=\203 \312\311!\210\313 \202j \314ed\315#\316\211 \205i \f@\211\211 G\317U\203@
\211A\242\202G \320\321\322
GD\"
\211A\242
@\211 \323\324\"#\210,\fA\211\204, \316*+\207" [gnus-article-buffer inhibit-read-only mm-text-html-renderer region --dolist-tail-- #1=#:--cl-rest-- buffer-live-p get-buffer t w3m require w3m-toggle-inline-images gnus-find-text-property-region image-displayer nil 3 signal wrong-number-of-arguments (start end function) get-text-property image-url start end function] 5 (#$ . 72507) nil])
#@54 Fold the Newsgroups and Followup-To message headers.
(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 (#$ . 73243) 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) '(#$ . 73778) :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! ?\310\311\n!!\205I r\nq\210\306\247\203? \305V\203? \307\202F \247\203F \306\312 *\207" [arg gnus-article-truncate-lines gnus-article-buffer inhibit-read-only truncate-lines 0 t nil buffer-live-p get-buffer toggle-truncate-lines] 3 (#$ . 74111) "P"])
#@50 Place a boundary line at the end of the headers.
(defalias 'gnus-article-treat-body-boundary #[nil "\205U G\306V\205U r q\210\214\307\211\211 \310 \210db\210` \311c\210\312
`#\210\313\314 GY\203A P\202/ \315\306#*\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: " add-text-properties nil window-width substring "\n" put-text-property gnus-decoration header gnus-hidden-properties max str] 5 (#$ . 74724) 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 (#$ . 75308) 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 (#$ . 75744) 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 (#$ . 76029) 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 (#$ . 76374) 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\353 \312\313!\314 !r \203T \"\211 #\205D \315\316#!\211#!\205D #)\203T \317\320\314\306#\204T \"q\210\214\321 \210$\204y %\203y !\204p \312\313!\211!\203y \322%!\"\204\211 \323\324!\203\211 \325 B \202y * \205\352 eb\210\314\211 & \323\313!\211!\204\252 \326c\210`!\327c\210 \205\351 \330 \211A \242!\211\203\252 \331\332\333\306\333'\236A%&!b\210&\203\252 \334\310!\210\335\310&\"\210\336&\314\310#\210\202\252 **.\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 buffer-live-p get-buffer 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 buffer force gnus-article-x-face-too-ugly image gnus-face-properties-alist] 8 (#$ . 76683) (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\353 \315\316!\317 & 'r \203^ (\211 )\205N \320\321)!\211)!\205N ))\203^ \322\323\317\306#\204^ (q\210\214\324 \210$\203\230 *\204\210 +\203\210 '\204 \315\316!\211'\203\210 \325+'\"\204\230 \326\327!\203\230 \330 &B&\202\210 *&\205\352 \331$!\203\256 \332$&\"\202\352 $;\203\344 \317 ,\333\334\311\317-.$%\317\"\210\335\336! /r/q\210\337\216&@c\210\340\311ed#\210+\341\311!)\202\352 \342\343$\344#*.\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 buffer-live-p get-buffer re-search-forward "^X-Face:[ ]*" mail-narrow-to-head string-match gnus-article-goto-header "X-Face" mail-header-field-value functionp mapc set-process-query-on-exit-flag start-process generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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 x-faces from gnus-original-article-buffer buffer force gnus-article-x-face-too-ugly process-connection-type shell-file-name shell-command-switch #1#] 8 (#$ . 77949) (list 'force)])
#@47 Decode all MIME-encoded words in the article.
(defalias 'article-decode-mime-words #[nil "\306\307!!\205 rq\210\310\211\nr q\210\f) \n \311ed\"-\207" [gnus-article-buffer inhibit-read-only gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets buffer-live-p get-buffer t mail-decode-encoded-word-region mail-parse-charset inhibit-point-motion-hooks] 4 (#$ . 79465) 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\3071 q0\202 \210\202 \210\n)\310\211\211\211\211 !\212\214\311 \210\312\313\306\" \312\314\306\" \205F \315 !\"\203R \316\317!\202Z
\205Z \320
\304\"
\205c \320
\303\"\203o \321!
\203} \322\323
@\"\204} \310db\210)\324y\210\214`d}\210 \325=\203\232 \326 \327=\203\232
\203\245
@\330\232\205\271 ?\205\271 \331\f\205\266 \332\227!
@#.\f\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets format charset ctl t (error) nil article-narrow-to-head message-fetch-field "Content-Type" "Content-Transfer-Encoding" mail-header-parse-content-type read-coding-system "Charset to decode: " mail-content-type-get mail-header-strip-cte string-match "/" 1 gnus-decoded mm-body-7-or-8 8bit "text/plain" mm-decode-body intern cte ct mail-parse-ignored-charsets mail-parse-charset inhibit-read-only case-fold-search inhibit-point-motion-hooks prompt] 10 (#$ . 79897) "P"])
#@44 Remove encoded-word encoding from headers.
(defalias 'article-decode-encoded-words #[nil "\306\212\3071
q0\202 \210\202 \210\n)\306\310\211 eb\210\311\312\310\313#\203. \314y\210`o?\205b \314y\210o\204C \310f\315>\2045 `\316\317!\203T \f\"\210\202Z \f\"\210 \211b\210\2020 .\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets start end inhibit-read-only t (error) nil 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-ignored-charsets mail-parse-charset inhibit-point-motion-hooks gnus-decode-address-function gnus-decode-header-function] 6 (#$ . 81012)])
#@65 Decode group names in Newsgroups, Followup-To and Xref headers.
(defalias 'article-decode-group-name #[nil "\306\211\307!\310
\204 \205\211 \211 \205) \311\312!\211!\205) )\205\211 \214\313 \210\314\310 \211 \205\210 @rq\210eb\210)\315\316Q\317 \310\306#\203{ \320\321 \322\216\323rq\210\317 \310\306#\210\324\325!)\n#*\306\211\310\325%\210\202O 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 buffer-live-p get-buffer article-narrow-to-head ("Newsgroups" "Followup-To" "Xref") "^" ":\\([^\n]*\\(?:\n[ ]+[^\n]+\\)*\\)\n" re-search-forward replace-match match-data #[nil "\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 buffer header --dolist-tail-- save-match-data-internal] 7 (#$ . 81763)])
#@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 #[nil "\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" puny-decode-domain replace-match] 6 (#$ . 82758)])
#@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 \211 \205 \310\311\f!\211!\205 \f)\203F r q\210\312\313!\312\314!\211 \205/ \315
!\211 \205: \316\300\"\211;\203E \317\227!+\203P \320\321\"\204W \204k \205w \306 \322\323 \")\205w \324 \210\325`d\326\307\306##,\207" [charset type inhibit-read-only gnus-original-article-buffer buffer ct t nil buffer-live-p get-buffer gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get intern read-coding-system "Charset: " string-match "quoted-printable" article-goto-body quoted-printable-decode-region mm-charset-to-coding-system ctl read-charset gnus-newsgroup-charset force case-fold-search] 8 (#$ . 83641) (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 \211 \205 \310\311\f!\211!\205 \f)\203F r q\210\312\313!\312\314!\211 \205/ \315
!\211 \205: \316\300\"\211;\203E \317\227!+\203P \320\321\"\204W \204k \205\202 \306 \322\323 \")\205\202 \324 \210\214`d}\210\325ed\"\210\326ed\327\307\306##),\207" [charset type inhibit-read-only gnus-original-article-buffer buffer ct t nil buffer-live-p get-buffer gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get intern read-coding-system "Charset: " string-match "base64" article-goto-body base64-decode-region decode-coding-region mm-charset-to-coding-system ctl read-charset gnus-newsgroup-charset force case-fold-search] 8 (#$ . 84624) (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 (#$ . 85606) 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 )\307\310!\205 \311\304!)\207" [inhibit-read-only t re-search-forward "\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil replace-match "\\1\\3" called-interactively-p any gnus-treat-article] 4 (#$ . 85798) nil])
#@25 Format an HTML article.
(defalias 'article-wash-html #[nil "\304\211\n\211\205 \305\306 !\211!\205 )\203# r\nq\210\307\310\211\")\311 \210`d|\210\312 \210\313 !*\207" [buffer-read-only handles gnus-original-article-buffer buffer nil buffer-live-p get-buffer mm-dissect-buffer t article-goto-body mm-enable-multibyte mm-inline-text-html] 4 (#$ . 86183) nil])
#@89 List of temporary files created by `gnus-article-browse-html-parts'.
Internal variable.
(defvar gnus-article-browse-html-temp-list nil (#$ . 86555))
#@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 '(#$ . 86711) :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) "\203} \204\n \n \306=\203- G\307 \310U\203 \311\202\" \312\313 \"!\206) \314\211)\202. \203} \314 \211 \203z
@\315\f!\203Z \304=\203S \307\316\317\320\f!\"!\203s \321\f!\210\202s \322\f!\203s \304=\203o \307\312\323\f\"!\203s \324\f!\210
A\211\2049 *\314\207" [gnus-article-browse-html-temp-list how gnus-article-browse-delete-temp files file --dolist-tail-- ask gnus-y-or-n-p 1 "Delete the temporary HTML file? " format "Delete all %s temporary HTML files? " nil file-directory-p format-message "Delete temporary HTML file(s) in directory `%s'? " file-name-as-directory gnus-delete-directory file-exists-p "Delete temporary HTML file `%s'? " delete-file] 6 (#$ . 87247)])
#@119 Find CID content in HANDLES and save it in a file in DIRECTORY.
Return file name relative to the parent of DIRECTORY.
(defalias 'gnus-article-browse-html-save-cid-content #[(cid handles directory) "\306 \307\216\310\211\3112\236 \310 \211 \205\234
@\211<\203\224 \312\f@!\204* \f@;\203\224 \f\313\211@;\2038 \211@\202< \211A@@\262\314\"@\262\315\232\203\\ \316\f #\211\203\224 \317\311\n\"\210\202\224 \320\321Q\322\f8\232\203\224 \323\f!\206{ \324\325!\326\fA@@ \"@P\327\n \"\330\f \"\210\317\311\331\332 !!\314\nQ\"\210
A\211\204 \310*0,\207" [save-match-data-internal afile file handles handle --dolist-tail-- match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil found bufferp split-string "/" "multipart" gnus-article-browse-html-save-cid-content throw "<" ">" 7 mm-handle-filename make-temp-name "cid" rassoc expand-file-name mm-save-part-to-file file-name-nondirectory directory-file-name cid directory mailcap-mime-extensions] 6 (#$ . 88074)])
#@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\211\211 @A\306 B\211 C\203 C@\211B<\203BA@\211@@\307\232\204\211 @@\310\232\203,D\204G \311B!\211\203,\312B8\204w \3131\\ \314B!\210\3150\202t E\316\317\320\321E!#\210F\317Y\203r \322\323!\210)\306\203,\312B8\211BA@\211@@\307\232\203,\324@\304\"\325B!\326\327! GrGq\210\330\216\f\331=\203\254 \332 \210\202\257 \333 \210 c\210\315\306\211\211\211 H I J K Leb\210\334\335\306\315#\203E\336\225K\334\337\306\315#\203E\340\341K\315#\203E\342\343!J\344\345!\210`K\346\306 M\211 C\203DC@M\347M@\350MA\351\260I\334I\306\315#\2037\3521(\353 N\354\216\355\342\343!J\"*0\202,\210\342\343!\343\224\343\225|\210c\210\202 Kb\210CA\211C\204\367 *\334\356\306\315#\203\n\204[\357\360\315\"\361\362\n\"\210\306\211\363\342\323!rOq\210P)\n#\211H\203E\344H\306\211\211\343%\210\202E- \204\207\364 +\f\204\225D\204\225
\204\233\357\365\306\366#D\203\234\306\211\211\211\211 Q R S T U\326\327! VrVq\210\367\216\332 \210\315LD\370\261\210\371\372!Ueb\210\334\373\306\315#\203\371\344\343\224\203\341\374\202\364\323\224\203\352\375\202\364\317\224\203\363\376\202\364\377!\210\202\317eb\210\334\201\\ \306\315#\203,i\336\224\336\225|\210\336 W XWXW\203(\201] c\210WT\211W\202*\202\374eb\210\201^ c\210db\210\201_ c\210\f\331=\203h\201` \201a \364 \f\"TU\205[\201a U\f\"U\201a \f\"S\202.\201b ed\"\211RG\343U\203\211R@R\201c R\306\315#Q\202\231RG\343V\203\231\201` \211RQQ\203 \f\203\376\201c \f\306\315#SQS=\203\322\201a \364 Q\"TU\205\312\201a UQ\"U S\202.\201` \201a \364 \f\"TU\205\353\201a U\f\"U\201a \201d S\"\f\"S\202.R\201a \364 Q\"TU\205\201a UQ\"U S\202.\201a \364 \201` \"T S\201e \210\333 \210Sc\210\f\203G\201f B\f\315#\210U\203neb\210\201g \201h \306\315#\204n\334\201i \306\315#\210\201h U\201j \261\210eb\210\334\201k \306\315#\204\203\334\201l \306\315#\210Tc\210\201m ed \306\211\211\201n \315&\210.\202\372\f\203\356\326\327! YrYq\210\201o \216\333 \210\f\331=\203\304\201a \201` \211\"\202\305 c\210\201f B\f\"\204\325
\204\350\201m ed \306\211\211\201n \315&\210\202\352\306+\202\372 \203\372\201p B \"\210 \203\361\362 \"\210\201q \201r \201s \"\210\201q \201t \201u \"\210\201v \206%\201w
!!\210\315\202B\201x \211@;\203=\211@\202A\211A@@\262\201y \"@\262\201z \232\203a\201{ BD\"\203\315\202B\211@;\203p\211@\262\202v\211A@@\262\201| \232\203\326\327! ZrZq\210\201} \216\332 \210\201~ B!\210\201 \315\211\"B\201\200 B@!\203\265BA@@;\203\265BCBD\203\355\201\201 \210\201[ \201\202 N\206\313[ [\201\203 \210)eb\210\201g \201\204 \306\201\205 #\210\201\206 \306x\210e`{D+\201{ BD\"\201\207 B!\210\203\315CA\211C\204 *.\207" [showed tmp-file cid-dir content charset file nil "text/html" "message/external-body" mm-handle-filename 6 (error) mm-extern-cache-contents t gnus-message 3 "%s" error-message-string sit-for 2 mail-content-type-get mm-get-part generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] gnus-decoded mm-enable-multibyte mm-disable-multibyte re-search-forward "<head[ \n >]" 0 "</head[ \n >]" re-search-backward "<base\\(?:[ \n ]+[^ \n >]+\\)*[ \n ]+href=\"\\([^\"]+\\)\"[^>]*>" match-string 1 replace-match "<!--\\&-->" (("a" . "href") ("form" . "action") ("img" . "src")) "<" "\\(?:[ \n ]+[^ \n >]+\\)*[ \n ]+" "=\"\\([^\"]+\\)" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] url-expand-file-name "<img[ \n ]+\\(?:[^ \n >]+[ \n ]+\\)*src=\"\\(cid:\\([^\"]+\\)\\)\"" make-temp-file "cid" add-to-list gnus-article-browse-html-temp-list gnus-article-browse-html-save-cid-content buffer-string "mm-" ".html" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "\n" message-fetch-field "subject" "\\(<\\)\\|\\(>\\)\\|\\(&\\)\\|\n" "<" ">" "&" "<br>\n" type list handle --dolist-tail-- header code gnus-verbose #1# cid-file regexp base st case-fold-search tag save-match-data-internal gnus-article-buffer gnus-article-mime-handles coding hcharset body eheader title #2# i --dotimes-limit-- #3=#:temp-buffer #4=#:temp-buffer gnus-visible-headers "^[ ]+" " " "<div align=\"left\">\n" "</div>\n<hr>\n" utf-8 encode-coding-string mm-find-mime-charset-region mm-charset-to-coding-system decode-coding-string erase-buffer mm-add-meta-html-tag search-forward "<title>" "<head>\\s-*" "</title>\n" "<body\\(?:\\s-+[^>]+\\|\\s-*\\)>\\s-*" "</head\\(?:\\s-+[^>]+\\|\\s-*\\)>\\s-*" mm-write-region binary #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] mm-save-part-to-file add-hook gnus-summary-prepare-exit-hook 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" #[nil "\301!\205 \302!\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 (#$ . 89095)])
#@753 View "text/html" parts of the current article with a WWW browser.
Inline images embedded in a message using the cid scheme, as they are
generally considered to be safe, will be processed properly.
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 (using the http scheme) 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.
This command creates temporary files to pass HTML contents including
images if any to the browser, and deletes them when exiting the group
(if you want).
(defalias 'gnus-article-browse-html-article #[(&optional arg) "\203\n \306 \210\202 \301\307N\206 \310\211\306 \210+r\fq\210?\205@ \214~\210\311eb\312\313\310\314#\2036 \315\224\202> db\210\316\310x\210`\")\310 q\210\317\314\211\"\320
@!\203_
A@@;\203_
C\321
\"\204l \322\323\324\"\210\325
!\210?\205w \306 +\207" [arg gnus-visible-headers gnus-treat-body-boundary gnus-mime-display-attachment-buttons-in-header gnus-article-buffer parts 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 header gnus-original-article-buffer] 6 (#$ . 94559) "P"])
#@109 Remove list identifiers from the Subject header.
The `gnus-list-identifiers' variable specifies what to do.
(defalias 'article-hide-list-identifiers #[nil "\304\305!\304\n\2059 \212\214\306 \210eb\210\307\310\n\311Q\312\304#\203+ \313\224\314\225|\210\315 \210\202 \307\316\312\304#\2058 \317\224\317\225|*+\207" [gnus-newsgroup-name inhibit-read-only regexp inhibit-point-motion-hooks t gnus-group-get-list-identifiers article-narrow-to-head re-search-forward "^Subject: +\\(R[Ee]: +\\)*\\(" " *\\)" nil 2 0 beginning-of-line "^Subject: +\\(\\(R[Ee]: +\\)+\\)R[Ee]: +" 1] 4 (#$ . 96074) 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 (#$ . 96680) (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\205[ \214~\210\311 \210\312\313!)\211\205Z \f !A@\211\205Z \3142Z \n\315 \211 \205X @\316
@ \"\203N \317\314\310
A!\"\210A\211\204: \315*0)+\207" [inhibit-point-motion-hooks gnus-newsgroup-name gnus-article-address-banner-alist from gnus-extract-address-components pair t gnus-parameter-banner article-really-strip-banner article-narrow-to-head mail-fetch-field "from" found nil string-match throw --dolist-tail--] 5 (#$ . 97364) 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 (#$ . 98002)])
#@56 Translate article using an online translation service.
(defalias 'article-babel #[nil "\306\307!\210\310\311!!\2050 rq\210\312\313 \205/ `d\n { \314\f! \214\n }\210\n |\210
c-*\207" [gnus-article-buffer inhibit-read-only start end orig trans require babel buffer-live-p get-buffer t article-goto-body babel-as-string] 3 (#$ . 98525) 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 (#$ . 98876) (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 (#$ . 99330) 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 (#$ . 99579) 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!\203\f `\202 \302\303\304\305#\203 `S\202 d}\210eb\207" [looking-at "\n" search-forward "\n\n" nil 1] 5 (#$ . 99901)])
#@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 (#$ . 100185)])
#@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 (#$ . 100419) 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 (#$ . 100913) 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 (#$ . 101253) 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 (#$ . 101588) 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 (#$ . 101846) 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\242\211\203` \250\2031 d`Z W\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 (#$ . 102142)])
#@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)\2032 \305\2026 b\210\304)\207" [cur gnus-signature-separator seps re-search-backward nil t] 4 (#$ . 102665)])
#@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 (#$ . 103030)])
#@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 (#$ . 103234)])
#@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 (#$ . 103645)])
#@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\n BB%\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 (#$ . 103975)])
#@37 Mapping from time units to seconds.
(defconst article-time-units (byte-code "\300\301\302\303\304\211$B\305\306B\307\310B\311\312B\313BBBB\207" [year * 365.25 24 60 week 604800 day 86400 hour 3600 ((minute . 60) (second . 1))] 6) (#$ . 104337))
#@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 (#$ . 104589)])
(defalias 'article-treat-date #[nil "\303\211\205 \304\305 !\211!\205 )\203 rq\210\n)\202 \n\306\"\207" [gnus-summary-buffer buffer gnus-article-date-headers article-date-ut buffer-live-p get-buffer t] 5])
#@131 Convert DATE date to TYPE in the current article.
The default type is `ut'. See `gnus-article-date-headers' for
possible values.
(defalias 'article-date-ut #[(&optional type _highlight date-position) "\306\211\306\307\310!\311\211 \311\211 \212 \203u b\210\312`\313\"\314 \210\315\316!\203: \312\317\224\320\" \312\317\225\320\" b\210n\203G \206c \312 \321\"\203a \322\311x\317W\203a \323` \321\311$\206c \324 \210`|\210\325
$\202$\214~\210eb\210\312`\211\313\"\204\222 \326`\313\"\211\205#\fb\205#\f\327\330\311\306#\203\241 \317\224T\202\242 d}\210\331\fd\321\311$\211\203\325 \312\f\313\"\fb\210\315\316!\203\313 \312\317\224\320\" \312\317\225\320\" \f\324 \210`|\210\202\244
\204eb\210\332\333\311\306#\203\312\317\224\313\"\312\317\224\320\" \312\317\225\320\" \334 \324 \210`|\210\202\334
\204
\203
\203\325
$\210db\210~\210\202{ ). \207" [case-fold-search inhibit-read-only inhibit-point-motion-hooks visible-date pos date t mail-fetch-field "Date" nil get-text-property original-date beginning-of-line looking-at "[^:]+:[ ]*" 0 face gnus-date-type " " text-property-any gnus-article-forward-header article-transform-date next-single-property-change search-forward "\n\n" text-property-not-all re-search-forward "^Date:[ ]*" point-at-bol bface eface date-position type] 6 (#$ . 105116) (list 'ut t)])
(defalias 'article-transform-date #[(date type bface eface) "\306\211\n\204
\307C\202 \n:\204 \nC\202 \n\306\211 \205\320 \f@`\310
\206+ \307\" \311=\203c n\203c \312\313\210` b\210\314\"\204c \315\316\"\210\317\224\203V \320\261\210\202h \321\322\313\225\"\320\261\210\202h \320\261\210\323 `\324
\314 F#\210 b\210\325 \210\326\327!\210 \203\220 \317\224\203\220 \330\317\224\317\225\331 $\210\332\224\203\310 \203\244 \330\332\224\332\225\331 $\210\317y\313U\203\310 \326\333!\203\310 \203\244 \317\224\203\244 \330\317\224\317\225\331 $\210\202\244 \fA\211\204 \306,\207" [date-line begin type this-type --dolist-tail-- date nil ut article-make-date-line user-defined get-text-property 0 gnus-date-type string-match "\\`\\([^ \n :]+:\\)?[ ]*" 1 "\n" "Date: " substring add-text-properties original-date beginning-of-line looking-at "\\([^\n:]+:\\)?[ ]*\\(\\(?:[^ \n ]+[ ]+\\)*[^ \n ]+\\)?" put-text-property face 2 "[ ]+\\(\\(?:[^ \n ]+[ ]+\\)*[^ \n ]+\\)?" bface eface] 8])
#@45 Return type of date with lapsed time added.
(defalias 'article-make-date-combine-with-lapsed #[(date time type) "\306 \"\307\310
\2032 \311\312
\"\313Q\211\2032 \fG\nG\\\314\\V\2032 \315V\2032 S\202 \315V\203> \f\nP\202? \f+\207" [date type lapsed-string segments date-string time article-make-date-line 3 nil " (" article-lapsed-string ")" 6 0 fill-column] 4 (#$ . 107507)])
#@29 Return a DATE line of TYPE.
(defalias 'article-make-date-line #[(date type) "\306>\204 \307\310\"\210\3111\3121 \313 !0\202 \210\314\315\267\202\n\316\317\n!P\202 \320\321\322\323\324 !!\325#)\202 \316\326\327 \"\203K \330 \331\211\224#\202L P\202 \3321^ r\fq\210
)0\202b \210\202e \206f
2\3332!\203v 2\n!\202} \316\3212\n\"P)\202 \321\334\n\"\202 \316\335\n!P\202 \336 \n\337#\202 \336 \n\340#\202 \341\n! 6\342\343\34468!\34468\345\246 7\34468\346>\203\301 \347\202\343 7\350U\203\314 \351\202\343 7\352U\203\327 \353\202\343 7\344U\203\342 \354\202\343 \347)\355\35668S88\357\343\36068!\361\362\363\35268\"\364\362\3636A@\"\260 )\202 \314)0\207\210\362\365 \"\207" [type date time system-time-locale gnus-summary-buffer gnus-article-time-format (local ut original user-defined iso8601 lapsed english combined-lapsed combined-local-lapsed) error "Unknown conversion type: %s" (foo) (error) date-to-time nil #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (local 35 ut 43 original 58 user-defined 80 iso8601 129 lapsed 136 combined-lapsed 144 combined-local-lapsed 152 english 160)) "Date: " message-make-date "C" format-time-string "Date: %a, %d %b %Y %T UT" encode-time parse-time-string t string-match "\n+$" substring 0 (error) functionp "Date: %Y%m%dT%H%M%S%z" article-lapsed-string article-make-date-combine-with-lapsed original local decode-time "Date: the " number-to-string 3 10 (11 12 13) "th" 1 "st" 2 "nd" "rd" " of " 4 " " 5 " at " format "%02d" ":" "Date: %s (from Gnus)" dtime digit gnus-english-month-names] 13 (#$ . 107902)])
(defalias 'article-lapsed-string #[(time &optional max-segments) "\306!\307 !\310\n!\311 \312\211 \204 G\310 !\313W\203) \314\202; \315\316\317#\n\311V\2039 \320\202: \321P.\207" [time real-time real-sec sec segments num time-since float-time abs 0 nil 1 "Now" mapconcat #[(unit) "\306 A\245!\211\307U\204 \fY\203 \310\207\n A_Z
\203$ \311\202% \310\312\313\n!!\314\315 @!\n\316V\2039 \317\202: \310\260\320 T\207" [sec unit num segments max-segments prev ffloor 0 #1="" ", " int-to-string floor " " symbol-name 1 "s" t] 6] #1# " ago" " in the future" prev max-segments article-time-units] 5])
#@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 (#$ . 110146) (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 (#$ . 110341) (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 (#$ . 110555) (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 (#$ . 110886) (list t)])
#@68 Convert the current article date to time lapsed since it was sent.
(defalias 'article-date-combined-lapsed #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut combined-lapsed] 3 (#$ . 111094) (list t)])
#@65 Function to be run from a timer to update the lapsed time line.
(defalias 'article-update-date-lapsed #[nil "\302 \303\216p\3041 \305\306\307\310#0\202 \210\202 \210 q+\207" [save-match-data-internal buffer match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) walk-windows #[(w) "\306!q\210\307\310!\205\221 \311e`\"`\312 Z\305!e\313\211\211 \314\fd\315\313$\211\203l \316\f\315\"\2066 d\317\f\315\"\211\320>\203g \321 \322\f#\210\316\f\315\"\206P d
\203e
\nU\204` \313\202e \323 \"\210 \n\202# eb\210\324V\203{ Sy\210\313\210iV\205\217 \325 \210u.\207" [w end next type pos window-start window-buffer derived-mode-p gnus-article-mode count-lines line-beginning-position nil text-property-not-all gnus-date-type next-single-property-change get-text-property (lapsed combined-lapsed user-defined) article-date-ut t set-window-start 0 beginning-of-line old-column old-line] 8] nil visible] 4 (#$ . 111320)])
#@144 Start a timer to update the Date headers 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 (#$ . 112316) "p"])
#@22 Stop the Date timer.
(defalias 'gnus-stop-date-timer #[nil "\205 \301!\210\302\211\207" [article-lapsed-timer cancel-timer nil] 2 (#$ . 112670) 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-defined] 3 (#$ . 112831) (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 (#$ . 113104) (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 (#$ . 113292)]))
#@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 (#$ . 114020) nil])
#@52 Emphasize text according to `gnus-emphasis-alist'.
(defalias 'article-emphasize #[(&optional arg) "\306\307\"?\205\366 \212\3101 r q\210\n)0\202 \210\202 \206 \311\312\313\f\"\314\211\211\211\211\211 ! \"\315 \210` \"\211A\"\242\211 \205\364 b\210 @ A@ \316 8\317 8\320 \314\311#\203A \224\203h \224\203h \224 \225 # $\321\322\314$# %+\210\323\224\225\307#\210\224\225\305
% & ' \324 (\325\216\212\214 b\210\320)'\326#\203\332 \327\330 \331\224\"&%#\210` \202\275 \327\330 `\"&%#\210.\332\307!\210 \225b\210\202h .\n\207" [arg gnus-summary-buffer gnus-article-emphasis-alist gnus-emphasis-alist gnus-hidden-properties face gnus-article-check-hidden-text emphasis (error) t append (article-type emphasis) nil article-goto-body 2 3 re-search-forward gnus-add-text-properties-when article-type gnus-article-unhide-text-type match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] move overlay-put make-overlay 0 gnus-add-wash-type visible invisible beg elem regexp props inhibit-read-only alist e b val prop end save-match-data-internal gnus-emphasize-whitespace-regexp] 9 (#$ . 114324) (gnus-article-hidden-arg)])
#@33 Setup newsgroup emphasis alist.
(defalias 'gnus-article-setup-highlight-words #[(&optional highlight-words) "?\205h \205 \306\307\n\"\203 \310\n\311\225\"\202 \n)\312\300!\210\f\313\211 \211A\242\211\203O \203) \306@ \"\203) \313\314A!\202)
+\314!\244 \205a \314\315 \316\317#!\244\244\211)\207" [gnus-article-emphasis-alist gnus-newsgroup-name gname name gnus-group-highlight-words-alist highlight string-match "^[^:]+:" substring 0 make-local-variable nil copy-sequence gnus-group-find-parameter highlight-words t elem alist gnus-emphasis-alist] 6 (#$ . 115549)])
#@38 Save the currently selected article.
(defalias 'gnus-article-save #[(save-buffer file &optional num) "\306N\204\n \204# \306NJ\206 \n\206 \307 r
q\210\310\311\312\"\210+\313 \314\216\2043 \315\316!\202f q\210
\204C \317\202P \320=\203N \307\202P \312=\205[ q\210!+*\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 current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] error "No default saver is defined" default always #1# gnus-article-buffer gnus-save-article-buffer gnus-prompt-before-saving file filename num gnus-number-of-articles-to-be-saved gnus-article-current-summary] 3 (#$ . 116153)])
(defalias 'gnus-read-save-file-name #[(prompt &optional filename function group headers variable dir-var) " \n J#\306 \307\310\267\202
\202
\202\203# \202J\2032 \307\311
!J\"\312! \313 \203O \314V\203O \313\315 \"\202P \316\" \204i \317 \320\311
!\321R\322
!
#\202\360 ;\203\210 \n J#\317 \320\311
!\321R\322
!
#\202\360 G\314U\203\310 \307 @ \" \323 !\203\247 \324 !\202\265 \325 !\203\263 \202\265 !\317 \320 \321R! #*\202\360 \237 \306 \"\244 \"\307\317 \326P @# \")\f\"B\211\"@) #\327\322#!!\210\323#!\203 \307\311
!\324#!\"#\330#!+!\327\322\f!!\210 \203 \fL\210\203,\322\f!L\210\f*\207" [function group headers variable result default-name nil expand-file-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 17 t 21)) 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 (#$ . 118225)])
#@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 (#$ . 118559)])
#@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) "\305\306 \n \307&r\fq\210\212\214~\210\310!\210+\207" [filename gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer gnus-read-save-file-name "Save %s in rmail file" gnus-newsgroup-last-rmail gnus-output-to-rmail] 7 (#$ . 118815)])
#@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) "\305\306 \n \307&r\fq\210\212\214~\210\310!\203+ \311!\203+ \312!\203+ \313!\210\202/ \314!\210+\207" [filename gnus-mail-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer gnus-read-save-file-name "Save %s in Unix mail file" gnus-newsgroup-last-mail file-readable-p file-regular-p mail-file-babyl-p gnus-output-to-rmail gnus-output-to-mail] 7 (#$ . 119304)])
(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&r\fq\210\212\214~\210
\203 \311!\203 \312!\210\313!\210+\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer overwrite gnus-read-save-file-name "Save %s in file" gnus-newsgroup-last-file file-exists-p delete-file gnus-output-to-file] 7 (#$ . 120048)])
(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 (#$ . 120783)])
(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&r\fq\210\212\214~\210\311 \203 `d}\210
\203) \312!\203) \313!\210\314!\210+\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer overwrite gnus-read-save-file-name "Save %s body in file" gnus-newsgroup-last-file article-goto-body file-exists-p delete-file gnus-output-to-file] 7 (#$ . 121317)])
(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 (#$ . 122068)])
(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\f \310!\210\210\306`\311\"\206 \312 ?\205 \313\314N\315\211\211 \203\206 \316\317\f
\" %\320%8)!\203~ r\321 \211\315\f$\210\322 \203J &\202L '\323\324!!\210\204z \313\325N\204a (\204z \313\325NJ\206o )\206o *\315 + *\326\327\330\"\210*)\202\212 \331\332\f\"\210\202\212 \331\333!\210,\206\221 -.;\204\255 .\301=\203\247 \203\247 \202\253 \334\335 \"..\336\230\203\302 \203\276 .\202\302 \331\337!\210r\nq\210\214~\210\340ed.\315$\210*\n\211 /\211 0\205\352 \341\3420!\2110!\205\352 0)\203\366 \343/!\210\344 \210-.\211,\207" [raw default save-buffer decode article gnus-newsgroup-data get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-save-in-pipe :decode nil mail-header-p gnus-data-find-in 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" read-shell-command "Shell command on this article: " "" "A command is required" shell-command-on-region buffer-live-p get-buffer kill-buffer gnus-prune-buffers cl-x 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 buf buffer] 6 (#$ . 122703)])
#@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 (#$ . 124671)])
#@28 Capitalize NEWSGROUP name.
(defalias 'gnus-capitalize-newsgroup #[(newsgroup) "G\301U?\205 \302\301H\226!\303\304\"P\207" [newsgroup 0 char-to-string substring 1] 4 (#$ . 124991)])
#@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 (#$ . 125183)])
#@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 (#$ . 125871)])
#@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 (#$ . 126529)])
#@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 (#$ . 127059)])
#@19 Verify X-PGP-Sig.
(defalias 'article-verify-x-pgp-sig #[nil "\211\205 \306\307 !\211!\205 )\205Jrq\210\310\311!)\312\211\211 \211 \205I8\205I\31389\2368\205I\314\315! :r:q\210\316\216\317!\210\320
!\321 \210\322\211 ; <\323\324\320\fA@\325\"\326#*ed|\210\327c\210\330\fA@\331\261\210\nc\210~\210\312y\210m\204\212 \332\333!\203\204 \334c\210\312y\210\202w \335c\210\336\f@\337\261\210\323\340\fAA\331#c\210\341c\210\342\343!C =\344 \210>\206\257 \345 ?\31389\2368 \210)\346\347\350=@#\206\314 \346\347\351=@#, \205I\322\312\211 @ A B\214\321 \210db\210\352y\210\346\353 \354\"A\346\355 S\354\"@\356\357!\210\360\361\312\322#\203\312y\210\202 db\210``}\210\362 \331\261\210eb\210\312y\210m\204,\332\363!\204&\364c\210\312y\210\202eb\210\332\365!\205H\366\367\224\367\225T\354A$\210\366\347\225d\354@$,,\207" [gnus-original-article-buffer buffer headers info items sig buffer-live-p get-buffer gnus-fetch-field "X-PGP-Sig" nil 5 generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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-use mml2015-function-alist #1# case-fold-search inhibit-point-motion-hooks mm-security-handle gnus-newsgroup-charset coding-system-for-write eface bface inhibit-read-only] 6 (#$ . 127375) nil])
#@28 Verify Cancel-Lock header.
(defalias 'article-verify-cancel-lock #[nil "\211\205 \302\303 !\211!\205 )\205 \304!\207" [gnus-original-article-buffer buffer buffer-live-p get-buffer canlock-verify] 4 (#$ . 129277) nil])
(byte-code "\302\303\304\"\210\305\306\307\310#\210\311\306\307\312#\210\313 \"\210\314\300\315\"\210\316\317\320#\210\314\321\322\"\207" [gnus-article-mode-map button-buffer-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\325 D\326BBFE\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 function (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-treat-date article-date-ut article-decode-mime-words article-decode-charset article-decode-encoded-words article-date-user article-date-lapsed article-date-combined-lapsed article-emphasize article-treat-smartquotes article-treat-dumbquotes article-treat-non-ascii article-normalize-headers) defalias gnus-article-treat-dumbquotes gnus-article-treat-smartquotes nil make-obsolete "27.1" set-keymap-parent gnus-define-keys-1 (" " gnus-article-goto-next-page [33554464] gnus-article-goto-prev-page "" gnus-article-goto-prev-page [delete] 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 "<" 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 "e" gnus-article-read-summary-keys "" 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 [t] gnus-article-read-summary-send-keys)] 4)
(defalias 'gnus-article-make-menu-bar #[nil "\301\302!\204 \303 \210\301\304!?\205) \305\306!\210\307\304\310\311$\210\312\306!\210\307\313\310\314$\210\315\316!\207" [gnus-article-mode-map boundp gnus-article-commands-menu gnus-summary-make-menu-bar gnus-article-article-menu (lambda (#1=#:def-tmp-var) (defvar gnus-article-article-menu #1# #2="")) nil easy-menu-do-define #2# ("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]) (lambda (#1#) (defvar gnus-article-treatment-menu #1# #2#)) 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])
(defvar gnus-article-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-article-mode-hook variable-documentation put "Hook run after entering Article 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-article-mode-map definition-name gnus-article-mode] 4)
(defvar gnus-article-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-article-mode-abbrev-table gnus-article-mode-map variable-documentation put purecopy "Keymap for `gnus-article-mode'." boundp gnus-article-mode-syntax-table definition-name gnus-article-mode (lambda (#1=#:def-tmp-var) (defvar gnus-article-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-article-mode'." (lambda (#1#) (defvar gnus-article-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-article-mode'." derived-mode-parent gnus-mode] 5)
#@819 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
In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-article-mode-hook', as the final or penultimate step
during initialization.
(defalias 'gnus-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)\3247\325\"\204V 78=\204V \3267\3258C#\210\327 !\210\330\f!\21078\331 \210\306\332!\210\333\334\335\"\203\200 \336 \2109\203\200 \306\337!\2109 \340\341\342\"\210\306\343!\210:#\306\344!\210\341$\306\345!\210\306\346!\210\306\347!\210\306\350!\210\306\351!\210\306\352!\210\306\353!\210\306\354!\210\306\355!\210\356-\306\357!\210\341/\306\360!\210\3610;\204\321 \341<\362 \210\363 \210\341=\364 \210)\365\366!\207" [delay-mode-hooks major-mode mode-name gnus-article-mode-map gnus-article-mode-syntax-table parent make-local-variable t gnus-mode gnus-article-mode "Article" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-simplify-mode-line minor-mode-alist gnus-visual-p article-menu menu gnus-article-make-menu-bar tool-bar-map gnus-update-format-specifications nil article-mode page-delimiter gnus-page-broken 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 bookmark-make-record-function gnus-summary-bookmark-make-record nobreak-char-display shr-put-image-function gnus-shr-put-image gnus-set-default-directory buffer-disable-undo mm-enable-multibyte run-mode-hooks gnus-article-mode-hook gnus-article-mode-abbrev-table local-abbrev-table gnus-summary-tool-bar-map gnus-page-delimiter gnus-article-show-cursor cursor-in-non-selected-windows show-trailing-whitespace] 6 (#$ . 135069) nil])
#@32 Initialize the article buffer.
(defalias 'gnus-article-setup-buffer #[nil "\203 \306\202\f \307 \310Q\311\312\n\"\210\313\314\n\315\225\"P\n \316,r(q\210\2041 \n \317 \210)\320 \210r\321
!q\210\322 \210\323-\324\325!\210)\326\n!\203\331 r\nq\210\"\203\222 \327\330!\203\214 \331\316!\210\n\211 .\211 /\205w \332\326/!\211/!\205w /)\203\203 \333.!\210\334 \210)\335\336!\210\316\202\223 \337\340!\202\223 \341)\203\331 ( 0r\nq\210\324\342!\210\316\"\343 \2101\203\266 \3441!\210\3161\316,\345 \210\3412\346\347!\204\310 \347 \210\324\350!\2100(34p*\202\n( 0r\321\n!q\210\347 \21034\324\350!\2100(\351 !\2105\203\376 \352 \2106\203\3536!\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" substring 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-live-p kill-buffer gnus-prune-buffers message "" error "Action aborted" t gnus-article-edit-mode gnus-article-stop-animations mm-destroy-parts buffer-disable-undo derived-mode-p gnus-article-mode gnus-summary-buffer gnus-summary-set-local-parameters gnus-stop-date-timer gnus-start-date-timer gnus-article-mime-handle-alist major-mode buf buffer summary gnus-article-mime-handles buffer-read-only gnus-article-truncate-lines truncate-lines article-lapsed-timer gnus-article-update-date-headers] 5 (#$ . 137729)])
(defalias 'gnus-article-stop-animations #[nil "\300\301!\207" [cancel-function-timers image-animate-timeout] 2])
(defalias 'gnus-stop-downloads #[nil "\301\302!\205\f \303\304\"\305L\207" [obarray boundp url-queue intern "url-queue" nil] 3])
(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\307!\204\n q\210pp\n\f \310 0\212\311 \2101q\2102\203% \3103\312 4\313
\")\2110\204\204 \212\247\205\200 5>?\205\200 \fB6q\21078>\203l \314\315\f!!\204l \316!\210\317\320!\202\200 \3219\"\2105>?\205\200 \322\323\324\")\202\2260\325=\204\222 0\326=\203\313 r q\210:B:7;\3277\310\211<60\326=\203\270 \330\331!\210\202\274 \330\332!\210\333 \210)= >\334\332!)\202\226\247\203:7=\204:r q\210:B:7;7\3357?\" @\336@8)<\f7B6\337<!\204 \310<\3407!\210\341 \203\3407!\210\342\343!\210\334\331!\210\344\345\346\"\203-\342\347!\210\333 \210A\2067BC)\212\330\332!\210)\247\204L;\203Z\350 \210eb\210D\203Z\351 \210= >\334\332!\210)\352 \210o\204m\353y\210\354\355p!`\"\210\330\332!\210\3551!\211 E\203\220r\356E!q\210\354Ee\"\210))\342\357!\210\312.\207" [gnus-summary-buffer summary-buffer gnus-article-internal-prepare-hook gnus-tmp-internal-hook gnus-newsgroup-name group derived-mode-p gnus-summary-mode nil gnus-article-setup-buffer 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 0 gnus-configure-windows summary article gnus-set-global-variables gnus-set-mode-line gnus-data-find-in 3 mail-header-p 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 window-buffer gnus-article-prepare-hook result gnus-article-buffer transient-mark-mode 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 cl-x all-headers gnus-show-all-headers gnus-have-all-headers gnus-break-pages window] 4 (#$ . 139968)])
#@51 Make the current buffer look like a nice article.
(defalias 'gnus-article-prepare-display #[nil "p\306\307\310\311!\204 \311 \210\306\211\306\312\313!\210
\203
\210
\205' \314 +\207" [inhibit-read-only buffer-read-only gnus-article-buffer gnus-article-wash-types gnus-article-image-alist gnus-display-mime-function nil t derived-mode-p gnus-article-mode gnus-run-hooks gnus-tmp-internal-hook gnus-mime-buttonize-attachments-in-header gnus-mime-display-attachment-buttons-in-header] 4 (#$ . 142405)])
(defvar gnus-sticky-article-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-sticky-article-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar gnus-sticky-article-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-sticky-article-mode-abbrev-table gnus-sticky-article-mode-map variable-documentation put purecopy "Keymap for `gnus-sticky-article-mode'." boundp gnus-sticky-article-mode-syntax-table definition-name gnus-sticky-article-mode (lambda (#1=#:def-tmp-var) (defvar gnus-sticky-article-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-sticky-article-mode'." (lambda (#1#) (defvar gnus-sticky-article-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-sticky-article-mode'." derived-mode-parent gnus-article-mode] 5)
#@251 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 or penultimate 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*\325\"\204V *+=\204V \326*\325+C#\210\327 !\210\330\f!\210*+\331\332\333 #\210\331\334\333 #\210\335\336 ,\211 -\203\215 -@,\337 ,\336#\210-A\211-\204x *\337 \340\341#\210\337 \342\343#\210\337 \344\345#\210\337 \346\347#\210)\350\351!\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 abbrev-table-get :parents abbrev-table-put 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 --dolist-tail--] 6 (#$ . 144258) 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\211\211 *\205\216 \337\340*!\211*!\205\216 *)\203\244 rq\210\341\342!)\203\244 \343!\210\202\251 \344\324\"\342 \210,)\345 \210\346 \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 #[nil "\301!\207" [#1# select-window] 2] 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" "*" buffer-live-p get-buffer derived-mode-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 buffer] 7 (#$ . 145749) "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\302\303!\205. \211\211\205# \304\305!\211!\205# )\205- \306 !\210\307 ))\207" [buffer buf derived-mode-p gnus-sticky-article-mode buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 4 (#$ . 147097) nil])
#@82 Kill all sticky article buffers.
If a prefix ARG is given, ask for confirmation.
(defalias 'gnus-kill-sticky-article-buffers #[(arg) "\304 \305\211\205K @rq\210\306\307!\203B \n\203# \310\311\312\"!\203B \211\211\2056 \313\314 !\211!\2056 )\203A \315!\210\316 \210)) A\211\204 \305*\207" [buf --dolist-tail-- arg buffer gnus-buffers nil derived-mode-p gnus-sticky-article-mode yes-or-no-p format "Kill buffer %s? " buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 5 (#$ . 147532) "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" (#$ . 148047))
(defvar gnus-mime-button-line-format-alist '((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)))
(defvar 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...")))
(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])
(defvar gnus-mime-button-map (byte-code "\304 \305\306\307#\210\305\310\307#\210\305\311\312#\210 \313\211\2030 @\305\nA@\n@#\210 A\211\204 *)\207" [map gnus-mime-button-commands c --dolist-tail-- make-sparse-keymap define-key "
" gnus-article-push-button [mouse-2] [down-mouse-3] gnus-mime-button-menu nil] 5))
#@19 MIME button menu.
(defvar gnus-mime-button-menu nil (#$ . 150011))
(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) "\301AA@@\302\303$\207" [c vector :active t] 5]] 8)
(defvar gnus-url-button-commands '((gnus-article-copy-string "u" "Copy URL to kill ring") (push-button "
" "Push the button") (push-button [mouse-2] "Push the button")))
(defvar gnus-url-button-map (byte-code "\304 \305\211\203 @\306\nA@\n@#\210 A\211\204 *)\207" [map gnus-url-button-commands c --dolist-tail-- make-sparse-keymap nil define-key] 5))
#@18 URL button menu.
(defvar gnus-url-button-menu nil (#$ . 150683))
(byte-code "\302\303\304\305\306\307 \"B$\207" [gnus-url-button-map gnus-url-button-commands easy-menu-do-define gnus-url-button-menu "URL button menu." "Url Button" mapcar #[(c) "\301AA@@\302\303$\207" [c vector :active t] 5]] 8)
#@44 Bind some mm-* variables and execute BODY.
(defalias 'gnus-bind-mm-vars '(macro . #[(&rest body) "\301\302\303BBB\207" [body let (mm-html-inhibit-images mm-html-blocked-images (mm-w3m-safe-url-regexp mm-w3m-safe-url-regexp)) (with-current-buffer (cond ((derived-mode-p 'gnus-article-mode) (if (gnus-buffer-live-p gnus-article-current-summary) gnus-article-current-summary (current-buffer))) ((gnus-buffer-live-p gnus-summary-buffer) gnus-summary-buffer) (t (current-buffer))) (setq mm-html-inhibit-images gnus-inhibit-images mm-html-blocked-images (gnus-blocked-images)) (when (or (not gnus-newsgroup-name) (and (stringp gnus-safe-html-newsgroups) (string-match gnus-safe-html-newsgroups gnus-newsgroup-name)) (and (consp gnus-safe-html-newsgroups) (member gnus-newsgroup-name gnus-safe-html-newsgroups))) (setq mm-w3m-safe-url-regexp nil)))] 4 (#$ . 150988)]))
#@54 Construct a context-sensitive menu of MIME commands.
(defalias 'gnus-mime-button-menu #[(event prefix) "\305 \306\216\307 !\310\n\211@\262!\210\311\n!b\210\312 \210\313 \314\f#+\207" [#1=#:wconfig event pos gnus-mime-button-menu prefix current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] event-start select-window posn-point gnus-article-check-buffer popup-menu nil] 4 (#$ . 151857) "e\nP"])
#@26 View all the MIME parts.
(defalias 'gnus-mime-view-all-parts #[(&optional handles) "rq\210 \206 \n r\fq\210
) \211\205\266 \306 !\210eb\210\307\310!\204) db\210\311 `d|\210\312\211 r\313\314!\203d \211 \205W \315\316!\211!\205W )\203` \202\202 p\202\202 \f\211 \205y \315\316!\211!\205y )\203\201 \f\202\202 pq\210\317 \203\256 ;\203\240 \320 \"\204\256 :\203\261 \235\203\261 \312)\321 !,,\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 nil derived-mode-p gnus-article-mode buffer-live-p get-buffer gnus-blocked-images string-match mm-display-parts mail-parse-ignored-charsets mail-parse-charset inhibit-read-only mm-w3m-safe-url-regexp mm-html-blocked-images mm-html-inhibit-images gnus-article-current-summary buffer gnus-inhibit-images gnus-newsgroup-name gnus-safe-html-newsgroups] 4 (#$ . 152288) nil])
#@22 Jump to MIME part N.
(defalias 'gnus-article-jump-to-part #[(n) "rq\210 G)\211\305U\203 \306\307!\210\310!\210 \204+ \n\311U\203$ \311\202* \312\313\314\n\"! \250\203< \nX\203< \311Y\204E \315\316\317 \n$\210\n\315\320\321 #\210\f\311Y\203e \nX\205\202 \322 !?\205\202 T\211\202R \f\305W\203 \311Y\205\202 \322 !?\205\202 S\211\202l \322 !)\207" [gnus-article-buffer gnus-article-mime-handle-alist parts n gnus-auto-select-part 0 error "No such part" pop-to-buffer 1 read-number format "Jump to part (1..%s): " gnus-message 7 "Invalid part `%s', using %s instead." 9 "Jumping to part %s." gnus-article-goto-part] 6 (#$ . 153284) "P"])
#@115 ID of a mime part that should be buttonized.
`gnus-mime-save-part-and-strip' and `gnus-mime-delete-part' bind it.
(defvar gnus-mime-buttonized-part-id nil (#$ . 153941))
#@54 Replace MIME part under point with an external body.
(defalias 'gnus-mime-replace-part #[(file) "\301\302!!\204
\303\304\"\210\305!\207" [file file-regular-p file-truename error "Can't replace part with %s, which isn't a regular file" gnus-mime-save-part-and-strip] 3 (#$ . 154117) (list (read-file-name "Replace MIME part with file: " (or mm-default-directory default-directory) nil t))])
#@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\"\f\204/ \205. \317 \320\"\f\205r @q\210\321 \210\322 \211@;\203J \211@\262\202P \211A@@\262\261\210\323 A@A\324\"\210\325\326\327\330\f!\"!\210\331c\210\332\333 \331\261\210\334c\210\331c\210) \335\336\337\340\fBE\335\211\211\211\211\211\257A\241\210 \n \341\342\335\343\344\345\346\347\350@DED\351\346\352\350ADED\353BB\354\355\356\350 DD\357BBBBBF\342\360\344\345\346\347\350@DED\361\362\351\346\352\350ADEDF\363BB\364B\365H\206\330 \366\307 C\367BBBBF\370#\210
D\371 \210)\372\373!\210\374\375!\210rEq\210F)\211\205
\205G\250\205\376
G\\\377] G^!++\207" [gnus-article-mime-handles data id handles file current-id 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 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" nil "message/external-body" (access-type . "LOCAL-FILE") name gnus-article-edit-article lambda (buffer-disable-undo) 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) (delete-region (point-min) (prog1 (goto-char (point-max)) (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)) (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-configure-windows article sit-for 0 gnus-article-jump-to-part 1 gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer gnus-mime-buttonized-part-id gnus-article-buffer gnus-article-mime-handle-alist gnus-auto-select-part] 13 (#$ . 154518) 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!\205A\316`\317\"\316`\320\" \321\n8\211 \2057 \322
!) @\323\n!\206A \324 A\n\211@;\203Q \211@\262\202W \211A@@\262 B\n\204a \310\325!\210r\n@q\210\326 C\327 \210\330B\331A\332\333\334C\211\335U\203\202 \336\202\203 \337#@\205\216 \340@\341Q\342\260c\210\n\343\344\343\211\345C\333\346C\"\343\211\257A\241\210*\f D \347\350\343\351\352\353\354\355\356EDED\357\354\360\356FDED\361BB\362\363\364\356\fDD\365BBBBBF\350\366\352\353\354\355\356EDED\367\370\357\354\360\356FDEDF\371BB\372G\321H\206\370 \336\307 H\373BBBBF\374#\210D I\375 \210)\376\377!\210\201M \201N !\210rJq\210K)\211 \205?D\205?L\250\205?\201O DL\\\335]\fG^!. \207" [gnus-article-mime-handles gnus-expert-user data id handles desc 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 5 mail-decode-encoded-word-string mm-handle-filename "(none)" "No MIME part under point" buffer-size erase-buffer ",----\n| The following attachment has been deleted:\n|\n| Type: " "\n| Filename: " "\n| Size (encoded): " format "%s byte%s\n" 1 "" "s" "| Description: " "\n" "`----\n" nil ("text/plain" (charset . gnus-decoded)) "attachment" "Deleted attachment (%s bytes)" gnus-article-edit-article lambda (buffer-disable-undo) 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) (delete-region (point-min) (prog1 (goto-char (point-max)) (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)) (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 (no-highlight) t gnus-article-edit-done gnus-configure-windows article description filename type bsize current-id gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer gnus-mime-buttonized-part-id gnus-article-buffer gnus-article-mime-handle-alist gnus-auto-select-part sit-for 0 gnus-article-jump-to-part] 14 (#$ . 157135) 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 (#$ . 159952) nil])
#@70 Pipe the MIME part under point to a process.
Use CMD as the process.
(defalias 'gnus-mime-pipe-part #[(&optional cmd) "\302 \210\303`\304\"\211\205 \305 \")\207" [data cmd gnus-article-check-buffer get-text-property gnus-data mm-pipe-part] 4 (#$ . 160168) 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 (#$ . 160439) 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= \211@\202A \211A@@\262\314\"@\262\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)] 5])
#@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\n\203 \310\n\311 \"\202 \311 \312\211\211 @&)\313 \210\314`\315\"\211\205\200 \211@;\203: \211@\262\202@ \211A@@\262\316\232\203S \317 8\204O \320 !\210\317 8 @ A@AB\321 8\322 8\323 8\324 8\312\325 8\257\326\f \"\327 !\203} \330 !\210\331 !)\207" [mime-type default pred handle gnus-article-mime-handles gnus-mime-view-part-as-type-internal gnus-completing-read "View as MIME type" seq-filter 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 (#$ . 161247) 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\352 \311!\312\211\211\211 \313\314! %r%q\210\315\216\316 \210\317!\210\3201< \321
\312\322#0\202B \210\323\202E \206G \324 +
\203S \325
!\202\\ \203[ \326\202\\ \327 \204\244 &\204\221 \330A@\302\"\211\204\244 \313\314! 'r'q\210\331\216\316 \210\fc\210\332 +\211\204\244 (\202\244 &\247\203\244 &)\236A\206\243 \333\334!\335\313
!!\210 \204\302 \n\203\322 \336\n\312\323#\211\203\322 \337=\204\322 \340 \210\341\f \"c\210*+\202\334 \316 \210\fc\210,+\342\216\343
!-\344 \210)eb-\207" [handle coding-system charset dont-decode contents filename gnus-article-check-buffer get-text-property gnus-data mm-handle-filename nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part (error) mm-decompress-buffer sig t buffer-string file-name-nondirectory "*raw data*" "*decoded*" mail-content-type-get #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] mm-find-buffer-file-coding-system read-coding-system "Charset: " switch-to-buffer mm-charset-to-coding-system ascii mm-enable-multibyte decode-coding-string #[nil "\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 last-coding-system-used buffer-file-coding-system mm-binary-coding-system buffer-file-name] 5 (#$ . 162134) (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* \211@\262\2020 \211A@@\262\316\" \205o \f\203X \317\216\320 \"\210\321
\322\323\324!\322\325\f A@#&)\202o \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 make-temp-file expand-file-name "mm." mailcap-mime-info "print" #[nil "\301!\207" [file delete-file] 2] mm-save-part-to-file call-process nil generate-new-buffer " *mm*" mm-mailcap-command " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] gnus-print-buffer ps-despool shell-command-switch #1# filename] 11 (#$ . 163811) (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\307`\n\203- \n\310 \311\"=\203 \2023 \312 \210\313`d\311\n$\2063 \313e`\311\n$\2023 \310 \311\" \314 \n\205 \315 \311\314d$\316\f\311\"U\203N
\204g \317\n8\203g \320 !\320 !\321\n!\210\202\225
\203\207
\247\203} \317\n8\203\207 \321\n!\210\202\207 \317\n8\203\207 \321\n!\210\fb\210n\204\221 \322y\210\323\n!\210\324 !\203\244 \325 ! \314\211\223\210 b\210\326\n! '\327\n\310 \330\"'C#\210`\315`\311\314d$|\210`\331\332\314\307#\203\343 \fb\210'\204l\204\333\fS\f{\334\307#c\210\202\335\336!\210\337 `\" (\340(\341\307#\210\340(\342\307#\210)\214\343 \210\344 )\345\346!\210*)\324 !\203\325 ! \314\211\223\210 b,\207" [inhibit-read-only b handle btn start arg gnus-article-check-buffer t get-text-property gnus-data article-goto-body text-property-any nil next-single-property-change previous-single-property-change 3 copy-marker mm-remove-part 1 mm-display-inline markerp marker-position mm-handle-displayed-p gnus-insert-mime-button gnus-part search-backward "\n\n" propertize gnus-undeletable delete-char -1 make-overlay overlay-put gnus-button-attachment-extra evaporate message-narrow-to-field ((gnus-treat-highlight-headers gnus-article-highlight-headers)) gnus-treat-article head displayed-p ovl gnus-treatment-function-alist] 7 (#$ . 164704) (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\205( @\310\n\"\210 A\211\204 \307*\207 \211@;\2038 \211@\262\202> \211A@@\262\311\232\203S \312 8\204M \313 !\210\312 8\202T A@ \300\fA\236\211 \203f
\241\202n \f\300B\fAB\241*\207" [charset handle h --dolist-tail-- type param symbol-name nil gnus-mime-set-charset-parameters "message/external-body" 6 mm-extern-cache-contents] 4 (#$ . 166205)])
#@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\307 \2053 \236A\2061 \314\315!\211\3168\203= \317!\210\205\307 \320\f\"\210\243\211:\203\303 \3211Y \322 \2360\202[ \210\313\211\203\303 AA@\211\203\303 \n@\323=\203t \nA@\n\307`\310\"\232\204\303 \307`\324\"\211\203\303 \236A\211\203\303 \211@;\203\236 \211@\262\202\244 \211A@@\262\325\232\203\303 \326 A!\211\203\303 AA\323\n \235A@\206\300 @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 read-coding-system "Charset: " 3 mm-remove-part gnus-mime-set-charset-parameters (error) gnus-mime-display-alternative quote gnus-part "multipart/alternative" reverse fun arg gnus-summary-show-article-charset-alist gnus-article-mime-handle-alist] 8 (#$ . 166750) (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\nr\fq\210
) \211@;\203& \211@\262\202, \211A@@\262 \312! \313 ;\204D \314\311\315\"\202M \205M \316\311\313#.\207" [handle mm-inlined-types gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets gnus-article-check-buffer get-text-property gnus-data nil mailcap-mime-info t gnus-mime-view-part-as-type #[(type) "\301!;\207" [type mailcap-mime-info] 2] mm-display-part mail-parse-ignored-charsets type method mm-enable-external] 4 (#$ . 167824) 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\312 r
q\210) \312 \313!\204+ \314\315\316\"\202\267 \205\267 \315\211 r\317\320!\203c \211 \205V \321\322 !\211 !\205V )\203_ \202\201 p\202\201
\211 \205x \321\322 !\211 !\205x )\203\200
\202\201 pq\210 \323 \203\255 ;\203\237 \324 \"\204\255 :\203\260 \235\203\260 \315)\325\315\312#+.\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 #[(type) "\302 \"\207" [handle type mm-inlinable-p] 3] derived-mode-p gnus-article-mode buffer-live-p get-buffer gnus-blocked-images string-match mm-display-part gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets inhibit-read-only mm-w3m-safe-url-regexp mm-html-blocked-images mm-html-inhibit-images gnus-article-current-summary buffer gnus-inhibit-images gnus-newsgroup-name gnus-safe-html-newsgroups] 5 (#$ . 168489) 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 (#$ . 169710) (list (gnus-completing-read "Action" (mapcar #'car gnus-mime-action-alist) t))])
#@152 Call FUNCTION on MIME part N.
Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument.
If INTERACTIVE, call FUNCTION interactively.
(defalias 'gnus-article-part-wrapper #[(n function &optional no-handle interactive) "\306\211\n\211\205 \307\310 !\211!\205 )\203, \311\n\312\"\211\203, \313\314 !\211!\2040 \315\316!\210r\nq\210r\fq\210
\317`\320\"\211\203E \321!\210\210\317`\322\"\206O \323 )=\204X \315\324!\210-\203f \325-!-\202\257 ` .\317.\326\"\206\254 o\204~ \317.S\326\"\206\254 \317\327y\210`.b\210\326\"\206\254 \317\330.\326\"\211.\203\236 .S\206\246 \331`\326\"\206\246 `\326\"\206\254 \327-)-/GV\203\274 \315\332!\210)\333 \334 \335\336 !\210!\210\337-!\2052\340 \203\345 \341`\342 \"\343 S\344\245V\204\355 \345\343 S\344\245!\210\312\346\347 0 1 2\350\2163\203 4\203 \3515!\210\20203\2035 \210\20204\203(\3515\317`\352\"\"\210\20205\317`\352\"!\210,\312?\205P6\203A\315\332!\202P\312 6\353 \210\354-53#)*\207" [frame window gnus-article-buffer buffer gnus-summary-buffer gnus-current-article nil buffer-live-p get-buffer 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 select-frame-set-input-focus selected-frame gnus-article-goto-part pos-visible-in-window-p count-lines window-end window-height 3 recenter "=>" point-marker #[nil "\304\211\223\210 ?\205 \305\n!\210\306 !\207" [overlay-arrow-position gnus-auto-select-part frame window nil select-frame-set-input-focus select-window] 3] call-interactively gnus-data 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 (#$ . 170037)])
#@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 (#$ . 172106) "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 (#$ . 172284) "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 (#$ . 172462) "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 (#$ . 172682) "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 (#$ . 172867) "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 (#$ . 173096) "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 (#$ . 173314) "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 (#$ . 173505) "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 (#$ . 173748) "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 (#$ . 173969) "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 (#$ . 174209) "P"])
(defalias 'gnus-article-mime-match-handle-first #[(condition) "\203v \305\n\305\211 \203n \f@\306!\203 A!\202O \307\267\202N \310 A8\206B A\211@;\203: \211@\262\202@ \211A@@\262\311\232?\202O \310 A8?\202O \312\203g \313 @!\203g \203d @ W\203g @\fA\211\204 * \206t \314)\207\314\207" [condition n gnus-article-mime-handle-alist ihandle --dolist-tail-- nil functionp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (undisplayed 36 undisplayed-alternative 70)) 3 "multipart/alternative" t gnus-article-goto-part 1] 3])
#@125 View MIME part N, which is the numerical prefix.
If the part is already shown, hide the part. If N is nil, view
all parts.
(defalias 'gnus-article-view-part #[(&optional n) "rq\210 \247\204
\305\n! GV\203 \306\307!\210 \236A \310 !\205< \f@\311\232\2032 \312 \210\313 \202< \314\f!\315=\205< \316 *\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" beginning-of-line gnus-article-press-button gnus-mm-display-part internal gnus-set-window-start] 2 (#$ . 175017) "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\311 \211\205 \312\313\n!\211!\205 \n)\205$ r q\210 )\314\211 - . / 0 1 2\315\216\316p\310\"\211 3\203I \3173!\2101b\210)\3201\321\314d$\322
\321\"1\3234!\203m \3241!1\3254!\202\206\3264!\203 \3274!\203 \310\202\330\331! 5r5q\210\332\216\314\2116 6 7 8r\333\334!\203\273 9\211\205\256 \312\313\n!\211!\205\256 \n)\203\267 9\202\325 p\202\325 \211\205\314 \312\313\n!\211!\205\314 \n)\203\324 \202\325 pq\210:8\335 7;\203<;\203\363 \336<;\"\204<:\203;<\235\203\3146)\3254!+\337 \340U?\205\341 + =
b\210n\204\"\342y\210=;\203{\214`=c\210n\2045\343c\210`}\210\344\3142\345>@!\203H\342\202L>GS4\211@;\203[\211@\262\202a\211A@@\262$\210\3464\233\347\314\350\351\352\324e\310\"\353 EEE\240\210)\202\205=\203\205\3544!\210))\f.\207" [gnus-newsgroup-charset gnus-summary-buffer buffer gnus-newsgroup-ignored-charsets retval start get-text-property gnus-part t selected-window buffer-live-p get-buffer nil #[nil "\306!\203 \307!\310\211\223\210b\210\311 !\312 \nC#\210`\313`\314\310d$|\210`\315\316\310\317#\203H \fb\210\n\204j l\204j \320\fS\f{\321\317#c\210\202j \322\323!\210\324`\" \325
\326\317#\210\325
\327\317#\210)\214\330 \210\331 \332\333!\210*)b\210\334 !\205y \335 !\207" [point handle displayed-p id start ovl markerp marker-position nil mm-handle-displayed-p gnus-insert-mime-button next-single-property-change gnus-data search-backward "\n\n" t propertize gnus-undeletable delete-char -1 make-overlay overlay-put gnus-button-attachment-extra evaporate message-narrow-to-field ((gnus-treat-highlight-headers gnus-article-highlight-headers)) gnus-treat-article head window-live-p select-window gnus-treatment-function-alist window] 6] gnus-get-buffer-window select-window next-single-property-change gnus-data previous-single-property-change mm-handle-displayed-p copy-marker mm-display-part mm-inlinable-p mm-inlined-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] derived-mode-p gnus-article-mode gnus-blocked-images string-match buffer-size 0 buffer-string 1 "\n" gnus-treat-article bufferp 3 lambda let ((inhibit-read-only t)) delete-region point-max-marker mm-display-inline mail-parse-ignored-charsets mail-parse-charset window inhibit-read-only point id win handle #1# mm-w3m-safe-url-regexp mm-html-blocked-images mm-html-inhibit-images gnus-article-current-summary gnus-inhibit-images gnus-newsgroup-name gnus-safe-html-newsgroups part gnus-article-mime-handles] 10 (#$ . 175860)])
#@20 Go to MIME part N.
(defalias 'gnus-article-goto-part #[(n) "\203 ~\210\306 \210\307`d\310 $\206 \307e`\310 $\311\211\211\211\211 \211 \205\241 b\210\312\313\"\211\203< \202\241 \314
\204\203 \203\203 \fW\203\203 \315\f\313\311$\211\203\203 \312\313\"\211B\nB\316
!\204C \311\307\f\313\311$\202C
\204\223 \317\320\321\n\"\237!\n\236A\203\237 Tb\202\241 .\203\252 \322 \210\207" [gnus-break-pages n handles next end handle article-goto-body text-property-any gnus-part nil get-text-property gnus-data point-at-eol text-property-not-all mm-handle-displayed-p mm-preferred-alternative mapcar car gnus-narrow-to-page part start] 7 (#$ . 178512)])
(defalias 'gnus-insert-mime-button #[(handle id &optional displayed) "\306!\206 \307A@\310\"\206 \311 \211@;\203 \211@\262\202% \211A@@\262\3128\206, \311\n\2035 \n@\2028 \313!\203? \311\202@ \314r@q\210\315 )\316\211\211 # $ % & ' (\317\320(\"\203k \321\311\322\211($(&(\311\232?\205y \323(PP%\311\232\204\206 \324
P`\325)*\326+\327\330\331'\332\333\334\335BBBBBBBBBB#\210n\203\257 `S\202\260 `\336\f \326+\337,\340\322\341\342&\n. \207" [handle id displayed e b gnus-tmp-type-long mm-handle-filename mail-content-type-get url "" 5 mm-handle-displayed-p "..." buffer-size nil string-match ".*/" replace-match t "; " " --- " gnus-eval-format keymap gnus-callback gnus-mm-display-part gnus-part article-type annotation gnus-data (rear-nonsticky t) make-text-button face follow-link help-echo "mouse-2: toggle the MIME part; down-mouse-3: more options" gnus-tmp-length gnus-tmp-dots gnus-tmp-description gnus-tmp-type gnus-tmp-id gnus-tmp-name gnus-mime-button-line-format gnus-mime-button-line-format-alist gnus-mime-button-map gnus-article-button-face] 14])
(defvar gnus-displaying-mime nil)
#@25 Display the MIME parts.
(defalias 'gnus-display-mime #[(&optional ihandles) "\212\306 r\307\216\310 !`\211\203 \311 !\210\312 \n\"\210*\f\313 \211 \204E \314\315!\"\211 \203< \"\203E \316 !\210\202E \"\203E \317 \f\204i #\204i $\203[ \320$!\210\315% $&\203i \321 !\210 \203\227 @;\203{ A\203\227 \f\204\213 #\204\213 \322 \210`d|\210\313 #\323 !\210)\202\251 \214\322 \210`d}\210\324\315\325\211\326$\210~\210)\f\204\212\214\322 \210e`}\210\313 'eb\210\327\330\315\313#\205\313 n?\205\313 \331\225\211 (\205\337 \327\332\315\313#\205\337 \333(\331\224\" )db\210\334\315x\210\335e`\336)$\210\324\337!\210db\210\334\315x\210\335e`\336)$\210--db\210n?\205\334c)\207" [save-selected-window--state gnus-article-buffer point window ihandles inhibit-read-only internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] get-buffer-window select-window set-window-point t mm-dissect-buffer nil 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 "text/plain" re-search-forward "^date:[ \n ]+" 0 "[ ]*\n\\(?:[^ ]\\|\\'\\)" buffer-substring-no-properties "\n" put-text-property original-date head 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 (#$ . 180338)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\304\305\306\307& \210\300\314\302\315\312\313\304\305\306\307& \210\300\316\317\320\312\321\304\305\306\307& \207" [custom-declare-variable gnus-mime-display-multipart-as-mixed nil "Display \"multipart\" parts as \"multipart/mixed\".\n\nIf t, it overrides nil values of\n`gnus-mime-display-multipart-alternative-as-mixed' and\n`gnus-mime-display-multipart-related-as-mixed'." :group gnus-article-mime :type boolean gnus-mime-display-multipart-alternative-as-mixed "Display \"multipart/alternative\" parts as \"multipart/mixed\"." :version "22.1" gnus-mime-display-multipart-related-as-mixed "Display \"multipart/related\" parts as \"multipart/mixed\".\n\nIf displaying \"text/html\" is discouraged (see\n`mm-discouraged-alternatives') images or other material inside a\n\"multipart/related\" part might be overlooked when this variable is nil." gnus-mime-display-attachment-buttons-in-header t "Add attachment buttons in the end of the header of an article.\nSince MIME attachments tend to be put at the end of an article, we may\noverlook them if there is a huge body. This option offers you a copy\nof all non-inlinable MIME parts as buttons shown in front of an article.\nIf nil, don't show those extra buttons." "25.1"] 10)
(defalias 'gnus-mime-display-part #[(handle) "?\206{ @;\204 \306!\207\307@ \"A\203! \307@ \"A!\207@\310\232\203C \n\204C \204C \fGT\211 B\fB\311A\312\211
$)\207@\313\232\203Y \n\204Y \204Y \314A@!\207@\315\232\203h \316\317!\210\320!\207@\321\232\203w \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] 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 \211@\262\202 \211A@@\262 \306\307\211 .\3052\266
\203: \310
\211A\242.\"\203\" \311\305\307\"\210\202\" /\211 0\205P \312\3130!\2110!\205P 0)\203_ r/q\2101)\202a 1\203l \310\314.\"\204\251 \315!?\205\206 \3168?\206\206 \3168@\317\232\206\206 \320!\211\203\251 \321!\203\251 \322!\203\235 \323!\204\244 \324.!\203\251 \306\202\311 \325\211@;\203\267 \211@\202\273 \211A@@\262\326\"@\262\327\232\203\311 \306\3302\"@\307 3\211 4\204\346 2GT\2114B2B2 \203*\325\211@;\203\370 \211@\202\374 \211A@@\262\326\"@\262\331\232\203*\332\333n\204\334\202(o\204#`S\206 `Sf\333=\203'\335\202(\336\"\210 \203=\337.!\203=45=\203M\3404 \206J\f\205J\nC#\210`3 \203\3736\212\3411b/q0\202f\210\202g\2107) 8 9\307\211: : ; <r\342\343!\203\242=\211 0\205\225\312\3130!\2110!\205\2250)\203\236=\202\302p\202\302/\211 0\205\270\312\3130!\2110!\205\2700)\203\301/\202\302pq\2101<\344 ;>\203\356?;\203\340\310?>\"\204\356?:\203\361>?\235\203\361\307:)\345\306\"\210-\202\n\203\f\203\346!\210db\210\310\314.\"\203\347 \210\2027\350\307x\351Um\204$\336u\210\203-\347 \210\2024\352`d\353\306$\210db\210\212\2143`}\210@=\203a\354\307\336\211\211@;\203W\211@\262\202]\211A@@\262$\202\264\307 A@\307 B\211 C\203\223C@\211B;\204\212BA@@\355\232\204\212BABACA\211C\204o*\354\307A>GAG\211@;\203\254\211@\262\202\262\211A@@\262$),0-\207" [handle gnus-ignored-mime-types text display not-attachment ignored t nil string-match throw buffer-live-p get-buffer "\\`image/" 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 split-string "/" "text" rassq "message" insert-char 10 2 0 1 gnus-unbuttonized-mime-type-p gnus-insert-mime-button (error) derived-mode-p gnus-article-mode gnus-blocked-images mm-display-part mm-display-inline gnus-article-insert-newline "\n" -1 put-text-property gnus-undeletable gnus-treat-article "application/pgp-signature" type gnus-summary-buffer buffer gnus-inhibit-images gnus-article-mime-handle-alist beg id gnus-mime-buttonized-part-id gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-w3m-safe-url-regexp mm-html-blocked-images mm-html-inhibit-images gnus-article-current-summary gnus-newsgroup-name gnus-safe-html-newsgroups gnus-article-mime-handles handles part --dolist-tail--] 7])
#@41 Say whether TYPE is to be unbuttonized.
(defalias 'gnus-unbuttonized-mime-type-p #[(type) "?\205G \3052$ \n\205\" \306\n\211A\242 \"\203 \307\305\310\"\210\202 )0\205G \3052F \f\n\205D \306\n\211A\242 \"\203- \307\305\310\"\210\202- )0?\207" [gnus-inhibit-mime-unbuttonizing gnus-unbuttonized-mime-types types type gnus-buttonized-mime-types found string-match throw t] 3 (#$ . 186731)])
#@47 Insert a newline, but mark it as undeletable.
(defalias 'gnus-article-insert-newline #[nil "\300`\301c\210`\302\303$\207" [put-text-property "\n" gnus-undeletable t] 5 (#$ . 187133)])
(defalias 'gnus-mime-display-alternative #[(handles &optional preferred ibegend id) "\206 \306 ! `\307 \310 \307\211 6 7\307 8\311 9\312\216\214:\203A :@:A\2067 :@b\210\313y\210`}\210ed|\210\314 !\210\315 C7\n\235A@\2118\204U \n@8:\204d \203d \316\317!\204/\320`\2116\321\322;\"c\210`\323\324\325\326:?\327\330\331DEE\332\331\nD\3318D\3317D;\257F\333<\334=\335>\336\310\337;\340BBBBBBBBBBBB#\210 \211A\242\211\203,\320`\2116\321\341\f\232\203\311 \342\202\312 \343\f\211@;\203\330 \211@\262\202\336 \211A@@\262#c\210`\323\324\344\326:?\327\330\331DEE\332\331\nD\331\fD\3317D;\257F\333<\334=\335>\336\310\337;\345\310\346\f\347BBBBBBBBBBBBBBBB#\210\350c\210\202\256 \351c\210\203@;\203@\352!\210\202 ?r@q\210A) B C\307\211D D E Fr\353\354!\203\202G\211 H\205u\355\356H!\211H!\205uH)\203~G\202\242p\202\242@\211 H\205\230\355\356H!\211H!\205\230H)\203\241@\202\242pq\210IF\357 EJ\203\316K;\203\300\360KJ\"\204\316K:\203\321JK\235\203\321\307D)\361!\210+\212\2147@d}\210\362\307G\363L@!\203\360\364\202\364LGS\211@;\203\211@\262\202\211A@@\262$\210,db\2107\315 \241\210+:\203 b\210.M\205&\365 \207" [preferred handles ihandles point handle inhibit-read-only mm-preferred-alternative nil t current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] 2 mm-remove-parts point-marker gnus-unbuttonized-mime-type-p "multipart/alternative" add-text-properties format "%d. " gnus-callback lambda (handles) unless setq gnus-article-mime-handle-alist quote gnus-mime-display-alternative keymap mouse-face face follow-link gnus-part (button t article-type multipart rear-nonsticky t) "(%c) %-18s" 42 32 (handles) button gnus-data (rear-nonsticky t) " " "\n\n" gnus-display-mime derived-mode-p gnus-article-mode buffer-live-p get-buffer gnus-blocked-images string-match mm-display-part gnus-treat-article bufferp 1 gnus-mime-buttonize-attachments-in-header from begend not-pref #1# ibegend id gnus-mime-button-map gnus-article-mouse-face gnus-article-button-face gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-w3m-safe-url-regexp mm-html-blocked-images mm-html-inhibit-images gnus-article-current-summary buffer gnus-inhibit-images gnus-newsgroup-name gnus-safe-html-newsgroups gnus-article-mime-handles gnus-mime-display-attachment-buttons-in-header] 21])
#@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 --dolist-tail-- 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] 7) (#$ . 189794))
(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 (#$ . 191127)])
#@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 (#$ . 191619)])
#@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 (#$ . 191788)])
#@56 Add IMAGE of CATEGORY to the list of displayed images.
(defalias 'gnus-add-image #[(category image) " \236\211\204 C\211 B\n C\244)\207" [category gnus-article-image-alist entry image] 3 (#$ . 191955)])
#@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 --dolist-tail-- nil gnus-remove-image delq gnus-delete-wash-type] 4 (#$ . 192170)])
(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 "\211\205 \304\305 !\211!\205 )\203 rq\210\n)?\205& ?\205& \306 \207" [gnus-summary-buffer buffer gnus-have-all-headers gnus-inhibit-hiding buffer-live-p get-buffer article-hide-headers] 4 (#$ . 192545)])
#@64 Put image DATA with a string ALT. Enable image to be deleted.
(defalias 'gnus-shr-put-image #[(data alt &optional flags) "\203 \304 \305\n\206\f \306\307\310##\202 \304 \305\n\206 \306\307\310#\"\211\205) \311\310 \")\207" [flags data alt image shr-put-image propertize "*" gnus-image-category shr gnus-add-image] 7 (#$ . 192909)])
(defalias 'gnus-article-mime-handles #[(&optional alist id all) "\203O \306\307\211\307 \211 \203J
@\310 C\" T\f@;\2032 \311\fA\n#\244\202C \312\313\f\"\"\210 \n\fBC\244
A\211\204 \307 -\207\307C\314!\307 \211 \203\226
@\211A@;\203| \fAA\203\217 \311\fAA\f@C #\244\202\217 \312\313\fA \" \"\210 \f@C\fABC\244
A\211\204] * A\315\316 \"\210 )\207" [alist flat newid i handle --dolist-tail-- 1 nil append gnus-article-mime-handles delq rassq reverse mapc #[(handle) "@A\203 @@T\240\210 B\211\207\211@@\240\207" [handle gnus-article-mime-handle-alist] 2] id all gnus-article-mime-handle-alist] 6])
#@278 Show attachments as buttons in the end of the header of an article.
This function toggles the display when called interactively. Note that
buttons to be added to the header are only the ones that aren't inlined
in the body. Use `gnus-header-face-alist' to highlight buttons.
(defalias 'gnus-mime-buttonize-attachments-in-header #[(&optional interactive) "\306\307!!\205\375 rq\210\310\211\311\211 \212\214~\210\312 \210 \2046 \313\314\311\310#\2036 \315\316\225\317\"\203 \316\224\211\203 ~\210 \203M \313\320\311\310#\203J \316\224\202K d|\210
\205R ?\205\373 \311\321 \311 $\211 %\203~ %@$\322$A8\204u $ B%A\211%\204c * \205\373 \323 \210\324y\210``}\210\325 A\203\227 \326\202\230 \327\330\261\210 \237\311 $\211 %\203\333 %@$`\331c\210\332$A$@\"\210\333\311x\210`d|\210i\334 V\203\322 \nb\210\335c\210\311\210%A\211%\204\247 *\335c\210\336e`\" &\337&\317\310#\210\337&\340\310#\210)\341 '\342\343!).\207" [gnus-article-buffer inhibit-read-only st buttons case-fold-search interactive buffer-live-p get-buffer t nil article-narrow-to-head re-search-forward "^attachments?:[\n ]+" get-char-property 0 gnus-button-attachment-extra "^[^ ]" gnus-article-mime-handles 3 article-goto-body -1 "Attachment" "s" "" ":" " " gnus-insert-mime-button " \n " window-width "\n" make-overlay overlay-put evaporate ((gnus-treat-highlight-headers gnus-article-highlight-headers)) gnus-treat-article head button --dolist-tail-- ovl gnus-treatment-function-alist] 6 (#$ . 193889) (list t)])
#@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\203y \320\321 #\322\216\323ed\f#*!\211\324\236A\206m \f eb\210\325\326 \"c\210!\203\220 \327ed \330\331%\210\332\333 \"\210\202\227 \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*" #[nil "\301!\205 \302!\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" coding-system-base current-window-configuration #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] select-safe-coding-system ((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# #2#] 7 (#$ . 195402)])
#@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 (#$ . 196803) "P"])
#@36 Show the next page of the article.
(defalias 'gnus-article-goto-next-page #[nil "\300 \205\f eb\210\301\302\303\"\207" [gnus-article-next-page gnus-article-read-summary-keys nil 110] 3 (#$ . 197886) nil])
#@40 Show the previous page of the article.
(defalias 'gnus-article-goto-prev-page #[nil "\214~\210o)\203
\300\301\302\"\207\303\301!\207" [gnus-article-read-summary-keys nil 112 gnus-article-prev-page] 3 (#$ . 198097) 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\204L \212\311\210\312 \205( `dY)\203L \203< \212\214~\210\311y\210m*\203F \203D \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 (#$ . 198325) "p"])
#@116 Move point to the beginning of the window.
The point is placed at the line number which `scroll-margin'
specifies.
(defalias 'gnus-article-beginning-of-window #[nil "\303\304 \305 \"\306V\205* \307\310]\311\312\313 \203 \311\202 \310\n\203$ \311\202% \310\314$]^!\207" [scroll-margin mode-line-format header-line-format count-lines window-start window-end 30 move-to-window-line 0 1 - window-height 2] 8 (#$ . 198960)])
(defalias 'gnus-article-next-page-1 #[(lines) "\3031 \304\211\305\n!*0\202 \210db\210\306 \207" [auto-window-vscroll scroll-in-place lines (end-of-buffer) nil scroll-up gnus-article-beginning-of-window] 2])
#@92 Show previous page of current article.
Argument LINES specifies lines to be scrolled down.
(defalias 'gnus-article-prev-page #[(&optional lines) "\305\306!\210\2036 o\2036 \214~\210o)\2046 \307\310!\210db\210\311 \2033 \n\203, \n \\\312]\2024 \313 \314Z\2024 \310!\207\3151D \316 \317\n!)0\202G \210eb\320 \210\207" [gnus-page-broken gnus-article-over-scroll lines scroll-margin scroll-in-place move-to-window-line 0 gnus-narrow-to-page -1 recenter 3 window-height 2 (beginning-of-buffer) nil scroll-down gnus-article-beginning-of-window] 3 (#$ . 199601) "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 "\205G \303\304!\205G \304J\205G \212\305\3062F \307\310\311\305#\203A \312u\210\313`\314\311\315\n\316\"\317\320\321\n!\"B\")\304J\"\204 \322\306\311\"\210\202 \322\306\305\"0*\207" [gnus-article-skip-boring inhibit-point-motion-hooks pos boundp gnus-article-boring-faces t only-boring re-search-forward "\\b\\w\\w" nil -1 gnus-intersection delq get-text-property face mapcar #[(overlay) "\301\302\"\207" [overlay overlay-get face] 3] overlays-at throw] 8 (#$ . 200170)])
#@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 (#$ . 200882) nil])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-article-show-summary #[nil "\211\205 \303\304 !\211!\205 )\204 \305\306!\207\307 \210\310\311!\210\312\n!\210\313 \207" [gnus-summary-buffer buffer gnus-current-article buffer-live-p get-buffer 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] 4 (#$ . 201355) nil])
#@41 Describe article mode commands briefly.
(defalias 'gnus-article-describe-briefly #[nil "\300\301\302\303\304!#\207" [gnus-message 6 "%s" 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"] 5 (#$ . 201814) nil])
#@35 Beep if not in an article buffer.
(defalias 'gnus-article-check-buffer #[nil "\300\301!?\205\n \302\303!\207" [derived-mode-p gnus-article-mode error "Command invoked outside of a Gnus article buffer"] 2 (#$ . 202239)])
#@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\211\211\211 9r:q\210;<\206 =C\244;\313\312\314\"\315 \314\")\316\317!\210\320=\203> \321\322 \"\210 \211GSH\323=\203R \324\325 \326\327#!\202\365 9\235\204e
\235\204e \f\235\203\241 \203n \247\203t \330 \210\202\224 \f\235\204~ :q\2109\203\216 \331N\203\216 \321\332\"\210\333!\210`
\235\205\365\334>!\202\365p\335 \312\211\211\211\211\211 ? @ A B C D E FG\203\313 \334:!\210\336 D\202\f\337:!\211D\203\335 \340D!\210\202\f: H\341\342!\210\337H\343\"\211D\204\377 \344 I\341\342!\210)\337H\343\"D\345\346D!!\210\340D!\210)pC9\203 \331N\203 \321\332\"\210\203\334\347!\203\334\35016\333!\210\3140\202=\211 J?)\312\203\334D\336 =\203V`\351D!A\352D!@Cp=\204hFp=\205\363Cq\210\3531r\354 0\202t\210\312BFq\210G\204\204\355E!\210B\356=\203\247\n\203\247\357\337p!\360\"\210\361\337p!\362 \203\244`S\202\245`\"\210G?\205\363\n\205\363\363D!\205\363r\364D!q\210\365\366!)\205\363\361D\n\"\210\357DA\"\210\367D@\"\202\363\355E!\210?\203\361\370?@?A\"\202\363\330 ..\207" [func gnus-pick-mode new-sum-point keys nosave-in-article nosave-but-article gnus-article-check-buffer ("q" "Q" "r" "" "m" "a" "f" "WDD" "WDW" "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" "") nil read-key-sequence t key-binding message "" undefined error "%s is undefined" 8 gnus-article-describe-bindings substring 0 -1 ding disabled "Function %s disabled" 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))))) select-frame-set-input-focus window-frame functionp (error) window-start window-hscroll (error) gnus-summary-select-article set-window-configuration old set-window-start 1 set-window-point article-goto-body window-live-p window-buffer derived-mode-p gnus-summary-mode set-window-hscroll signal nosaves gnus-article-current-summary unread-command-events key last-command-event gnus-article-buffer err new-sum-hscroll new-sum-start selected in-buffer win owin obuf not-restore-window summary-buffer gnus-buffer-configuration code] 9 (#$ . 202465) "P"])
(defalias 'gnus-article-read-summary-send-keys #[nil "\301C\302 )\207" [unread-command-events 83 gnus-article-read-summary-keys] 1 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\"\n\244\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 (#$ . 205131) (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\"\n\244\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 (#$ . 205773) (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 \313\211\211 - . /\314/\315.#\210\314.\316\313#\210\314
\317\320#\210r0q\210-\313 1\211 2\203Z 2@1\314
1\3211\322 \"#\2102A\2112\204@ *\323/\324!\211\203s \307\f!\211\323\f
\"\210\202t
\"\210\323.\321\315!\"\210\313\211\211 3 4 1-\203\370 -\211A-\2421\3251!\203\333 1G\326U\203\333 1\327H\2114:\203\333 4@\247\203\333 4A\247\203\333 4@4A]\330W\203\207 \331\332\333\3344!\237\"-\"\211-\202\211 \3211!\2114\203\207 4\320=\204\207 \314/14#\210\202\207 +\335\336!\203 \335\337!\203 )\340\341! 5r5q\210\342\216\343/!\210\344\336!\210 \344\337!\210\n \3456!\210+\346\347\350p\351BBE6D 7\352\353!\210r\313 8\354 )q\2107\2119. \207" [gnus-article-mode-map gnus-article-send-map draft agent parent summap gnus-article-check-buffer copy-keymap where-is-internal gnus-article-read-summary-keys make-sparse-keymap nil define-key "S" [t] [t] undefined key-binding current-local-map set-keymap-parent keymap-parent vectorp 1 0 128 append mapcar vector gnus-uncompress-range boundp gnus-agent-summary-mode gnus-draft-mode generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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)) require help-mode help-buffer sumkeys map keymap gnus-article-current-summary key --dolist-tail-- gnus-pick-mode def #1# prefix item help-xref-following help-xref-stack-item] 8 (#$ . 206479) 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 \203
\f\204 r
q\210\307\nCC\n\")\2025 `\310\311!{ \203( \306r
q\210\307\n DC\n\")*\207" [gnus-article-current contents article transient-mark-mode mark-active gnus-summary-buffer nil gnus-summary-reply mark t wide] 3 (#$ . 208268) 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 (#$ . 208747) 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 \203
\f\204 r
q\210\307\nCC!)\2021 `\310\311!{ \203& \306r
q\210\307\n DC!)*\207" [gnus-article-current contents article transient-mark-mode mark-active gnus-summary-buffer nil gnus-summary-followup mark t] 3 (#$ . 209045) 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) "\304\305!!\205 rq\210\306\307\n!\210\310 \210\311\n \"\210\312\n!*\207" [gnus-article-buffer inhibit-read-only arg force buffer-live-p get-buffer t article-hide-headers article-hide-list-identifiers gnus-article-hide-citation-maybe article-hide-signature] 3 (#$ . 209494) (byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3)])
(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\306 \206 \f
;\203 \311
!\210
\247\203\266 4\211 5\2057 \312\3135!\2115!\2057 5)\203\266 r4q\210\314
6\" 7\31578) 8
\316W\203\206
9>\203p
\317
9\"98\320H\311
!\202\206 \3218!\203 8\320H\202\206 \322\3238!\210\324\f!\211 :@\325=\203\265 \3218!\203\265 \3268\320H!\211 ;;\203\264 \327;!\203\264 \325\330;!\210)+
\247\203\352 4\211 5\205\321 \312\3135!\2115!\205\321 5)\203\352 r4q\210
<\236A)==\203\352 \306\202 \313>!\203
\247\203r>q\210?@ \232\205?A
=)\203\331>!\210\305\202 @\203&\332
p#\203&\305\202 \333
p#\203I\334
4#\210
\247\203E@\203E\335
p#\210\305\202 A\203^
\247\203^\336
\"\203^\305\202 \337
\"\203i\305\202
;\204s
\247\203B
;\205\202r4q\210\340 )\324\f!@\306\341 C D E F\211 B\204\244F\203\244F\211AF\242BD\204\307 \210\310 \210\306 \342 \210)\343
p#\203\355
\247\203\346\334
4#\210@\203\326\335
p#\210G\203\346\344 !\203\346\345
\"\210\305\211D\202\246F\203\376F\211AF\242B\202\244\346\347\350E!\"\204\244\351\211D\203\251D\305=\205\305-\202
)4H\313I!\203m\352p!\352\313I!!\232\203m\212\313>!\203D>q\210\202S\353>!q\210\354 \210\355J\341K\341 C\307 \210\331I!\210)
B?)\356\357!\210/L \203\232
\247\204{
;\203\232p M4q\210\360 \"\210\361 \306\341#\210\362\363p\341\"`\"\210Mq\210)*\207" [sparse-header do-update-line bidi-paragraph-direction group gnus-newsgroup-name article nil erase-buffer gnus-kill-all-overlays gnus-read-header buffer-live-p get-buffer gnus-data-find-in 3 0 delq 4 mail-header-p pseudo gnus-request-pseudo-article gnus-find-method-for-group nneething nneething-get-file-name file-directory-p gnus-group-enter-directory insert-buffer-substring 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 gnus-refer-article-methods t gnus-check-group-server gnus-request-article gnus-agent-group-covered-p gnus-agent-store-article string-match "^400 " nnheader-get-report done buffer-name gnus-get-buffer-create buffer-disable-undo gnus-original-article-mode run-hooks gnus-article-decode-hook gnus-summary-update-article gnus-summary-goto-subject set-window-point gnus-get-buffer-window gnus-summary-buffer buffer gnus-newsgroup-data cl-x 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 inhibit-read-only result backend methods gnus-agent gnus-article-current-summary gnus-article-buffer major-mode buffer-read-only gnus-article-decoded-p buf] 6 (#$ . 210277)])
#@77 Allows images in newsgroups to be shown, blocks images in all
other groups.
(defalias 'gnus-block-private-groups #[(group) "\301!\206\n \302\303\"?\205 \304\207" [group gnus-news-group-p gnus-member-of-valid global "."] 3 (#$ . 213114)])
(defalias 'gnus-blocked-images #[nil "\302!\203\n !\207\207" [gnus-blocked-images gnus-newsgroup-name functionp] 2])
#@40 Hook run in article edit mode buffers.
(custom-declare-variable 'gnus-article-edit-mode-hook nil '(#$ . 213482) :group 'gnus-article-various :type 'hook)
(defvar gnus-article-edit-done-function nil)
(defvar gnus-article-edit-mode-map nil)
(byte-code "\204 \302 \303 \"\210\304\300\305\"\210\304\306\307\"\210\302\207" [gnus-article-edit-mode-map text-mode-map 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 (#$ . 214846))
(easy-menu-do-define 'gnus-article-edit-mode-field-menu gnus-article-edit-mode-map "" '("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]))
(defvar gnus-article-edit-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gnus-article-edit-mode-hook variable-documentation put "Hook run after 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 gnus-article-edit-mode-map definition-name gnus-article-edit-mode] 4)
(defvar gnus-article-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-article-edit-mode-abbrev-table gnus-article-edit-mode-map variable-documentation put purecopy "Keymap for `gnus-article-edit-mode'." boundp gnus-article-edit-mode-syntax-table definition-name gnus-article-edit-mode (lambda (#1=#:def-tmp-var) (defvar gnus-article-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-article-edit-mode'." (lambda (#1#) (defvar gnus-article-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-article-edit-mode'." derived-mode-parent message-mode] 5)
#@280 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 or penultimate 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%\325\"\204V %&=\204V \326%\325&C#\210\327 !\210\330\f!\210%&\306\331!\210\306\332!\210\306\333!\210\334\306\335!\210\336 \306\311!\210\307 \337'(\"\210\340 \210\341)\342 \210~\210)\343\344!\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 abbrev-table-get :parents abbrev-table-put 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 (#$ . 216876) 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
\305 \203
\306\307!\210\310\311 !!\203 r q\210\312\313 \210*\314\315\316\317\320\321 \322H\206, \323\305 \f\324BBBBF\"\207" [force gnus-article-buffer inhibit-read-only gnus-current-headers gnus-summary-buffer gnus-group-read-only-p error "The current newsgroup does not support article editing" buffer-live-p get-buffer t article-date-original gnus-article-edit-article ignore lambda (no-highlight) 'ignore gnus-summary-edit-article-done 5 "" (no-highlight)] 10 (#$ . 218318) "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 (#$ . 219019)])
#@36 Update the article edits and exit.
(defalias 'gnus-article-edit-done #[(&optional arg) "p\306 ~\210
!\210\fq\210\203! \307@A\"\210\310 \210\2032 \311@A\"\210\312 \210\313ed\314#\210\315 \210\316\n!\210\fq\210\317\320\f! \"\210\321\320\f!`\"\210,\322 \207" [gnus-article-edit-done-function gnus-prev-winconf winconf start buf func window-start gnus-backlog-remove-article gnus-flush-original-article-buffer gnus-cache-update-article kill-all-local-variables set-text-properties nil gnus-article-mode set-window-configuration set-window-start get-buffer-window set-window-point gnus-summary-show-article arg gnus-keep-backlog gnus-article-current gnus-use-cache] 4 (#$ . 219562) "P"])
(defalias 'gnus-flush-original-article-buffer #[nil "\302!\205 rq\210\303\211)\207" [gnus-original-article-buffer gnus-original-article get-buffer nil] 2])
#@44 Exit the article editing without updating.
(defalias 'gnus-article-edit-exit #[nil "\306 \203 \307\310!\205M p`\300 \311 \210 \211 \205& \312\313\f!\211!\205& \f)\203. \314 !\210
\315 \210\316 \210\317!\210r\nq\210\320\321p!\"\210 b\210-\322 \207" [window-start p curbuf gnus-original-article-buffer buffer gnus-prev-winconf buffer-modified-p yes-or-no-p "Article modified; kill anyway? " erase-buffer buffer-live-p get-buffer insert-buffer-substring kill-all-local-variables gnus-article-mode set-window-configuration set-window-start get-buffer-window gnus-summary-show-article winconf] 4 (#$ . 220431) 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 (#$ . 221058) nil])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\306\307\310\311& \210\300\316\317\320\304\321\306\307\310\311& \210\300\322\323\324\304\321\310\325\306\307& \210\300\326\327\330\304\321\306\307\310\311& \210\300\331\332\333\304\321\306\307\310\334& \210\300\335\336\337\304\321\306\307\310\340& \207" [custom-declare-variable gnus-button-url-regexp browse-url-button-regexp "Regular expression that matches URLs." :version "27.1" :group gnus-article-buttons :type regexp gnus-button-valid-fqdn-regexp "\\([-A-Za-z0-9]+\\.\\)+[A-Za-z]+" "Regular expression that matches a valid FQDN." "26.1" gnus-button-valid-localpart-regexp "[-a-z0-9$%(*+./=?[_][^<>\")!;:,{}\n @]*" "Regular expression that matches a localpart of mail addresses or MIDs." "22.1" gnus-button-man-handler 'manual-entry "Function to use for displaying man pages.\nThe function must take at least one argument with a string naming the\nman page." (choice (function-item :tag "Man" manual-entry) (function-item :tag "Woman" woman) (function :tag "Other")) gnus-button-mid-or-mail-regexp (concat "\\b\\(<?" gnus-button-valid-localpart-regexp "@" gnus-button-valid-fqdn-regexp ">?\\)\\b") "Regular expression that matches a message ID or a mail address." gnus-button-prefer-mid-or-mail 'gnus-button-mid-or-mail-heuristic "What to do when the button on a string as \"foo123@bar.invalid\" is pushed.\nStrings like this can be either a message ID or a mail address. If it is one\nof the symbols `mid' or `mail', Gnus will always assume that the string is a\nmessage ID or a mail address, respectively. If this variable is set to the\nsymbol `ask', always query the user what to do. If it is a function, this\nfunction will be called with the string as its only argument. The function\nmust return `mid', `mail', `invalid' or `ask'." (choice (function-item :tag "Heuristic function" gnus-button-mid-or-mail-heuristic) (const ask) (const mid) (const mail)) 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][[:xdigit:]][[:xdigit:]][^[:xdigit:]]") (-5.0 . "^[0-9][[:xdigit:]][[:xdigit:]][[:xdigit:]][^[:xdigit:]]") (-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]")) "An alist of (RATE . REGEXP) pairs for `gnus-button-mid-or-mail-heuristic'.\n\nA negative RATE indicates a message ID, whereas a positive indicates a mail\naddress. The REGEXP is processed with `case-fold-search' set to nil." (repeat (cons (number :tag "Rate") (regexp :tag "Regexp")))] 10)
#@195 Guess whether MID-OR-MAIL is a message ID or a mail address.
Returns `mid' if MID-OR-MAIL is a message ID, `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 replace-regexp-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 (#$ . 224783)])
(defalias 'gnus-button-handle-mid-or-mail #[(mid-or-mail) "\306\307 P \310 P \311\312\313 #\210\314 !\2033 \315\316\317 #!\211\320=\204, \n\321=\2031 \n\2023 \322 \322=\203P \323 \324\216\325\326 \327Q!\203M \321\202O \320* \330\267\202n \311\331\332\f#\210\333\f!\202r \311\331\334
#\210\335
!\202r \311\336\337\",\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 replace-regexp-in-string "^<\\|>$" "" mid mail ask current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] y-or-n-p "Is <" "> a mail address? " #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mid 86 mail 98)) 8 "calling `gnus-button-handle-news' %s" gnus-button-handle-news "calling `gnus-url-mailto' %s" gnus-url-mailto 3 "Invalid string." #1#] 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 (#$ . 227367)])
(defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
#@69 Call `describe-function' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-function #[(url) "\302\303\304\305 #!!\207" [gnus-button-handle-describe-prefix url describe-function intern replace-regexp-in-string ""] 6 (#$ . 227724)])
#@69 Call `describe-variable' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-variable #[(url) "\302\303\304\305 #!!\207" [gnus-button-handle-describe-prefix url describe-variable intern replace-regexp-in-string ""] 6 (#$ . 227994)])
#@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 (#$ . 228264)])
#@64 Call `describe-key' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-describe-key #[(url) "\304\305 #\3061 \307\310\nD!0\202 \210\311\211\203 \312 !\202% \313\314\315\n#*\207" [gnus-button-handle-describe-prefix url key-string keys replace-regexp-in-string "" (error) eval kbd nil describe-key gnus-message 3 "Invalid key sequence in button: %s"] 5 (#$ . 228625)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos #[(url) "\302\303\304 #!\207" [gnus-button-handle-describe-prefix url apropos replace-regexp-in-string ""] 5 (#$ . 229026)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-command #[(url) "\302\303\304 #!\207" [gnus-button-handle-describe-prefix url apropos-command replace-regexp-in-string ""] 5 (#$ . 229254)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-variable #[(url) "\302\303\304 #!\207" [gnus-button-handle-describe-prefix url apropos-variable replace-regexp-in-string ""] 5 (#$ . 229498)])
#@59 Call `apropos' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-apropos-documentation #[(url) "\302\303\304 #!\207" [gnus-button-handle-describe-prefix url apropos-documentation replace-regexp-in-string ""] 5 (#$ . 229744)])
#@66 Call `locate-library' when pushing the corresponding URL button.
(defalias 'gnus-button-handle-library #[(url) "\303\304\305#\210\306!\307\310\311 \206 \312# \204 \303\313\314#\202# \315\n!*\207" [url lib file gnus-message 9 "url=`%s'" locate-library replace-regexp-in-string "\\.elc" ".el" "" 1 "Cannot locate library `%s'." find-file-read-only] 4 (#$ . 230000)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\302\315\304\305\306\307\310\316\312\313& \210\300\317\302\320\304\305\306\307\312\313& \210\300\321\302\322\304\305\306\307\312\313& \210\300\323\324\325\306\307\312\326&\210\327\323\330\331#\210\300\332\333\334\306\307\306\335\312\336& \210\327\332\330\331#\207" [custom-declare-variable gnus-button-man-level 5 "Integer that says how many man-related buttons Gnus will show.\nThe higher the number, the more buttons will appear and the more false\npositives are possible. Note that you can set this variable local to\nspecific groups. Setting it higher in Unix groups is probably a good idea.\nSee Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on\nhow to set variables in specific groups." :version "22.1" :group gnus-article-buttons :link (custom-manual "(gnus)Group Parameters") :type integer gnus-button-emacs-level "Integer that says how many emacs-related buttons Gnus will show.\nThe higher the number, the more buttons will appear and the more false\npositives are possible. Note that you can set this variable local to\nspecific groups. Setting it higher in Emacs or Gnus related groups is\nprobably a good idea. See Info node `(gnus)Group Parameters' and the variable\n`gnus-parameters' on how to set variables in specific groups." (custom-manual "(gnus)Group Parameters") gnus-button-message-level "Integer that says how many buttons for news or mail messages will appear.\nThe higher the number, the more buttons will appear and the more false\npositives are possible." gnus-button-browse-level "Integer that says how many buttons for browsing will appear.\nThe higher the number, the more buttons will appear and the more false\npositives are possible." 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) ("\\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-button-open-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)) "Alist of regexps matching buttons in article bodies.\n\nEach entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where\nREGEXP: is the string (case insensitive) matching text around the button (can\nalso be Lisp expression evaluating to a string),\nBUTTON: is the number of the regexp grouping actually matching the button,\nFORM: is a Lisp expression which must eval to true for the button to\nbe added,\nCALLBACK: is the function to call when the user pushes this button, and each\nPAR: is a number of a regexp grouping whose text will be passed to CALLBACK.\n\nCALLBACK can also be a variable, in which case the value of that\nvariable is the real callback function." (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 risky-local-variable t 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)) "Alist of headers and regexps to match buttons in article heads.\n\nThis alist is very similar to `gnus-button-alist', except that each\nalist has an additional HEADER element first in each entry:\n\n(HEADER REGEXP BUTTON FORM CALLBACK PAR)\n\nHEADER is a regexp to match a header. For a fuller explanation, see\n`gnus-button-alist'." gnus-article-headers (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"))))] 12)
#@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) "\304\305!\211@\262!q\210\306\305!!\307 \310\"\307 \311\" b\210 \205% \n!+\207" [event pos data fun window-buffer event-start posn-point get-text-property gnus-data gnus-callback] 3 (#$ . 239319) "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 (#$ . 239766) 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 (#$ . 240088) (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 (#$ . 240643) (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 \205\301 @ eb\210\311 @\312\230\203> \313\202A @\314Q A@\315 8\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 put-text-property face "^[^ ]" -2 from field-face header-face regexp gnus-header-face-alist entry --dolist-tail--] 7 (#$ . 241078) 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 "\306\307!!\205> rq\210\310\211\214 \205= \311 \205= \312\313ed\314\310$\315 #\210~\210\316 \210\317\224\320 \317\225T\314\223 \321
\fS\322\f$*,\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks gnus-signature-face end start buffer-live-p get-buffer t gnus-article-narrow-to-signature overlay-put make-overlay nil face gnus-article-search-signature 0 make-marker gnus-article-add-button gnus-signature-toggle] 7 (#$ . 241964) 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 (#$ . 242623)])
#@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 #[nil "\306\307!!\205\232 rq\210\310\211\310\n\311\211\211 \312 \210`\211A\242\211\205\230 \313\f@!
b\210\314 \311\310#\203\" \fA@\224\fA@\225\315\224 \313\316\f8!\203\224 \317 \320#\204\224 \321 \311\223 \f@\322=\203z \323 #\204\224 \324 \325 \fD$\210\326 \327\330 \"$\210+\2026 .\207" [gnus-article-buffer inhibit-read-only gnus-button-alist regexp entry beg buffer-live-p get-buffer t nil article-goto-body eval re-search-forward 0 2 gnus-button-in-region-p gnus-callback make-marker gnus-button-url-regexp gnus-article-extend-url-button gnus-article-add-button gnus-button-push put-text-property gnus-string buffer-substring-no-properties alist case-fold-search inhibit-point-motion-hooks from end start] 8 (#$ . 242792) nil])
#@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\315 b\210\311\312\313 {\"\205\315 {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\315 \306 $
\203\243 \326
\211A\242
\211A\242\327%\330&\236D$\210\202\207 )\331 \" '\332'\333\334#\210\332'\335\336\337\f\237\340#C#\210$\203\313 \332'\341$#\210)\334\"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-button-url-regexp make-overlay overlay-put evaporate t gnus-button-url mapconcat identity "" mouse-face opoint message-cite-prefix-regexp gnus-article-mouse-face beg gnus-button-alist overlay] 7 (#$ . 243774)])
#@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 \205\234 @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\211 A@\224 A@\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 --dolist-tail-- start form] 8 (#$ . 245202) 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 text) "\306 \n\205\n \307\nD\310 \311\f\312 \313
\314\315\316\315\317\315\257\244\f\205\" \320\fD\244#\210\2051 \321 \315$\207" [from to gnus-article-mouse-face fun data gnus-url-button-map add-text-properties mouse-face gnus-callback button-data action keymap follow-link t category button gnus-data add-face-text-property gnus-article-button-face] 18 (#$ . 245905)])
#@49 Copy the string in the button to the kill ring.
(defalias 'gnus-article-copy-string #[nil "\302 \210\303`\304\"\211\205# \305\306!r q\210\307\216c\210\310ed\"\210\311\312\"+)\207" [data #1=#:temp-buffer gnus-article-check-buffer get-text-property gnus-string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] copy-region-as-kill message "Copied %s"] 4 (#$ . 246421) nil])
(defalias 'gnus-article-set-globals #[nil "rq\210\301 )\207" [gnus-summary-buffer gnus-set-global-variables] 1])
(defalias 'gnus-signature-toggle #[(end) "\306\307!!\205D rq\210\310\211\311 d\312\313$\203, \314\313!\210\315\312\313 d\312\313\fBB%\210\202< \316\313!\210\317\312\320 d\312\313\fBB%\210)
\321\322!+\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks end gnus-hidden-properties gnus-article-mime-handle-alist buffer-live-p get-buffer 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-push #[(marker-and-entry) "\212@A@\211@\306 b\210\307 9\203 J\202 !\205j \310\n8\n@\311=\2031 \312 \313\"\2067 \314\315\316\n\233\" \317!\203I \320
\"\202i \321!\203a \317J!\203a \320J
\"\202i \322\323\324
B#*-\207" [marker-and-entry marker entry regexp inhibit-point-motion-hooks args t looking-at 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" fun] 6])
(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*" #[nil "\301!\205 \302!\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\242\202 \310\311\312 GD\" \211A\242 \211A\242 \211A\242 \211A\242 @ \203o rq\210 \203g \313 DC\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 (_scheme server port group message-id _articles) 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 (#$ . 248914)])
#@51 Visit an Emacs Lisp library LIBRARY on line LINE.
(defalias 'gnus-button-patch #[(library line) "\303\304!!\211\204 \305\306\"\210\307 !\210eb\210\310\n!Sy)\207" [library file line locate-library file-name-nondirectory error "Couldn't find library %s" find-file string-to-number] 4 (#$ . 249570) 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 replace-regexp-in-string "([1-9][X1a-z]*).*\\'" ""] 5 (#$ . 249882)])
#@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\320\321\317\322\323##\306!\207\324\325\"\207" [url subst-char-in-string 43 32 string-match "^\\([^:/]+\\)?/\\(.*\\)" gnus-info-find-node "(" gnus-url-unhex-string match-string 1 "Gnus" ")" 2 "([^)\"]+)[^\"]+" replace-regexp-in-string "\"" "" "[\n ]+" " " error "Can't parse %s"] 8 (#$ . 250155)])
#@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 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 (#$ . 250644)])
#@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 (#$ . 251025)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] how-many "," Info-index-next --dotimes-limit--] 4 (#$ . 251192)])
(autoload 'pgg-snarf-keys-region "pgg")
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-url-insert-file-contents-external pgg-snarf-keys-region pgg-display-output-buffer nil] 4 (#$ . 252141)])
#@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 (#$ . 252548)])
#@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 (#$ . 252720)])
(defalias 'gnus-url-parse-query-string #[(query &optional downcase) "\306\211\211\211\211 \307
\310\" \203W @ A\311\312\n\"\203 \313\314\n\315\211\224#!\313\314\n\315\225\306#\316\"\203; \227\317 \f\"\211\203N \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 substring 0 t assoc downcase] 6])
(defalias 'gnus-url-mailto #[(url) "\304\305\306#\307\310\"\203 \311\312\224\313#\314\307\315\"\203# \311\312\"\202; \307\316\"\2038 \317\320\312\"\321\320\322\"R\202; \317P!\323\324 \"\243\313\325 \210 \203 \326\327 @@\227P!\330 !\203a \210\202g \331 @@!\210\304\332\305\333\334\335 @A!\336#\313\337%c\210 A\211\204L \n\203\210 \340 \202\212 \341 +\207" [url args subject func replace-regexp-in-string "\n" " " string-match "mailto:/*\\(.*\\)" substring 1 nil gnus-url-parse-query-string "^\\?" "^\\([^?]+\\)\\?\\(.*\\)" "to=" match-string "&" 2 assoc "subject" gnus-msg-mail intern-soft "message-goto-" fboundp message-position-on-field "
\n" mapconcat identity reverse ", " t 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 (#$ . 254507)])
(defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
(defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
(defvar gnus-prev-page-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [map make-sparse-keymap define-key [mouse-2] gnus-button-prev-page "
"] 4))
(defvar gnus-next-page-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [map make-sparse-keymap define-key [mouse-2] gnus-button-next-page "
"] 4))
(defalias 'gnus-insert-prev-page-button #[nil "`\306\307\310 \306\311\f\312BB#\210n\203 `S\202 `\313\n \311\f\314
&+\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 follow-link t gnus-callback gnus-article-button-prev-page article-type annotation) make-text-button face] 7])
#@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 (#$ . 255508) 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 (#$ . 255774) nil])
(defalias 'gnus-insert-next-page-button #[nil "`\306\307\310 \306\311\f\312BB#\210n\203 `S\202 `\313\n \311\f\314
&+\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 follow-link t gnus-callback gnus-article-button-next-page article-type annotation) make-text-button face] 7])
#@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 (#$ . 256416) "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 (#$ . 256668) "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) (#$ . 256921))
(defvar gnus-decode-header-methods-cache nil)
#@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 *\211 A\214 }\210
\205\\
\211A\242ed\"\210\202L *\207" [gnus-decode-header-methods-cache gnus-newsgroup-name gnus-decode-header-methods x --dolist-tail-- xlist nil string-match start end] 4 (#$ . 257474)])
(defvar gnus-inhibit-article-treatments nil)
(defalias 'gnus-treat-article #[(condition &optional part-num total type) " \n deZ\f\306 ?\2061 \30721
\205/ \310\211A\242 \"\203 \311\307\306\"\210\202 )0\312\313\314\"\315 \316\317!\210\315 \211 \205\300 @ \212!\211 \"\205u \320\321\"!\211\"!\205u \")\203} !q\210 @J)\211:\204\216 \203\266 #\203\232 \322=\203\266 \323!\203\266 @\314N\203\256 \203\266 \214 A@ \210) A\211 \204Y \315.\f\207" [condition part-num total type gnus-treatment-function-alist gnus-article-treat-types t found string-match throw gnus-visual-p article-highlight highlight nil gnus-run-hooks gnus-part-display-hook buffer-live-p get-buffer head gnus-treat-predicate list val highlightp treated-type article-goto-body-goes-to-point-min-p alist gnus-treat-length gnus-treat-type total-parts part-number gnus-treat-condition elem --dolist-tail-- gnus-summary-buffer buffer gnus-inhibit-article-treatments] 12])
(defalias 'gnus-treat-predicate #[(val) "\204 \306\207 \203 =\207\242;\203 \n\206 \307\310\311\")\207<\203e \211A\242\211 \312\267\202T \313\314\315\316\"\"\202c \313\317\315\316\"\"\202c \316@!?\202c @
\232\202c \320\f!\203_ \f \202c \321\322\f\")\207\323\267\202z \324\207\306\207\325=\207=\207\247\203\204 W\207\321\326\"\207" [val gnus-treat-condition gnus-newsgroup-name name pred gnus-treat-type nil "" seq-some #[(s) " \303\304\305#)\207" [s name inhibit-changing-match-data nil t string-match] 7] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (or 49 and 59 not 69 typep 77)) apply gnus-or mapcar gnus-treat-predicate gnus-and functionp error "%S is not a valid predicate" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 107 head 109 first 111 last 116)) t 1 "%S is not a valid value" part-number total-parts gnus-treat-length] 6])
#@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\354 \317+@!\210r,q\210-.,\320\211 / 0 1 2 3\321 \210\322 \203` \310\323!\210\324\325!\2104\326H\206l \32705q\210\325 6\330\331\332\" 7\333 \210\334\335!\210db\210`/\336\3377\"c\210~\210/d}\2108 8\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 \210<\203\340 \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 gnus-flush-original-article-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-use-cache] 6 (#$ . 259867) (list (or gnus-article-encrypt-protocol (gnus-completing-read "Encrypt protocol" (mapcar #'car gnus-article-encrypt-protocol-alist) 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" (#$ . 262072))
#@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" (#$ . 262289))
(defvar gnus-mime-security-button-line-format-alist '((116 gnus-tmp-type 115) (105 gnus-tmp-info 115) (100 gnus-tmp-details 115) (68 gnus-tmp-pressed-details 115)))
(defvar gnus-mime-security-button-commands '((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 ".")))
(defvar gnus-mime-security-button-map (byte-code "\304 \305\306\307#\210\305\310\307#\210\305\311\312#\210 \313\211\2030 @\305\nA@\n@#\210 A\211\204 *)\207" [map gnus-mime-security-button-commands c --dolist-tail-- make-sparse-keymap define-key "
" gnus-article-push-button [mouse-2] [down-mouse-3] gnus-mime-security-button-menu nil] 5))
#@23 Security button menu.
(defvar gnus-mime-security-button-menu nil (#$ . 263415))
(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) "@\301=?\205 \302AA@@\303\304$\207" [c undefined vector :active t] 5]] 10)
#@58 Construct a context-sensitive menu of security commands.
(defalias 'gnus-mime-security-button-menu #[(event prefix) "\305 \306\216\307 !\310\n\211@\262!\210\311\n!b\210\312 \210\313 \314\f#+\207" [#1=#:wconfig event pos gnus-mime-security-button-menu prefix current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] event-start select-window posn-point gnus-article-check-buffer popup-menu nil] 4 (#$ . 263817) "e\nP"])
(defvar gnus-mime-security-details-buffer nil)
(defvar gnus-mime-security-button-pressed nil)
#@49 If non-nil, show details in the article buffer.
(defvar gnus-mime-security-show-details-inline t (#$ . 264364))
(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\"\211 A=\204? \317A!\210\241\210,\320!\210 \203Y ` A|\210 @\312\211\223\210 A\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\"\202\215 \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|+\202\215 \211 \205h \323\324!\211!\205h )\203x rq\210\325 \210)\202} \326\327!rq\210 c\210eb\210)\330!)\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 buffer-live-p get-buffer erase-buffer gnus-get-buffer-create "*MIME Security Details*" pop-to-buffer gnus-mime-security-details-buffer 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'(\326)\327\330\331'\332&\333\334\335\336\337\257#\210n\203\216 `S\202\217 `%\340$%\326)\341*&.\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 follow-link t gnus-data make-text-button face 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] 18])
(defalias 'gnus-mime-display-security #[(handle) "\214``}\210\303@!\204 \304!\210\305A@!\210n\204 \306c\210\303@!\204+ \304!\210)\307\310 \311 B\205A \312\313@G@%\266db)\207" [handle gnus-mime-security-button-end-line-format gnus-mime-security-button-line-format gnus-unbuttonized-mime-type-p gnus-insert-mime-security-button gnus-mime-display-part "\n" gnus-region point-min-marker point-max-marker put-text-property 0] 9])
#@50 Run FUNCTION with the security part under point.
(defalias 'gnus-mime-security-run-function #[(function) "\304 \210\305`\306\"\307\211\211\242;\205O \305\310\301\n@#\211\205O \nA@\211\205O \311@!\203< \312A!B\313\233\307\240\210\202L \305\310\314@#\307\211\211\211\211\211\257 !+\207" [handle buffer data function gnus-article-check-buffer get-text-property gnus-data nil 0 bufferp copy-sequence 3 protocol] 9 (#$ . 267506)])
#@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 (#$ . 267953) 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 (#$ . 268126) nil])
(byte-code "\300\301!\210\302\303!\207" [provide gnus-art run-hooks gnus-art-load-hook] 2)
Zerion Mini Shell 1.0