;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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\201MDD\201N\201O\201P\346\352&\210\201I\201Q\201K\201L\201RDD\201S\201O\201T\201U\201V\201W\201X\201Y\201ZBBBBB\201[BB\346\352&\210\201I\201\\\201K\201L\201]DD\201^\201O\201_\346\352&\210\201I\201`\201K\201L\201aDD\201b\201O\201c\346\352&\210\201I\201d\201K\201L\201eDD\201f\201g\201h\201O\201i\346\352& \210\201I\201j\201K\201L\201kDD\201l\201O\201m\346\361&\210\201I\201n\201K\201L\201oDD\201p\201O\201q\346\361&\210\201I\201r\201K\201L\201sDD\201t\201O\201u\346\352&\210\201I\201v\201K\201L\201wDD\201x\201O\201y\201g\201z\346\201{\346\367& \210\201I\201|\201K\201L\201}DD\201~\201O\201\346\367&\210\201I\201\200\201K\201L\201\201DD\201\202\201g\201\203\201O\201\204\346\367& \210\201I\201\205\201K\201L\201\206DD\201\207\346\201\210\346\367\201O\201\211& \210\201\212\201\213\236\"\201\214\300\201\213\201\215\201\216E\"\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 funcall function #[0 "\300\301\302\"\207" [mapcar #[257 "\300\301Q\207" ["^" ":"] 4 "\n\n(fn 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")] 3 #1=""] "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 #[0 "\300\207" ["^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:"] 1 #1#] "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 #[514 "\300!\207" [custom-split-regexp-maybe] 4 "\n\n(fn WIDGET VALUE)"] :match #[514 "\211;\206 \300\"\207" [widget-editable-list-match] 5 "\n\n(fn WIDGET VALUE)"] (regexp) ((const :tag "Use gnus-ignored-headers" nil) regexp) gnus-sorted-header-list #[0 "\300\207" [("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")] 1 #1#] "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 #[0 "\300\207" [(empty followup-to reply-to)] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [("^-- $" "^-- *$")] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(invisible t)] 1 #1#] "Property list to use for hiding text." plist gnus-article-x-face-command #[0 "\300\301!\205\302\207" [gnus-image-type-available-p pbm gnus-display-x-face-in-from] 2 #1#] "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 (const :tag "None" nil) (function-item gnus-display-x-face-in-from) function) "27.1" gnus-picon gnus-article-x-face-too-ugly #[0 "\300\207" [nil] 1 #1#] "Regexp matching posters whose face shouldn't be shown automatically." (choice regexp (const nil)) gnus-article-banner-alist #[0 "\300\207" [nil] 1 #1#] "Banner alist for stripping.\nFor example,\n ((egroups . (concat \"^[ \\t\\n]*-------------------+\\\\\"\n \"( \\\\(e\\\\|Yahoo! \\\\)Groups Sponsor -+\\\\)?\"\n \"....\\n\\\\(.+\\n\\\\)+\")))" "21.1" (repeat (cons symbol regexp)) gnus-parameter-banner-alist #[0 "\300\207" [nil] 1 #1#] "Alist of regexps (to match group names) and banner." gnus-group-parameter (repeat (list (regexp :tag "Group") #2=(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 #2# "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) #@13 (fn NAME) (defalias 'gnus-parameter-banner #[257 "\211\205<\301\302\303#\206<\303\211\211A\262\242\211\262\2031\203\304@\"\203\303\262A\262\202\211:\2039\211@\207\211\266\203\207" [gnus-parameter-banner-alist gnus-group-find-parameter banner nil string-match] 7 (#$ . 11630)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-article-address-banner-alist funcall function #[0 "\300\207" [nil] 1 ""] "Alist of mail addresses and banners.\nEach element has the form (ADDRESS . BANNER), where ADDRESS is a regexp\nto match a mail address in the From: header, BANNER is one of a symbol\n`signature', an item in `gnus-article-banner-alist', a regexp and nil.\nIf ADDRESS matches author's mail address, it will remove things like\nadvertisements. For example:\n\n((\"@yoo-hoo\\\\.co\\\\.jp\\\\\\='\" . \"\\n_+\\nDo You Yoo-hoo!\\\\?\\n.*\\n.*\\n\"))\n" :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] 10) #@19 (fn &rest BODY) (defalias 'gnus-emphasis-custom-with-format '(macro . #[128 "\300\301BB\207" [let ((format "\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)"))] 4 (#$ . 12817)])) #@14 (fn VALUE) (defalias 'gnus-emphasis-custom-value-to-external #[257 "\211@:\203 \300\301@@@A#\302A@\203\302\202\303\3028F\207\207" [format "\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3] 6 (#$ . 13094)]) #@14 (fn VALUE) (defalias 'gnus-emphasis-custom-value-to-internal #[257 "\300\301\302\303\211#\304Q\305\306@\211\262\"\203'\307\310\"\307\311\"B\3118\311U\3128E\207\207" ["\\`" format "\\\\(\\\\s-\\\\|\\^\\\\|\\\\=\\\\|\\[-\"]\\\\|\\\\s(\\\\)\\\\(%s\\\\(\\\\w\\+\\\\(\\\\s-\\+\\\\w\\+\\\\)\\*\\[\\.,]\\?\\\\)%s\\\\)\\\\(\\\\(\\[-,\\.;:!\\?\"]\\\\|\\\\s)\\\\)\\+\\\\s-\\\\|\\[\\?!\\.]\\\\s-\\\\|\\\\s)\\\\|\\\\s-\\\\)" "\\([^()]+\\)" "\\'" nil string-match match-string 1 2 3] 7 (#$ . 13411)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324BBBBBBB\325BBBBBBD\326\327\330\331\332\333& \210\300\334\302\303\335DD\336\337\340\332\333\306\341& \210\342\343\344\345\332\333%\210\342\346\347\350\332\333%\210\342\351\352\353\332\333%\210\342\354\355\356\332\333%\210\342\357\360\361\332\333%\210\342\362\363\364\332\333%\210\342\365\366\367\332\333%\210\342\370\371\372\332\333%\210\342\373\374\375\332\333%\210\300\376\302\303\377DD\201@\306\201A\201B\201C\332\201D& \210\300\201E\302\303\201FDD\201G\332\201H\306\201I&\210\300\201J\302\303\201KDD\201L\332\201H\306\201M&\210\300\201N\302\303\201ODD\201P\337\201Q\332\201R\306\201I& \210\300\201S\302\303\201TDD\201U\332\201H\306\341&\210\300\201V\302\303\201WDD\201X\306\201Y\337\201Z\332\201R& \210\300\201[\302\303\201\\DD\201]\332\201H\306\201^&\210\300\201_\302\303\201`DD\201a\332\201H\306\201b\311\201c\201d\201e\201f\201g\201h\201i\201j\"\"\201k\"BBBB&\210\300\201l\302\303\201mDD\201n\332\201H\306\303&\210\300\201o\302\303\201pDD\201q\332\201H\306\303&\210\300\201r\302\303\201sDD\201t\332\201H\306\303&\210\300\201u\302\303\201vDD\201w\332\201H\306\303&\210\300\201x\302\303\201yDD\201z\332\201H\306\201{&\210\300\201|\302\303\201}DD\201~\306\341\332\201&\210\300\201\200\302\303\201\201DD\201\202\337\201\203\306\201\204\332\201& \210\300\201\205\302\303\201\206DD\201\207\306\201\210\332\201&\210\300\201\211\302\303\201\212DD\201\213\306\201\210\332\201&\210\300\201\214\302\303\201\215DD\201\216\306\201\210\332\201&\210\300\201\217\302\303\201\220DD\201\221\337\201\222\306\201\223\332\201& \210\342\201\224\201\225\201\226\332\201\227%\210\300\201\230\302\303\201\231DD\201\232\306\201\233\332\201\227&\210\300\201\234\302\303\201\235DD\201\236\306\201\233\332\201\227&\210\300\201\237\302\303\201\240DD\201\241\306\201\233\332\201\242\332\201\243& \210\342\201\244\201\245\201\246\332\201\242\332\201\243&\210\342\201\247\201\250\201\251\332\201\252\332\201\242&\210\342\201\253\201\254\201\255\332\201\252\332\201\242&\210\342\201\256\201\257\201\260\332\201\252\332\201\242&\210\342\201\261\201\262\201\263\332\201\252\332\201\242&\210\342\201\264\201\265\201\266\332\201\252\332\201\242&\210\300\201\267\302\303\201\270DD\201\271\332\201\252\332\201\242\306\201\272& \210\300\201\273\302\303\201\274DD\201\275\337\201\222\332\201\252\306\201\276& \210\300\201\277\302\303\201\300DD\201\301\332\201\252\306\201\210&\210\300\201\302\302\303\201\303DD\201\304\332\201\305\306\303&\207" [custom-declare-variable gnus-emphasis-alist funcall function #[0 "\300\301\302\303\304\"\"\262\305\244\207" [(("\\*" "\\*" bold nil 2) ("_" "_" underline) ("/" "/" italic) ("_/" "/_" underline-italic) ("_\\*" "\\*_" underline-bold) ("\\*/" "/\\*" bold-italic) ("_\\*/" "/\\*_" underline-bold-italic)) "\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" mapcar make-closure #[257 "\301\300@A@#\3028\206\303\3048\206\302\305\301\306\3038\"!F\207" [V0 format 3 2 4 intern "gnus-emphasis-%s"] 9 "\n\n(fn SPEC)"] (("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline))] 6 #1=""] "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 #[257 "\300\211\211\301\"\302\"A@\303\"\3048\305=\204\306\303\307!#\210\210\310!\207" [widget-get :parent :args :value 2 default widget-put gnus-emphasis-custom-value-to-external widget-group-value-create] 7 "\n\n(fn 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 #[257 "\300\301\302!\"\207" [mapcar gnus-emphasis-custom-value-to-internal default-value] 5 "\n\n(fn SYMBOL)"] :set #[514 "\300\301\302\"\"\207" [set-default mapcar gnus-emphasis-custom-value-to-external] 7 "\n\n(fn SYMBOL VALUE)"] :group gnus-article-emphasis gnus-emphasize-whitespace-regexp #[0 "\300\207" ["^[ ]+\\|[ ]*\n"] 1 #1#] "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 #[0 "\300\207" ["%a, %d %b %Y %T %Z"] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [always] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "If non-nil, show the cursor in the Article buffer even when not selected." "25.1" gnus-article gnus-saved-headers #[0 "\207" [gnus-visible-headers] 1 #1#] "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-global-groups #[0 "\300\207" [nil] 1 #1#] "Groups that should be considered like \"news\" groups.\nThis means that images will be automatically loaded, for instance." (repeat string) "28.1" gnus-default-article-saver #[0 "\300\207" [gnus-summary-save-in-rmail] 1 #1#] "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 #[0 "\300\301!\203\301\207\300\302!\203\302\207\300\303!\203\303\207\300\304!\205\304\207" [mm-coding-system-p utf-8 iso-2022-7bit emacs-mule escape-quoted] 2 #1#] "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 "%{%t%}:\n %[Value Menu%] %v" (const :tag "Save raw articles" nil) append delq nil mapcar #[257 "\300\3018!\205 \211\207" [mm-coding-system-p 3] 4 "\n\n(fn ARG)"] ((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 #[0 "\300\207" [gnus-plain-save-name] 1 #1#] "A function generating a file name to save articles in Rmail format.\nThe function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." gnus-mail-save-name #[0 "\300\207" [gnus-plain-save-name] 1 #1#] "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 #[0 "\300\207" [gnus-folder-save-name] 1 #1#] "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 #[0 "\300\207" [gnus-numeric-save-name] 1 #1#] "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 #[0 "\300\207" [((gnus-article-archive-name) (gnus-article-nndoc-name))] 1 #1#] "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 #[0 "\300\207" ["^\f"] 1 #1#] "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 #[0 "\300\207" ["Gnus: %g %S%m"] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "A hook for Gnus article mode." hook gnus-article-menu-hook #[0 "\300\207" [nil] 1 #1#] "Hook run after the creation of the article mode menu." gnus-article-prepare-hook #[0 "\300\207" [nil] 1 #1#] "A hook called after an article has been prepared in the article buffer." gnus-copy-article-ignored-headers #[0 "\300\207" [nil] 1 #1#] "List of headers to be removed when copying an article.\nEach element is a regular expression." "23.1" (repeat regexp) gnus-button ((t (:weight bold))) "Face used for highlighting a button in the article buffer." gnus-article-buttons gnus-article-button-face #[0 "\300\207" [gnus-button] 1 #1#] "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 #[0 "\300\207" [highlight] 1 #1#] "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 #[0 "\300\207" [gnus-signature] 1 #1#] "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 #[0 "\300\207" [(("From" nil gnus-header-from) ("Subject" nil gnus-header-subject) ("Newsgroups:.*," nil gnus-header-newsgroups) (#1# gnus-header-name gnus-header-content))] 1 #1#] "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 #[0 "\300\207" [((pbm :face gnus-x-face) (png))] 1 #1#] "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 #[0 "\300\207" [(article-decode-charset article-decode-encoded-words article-decode-group-name article-decode-idna-rhs)] 1 #1#] "Hook run to decode charsets in articles." gnus-display-mime-function #[0 "\300\207" [gnus-display-mime] 1 #1#] "Function to display MIME articles." gnus-article-mime] 19) #@34 Function used to decode headers. (defvar gnus-decode-header-function 'mail-decode-encoded-word-region (#$ . 32865)) #@36 Function used to decode addresses. (defvar gnus-decode-address-function 'mail-decode-encoded-address-region (#$ . 32987)) #@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 "'")) (#$ . 33115)) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\304\320\306\307\321DD\322\312\313\314\315\316\323& \210\304\324\306\307\325DD\326\312\327\314\315\316\330& \210\304\331\306\307\332DD\333\312\327\314\315\316\334& \210\304\335\306\307\336DD\337\312\327\314\340\316\341& \210\304\342\306\307\343DD\344\312\327\316\345\346\347\346\350\314\351& \207" [make-obsolete-variable gnus-article-dumbquotes-map gnus-article-smartquotes-map "27.1" custom-declare-variable gnus-ignored-mime-types funcall function #[0 "\300\207" [nil] 1 #1=""] "List of MIME types that should be ignored by Gnus." :version "21.1" :group gnus-article-mime :type (repeat regexp) gnus-unbuttonized-mime-types #[0 "\300\207" [(".*/.*")] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["_"] 1 #1#] "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 #[0 "\300\207" [("/usr/lib/picon" "/usr/local/faces" "/usr/share/picons")] 1 #1#] "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 #[0 "\301\211\203\211@\302!\203\303\262A\266\202\202\210\207" [gnus-picon-databases nil file-exists-p t] 5 (#$ . 35952)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317& \210\300\320\302\303\321DD\322\315\323\306\324\310\325& \210\300\326\302\303\327DD\330\315\323\306\324\310\331& \210\300\332\302\303\333DD\334\315\316\306\307\310\335& \210\300\336\302\303\337DD\340\306\307\310\341&\210\300\342\302\303\343DD\344\315\345\306\307\310\346& \207" [custom-declare-variable gnus-article-mime-part-function funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(combined-lapsed)] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [undisplayed-alternative] 1 #1#] "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 #[0 "\300\207" [(("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) ("view as charset" . gnus-mime-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))] 1 #1#] "An alist of actions that run on the MIME attachment." (repeat (cons (string :tag "name") (function))) gnus-auto-select-part #[0 "\300\207" [1] 1 #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 (#$ . 40203)) (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") (#$ . 40653)) #@31 Whether to inhibit treatment. (defvar gnus-inhibit-treatment nil (#$ . 40802)) (byte-code "\303\304\305\306\307DD\310\311\312\313\314\315& \210\316\304\317\320#\210\303\321\305\306\322DD\323\311\312\313\324\315& \210\316\321\317\320#\210\303\325\305\306\326DD\327\311\312\313\330\315 & \210\316\325\317\320#\210\303\331\305\306\332DD\333\334\335\311\312\313\336\315 & \210\303\337\305\306\340DD\341\311\312\313\342\315& \210\316\337\317\320#\210\303\343\305\306\344DD\345\334\346\311\312\313\347\315& \210\303\350\305\306\351DD\352\334\346\311\312\313\353\315& \210\303\354\305\306\355DD\356\334\346\311\312\313\357\315& \210\303\360\305\306\361DD\362\311\312\313\363\315 & \210\303\364\305\306\365DD\366\311\312\313\367\315 & \210\303\370\305\306\371DD\372\311\312\313\373\315& \210\303\374\305\306\375DD\376\311\312\313\377\315& \210\303\201@\305\306\201ADD\201B\311\312\313\201C\315& \210\303\201D\305\306\201EDD\201F\311\312\313\201G\315& \210\303\201H\305\306\201IDD\201J\334\201K\311\312\313\201L\315& \210\303\201M\305\306\201NDD\201O\311\201P\311\201Q\315\201R& \210\201S\201T\n\236\n\"\201U\302\201T\201V\201WE\"\207" [gnus-article-treat-custom gnus-article-treat-head-custom gnus-group-parameters-more custom-declare-variable gnus-treat-highlight-signature funcall function #[0 "\300\207" [(or t (typep "text/x-vcard"))] 1 #1=""] "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 #[0 "\300\207" [(and 100000 (typep "text/plain"))] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [50000] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Alist of regexps and correspondent identifiers." gnus-group-parameter gnus-article-washing (repeat (list (regexp :tag "Group") #2=(choice :tag "Identifier" :value nil (symbol :tag "Item in `gnus-list-identifiers'" none) regexp (const :tag "None" nil)))) delq list-identifier add-to-list #2# "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) #@13 (fn NAME) (defalias 'gnus-parameter-list-identifier #[257 "\211\205<\301\302\303#\206<\303\211\211A\262\242\211\262\2031\203\304@\"\203\303\262A\262\202\211:\2039\211@\207\211\266\203\207" [gnus-parameter-list-identifier-alist gnus-group-find-parameter list-identifier nil string-match] 7 (#$ . 46855)]) (byte-code "\302\303\304\305\306DD\307\310\311\312\313\314& \210\302\315\304\305\316DD\317\310\311\312\320\314& \210\302\321\304\305\322DD\323\310\311\312\324\314 & \210\325\321\326\327#\210\302\330\304\305\331DD\332\310\311\312\333\314& \210\325\330\326\327#\210\302\334\304\305\335DD\336\337\340\310\311\312\341\314& \210\302\342\304\305\343DD\344\310\311\312\345\314& \210\302\346\304\305\347DD\350\310\311\312\351\314& \210\302\352\304\305\353DD\354\310\311\312\355\314& \210\302\356\304\305\357DD\360\337\361\310\311\312\362\314& \210\302\363\304\305\364DD\365\337\366\310\311\314\367& \210\302\370\304\305\371DD\372\337\361\310\311\312\373\314& \210\302\374\304\305\375DD\376\337\361\310\311\312\377\314& \210\302\201@\304\305\201ADD\201B\310\311\312\201C\314& \210\325\201@\326\327#\210\302\201D\304\305\201EDD\201F\310\311\312\201G\314& \210\302\201H\304\305\201IDD\201J\310\311\337\340\312\201K\312\201L\314 \201M\201N&\210\325\201H\326\327#\210\302\201O\304\305\201PDD\201Q\310\311\337\361\312\201R\312\201S\314 & \210\325\201O\326\327#\210\302\201T\304\305\201UDD\201V\310\311\337\340\312\201W\312\201X\314& \210\325\201T\326\327#\210\302\201Y\304\305\201ZDD\201[\337\361\310\311\310\201\\\312\201]\312\201^\314 &\210\325\201Y\326\327#\210\302\201_\304\305\201`DD\201a\337\361\310\311\310\201\\\312\201b\312\201c\314 &\210\325\201_\326\327#\210\302\201d\304\305\201eDD\201f\337\361\310\311\310\201\\\312\201g\312\201h\314 &\210\325\201d\326\327#\210\302\201i\304\305\201jDD\201k\337\201l\310\311\310\201m\312\201n\312\201o\314 &\210\325\201i\326\327#\210\302\201p\304\305\201qDD\201r\337\201l\310\311\310\201m\312\201s\312\201t\314 &\210\325\201p\326\327#\210\302\201u\304\305\201vDD\201w\337\361\310\311\312\201x\314 & \210\302\201y\304\305\201zDD\201{\337\340\310\311\312\201|\314& \210\302\201}\304\305\201~DD\201\337\361\310\311\312\201\200\314& \210\302\201\201\304\305\201\202DD\201\203\337\201l\310\311\312\201\204\314& \210\302\201\205\304\305\201\206DD\201\207\337\361\310\311\310\201\210\312\201\211\314& \207" [gnus-article-treat-custom gnus-article-treat-head-custom custom-declare-variable gnus-treat-strip-pem funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 t gnus-treat-highlight-citation #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [head] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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-x-face #[0 "?\205&\301\302!\205&\3031\304\305\306\307!\"\205\310\311!0\202\"\210\312\207\205&\313\207" [noninteractive gnus-image-type-available-p xbm (error) string-match "^0x" shell-command-to-string "uncompface" executable-find "icontopbm" nil head] 4 #1#] "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 #[514 "\300\301!\204\302N\203\202\"\207" [set-default boundp saved-value] 6 "\n\n(fn SYMBOL VALUE)"] gnus-treat-display-face #[0 "?\205\f\301\302!\205\f\303\207" [noninteractive gnus-image-type-available-p png head] 2 #1#] "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 #[0 "\300\301!\207" [gnus-image-type-available-p xpm] 2 #1#] "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 #[0 "\300\301!\205\f\302 \205\f\303\207" [gnus-image-type-available-p xpm gnus-picons-installed-p head] 2 #1#] "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 #[0 "\300\301!\205\f\302 \205\f\303\207" [gnus-image-type-available-p xpm gnus-picons-installed-p head] 2 #1#] "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 #[0 "\300\301!\205\f\302 \205\f\303\207" [gnus-image-type-available-p xpm gnus-picons-installed-p head] 2 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\204 \204\n\204 \204\f\205\305\207" [gnus-treat-newsgroups-picon gnus-treat-mail-picon gnus-treat-from-picon gnus-treat-from-gravatar gnus-treat-mail-gravatar head] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(typep "text/plain")] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\312\320\310\321& \210\300\322\302\303\323DD\324\306\307\312\325\310\321& \210\300\326\302\303\327DD\330\306\331\312\325\310\321& \210\300\332\302\303\333DD\334\306\331\312\335\310\336& \207" [custom-declare-variable gnus-article-encrypt-protocol funcall function #[0 "\300\207" ["PGP"] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "Whether IDNA decoding of headers is used when viewing messages." "26.1" gnus-article-headers boolean gnus-article-over-scroll #[0 "\300\207" [nil] 1 #1#] "If non-nil, allow scrolling the article buffer even when there no more text." gnus-article gnus-inhibit-images #[0 "\300\207" [nil] 1 #1#] "Non-nil means inhibit displaying of images inline in the article body." "24.1" gnus-blocked-images #[0 "\300\207" [gnus-block-private-groups] 1 #1#] "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 "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\207" [text-mode-syntax-table copy-syntax-table modify-syntax-entry 62 ")<" 60 "(>" 39 "'" 96] 5) (#$ . 63446)) (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) #@20 (fn &rest FORMS) (defalias 'gnus-with-article-headers '(macro . #[128 "\300\301\302\303\304\305BBBDE\207" [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)] 8 (#$ . 63935)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-with-article-headers lisp-indent-function 0 put edebug-form-spec t] 5) #@20 (fn &rest FORMS) (defalias 'gnus-with-article-buffer '(macro . #[128 "\300\301\302\303\304\305BBEE\207" [when (buffer-live-p (get-buffer gnus-article-buffer)) with-current-buffer gnus-article-buffer let ((inhibit-read-only t))] 8 (#$ . 64375)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-with-article-buffer lisp-indent-function 0 put edebug-form-spec t] 5) #@59 Go to HEADER, which is a regular expression. (fn HEADER) (defalias 'gnus-article-goto-header #[257 "\300\301\302Q\303\304#\207" [re-search-forward "^\\(" "\\):" nil t] 5 (#$ . 64772)]) #@54 Set text PROPS on the B to E region. (fn B E PROPS) (defalias 'gnus-article-hide-text #[771 "\300\301\302%\207" [gnus-add-text-properties-when article-type nil] 9 (#$ . 64965)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-article-hide-text speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@70 Remove hidden text properties from region between B and E. (fn B E) (defalias 'gnus-article-unhide-text #[514 "\301#\207" [gnus-hidden-properties remove-text-properties] 6 (#$ . 65301)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-article-unhide-text speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@51 Hide text of TYPE between B and E. (fn B E TYPE) (defalias 'gnus-article-hide-text-type #[771 "\301!\210\302BB\303\302\304%\207" [gnus-hidden-properties gnus-add-wash-type article-type gnus-add-text-properties-when nil] 12 (#$ . 65648)]) #@53 Unhide text of TYPE between B and E. (fn B E TYPE) (defalias 'gnus-article-unhide-text-type #[771 "\301!\210\302\303BB#\207" [gnus-hidden-properties gnus-delete-wash-type remove-text-properties article-type] 9 (#$ . 65901)]) #@55 Delete text of TYPE in the current buffer. (fn TYPE) (defalias 'gnus-article-delete-text-of-type #[257 "\212e\300=\203A\211b\210\301`\302\"\203`\211\262\202'\303`\302\"\211\262\205^\211b\210\304\205^\305\210\306\305w\210\301\307\"\300=\203 \211`|\210\202 \310d\307$\211\262\205^\211\311d\307$\206Yd|\210\202A\262)\207" [multipart get-text-property gnus-part next-single-property-change t nil "\n" article-type text-property-any text-property-not-all] 8 (#$ . 66138)]) #@50 Delete all invisible text in the current buffer. (defalias 'gnus-article-delete-invisible-text #[0 "\212e\300d\301\302$\211\262\205\211\303d\301\302$\206d|\210\202\262)\207" [text-property-any invisible t text-property-not-all] 7 (#$ . 66636)]) #@75 Give the rank of the string HEADER as given by `gnus-sorted-header-list'. (defalias 'gnus-article-header-rank #[0 "\301\203\302@!\203\303\262\202A\262\211T\262\202\207" [gnus-sorted-header-list 1 looking-at nil] 4 (#$ . 66897)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-article-header-rank speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@82 Hide unwanted headers and possibly sort them as well. (fn &optional ARG DELETE) (defalias 'article-hide-headers #[512 "?\205\373\306\211 GT\306p\307\211\211\212\3101$ q\210\3060\202&\210\307?\205C;\2037\202C<\205C\311\312\313#\262;\203P\202a\205a<\205a\311\312\313#\262\203iq\210\214\314 \210\315\316!\203y\317y\210\202mo\204\201e`|\210\320\321\307\306#\203\327\322 \210\323``T\324\203\234\315!\204\250\203\313\315!\204\313 \317\203\306\315@!\203\273\307\262\202\252A\262\211T\262\202\252\262\202\317\325\n\\$\210\317y\210\202\201\326 \210\327ed\324\325\n\\$\211\262\205\370\330\331!\210\332e\333e\\\334#\210\211d|-\266\210\207" [gnus-inhibit-hiding gnus-sorted-header-list inhibit-point-motion-hooks case-fold-search inhibit-read-only gnus-summary-buffer 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) gnus-visible-headers gnus-ignored-headers] 18 (#$ . 67297) [nil (gnus-article-mode)]]) #@158 Toggle hiding of headers that aren't very interesting. If given a negative prefix, always show; if given a positive prefix, always hide. (fn &optional ARG) (defalias 'article-hide-boring-headers #[256 "\306\307\"?\205:?\205:\212\214\310\211\311 \210 \211\2057\211@eb\210\211\312\267\2020\313\314\315\310#\2030\316y\210\317\320 \315\210\313\321\315\310#\203D\322\224\202Ed\307#\210\202&\2020\323\324\325!\326\304!\203\\\f\202]\327\330\331\"\203l\211\322\225\315O\202m\211\262\"\2030\332\325!\210\2020\333\334!\335\326\304!\203\210\f\202\211\327!\203\253\211\203\253\3361\242\323\337!A@\"0\202\244\210\315\203\253\332\334!\210\266\2020\333\334!\340\326\304!\203\276\f\202\277\327!\203\341\211\203\341\3411\330\323\337!A@\"0\202\332\210\315\203\341\332\334!\210\266\2020\333\342!\340\326\304!\203\364\f\202\365\327!\203\211\203\3431\323\337!A@\"0\202\210\315\203\332\342!\210\266\2020\323\333\344!\333\325!\"\2030\332\344!\210\2020\345\f\346\"\203<\332\347!\210\2020\333\350!\333\347!\203p\211\203p\3511g\352\353\354\337\310\"\"\355\"\352\353\356\337\310\"\"\355\"\2320\202i\210\315\203p\332\347!\210\266\2020r q\210\333\357!)\211\203\217\360\361 \"\362W\203\217\332\357!\210\210\2020\333\334!\333\342!G\363V\203\244\332\334!\210\211G\363V\203\257\332\342!\210\266\2020\322\211eb\210\313\364\315\310#\203\310T\262\202\271\365V\203\362\322V\203\362eb\210\214\313\364\315\211$\210\316y\210`d}\210\332\334!\210)S\262\202\316eb\210\313\366\315\310#\203\211T\262\202\365\211\365V\203.\211\322V\203.eb\210\214\313\366\315\211$\210\316y\210`d}\210\332\342!\210)\211S\262\202\n\266A\266\202\202\262,\207" [gnus-show-all-headers inhibit-point-motion-hooks inhibit-read-only gnus-boring-article-headers gnus-newsgroup-name gnus-original-article-buffer gnus-article-check-hidden-text boring-headers t article-narrow-to-head #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (empty 38 newsgroups 78 to-address 122 to-list 176 cc-list 230 followup-to 284 reply-to 302 date 373 long-to 403 many-to 436)) re-search-forward "^[^: ]+:[ ]*\n[^ ]" nil -1 gnus-article-hide-text-type point-at-bol "^[^ ]" 0 gnus-string-equal gnus-fetch-field "newsgroups" boundp "" string-match "^[^:]+:" 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 #[257 "\211A@\227\207" #1=[] 2 "\n\n(fn X)"] string< #[257 "\211A@\227\207" #1# 2 "\n\n(fn X)"] "date" days-between current-time-string 4 1024 "^to:" 1 "^cc:"] 12 (#$ . 68519) [(gnus-article-hidden-arg) (gnus-article-mode)]]) #@15 (fn HEADER) (defalias 'gnus-article-hide-header #[257 "\212eb\210\300\301\302Q\303\304#\205%\305\306 \303\210\300\307\303\304#\203\"\310\224\202#d\311#)\207" [re-search-forward "^" ":" nil t gnus-article-hide-text-type point-at-bol "^[^ ]" 0 boring-headers] 7 (#$ . 71323)]) #@31 Length of normalized headers. (defvar gnus-article-normalized-header-length 40 (#$ . 71612)) #@43 Make all header lines 40 characters long. (defalias 'article-normalize-headers #[0 "\302\303\212\214\304 \210m?\205?\305 `Z\211\262 W\203(\303\210\306 Z\307\"c\210\2029\211 V\2039\310 u\210`\305 \311\302$\210\312y\210\202 +\207" [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] 7 (#$ . 71711) [nil (gnus-article-mode)]]) #@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 #[0 "\301!\207" [gnus-article-smartquotes-map article-translate-strings] 2 (#$ . 72145) [nil (gnus-article-mode)]]) (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 #[0 "\302\300!\210\303\304!\211\203/\211@\211<\203(\3058G\306U\203(\307\3058\310H\3118#\210A\266\202\202\210\212\312 \205q\313\304\211m?\205ngH\211\262\204O\306u\210\202;\314`!\211\262\315\306!\210\203h\316`c\210`#\210\202;c\210\202;)\266\203)\207" [org-entities inhibit-read-only 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] 8 (#$ . 72896) [nil (gnus-article-mode)]]) #@143 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"). (fn MAP) (defalias 'article-translate-strings #[257 "\212\301 \205P\302\211\211\205M\211@\211@A@\212;\203)\303\304\302#\203C\305!\210\202m\204Cg=\203=\306\307!\210\211c\210\202)\307u\210\202))\266A\266\202\202 \262))\207" [inhibit-read-only article-goto-body t search-forward nil replace-match delete-char 1] 9 (#$ . 73481)]) #@39 Translate overstrikes into bold text. (defalias 'article-treat-overstrike #[0 "\212\301 \205h\302\303\304\305\302#\205g\305f`\306Zf=\2030\307`\306Z`\310#\210\311``T\312\313$\266\202\314=\203L\307`S`T\310#\210\311`\306Z`S\312\315$\266\202\211\314=\203b\307`\306Z`\310#\210\311``T\312\315$\210\266\202))\207" [inhibit-read-only article-goto-body t search-forward "" nil 2 gnus-article-hide-text-type overstrike put-text-property face bold 95 underline] 7 (#$ . 73966) [nil (gnus-article-mode)]]) #@64 Translate ANSI SGR control sequences into overlays or extents. (defalias 'article-treat-ansi-sequences #[0 "\212\302 \205\303\304!\210\305\306\307`d\"*)\207" [ansi-color-context-region inhibit-read-only article-goto-body require ansi-color t nil ansi-color-apply-on-region] 3 (#$ . 74485) [nil (gnus-article-mode)]]) #@106 Unfold folded message headers. Only the headers that fit into the current window width will be unfolded. (defalias 'gnus-article-treat-unfold-headers #[0 "rq\210\214\305\211\211\306 \210\307m?\205z\214\310 \210\311 \f\305=\206)\f;\205)\312\f\"\313\314\305\"r\211q\210\315\316\"\216c\210eb\210\317\320\307\305#\203M\321\322\305\211#\210\202<*\210deZS\262\211\204`\323 W\203q\317\320\307\305#\203q\321\322\305\211#\210\202`\266db\210)\202\262-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-article-unfold-long-headers t article-narrow-to-head nil mail-header-narrow-to-field buffer-string string-match generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "\n[ ]" replace-match " " window-width] 8 (#$ . 74813) [nil (gnus-article-mode gnus-summary-mode)]]) #@23 Fold message headers. (defalias 'gnus-article-treat-fold-headers #[0 "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 (#$ . 75718) [nil (gnus-article-mode gnus-summary-mode)]]) #@75 Toggle display of textual emoticons ("smileys") as small graphical icons. (defalias 'gnus-treat-smiley #[0 "\303\304!!\205Arq\210\305\306\n>\203\307\306!\202@\310 \210\311`d\"\211\205>\312\306!\210\211\211\205<\211@\313\306\"\210A\266\202\202*\262\262*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t smiley gnus-delete-images article-goto-body smiley-region gnus-add-wash-type gnus-add-image] 6 (#$ . 76100) [nil (gnus-article-mode gnus-summary-mode)]]) #@44 Remove all images from the article buffer. (defalias 'gnus-article-remove-images #[0 "\303\304!!\205'rq\210\305\214~\210\n\211\205$\211@\306@!\210A\266\202\202\262+\207" [gnus-article-buffer inhibit-read-only gnus-article-image-alist buffer-live-p get-buffer t gnus-delete-images] 4 (#$ . 76622) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 #[0 "\305\211\306 \210*\307\310\n!!\205gr\nq\210\311\214~\210\f\312=\203(\313\312!\210\314 \202f\315ed\316#\211\205d\211@\211G\317U\203D\211A\262\242\202K\320\321\322GD\"\211A\262\242\242\211\323\324\"#\266A\266\202\202-\262+\207" [gnus-inhibit-images gnus-blocked-images gnus-article-buffer inhibit-read-only mm-text-html-renderer nil gnus-summary-select-article buffer-live-p get-buffer t w3m require w3m-toggle-inline-images gnus-find-text-property-region image-displayer 3 signal wrong-number-of-arguments (start end function) get-text-property image-url] 10 (#$ . 76981) [nil (gnus-article-mode gnus-summary-mode)]]) #@57 Toggle the use of proportional fonts for HTML articles. (defalias 'gnus-article-toggle-fonts #[0 "\304\305!!\205rq\210\306\n\307=\205\310\303!\210 ?\311 *\207" [gnus-article-buffer inhibit-read-only mm-text-html-renderer shr-use-fonts buffer-live-p get-buffer t shr make-local-variable gnus-summary-show-article] 3 (#$ . 77782) [nil (gnus-article-mode gnus-summary-mode)]]) #@54 Fold the Newsgroups and Followup-To message headers. (defalias 'gnus-article-treat-fold-newsgroups #[0 "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 (#$ . 78170) [nil (gnus-article-mode gnus-summary-mode)]]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-article-truncate-lines funcall function #[0 "\300\301!\207" [default-value truncate-lines] 2 ""] "Value of `truncate-lines' in Gnus Article buffer.\nValid values are nil, t, `head', `first', `last', an integer or a\npredicate. See Info node `(gnus)Customizing Articles'." :version "23.1" :group gnus-article :type boolean] 10) #@241 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. (fn &optional ARG) (defalias 'gnus-article-toggle-truncate-lines #[256 "\211\247\203\211\304V\203\305\202!\211\247\203\306\202!\211\203!?\307\310 !!\205Ir q\210\305\211\247\203?\211\304V\203?\306\202F\211\247\203F\305\311 *\207" [gnus-article-truncate-lines gnus-article-buffer inhibit-read-only truncate-lines 0 t nil buffer-live-p get-buffer toggle-truncate-lines] 4 (#$ . 79171) ["P" (gnus-article-mode gnus-summary-mode)]]) #@50 Place a boundary line at the end of the headers. (defalias 'gnus-article-treat-body-boundary #[0 "\205KG\306V\205Kr q\210\214\307\211\211\310 \210db\210`\311c\210\312` #\210\313\314 \211GY\2038P\262\202)\306O\266\202\315\261\210\316`\317\320$\262-\207" [gnus-body-boundary-delimiter gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-hidden-properties 0 t article-narrow-to-head "X-Boundary: " add-text-properties nil window-width "\n" put-text-property gnus-decoration header] 6 (#$ . 79847) [nil (gnus-article-mode gnus-summary-mode)]]) #@163 Fill lines that are wider than the window width or `fill-column'. If WIDTH (interactively, the numeric prefix), use that as the fill width. (fn &optional WIDTH) (defalias 'article-fill-long-lines #[256 "\212\303\304\305p!!\203\306!\202 ^\214\307 \210\310m?\205H\310\210iY\203B`Td^\311 }\210\312 \313\310!\210\314!b\210)\210~\210\315y\210\202+\266\202)\207" [inhibit-read-only fill-column adaptive-fill-mode t window-width get-buffer-window prefix-numeric-value article-goto-body nil point-at-bol point-marker fill-paragraph marker-position 1] 6 (#$ . 80448) ["P" (gnus-article-mode)]]) #@45 Capitalize the first word in each sentence. (defalias 'article-capitalize-sentences #[0 "\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 (#$ . 81059) [nil (gnus-article-mode)]]) #@64 Remove trailing CRs and then translate remaining CRs into LFs. (defalias 'article-remove-cr #[0 "\212\301eb\210\302\303\304\301#\203\305\306\301\211#\210\202eb\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 (#$ . 81364) [nil (gnus-article-mode)]]) #@51 Remove all trailing blank lines from the article. (defalias 'article-remove-trailing-blank-lines #[0 "\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 (#$ . 81729) [nil (gnus-article-mode)]]) #@63 Display any Face headers in the header. (fn &optional FORCE) (defalias 'article-display-face #[256 "r q\210\214\306\211\211\307 \210\211\203\310 >\203\311\310!\202\324\312\313!\314r\203K\211\205:\315\316!\211\262!\205:\211\262\203K\317\320\314\306#\204Kq\210\214\321 \210\204m \203m\204e\312\313!\211\262\203m\322 \"\204|\323\324!\203|\325 B\262\202m*\211\205\322eb\210\314\211\323\313!\211\262\204\230\326c\210`\262\327c\210\205\320\330\211A\262\242!\211\262\203\230\331\332\333\306\333!\236A%\262b\210\211\203\230\334\310!\210\335\310\"\210\336\314\310#\210\202\230\266\202\266\202-\207" [buffer-read-only gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-article-wash-types 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-original-article-buffer gnus-article-x-face-too-ugly gnus-face-properties-alist] 13 (#$ . 82058) [(byte-code "\300C\207" [force] 1) (gnus-article-mode gnus-summary-mode)]]) #@76 Look for an X-Face header and display it if present. (fn &optional FORCE) (defalias 'article-display-x-face #[256 "r q\210\214\306\211\211\307 \210\310\311!\203\312\311!\210\211\203)\313 >\203)\314\313!\202\342\315\316!\317r\203U&\211\205D\320\321!\211\262!\205D\211\262\203U\322\323\317\306#\204U&q\210\214\324 \210%\203\213\204|'\203|\204t\315\316!\211\262\203|\325'\"\204\213\326\327!\203\213\330 B\262\202|*\211\205\340\331%!\203\241\332%\"\266\202\202\342%;\203\332\317(\333\334\311\317)*%%\317\"\210\335\336\306\"r\211q\210\337\340\"\216@c\210\341\311ed#\210*\210\342\311!)\266\202\202\342\343\344%\345#\266\202-\207" [buffer-read-only gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-article-wash-types 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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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-original-article-buffer gnus-article-x-face-too-ugly process-connection-type shell-file-name shell-command-switch] 11 (#$ . 83369) [(byte-code "\300C\207" [force] 1) (gnus-article-mode gnus-summary-mode)]]) #@47 Decode all MIME-encoded words in the article. (defalias 'article-decode-mime-words #[0 "\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 (#$ . 84945) [nil (gnus-article-mode gnus-summary-mode)]]) #@127 Decode charset-encoded text in the article. If PROMPT (the prefix), prompt for a coding system to use. (fn &optional PROMPT) (defalias 'article-decode-charset #[256 "\306\211\211\212\3071 q0\210\202\210\n)\310\211\211\211\211 \212\214\311 \210\312\313\306\"\262\312\314\306\"\262\205@\315!\262\n\203M\316\317!\202U\205U\320\321\"\262\205_\320\322\"\262\203j\323!\262\203y\324\325@\"\204y\310\262db\210)\326y\210\214`d}\210\f\327=\203\225\330 \331=\203\225\f\262\203\240@\332\232\205\263\211?\205\263\333\205\260\334\227!@#.\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset inhibit-read-only 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 charset format mail-header-strip-cte string-search "/" 1 gnus-decoded mm-body-7-or-8 8bit "text/plain" mm-decode-body intern case-fold-search inhibit-point-motion-hooks] 15 (#$ . 85415) ["P" (gnus-article-mode)]]) #@44 Remove encoded-word encoding from headers. (defalias 'article-decode-encoded-words #[0 "\306\212\3071 q0\210\202\210\n)\306\310\211eb\210\311\312\310\313#\203+\314y\210`\262o?\205b\314y\210o\204A\310f\315>\2043`\262\316\317!\203S\"\210\202Y\"\210\211\211\262b\210\202.,\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets inhibit-read-only mail-parse-ignored-charsets mail-parse-charset 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\\):" inhibit-point-motion-hooks gnus-decode-address-function gnus-decode-header-function] 10 (#$ . 86561)]) #@65 Decode group names in Newsgroups, Followup-To and Xref headers. (defalias 'article-decode-group-name #[0 "\306\211\307!\310 \204\f\205~ \211\205#\311\312!\211\262!\205#\211\262\205~\214\313 \210\314\211\205{\211@r q\210eb\210)\315\316Q\262\317\310\306#\203q\320\321 \322\323\"\216\324r q\210\317\310\306#\210\325\326!)#)\262\306\211\310\326%\210\202Aeb\210A\266\202\202-\262)*\207" [gnus-newsgroup-name inhibit-read-only inhibit-point-motion-hooks gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist gnus-original-article-buffer 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 make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] gnus-decode-newsgroups match-string 1] 13 (#$ . 87307)]) #@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 #[0 "\205Y\214\303\211\304 \210eb\210\305\306\307\303#\205X\307\211\310 \311\312\"\216\313\314!\211\262\205?\212\315\316\307\303#\2055\317\320!)\205?\321!\211\262)\262\203S\230\204S\322\307\211\211\314%\210\266\202+\207" [gnus-use-idna inhibit-read-only inhibit-point-motion-hooks t article-narrow-to-head re-search-forward "@[^ \n ,>]*\\(xn--[-A-Za-z0-9.]*\\)[ \n ,>]" nil match-data make-closure #[0 "\301\300\302\"\207" [V0 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] 8 (#$ . 88226)]) #@202 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. (fn &optional FORCE READ-CHARSET) (defalias 'article-de-quoted-unreadable #[512 "\212\304\305\211 \211\205\306\307!\211\262!\205\211\262\203Gr q\210\310\311!\262\310\312!\211\205/\313!\211\2057\314\315\"\262;\203D\316\227!\262\266)\203Q\317\320\"\262\211\204X\n\262\204j\205v\304\321\322\")\205v\323 \210\324`d\325\305\304##)\266\203)\207" [inhibit-read-only gnus-original-article-buffer gnus-newsgroup-charset case-fold-search t nil buffer-live-p get-buffer gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get charset intern read-coding-system "Charset: " string-match "quoted-printable" article-goto-body quoted-printable-decode-region mm-charset-to-coding-system] 12 (#$ . 89081) [(byte-code "\301D\207" [current-prefix-arg force] 2) (gnus-article-mode)]]) #@171 Translate a base64 article. If FORCE, decode the article whether it is marked as base64 not. If READ-CHARSET, ask for a coding system. (fn &optional FORCE READ-CHARSET) (defalias 'article-de-base64-unreadable #[512 "\212\304\305\211 \211\205\306\307!\211\262!\205\211\262\203Gr q\210\310\311!\262\310\312!\211\205/\313!\211\2057\314\315\"\262;\203D\316\227!\262\266)\203Q\317\320\"\262\211\204X\n\262\204j\205\201\304\321\322\")\205\201\323 \210\214`d}\210\324ed\"\210\325ed\326\305\304##))\266\203)\207" [inhibit-read-only gnus-original-article-buffer gnus-newsgroup-charset case-fold-search t nil buffer-live-p get-buffer gnus-fetch-field "content-transfer-encoding" "content-type" mail-header-parse-content-type mail-content-type-get charset intern read-coding-system "Charset: " string-match "base64" article-goto-body base64-decode-region decode-coding-region mm-charset-to-coding-system] 12 (#$ . 90112) [(byte-code "\301D\207" [current-prefix-arg force] 2) (gnus-article-mode)]]) #@33 Translate a HZ-encoded article. (defalias 'article-decode-HZ #[0 "\301\302!\210\212\303\304ed\"*\207" [inhibit-read-only require rfc1843 t rfc1843-decode-region] 3 (#$ . 91142) [nil (gnus-article-mode)]]) #@63 Remove the newlines that some other mailers insert into URLs. (defalias 'article-unsplit-urls #[0 "\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 (#$ . 91354) [nil (gnus-article-mode)]]) #@25 Format an HTML article. (defalias 'article-wash-html #[0 "\302\303 \211\205\304\305!\211\262!\205\211\262\203$r q\210\306\303\211\"\262)\307 \210`d|\210\310 \210\311!)\207" [inhibit-read-only gnus-original-article-buffer nil t buffer-live-p get-buffer mm-dissect-buffer article-goto-body mm-enable-multibyte mm-inline-text-html] 5 (#$ . 91759) [nil (gnus-article-mode)]]) #@89 List of temporary files created by `gnus-article-browse-html-parts'. Internal variable. (defvar gnus-article-browse-html-temp-list nil (#$ . 92148)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-article-browse-delete-temp funcall function #[0 "\300\207" [ask] 1 ""] "What to do with temporary files from `gnus-article-browse-html-parts'.\nIf nil, don't delete temporary files. If it is t, delete them on\nexit from the summary buffer. If it is the symbol `file', query\non each file, if it is `ask' ask once when exiting from the\nsummary buffer." :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))] 10) #@84 Delete temp-files created by `gnus-article-browse-html-parts'. (fn &optional HOW) (defalias 'gnus-article-browse-delete-temp-files #[256 "\203z\211\204 \262\211\302=\203.G\303\304U\203\305\202\"\306\307\"!\206)\310\211\262\202/\211\203z\211\203w\211@\311!\203W\312=\203P\303\313\314\315!\"!\203p\316!\210\202p\317!\203p\312=\203l\303\306\320\"!\203p\321!\210A\266\202\2023\210\310\207" [gnus-article-browse-html-temp-list gnus-article-browse-delete-temp ask gnus-y-or-n-p 1 "Delete the temporary HTML file? " format "Delete all %s temporary HTML files? " nil file-directory-p file 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] 8 (#$ . 92934)]) #@147 Find CID content in HANDLES and save it in a file in DIRECTORY. Return file name relative to the parent of DIRECTORY. (fn CID HANDLES DIRECTORY) (defalias 'gnus-article-browse-html-save-cid-content #[771 "\301 \302\303\"\216\304\211\3052\237\211\205\234\211@\211<\203\225\306@!\204&\211@;\203\225\211\307\211@;\2036\211@\262\202<\211A@@\262\310\"@\262\311\232\203[\312#\211\262\203\225\313\305\"\210\202\225\314\315Q\3168\232\203\225\317!\206y\320\321!\322A@@\"@P\262\323\"\262\324\"\210\313\305\325\326 !!\310Q\"\210A\266\202\202\2620\266\202)\207" [mailcap-mime-extensions match-data make-closure #[0 "\301\300\302\"\207" [V0 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] 13 (#$ . 93753)]) #@207 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. (fn LIST &optional HEADER) (defalias 'gnus-article-browse-html-parts #[513 "\305\211\211\211\211\211\211\211\203\344\211@\211<\203\335\211A@\211\262\n@\306\232\204s@\307\232\203 \2046\310!\211\262 \203\3118\204a\3121I\313!\210\3140\202^\315\316\317\320!#\210\316Y\203[\321\322!\210\305\262\203\3118\262\211A@\262 @\306\232\203\323 \324\"\262\325!\262\326\327\314\"r\211q\210\330\331\"\216\332=\203\231\333 \210\202\234\334 \210c\210\314\305\211\211\211eb\210\335\336\305\314#\203\337\225\262\335\340\305\314#\203\341\342\314#\203\343\344!\262\345\346!\210`\262\347\211\203\211@\350@\351A\352\260\262\335\305\314#\203\3531\354 \330\355\"\216\356\343\344!\")\2620\202 \210\343\344!\344\224\344\225|\210c\210\202\344b\210A\266\202\202\323\210\335\357\305\314#\203\\\n\2048\360\361\314\"\262 \362\363\f\"\210\305\262\305\262\f\364\343\322!r\nq\210 ) #\211\262\203\345\305\211\211\344%\210\202)\266\204h\365 \262*\210\204y \204y\204\200\360\366\305\367#\262 \203w\305\211\211\211\211\326\327\314\"r\211q\210\330\370\"\216\333 \210\314\371\261\210\372\373!\262eb\210\335\374\305\314#\203\326\345\344\224\203\274\375\202\321\322\224\203\305\376\202\321\316\224\203\316\377\202\321\201@!\210\202\252eb\210\335\201A\305\314#\203i\337\224\337\225|\210\337\211W\203\377\305\201Bc\266\211T\262\202\353\266\202\331eb\210\201Cc\210db\210\201Dc\210\f\332=\203E\201E\262 \201F\365 \"\262\2056\201F\"\262\201F\f\"\262\202\201Ged\"\262G\344U\203d@\262\201H\305\314#\262\202sG\344V\203s\201E\262\262\203\371\f\203\331\201H \305\314#\262=\203\251\201F\365 \"\262\205\240\201F\"\262 \262\202\201E\262 \201F\365 \"\262\205\304\201F\"\262\201F\201I \"\"\262\202\262 \201F\365 \"\262\205\360\201F\"\262 \262\202\201F\365 \201E\"\262 \262\201J \210\334 \210c\210\f\203\"\201K\314#\210\203Heb\210\201L\201M\305\314#\204H\335\201N\305\314#\210\201M\201O\261\210eb\210\335\201P\305\314#\204]\335\201Q\305\314#\210c\210\201Red\f\305\211\211\201S\314&\210*\266\202\336\203\323\326\327\314\"r\211q\210\330\201T\"\216\334 \210\332=\203\244\201F\201E\211\262 \"\202\246c\210\201K \"\204\267\204\313\201Red\305\211\211\201S\314&\210\202\316\305\262*\210\202\336\203\336\201U\"\210\203\347\362\363\"\210\201V\201W\201X\"\210\201V\201Y\201Z\"\210\201[\206\n\201\\ !!\210\314\262\202\335\211\201]\211@;\203$\211@\262\202*\211A@@\262\201^\"@\262\201_\232\203H\201` \"\203\335\314\262\202\335\211\211@;\203V\211@\262\202\\\211A@@\262\201a\232\203\335\326\327\314\"r\211q\210\330\201b\"\216\333 \210\201c!\210\201d\314\211\"\262\201e@!\203\230A@@;\203\230C\262\n\203\310\201f \210\201g\304!\201h \210)eb\210\201L\201i\305\201j#\210\201k\305x\210e`{\262 *\210\201` \"\201l!\210\203\335\314\262A\266\202\202 \210\207" [gnus-verbose case-fold-search gnus-article-buffer gnus-article-mime-handles gnus-visible-headers 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 charset mm-get-part generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] gnus-decoded mm-enable-multibyte mm-disable-multibyte re-search-forward "]" 0 "]" re-search-backward "]+\\)*[ \n ]+href=\"\\([^\"]+\\)\"[^>]*>" match-string 1 replace-match "" (("a" . "href") ("form" . "action") ("img" . "src")) "<" "\\(?:[ \n ]+[^ \n >]+\\)*[ \n ]+" "=\"\\([^\"]+\\)" (error) match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] url-expand-file-name "]+[ \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" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "\n" message-fetch-field "subject" "\\(<\\)\\|\\(>\\)\\|\\(&\\)\\|\n" "<" ">" "&" "
\n" "^[ ]+" " " "
\n" "
\n
\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 "" "<head>\\s-*" "\n" "]+\\|\\s-*\\)>\\s-*" "]+\\|\\s-*\\)>\\s-*" mm-write-region binary #[0 "\301\300!\205 \302\300!\207" [V0 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 #[0 "\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" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-insert-part mm-dissect-buffer bufferp article-decode-encoded-words custom--standard-value article-hide-headers "\n\n" move " \n " mm-destroy-parts] 26 (#$ . 94716)]) #@773 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). (fn &optional ARG) (defalias 'gnus-article-browse-html-article #[256 "\211\203\n\305 \210\202\306\302!\307\211\305 \210+r q\210\211?\205<\214~\210\310eb\311\312\307\313#\2032\314\224\202:db\210\315\307x\210`\")\307\fq\210\316\313\211\"\262\317@!\203Y\211A@@;\203Y\211C\262\320\"\204e\321\322\323\"\210\324!\210?\205p\305 \266\202)\207" [gnus-treat-body-boundary gnus-mime-display-attachment-buttons-in-header gnus-visible-headers gnus-article-buffer gnus-original-article-buffer gnus-summary-show-article custom--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] 7 (#$ . 100115) ["P" (gnus-article-mode)]]) #@109 Remove list identifiers from the Subject header. The `gnus-list-identifiers' variable specifies what to do. (defalias 'article-hide-list-identifiers #[0 "\303\304!\303\211\2059\212\214\305 \210eb\210\306\307\310Q\311\303#\203+\312\224\313\225|\210\314 \210\202\306\315\311\303#\2058\316\224\316\225|**\207" [gnus-newsgroup-name inhibit-read-only 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] 6 (#$ . 101668) [nil (gnus-article-mode)]]) #@175 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. (fn &optional ARG) (defalias 'article-hide-pem #[256 "\301\302\"?\205K\212\303\304eb\210\305\306\304\303#\205G\307\224T\211\262\205G\310\302!\210\311\305\312\304\303#\2034\307\225\2025d\302#\210\305\313\304\303#\205G\311\307\224\307\225\302#)\266\202)\207" [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"] 9 (#$ . 102289) [(gnus-article-hidden-arg) (gnus-article-mode)]]) #@105 Strip the banners specified by the `banner' group parameter and by `gnus-article-address-banner-alist'. (defalias 'article-strip-banner #[0 "\212\214\304\305 !\203\306\305 !!\210\n\205T\214~\210\307 \210\310\311!)\211\205R !A@\211\262\205R\3122R\n\211\205O\211@\313@\"\203H\314\312\306A!\"\210A\266\202\2022\2620\262+\207" [inhibit-point-motion-hooks gnus-newsgroup-name gnus-article-address-banner-alist gnus-extract-address-components t gnus-parameter-banner article-really-strip-banner article-narrow-to-head mail-fetch-field "from" found string-match throw] 7 (#$ . 103009) [nil (gnus-article-mode)]]) #@58 Strip the banner specified by the argument. (fn BANNER) (defalias 'article-really-strip-banner #[257 "\212\214\304\305\304\306 \210\211\307=\203!\310 \205W~\210\311y\210`d|\202W\2119\203A\211 \236A\211\262\205W\312\305\304#\205W\313\224\313\225|\210\2020\211;\205W\312\305\304#\205W\313\224\313\225|\210\202F-\207" [inhibit-read-only gnus-signature-limit inhibit-point-motion-hooks gnus-article-banner-alist t nil article-goto-body signature gnus-article-narrow-to-signature -1 re-search-forward 0] 5 (#$ . 103639)]) #@56 Translate article using an online translation service. (defalias 'article-babel #[0 "\302\303!\210\304\305!!\205.rq\210\306\307 \205-`d{\310!\214}\210|\210\211c)\266\204*\207" [gnus-article-buffer inhibit-read-only require babel buffer-live-p get-buffer t article-goto-body babel-as-string] 6 (#$ . 104179) [nil (gnus-article-mode gnus-summary-mode)]]) #@146 Hide the signature in the current article. If given a negative prefix, always show; if given a positive prefix, always hide. (fn &optional ARG) (defalias 'article-hide-signature #[256 "\301\302\"\204\212\214\303\304 \203\305ed\302#\210+\306\307!\207" [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] 5 (#$ . 104551) [(gnus-article-hidden-arg) (gnus-article-mode)]]) #@38 Strip offensive headers from bodies. (defalias 'article-strip-headers-in-body #[0 "\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 (#$ . 105032) [nil (gnus-article-mode)]]) #@59 Remove all blank lines from the beginning of the article. (defalias 'article-strip-leading-blank-lines #[0 "\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 (#$ . 105302) [nil (gnus-article-mode)]]) #@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 #[0 "eb\300\301!\203\f`\202\302\303\304\305#\203`S\202d}\210eb\207" [looking-at "\n" search-forward "\n\n" nil 1] 5 (#$ . 105645)]) #@39 Place point at the start of the body. (defalias 'article-goto-body #[0 "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 (#$ . 105928)]) #@54 Replace consecutive blank lines with one empty line. (defalias 'article-strip-multiple-blank-lines #[0 "\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 (#$ . 106160) [nil (gnus-article-mode)]]) #@72 Remove all white space from the beginning of the lines in the article. (defalias 'article-strip-leading-space #[0 "\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 (#$ . 106674) [nil (gnus-article-mode)]]) #@66 Remove all white space from the end of the lines in the article. (defalias 'article-strip-trailing-space #[0 "\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 (#$ . 107034) [nil (gnus-article-mode)]]) #@51 Strip leading, trailing and multiple blank lines. (defalias 'article-strip-blank-lines #[0 "\300 \210\301 \210\302 \207" [article-strip-leading-blank-lines article-remove-trailing-blank-lines article-strip-multiple-blank-lines] 1 (#$ . 107389) [nil (gnus-article-mode)]]) #@24 Strip all blank lines. (defalias 'article-strip-all-blank-lines #[0 "\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 (#$ . 107667) [nil (gnus-article-mode)]]) #@70 Narrow to the signature; return t if a signature is found, else nil. (defalias 'gnus-article-narrow-to-signature #[0 "\302\303 \205l\304y\210 <\203 \202 C\305\211\211A\262\242\211\262\203`\250\2030d`ZW\204\306!\203?\307`d\"W\204\310!\203J \204;\203W\311\305\302#\203\302\262\305\262\202\211?\205j`d}\210\302\266\203)\207" [inhibit-point-motion-hooks gnus-signature-limit t gnus-article-search-signature 1 nil floatp count-lines functionp re-search-forward] 7 (#$ . 107983)]) #@111 Search the current buffer for the signature separator. Put point at the beginning of the signature separator. (defalias 'gnus-article-search-signature #[0 "`db\210;\203\301\302\303#\202)\211\203&\301@\302\303#\204&\211A\262\202\211\262\203.\303\207\211b\210\302\207" [gnus-signature-separator re-search-backward nil t] 6 (#$ . 108500)]) #@63 Return the current prefix arg as a number, or 0 if no prefix. (defalias 'gnus-article-hidden-arg #[0 "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value 0] 2 (#$ . 108857)]) #@146 Return nil if hiding is necessary. Arg can be nil or a number. nil and positive means hide, negative means show, 0 means toggle. (fn TYPE ARG) (defalias 'gnus-article-check-hidden-text #[514 "\212\214\300!\203\301V\203\302\202,\301W\203!\303!\210\304\202,\211\305=\205,\303!\210\304\262*\207" [gnus-article-hidden-text-p 0 nil gnus-article-show-hidden-text t hidden] 5 (#$ . 109059)]) #@78 Say whether the current buffer contains hidden text of type TYPE. (fn TYPE) (defalias 'gnus-article-hidden-text-p #[257 "\300ed\301$\211\203$\302\303\"\204$\302\304\"\204$\300Td\301$\262\202\211\205)\305\207" [text-property-any article-type get-text-property invisible dummy-invisible hidden] 7 (#$ . 109467)]) #@103 Show all hidden text of type TYPE. Originally it is hide instead of DUMMY. (fn TYPE &optional DUMMY) (defalias 'gnus-article-show-hidden-text #[513 "\303\211\304\305ed\305\nBB%\210\306!*\207" [inhibit-point-motion-hooks inhibit-read-only gnus-hidden-properties t gnus-remove-text-properties-when article-type gnus-delete-wash-type] 10 (#$ . 109798)]) #@37 Mapping from time units to seconds. (defconst article-time-units (byte-code "\300\301B\302\303B\304\305B\306\307B\310BBBB\207" [year 31557600.0 week 604800 day 86400 hour 3600 ((minute . 60) (second . 1))] 5) (#$ . 110162)) #@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 #[0 "\300\211?\205\301y\210\302\303!\203\301y\210\202\304\262\202\207" [nil 1 looking-at "[ ]+[^ ]" t] 3 (#$ . 110393)]) (defalias 'article-treat-date #[0 "\302\211\205\303\304!\211\262!\205\211\262\203 rq\210 )\202! \305\"\207" [gnus-summary-buffer gnus-article-date-headers article-date-ut buffer-live-p get-buffer t] 5]) #@176 Convert DATE date to TYPE in the current article. The default type is `ut'. See `gnus-article-date-headers' for possible values. (fn &optional TYPE HIGHLIGHT DATE-POSITION) (defalias 'article-date-ut #[768 "\303\211\303\304\305!\306\211\211\211\212\203hb\210\307`\310\"\262\311 \210\312\313!\2032\307\314\224\315\"\262\307\314\225\315\"\262b\210n\203=\206X\307\316\"\203W\317\306x\314W\203W\320`\316\306$\206X\321 \210`|\210\322 $\202\214~\210eb\210\307`\211\262\310\"\204\207\323`\310\"\211\262\205b\205\324\325\306\303#\203\226\314\224T\202\227d}\210\326d\316\306$\211\262\203\314\307\310\"\262b\210\312\313!\203\302\307\314\224\315\"\262\307\314\225\315\"\262\321 \210`|\210\202\231\204\373eb\210\327\330\306\303#\203\373\307\314\224\310\"\262\307\314\224\315\"\262\307\314\225\315\"\262\331 \321 \210`|\210\202\323\204\203\262\203\322 $\210db\210~\210\202n),\207" [case-fold-search inhibit-read-only inhibit-point-motion-hooks 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] 14 (#$ . 110912) [(byte-code "\300\301D\207" [ut t] 2) (gnus-article-mode)]]) #@30 (fn DATE TYPE BFACE EFACE) (defalias 'article-transform-date #[1028 "\300\211\204 \301C\202:\204C\202\211\205\313\211@`\262\302\206'\301\"\262\211\303=\203`n\203`\304\305\210`b\210\306\"\204`\307\310\"\210\311\224\203S\312\261\210\202e\313\305\225\300O\312\261\210\202e\312\261\210\314`\315 \306F#\210b\210\316 \210\317\320!\210\203\216\311\224\203\216\321\311\224\311\225\322 $\210\323\224\203\304\203\241\321\323\224\323\225\322$\210\311y\305U\203\304\317\324!\203\304\203\241\311\224\203\241\321\311\224\311\225\322$\210\202\241A\266\202\202\207" [nil ut article-make-date-line user-defined get-text-property 0 gnus-date-type string-match "\\`\\([^ \n :]+:\\)?[ ]*" 1 "\n" "Date: " add-text-properties original-date beginning-of-line looking-at "\\([^\n:]+:\\)?[ ]*\\(\\(?:[^ \n ]+[ ]+\\)*[^ \n ]+\\)?" put-text-property face 2 "[ ]+\\(\\(?:[^ \n ]+[ ]+\\)*[^ \n ]+\\)?"] 15 (#$ . 112321)]) #@66 Return type of date with lapsed time added. (fn DATE TIME TYPE) (defalias 'article-make-date-combine-with-lapsed #[771 "\301\"\302\303\2031\304\305\"\306Q\211\262\2031GG\\\307\\V\2031\310V\2031S\262\202\310V\203;P\207\207" [fill-column article-make-date-line 3 nil " (" article-lapsed-string ")" 6 0] 10 (#$ . 113286)]) #@45 Return a DATE line of TYPE. (fn DATE TYPE) (defalias 'article-make-date-line #[514 "\211\304>\204 \305\306\"\210\3071\3101\311!0\202\210\312\313\267\202\373\314\315!P\202\374\316\317\320\321\322!!\323#)\202\374\314\324\325\"\203J\326\211\224O\202KP\202\374\3271]r q\210\n)0\202a\210\202d\206e\n\330!\203q\211!\202w\314\317\"P\262\202\374\317\331\"\202\374\314\332!P\202\374\333\334#\202\374\333\335#\202\374\336!\337\340\3418!\3418\342\246\3418\343>\203\265\344\202\324\211\345U\203\277\346\202\324\211\347U\203\311\350\202\324\211\341U\203\323\351\202\324\344\262\352\3538S 8\354\340\3558!\356\357\360\347 8\"\361\357\360\fA@\"\260 \262\202\374\312\2620\207\210\357\362\"\207" [system-time-locale gnus-summary-buffer gnus-article-time-format gnus-english-month-names (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 34 ut 42 original 58 user-defined 79 iso8601 124 lapsed 131 combined-lapsed 139 combined-local-lapsed 147 english 155)) "Date: " message-make-date "C" format-time-string "Date: %a, %d %b %Y %T UT" encode-time parse-time-string t string-match "\n+$" 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)"] 17 (#$ . 113637)]) #@36 (fn TIME &optional MAX-SEGMENTS) (defalias 'article-lapsed-string #[513 "\211C\301!\302!\303!C\304C\305C\305C\242\204G\240\210\303\242!\306W\203+\266\307\207\310\311\312 &\313#\304V\203G\314\202H\315P\207" [article-time-units time-since float-time abs 0 nil 1 "Now" mapconcat make-closure #[257 "\303\305\301\242A\245!\240\306U\204\302\242\300\242Y\203\307\207\301\211\242\303\242A_Z\240\210\304\242\203,\310\202-\307\311\312\303\242!!\313\314@!\303\242\315V\203C\316\202D\307\260\304\317\240\210\302\211\242T\240\210\207" [V0 V1 V2 V3 V4 ffloor 0 #1="" ", " int-to-string floor " " symbol-name 1 "s" t] 7 "\n\n(fn UNIT)"] #1# " ago" " in the future"] 17 (#$ . 115265)]) #@83 Convert the current article date to the local timezone. (fn &optional HIGHLIGHT) (defalias 'article-date-local #[256 "\300\301\"\207" [article-date-ut local] 4 (#$ . 115983) [(list t) (gnus-article-mode)]]) #@97 Convert the current article date to something that is proper English. (fn &optional HIGHLIGHT) (defalias 'article-date-english #[256 "\300\301\"\207" [article-date-ut english] 4 (#$ . 116198) [(list t) (gnus-article-mode)]]) #@213 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. (fn &optional HIGHLIGHT) (defalias 'article-date-original #[256 "\300\301\"\207" [article-date-ut original] 4 (#$ . 116432) [(list t) (gnus-article-mode)]]) #@94 Convert the current article date to time lapsed since it was sent. (fn &optional HIGHLIGHT) (defalias 'article-date-lapsed #[256 "\300\301\"\207" [article-date-ut lapsed] 4 (#$ . 116783) [(list t) (gnus-article-mode)]]) #@94 Convert the current article date to time lapsed since it was sent. (fn &optional HIGHLIGHT) (defalias 'article-date-combined-lapsed #[256 "\300\301\"\207" [article-date-ut combined-lapsed] 4 (#$ . 117011) [(list t) (gnus-article-mode)]]) #@65 Function to be run from a timer to update the lapsed time line. (defalias 'article-update-date-lapsed #[0 "\300 \301\302\"\216p\3031\304\305\306\307#0\210\202\210\211q\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] (error) walk-windows #[257 "\300!q\210\301\302!\205\217\303e`\"`\304 Z\305!e\306\211\211\307d\310\306$\211\262\203l\311\310\"\206.d\262\312\310\"\262\313>\203f\314\315#\210\311\310\"\206Kd\262\203cU\204]\306\262\202c\316\"\210\211\262\262\202eb\210\317V\203zS\262y\210\306\210iV\205\215\320 \210u\266\207\207" [window-buffer derived-mode-p gnus-article-mode count-lines line-beginning-position window-start 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] 13 "\n\n(fn W)"] nil visible] 6 (#$ . 117257)]) #@162 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. (fn &optional N) (defalias 'gnus-start-date-timer #[256 "\211\204\301\262\302 \210\303\301\304#\211\207" [article-lapsed-timer 1 gnus-stop-date-timer run-at-time article-update-date-lapsed] 5 (#$ . 118213) ["p" (gnus-article-mode)]]) #@22 Stop the Date timer. (defalias 'gnus-stop-date-timer #[0 "\205 \301!\210\302\211\207" [article-lapsed-timer cancel-timer nil] 2 (#$ . 118602) [nil (gnus-article-mode)]]) #@155 Convert the current article date to the user-defined format. This format is defined by the `gnus-article-time-format' variable. (fn &optional HIGHLIGHT) (defalias 'article-date-user #[256 "\300\301\"\207" [article-date-ut user-defined] 4 (#$ . 118783) [(list t) (gnus-article-mode)]]) #@72 Convert the current article date to ISO8601. (fn &optional HIGHLIGHT) (defalias 'article-date-iso8601 #[256 "\300\301\"\207" [article-date-ut iso8601] 4 (#$ . 119076) [(list t) (gnus-article-mode)]]) #@81 Save the original date as a text property and evaluate FORMS. (fn &rest FORMS) (defalias 'gnus-article-save-original-date '(macro . #[128 "\300\301\302\303\304\305\306\"BBBBB\207" [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))] 9 (#$ . 119284)])) #@47 Remove excessive whitespace from all headers. (defalias 'article-remove-leading-whitespace #[0 "\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 (#$ . 120015) [nil (gnus-article-mode)]]) #@72 Emphasize text according to `gnus-emphasis-alist'. (fn &optional ARG) (defalias 'article-emphasize #[256 "\306\307\"?\205\306\212\3101rq\210 )0\202\210\202\206\n\311\312\313 \"\314\211\211\211\211\211\315 \210`\262\211A\262\n\242\211\262\205\302b\210@\262A@\262\3168\262\3178\262\320\314\311#\2033\224\203V\224\203V\224\225\321\322\314%\266\323\224\225\307#\210\224\225\324\325 \326\327\"\216\212\214b\210\320 \330#\203\253\331\332\333\224\"#\210`\262\202\222\331\332`\"#+\266\334\307!\210\225b\210\202V)\266\211)\207" [gnus-summary-buffer gnus-article-emphasis-alist gnus-emphasis-alist gnus-hidden-properties inhibit-read-only gnus-emphasize-whitespace-regexp 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 face match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] move overlay-put make-overlay 0 gnus-add-wash-type] 19 (#$ . 120339) [(gnus-article-hidden-arg) (gnus-article-mode)]]) #@65 Setup newsgroup emphasis alist. (fn &optional HIGHLIGHT-WORDS) (defalias 'gnus-article-setup-highlight-words #[256 "?\205_ \205 \304\305\"\203\211\306\225\307O\202\211\262\310\300!\210\n\307\211\211A\262\242\211\262\203G\203#\304@\"\203#\307\262\311A!\262\202#\266\202\311!\244 \205X\311\312 \313\314#!\244 \244\211\262\207" [gnus-article-emphasis-alist gnus-newsgroup-name gnus-group-highlight-words-alist gnus-emphasis-alist string-match "^[^:]+:" 0 nil make-local-variable copy-sequence gnus-group-find-parameter highlight-words t] 8 (#$ . 121477)]) #@75 Save the currently selected article. (fn SAVE-BUFFER FILE &optional NUM) (defalias 'gnus-article-save #[770 "\306N\204\n \204#\306NJ\206\n\206 \307rq\210\310\311\312\"\210+\313 \314\315\"\216\2044\316\317!\202^ q\210\320\267\202I\321\202J\307\202J\312=\205Rq\210!*\262)\207" [gnus-default-article-saver gnus-save-all-headers gnus-saved-headers gnus-visible-headers gnus-summary-buffer gnus-article-buffer :headers nil article-hide-headers 1 t current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] error "No default saver is defined" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 65 always 69)) default gnus-save-article-buffer gnus-prompt-before-saving gnus-number-of-articles-to-be-saved gnus-article-current-summary] 7 (#$ . 122064)]) #@74 (fn PROMPT &optional FILENAME FUNCTION GROUP HEADERS VARIABLE DIR-VAR) (defalias 'gnus-read-save-file-name #[1793 "J#\304\305\306\267\202\202\357\202\357\203!\202\357J\203/\305\307!J\"\262\310!\311 \203F \312V\203F\311\313 \"\202G\314\"\204_\315\316\307!\317R\320!#\202\323;\203\202   J#\262\315\316\307!\317R\320!#\202\323G\312U\203\263\305@\n\"\321!\203\232\322!\202\245\323!\203\244\211\202\245\n\315\316\317R#\266\202\202\323\237\262\304 \244\305\315\324P\n@#\n\"\262)\211 B\211@\262\325\320!!\210\321!\203\352\305\307!\322!\"\262\326!\266\203!\262\325\320!!\210\203L\210\203\n\320!L\210\207" [gnus-split-methods gnus-number-of-articles-to-be-saved gnus-article-save-directory file-name-history nil expand-file-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 15 t 19)) 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] 19 (#$ . 122928)]) #@83 Return the first instance of an "Archive-name" in the current buffer. (fn GROUP) (defalias 'gnus-article-archive-name #[257 "\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] 5 (#$ . 124150)]) #@78 If GROUP is an nndoc group, return the name of the parent group. (fn GROUP) (defalias 'gnus-article-nndoc-name #[257 "\300!@\301=\205 \302\303\"\207" [gnus-find-method-for-group nndoc gnus-group-get-parameter save-article-group] 4 (#$ . 124491)]) #@175 Append this article to Rmail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (fn &optional FILENAME) (defalias 'gnus-summary-save-in-rmail #[256 "\304\305 \n\306&\262r q\210\212\214~\210\307!\210+\207" [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] 8 (#$ . 124749)]) #@179 Append this article to Unix mail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (fn &optional FILENAME) (defalias 'gnus-summary-save-in-mail #[256 "\304\305 \n\306&\262r q\210\212\214~\210\307!\203,\310!\203,\311!\203,\312!\210\2020\313!\210+\207" [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] 8 (#$ . 125239)]) (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) #@179 Append this article to file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (fn &optional FILENAME OVERWRITE) (defalias 'gnus-summary-save-in-file #[512 "\304\305 \n\306&\262r q\210\212\214~\210\211\203!\307!\203!\310!\210\311!\210+\207" [gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer gnus-read-save-file-name "Save %s in file" gnus-newsgroup-last-file file-exists-p delete-file gnus-output-to-file] 9 (#$ . 125984)]) (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) #@207 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'. (fn &optional FILENAME) (defalias 'gnus-summary-write-to-file #[256 "\303\304 \n\305\306&\262\307\310\"\207" [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] 9 (#$ . 126714)]) (put 'gnus-summary-save-body-in-file :decode t) #@188 Append this article body to a file. Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'. (fn &optional FILENAME OVERWRITE) (defalias 'gnus-summary-save-body-in-file #[512 "\304\305 \n\306&\262r q\210\212\214~\210\307 \203`d}\210\211\203*\310!\203*\311!\210\312!\210+\207" [gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-save-article-buffer 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] 9 (#$ . 127251)]) (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) #@212 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'. (fn &optional FILENAME) (defalias 'gnus-summary-write-body-to-file #[256 "\303\304 \n\305\306&\262\307\310\"\207" [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] 9 (#$ . 127997)]) (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) #@539 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. (fn &optional COMMAND RAW) (defalias 'gnus-summary-save-in-pipe #[512 "\306`\307\"\211\205 \310!\266\306`\311\"\206\312 ?\205\313\314N\315\211\203|\316\317\"\3208\262!\203tr\321\211\315$\210\322\203D \202E\n\323\324!\262!\210\204p\313\325N\204Z \204p\313\325NJ\206f\f\206f \315&\326\327\330\"\210*)\202\200\331\332\"\210\202\200\331\333!\210'\206\207(\262;\204\242\334=\203\234\211\203\234\211\202\240\335\336\"\262\337\230\203\266\211\203\262\211\262\202\266\331\340!\210rq\210\214~\210\341ed\315$\210*\211\205\327\342\343!\211\262!\205\327\211\262\203\343\344!\210\345 \210\266\211'\207" [gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-save-all-headers gnus-saved-headers gnus-visible-headers 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" default 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 gnus-summary-buffer gnus-summary-pipe-output-default-command gnus-last-shell-command] 11 (#$ . 128635)]) #@57 Pipe this article to muttprint. (fn &optional COMMAND) (defalias 'gnus-summary-pipe-to-muttprint #[256 "\211;\204 \302\303\304$\262 \305!\210)\211\211\207" [gnus-summary-muttprint-program gnus-summary-pipe-output-default-command read-string "Print using command: " nil gnus-summary-save-in-pipe] 6 (#$ . 130561)]) #@44 Capitalize NEWSGROUP name. (fn NEWSGROUP) (defalias 'gnus-capitalize-newsgroup #[257 "\211G\300U?\205\301\300H\226!\302\303OP\207" [0 char-to-string 1 nil] 5 (#$ . 130889)]) #@237 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. (fn NEWSGROUP HEADERS &optional LAST-FILE) (defalias 'gnus-Numeric-save-name #[770 "\301\302\303!\203 \304!\202\305!\306\307\310H!Q\"\2031\311!\311!\230\2031\312\313\314!\"\2031\207\2066\211\207" [gnus-article-save-directory 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] 9 (#$ . 131075)]) #@238 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. (fn NEWSGROUP HEADERS &optional LAST-FILE) (defalias 'gnus-numeric-save-name #[770 "\301\302\303!\203 \202\304!\305\306\307H!Q\"\203/\310!\310!\230\203/\311\312\313!\"\203/\207\2064\211\207" [gnus-article-save-directory 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] 9 (#$ . 131728)]) #@235 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. (fn NEWSGROUP HEADERS &optional LAST-FILE) (defalias 'gnus-plain-save-name #[770 "\211\206\302\303\304!\203\202\305\302\306\307!\"\" \"\207" [default-directory gnus-article-save-directory expand-file-name gnus-use-long-file-name not-save file-relative-name "news" gnus-newsgroup-directory-form] 9 (#$ . 132351)]) #@77 Generate file name from sender. (fn NEWSGROUP HEADERS &optional LAST-FILE) (defalias 'gnus-sender-save-name #[770 "\301H\302\203\303\304\"\203\305\306\"\202\307\"\207" [gnus-article-save-directory 2 expand-file-name string-match "\\([^ <]+\\)@" match-string 1 "nobody"] 8 (#$ . 132871)]) #@19 Verify X-PGP-Sig. (defalias 'article-verify-x-pgp-sig #[0 "\211\205\306\307!\211\262!\205\211\262\205Brq\210\310\311!)\312\211\211\205@ \205@\313 \n\2368\205@\314\315\316\"r\211q\210\317\320\"\216\321!\210\322!\262\323 \210\316\211\324\325\322A@\326\"\327#\262*ed|\210\330c\210\331A@\332\261\210c\210~\210\312y\210m\204\206\333\334!\203\200\335c\210\312y\210\202s\336c\210\337@\340\261\210\324\341AA\332#c\210\342c\210\343\312\211OC\344 \2108\206\253\3459\313 \n\2368 \210)\346\347\350 @#\206\304\346\347\351 @#\262+\210\205@\316\312\211:\214\323 \210db\210\352y\210\346\353 \354\"\262\346\355 S\354\"\262\356\357!\210\360\361\312\316#\203\375\312y\210\202db\210``}\210\362\332\261\210eb\210\312y\210m\204#\333\363!\204\364c\210\312y\210\202eb\210\333\365!\205=\366\367\224\367\225T\354$\210\366\347\225d\354$*\266\203\266\204\207" [gnus-original-article-buffer mml2015-use mml2015-function-alist case-fold-search inhibit-point-motion-hooks mm-security-handle buffer-live-p get-buffer gnus-fetch-field "X-PGP-Sig" nil 5 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring split-string message-narrow-to-head mapconcat #[257 "\211\300\301!\302R\207" [": " mail-fetch-field "\n"] 5 "\n\n(fn HEADER)"] "," "" "-----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" "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 gnus-newsgroup-charset coding-system-for-write inhibit-read-only] 12 (#$ . 133177) [nil (gnus-article-mode)]]) #@28 Verify Cancel-Lock header. (defalias 'article-verify-cancel-lock #[0 "\211\205\301\302!\211\262!\205\211\262\205\303!\207" [gnus-original-article-buffer buffer-live-p get-buffer canlock-verify] 4 (#$ . 135101) [nil (gnus-article-mode)]]) #@90 Run `article-hide-headers' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-hide-headers #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-hide-headers apply] 5 (#$ . 135356) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@94 Run `article-verify-x-pgp-sig' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-verify-x-pgp-sig #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-verify-x-pgp-sig apply] 5 (#$ . 135677) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@96 Run `article-verify-cancel-lock' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-verify-cancel-lock #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-verify-cancel-lock apply] 5 (#$ . 136010) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@97 Run `article-hide-boring-headers' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-hide-boring-headers #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-hide-boring-headers apply] 5 (#$ . 136349) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@94 Run `article-treat-overstrike' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-treat-overstrike #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-treat-overstrike apply] 5 (#$ . 136691) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-treat-ansi-sequences' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-treat-ansi-sequences #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-treat-ansi-sequences apply] 5 (#$ . 137024) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@93 Run `article-fill-long-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-fill-long-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-fill-long-lines apply] 5 (#$ . 137369) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-capitalize-sentences' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-capitalize-sentences #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-capitalize-sentences apply] 5 (#$ . 137699) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@87 Run `article-remove-cr' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-remove-cr #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-remove-cr apply] 5 (#$ . 138044) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@103 Run `article-remove-leading-whitespace' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-remove-leading-whitespace #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-remove-leading-whitespace apply] 5 (#$ . 138357) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@92 Run `article-display-x-face' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-display-x-face #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-display-x-face apply] 5 (#$ . 138717) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@90 Run `article-display-face' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-display-face #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-display-face apply] 5 (#$ . 139044) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-de-quoted-unreadable' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-de-quoted-unreadable #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-de-quoted-unreadable apply] 5 (#$ . 139365) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-de-base64-unreadable' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-de-base64-unreadable #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-de-base64-unreadable apply] 5 (#$ . 139710) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@87 Run `article-decode-HZ' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-decode-HZ #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-decode-HZ apply] 5 (#$ . 140055) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@87 Run `article-wash-html' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-wash-html #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-wash-html apply] 5 (#$ . 140367) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@90 Run `article-unsplit-urls' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-unsplit-urls #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-unsplit-urls apply] 5 (#$ . 140679) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@99 Run `article-hide-list-identifiers' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-hide-list-identifiers #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-hide-list-identifiers apply] 5 (#$ . 141000) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@90 Run `article-strip-banner' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-banner #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-banner apply] 5 (#$ . 141348) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@83 Run `article-babel' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-babel #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-babel apply] 5 (#$ . 141669) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@86 Run `article-hide-pem' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-hide-pem #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-hide-pem apply] 5 (#$ . 141969) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@92 Run `article-hide-signature' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-hide-signature #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-hide-signature apply] 5 (#$ . 142278) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@99 Run `article-strip-headers-in-body' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-headers-in-body #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-headers-in-body apply] 5 (#$ . 142605) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@105 Run `article-remove-trailing-blank-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-remove-trailing-blank-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-remove-trailing-blank-lines apply] 5 (#$ . 142954) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@103 Run `article-strip-leading-blank-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-leading-blank-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-leading-blank-lines apply] 5 (#$ . 143321) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@104 Run `article-strip-multiple-blank-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-multiple-blank-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-multiple-blank-lines apply] 5 (#$ . 143682) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@97 Run `article-strip-leading-space' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-leading-space #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-leading-space apply] 5 (#$ . 144045) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-strip-trailing-space' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-trailing-space #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-trailing-space apply] 5 (#$ . 144387) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@95 Run `article-strip-blank-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-blank-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-blank-lines apply] 5 (#$ . 144732) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@99 Run `article-strip-all-blank-lines' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-strip-all-blank-lines #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-strip-all-blank-lines apply] 5 (#$ . 145068) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@88 Run `article-date-local' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-local #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-local apply] 5 (#$ . 145416) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@90 Run `article-date-english' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-english #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-english apply] 5 (#$ . 145731) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@90 Run `article-date-iso8601' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-iso8601 #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-iso8601 apply] 5 (#$ . 146052) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@91 Run `article-date-original' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-original #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-original apply] 5 (#$ . 146373) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@88 Run `article-treat-date' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-treat-date #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-treat-date apply] 5 (#$ . 146697) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@85 Run `article-date-ut' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-ut #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-ut apply] 5 (#$ . 147012) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@95 Run `article-decode-mime-words' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-decode-mime-words #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-decode-mime-words apply] 5 (#$ . 147318) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@92 Run `article-decode-charset' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-decode-charset #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-decode-charset apply] 5 (#$ . 147654) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-decode-encoded-words' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-decode-encoded-words #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-decode-encoded-words apply] 5 (#$ . 147981) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@87 Run `article-date-user' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-user #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-user apply] 5 (#$ . 148326) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@89 Run `article-date-lapsed' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-lapsed #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-lapsed apply] 5 (#$ . 148638) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@98 Run `article-date-combined-lapsed' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-date-combined-lapsed #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-date-combined-lapsed apply] 5 (#$ . 148956) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@87 Run `article-emphasize' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-emphasize #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-emphasize apply] 5 (#$ . 149301) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@95 Run `article-treat-smartquotes' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-treat-smartquotes #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-treat-smartquotes apply] 5 (#$ . 149613) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@93 Run `article-treat-non-ascii' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-treat-non-ascii #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-treat-non-ascii apply] 5 (#$ . 149949) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@95 Run `article-normalize-headers' in the article buffer. (fn &optional INTERACTIVE &rest ARGS) (defalias 'gnus-article-normalize-headers #[384 "rq\210\203\301\302!\202\303\302\")\207" [gnus-article-buffer call-interactively article-normalize-headers apply] 5 (#$ . 150279) [(list t) (gnus-article-mode gnus-summary-mode)]]) (byte-code "\302\303\304\305#\210\306\303\304\307#\210\310 \"\210\311\312\"\210\313\314\315#\210\311\316\317\"\207" [gnus-article-mode-map button-buffer-map 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 "" gnus-summary-mail-forward "\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 #[0 "\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-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 #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R 9=\204R\326 \3259C#\210\327 !\210\330\f!\210 9\331 \210\306\332!\210\333\334\335\"\203{\336 \210:\203{\306\337!\210:\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\314\341=\362 \210\363 \210\341>\306\364!\210\3654\366 \210)\367\370!\207" [delay-mode-hooks major-mode mode-name gnus-article-mode-map gnus-article-mode-syntax-table gnus-article-mode-abbrev-table 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-inline-message-prepare-function gnus-mime--inline-message mm-enable-multibyte run-mode-hooks gnus-article-mode-hook local-abbrev-table gnus-summary-tool-bar-map gnus-page-delimiter gnus-article-show-cursor cursor-in-non-selected-windows show-trailing-whitespace] 5 (#$ . 154608) nil]) #@32 Initialize the article buffer. (defalias 'gnus-article-setup-buffer #[0 "\203\306\202\f\307 \310Q\311\312\"\210\313\314\225\315OP\211\315r q\210\204-\211\316 \210)\317 \210r\320 !q\210\321 \210\322*\323\324!\210)\325!\203\305rq\210!\203\206\326\327!\203\200\330\315!\210\211\205l\331\325!\211\262!\205l\211\262\203x\332!\210\333 \210\334\335!\210\315\202\207\336\337!\202\207\340)\203\305 rq\210\323\341!\210\315!\342 \210+\203\247\343+!\210\315+\315\344 \210\340,\345\346!\204\270\346 \210\323\305!\210\211-.p)\207 r\320!q\210\346 \210-.\323\305!\210\211\347 !\210/\203\345\350 \2100\203\357\3510!\210p)\207" [gnus-single-article-buffer gnus-newsgroup-name gnus-article-buffer gnus-original-article-buffer gnus-article-mime-handle-alist gnus-summary-buffer "*Article*" "*Article " "*" string-match "\\*Article" " *Original Article" 0 nil gnus-set-global-variables gnus-article-setup-highlight-words gnus-get-buffer-create mm-enable-multibyte gnus-original-article-mode make-local-variable gnus-original-article get-buffer y-or-n-p "Article mode edit in progress; discard? " set-buffer-modified-p buffer-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-set-local-parameters gnus-stop-date-timer gnus-start-date-timer major-mode gnus-article-mime-handles buffer-read-only gnus-article-truncate-lines truncate-lines article-lapsed-timer gnus-article-update-date-headers] 6 (#$ . 157334)]) (defalias 'gnus-article-stop-animations #[0 "\300\301!\207" [cancel-function-timers image-animate-timeout] 2]) (defalias 'gnus-stop-downloads #[0 "\301\302!\205\f\303\304\"\305L\207" [obarray boundp url-queue intern "url-queue" nil] 3]) #@23 (fn &optional LINE) (defalias 'gnus-article-set-window-start #[256 "\301\302\"\211\205*\303rq\210eb\210\204e\202(\304\305\306\"\210\307\310\311\302#\210y\210`)\"\207" [gnus-article-buffer gnus-get-buffer-window t set-window-start gnus-message 6 "Moved to bookmark" search-forward "\n\n" nil] 8 (#$ . 159180)]) #@253 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. (fn ARTICLE &optional ALL-HEADERS HEADER) (defalias 'gnus-article-prepare #[769 "\212\306\307!\204\nq\210pp  \310\212\311 \210\fq\210 \203\3100\3121\313\")\211\262\204y\212\247\205u2>?\205u B3q\21045>\203b\314\315 !!\204b\316!\210\317\320!\202u\3216\"\2102>?\205u\322\323\324\")\202y\211\325=\204\205\211\326=\203\274rq\2107B748\3274\310\21193\211\326=\203\251\330\331!\210\202\255\330\332!\210\333 \210):;\334\332!)\202y\247\203$4=\204$rq\2107B7484\3354<\"\3368\2629 4B3\3379!\204\366\3109\3404!\210\341 \203\3404!\210\342\343!\210\334\331!\210\344\345\346\"\203\342\347!\210\333 \210\206!=>)\212\330\332!\210)\247\2044;\203B\350 \210eb\210?\203B\351 \210:;\334\332!\210)\352 \210o\204U\353y\210\354\355p!`\"\210\330\332!\210\355\f!\211\203sr\356!q\210\354e\"\210)\210\342\357!\210\312*\266\203)\207" [gnus-summary-buffer gnus-article-internal-prepare-hook gnus-tmp-internal-hook gnus-newsgroup-name gnus-article-buffer transient-mark-mode 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 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 gnus-show-all-headers gnus-have-all-headers gnus-break-pages] 11 (#$ . 159508)]) #@51 Make the current buffer look like a nice article. (defalias 'gnus-article-prepare-display #[0 "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 (#$ . 161874)]) (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 #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R *=\204R\326 \325*C#\210\327 !\210\330\f!\210 *\331\332\333 #\210\331\334\333 #\210\335\211\203}\211@\336 \337#\210A\266\202\202j\210\336 \340\341#\210\336 \342\343#\210\336 \344\345#\210\336 \346\347#\210)\350\351!\207" [delay-mode-hooks major-mode mode-name gnus-sticky-article-mode-map gnus-sticky-article-mode-syntax-table gnus-sticky-article-mode-abbrev-table 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") define-key nil "k" gnus-kill-sticky-article-buffer "q" bury-buffer "c" describe-key-briefly "k" describe-key run-mode-hooks gnus-sticky-article-mode-hook local-abbrev-table] 6 (#$ . 163725) nil]) #@117 Make the current article sticky. If a prefix ARG is given, ask for a name for this sticky article buffer. (fn ARG) (defalias 'gnus-sticky-article #[257 "\304 \210\305\306\211\307#\210\306\310 \311\312\"\313\314\"\216\211\203&\315!\210\316!q\210\202*\317!\210\320\2035\321\322!\202urq\210\214\323\211\211\324 \210\325\326!\210\327\330 \331 \"\262eb\210\325\332!\210\333\327\330 \331 \"Q\262eb\210\325\334!\210\333\327\330 \331 \"Q\211\262-\335Q\262\211\205\212\336\337!\211\262!\205\212\211\262\203\241rq\210\340\341!)\203\241\342!\210\202\247\343\323\"\262\341 \210)\266\344 \210\345 \207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-summary-show-thread gnus-summary-select-article nil pseudo selected-window gnus-get-buffer-window visible make-closure #[0 "\301\300!\207" [V0 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] 11 (#$ . 165182) ["P" (gnus-article-mode gnus-summary-mode)]]) #@156 Kill the given sticky article BUFFER. If none is given, assume the current buffer and kill it if it has `gnus-sticky-article-mode'. (fn &optional BUFFER) (defalias 'gnus-kill-sticky-article-buffer #[256 "\211\204p\262r\211q\210\300\301!\205-\211\211\205\"\302\303!\211\262!\205\"\211\262\205-\304!\210\305 )\207" [derived-mode-p gnus-sticky-article-mode buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 5 (#$ . 166545) [nil (gnus-article-mode)]]) #@92 Kill all sticky article buffers. If a prefix ARG is given, ask for confirmation. (fn ARG) (defalias 'gnus-kill-sticky-article-buffers #[257 "\300 \211\205D\211@r\211q\210\301\302!\203<\203\303\304\305\"!\203<\211\211\2050\306\307!\211\262!\2050\211\262\203<\310!\210\311 \210)A\266\202\202\207" [gnus-buffers 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] 7 (#$ . 167018) ["P" (gnus-article-mode)]]) #@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" (#$ . 167531)) (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 #[0 "\203G\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 "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\211\203+\211@\302A@@#\210A\266\202\202\210\207" [gnus-mime-button-commands make-sparse-keymap define-key " " gnus-article-push-button [mouse-2] [down-mouse-3] gnus-mime-button-menu] 7)) #@19 MIME button menu. (defvar gnus-mime-button-menu nil (#$ . 169464)) (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 #[257 "\300AA@@\301\302$\207" [vector :active t] 6 "\n\n(fn C)"]] 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 "\301 \211\203\211@\302A@@#\210A\266\202\202\210\207" [gnus-url-button-commands make-sparse-keymap define-key] 7)) #@18 URL button menu. (defvar gnus-url-button-menu nil (#$ . 170118)) (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 #[257 "\300AA@@\301\302$\207" [vector :active t] 6 "\n\n(fn C)"]] 8) #@61 Bind some mm-* variables and execute BODY. (fn &rest BODY) (defalias 'gnus-bind-mm-vars '(macro . #[128 "\300\301\302BBB\207" [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)))] 5 (#$ . 170434)])) #@73 Construct a context-sensitive menu of MIME commands. (fn EVENT PREFIX) (defalias 'gnus-mime-button-menu #[514 "\301 \302\303\"\216\304!\305\211@\262!\210\306!b\210\307 \210\310\311#\262)\207" [gnus-mime-button-menu current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] event-start select-window posn-point gnus-article-check-buffer popup-menu nil] 8 (#$ . 171306) "e\nP"]) #@50 View all the MIME parts. (fn &optional HANDLES) (defalias 'gnus-mime-view-all-parts #[256 "rq\210\211\206 \nr q\210\f)\211\205\256\306!\210eb\210\307\310!\204'db\210\311`d|\210\312\211r\313\314!\203_\211\205Q\315\316!\211\262!\205Q\211\262\203[\202zp\202z \211\205p\315\316!\211\262!\205p\211\262\203y \202zpq\210\317 \203\246;\203\230\320\"\204\246:\203\251\235\203\251\312)\321!,*\262)\207" [gnus-article-buffer gnus-article-mime-handles gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-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-charset inhibit-read-only 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] 6 (#$ . 171735) [nil (gnus-article-mode)]]) #@30 Jump to MIME part N. (fn N) (defalias 'gnus-article-jump-to-part #[257 "rq\210 G)\211\303U\203\304\305!\210\306!\210\204+\211\307U\203#\307\202)\310\311\312\"!\262\250\203<X\203<\307Y\204F\313\314\315$\210\211\262\313\316\317#\210\n\307Y\203fX\205\203\320!?\205\203T\262\202R\n\303W\203\200\307Y\205\203\320!?\205\203S\262\202l\320!\207" [gnus-article-buffer gnus-article-mime-handle-alist 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] 7 (#$ . 172751) ["P" (gnus-article-mode)]]) #@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 (#$ . 173439)) #@65 Replace MIME part under point with an external body. (fn FILE) (defalias 'gnus-mime-replace-part #[257 "\300\301!!\204 \302\303\"\210\304!\207" [file-regular-p file-truename error "Can't replace part with %s, which isn't a regular file" gnus-mime-save-part-and-strip] 4 (#$ . 173615) [(byte-code "\302\303\206 \304\305$C\207" [mm-default-directory default-directory read-file-name "Replace MIME part with file: " nil t] 5) (gnus-article-mode)]]) #@146 Save the MIME part under point then replace it with an external body. If FILE is given, use it for the external part. (fn &optional FILE EVENT) (defalias 'gnus-mime-save-part-and-strip #[512 "\212\306!\210\307 \210\310 \203\311\312!\210\313!\203\311\314!\210\315`\316\"\315`\317\"\2042\2050\320\321\"\262\205\350r@q\210\322 \210\323\211@;\203M\211@\262\202S\211A@@\262\261\210\324A@A\325\"\210\326\327\330\331!\"!\210\332c\210\333\334 \332\261\210\335c\210\332c\210)\336\337\340\341 BE\336\211\211\211\211\211\257A\241\210\211 \n \342H\206\230\343\310 \f\344\345\346 $\345\347&\350#\266\211\351 \210)\352\353!\210\354\355!\210r0q\2101)\211\205\346\205\3462\250\205\346\3562\\\357]G^!\266\203\266\203)\207" [gnus-article-mime-handles gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer gnus-mime-buttonized-part-id mouse-set-point 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 5 "" gnus-article-edit-article make-closure #[0 "\306 \210 \206\301\f\206 \302 \307edb\310!\210|\210\311\300!\210\307 \312\305!\210\313\314\315\316\211$*\207" [V0 V1 V2 gnus-article-charset gnus-article-ignored-charsets mml-buffer-list buffer-disable-undo nil insert-buffer-substring mime-to-mml make-local-variable add-hook kill-buffer-hook mml-destroy-buffers t mail-parse-ignored-charsets mail-parse-charset gnus-original-article-buffer gnus-article-mime-handles] 8] #[257 " \206\300\306\206\301\307 \210\310 \210\311\312\310\313#\210\314\315!\210,\316\302\303\304$\207" [V0 V1 V2 V3 V4 gnus-article-charset nil mml-to-mime mml-destroy-buffers remove-hook kill-buffer-hook t kill-local-variable mml-buffer-list gnus-summary-edit-article-done message-options gnus-article-ignored-charsets mail-parse-ignored-charsets message-options-set-recipient mail-parse-charset] 6 "\n\n(fn NO-HIGHLIGHT)"] t gnus-article-edit-done gnus-configure-windows article sit-for 0 gnus-article-jump-to-part 1 gnus-article-buffer gnus-article-mime-handle-alist gnus-auto-select-part] 21 (#$ . 174076) [(list nil last-nonmenu-event) (gnus-article-mode)]]) #@114 Delete the MIME part under point. Replace it with some information about the removed part. (fn &optional EVENT) (defalias 'gnus-mime-delete-part #[256 "\306!\210\307 \210\310 \203\311\312!\210\313!\203\311\314!\210 \204$\315\316!\205\374\317`\320\"\317`\321\"\3228\211\2057\323!\262\324!\206@\325\211@;\203N\211@\262\202T\211A@@\262\204\\\311\326!\210r@q\210\327 \330 \210\331\332\333\334\335\211\336U\203y\337\202z\340# \205\205\341\n\342Q\343\260c\210\344\345\344\211\346C\334\347\"\344\211\257A\241\266)\n \f\322H\206\253\337\310 \350\351\352 $\351\353&\354#\266\2113\355 \210)\356\357!\210\360\361!\210r4q\2105)\211\205\372\205\3726\250\205\372\3626\\\336]G^!\266\211\207" [gnus-article-mime-handles gnus-expert-user gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-current-headers gnus-summary-buffer mouse-set-point 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 make-closure #[0 "\306 \210 \206\301\f\206 \302 \307edb\310!\210|\210\311\300!\210\307 \312\305!\210\313\314\315\316\211$*\207" [V0 V1 V2 gnus-article-charset gnus-article-ignored-charsets mml-buffer-list buffer-disable-undo nil insert-buffer-substring mime-to-mml make-local-variable add-hook kill-buffer-hook mml-destroy-buffers t mail-parse-ignored-charsets mail-parse-charset gnus-original-article-buffer gnus-article-mime-handles] 8] #[257 " \206\300\306\206\301\307 \210\310 \210\311\312\310\313#\210\314\315!\210,\316\302\303\304$\207" [V0 V1 V2 V3 V4 gnus-article-charset nil mml-to-mime mml-destroy-buffers remove-hook kill-buffer-hook t kill-local-variable mml-buffer-list gnus-summary-edit-article-done message-options gnus-article-ignored-charsets mail-parse-ignored-charsets message-options-set-recipient mail-parse-charset] 6 "\n\n(fn NO-HIGHLIGHT)"] t gnus-article-edit-done gnus-configure-windows article sit-for 0 gnus-article-jump-to-part gnus-mime-buttonized-part-id gnus-article-buffer gnus-article-mime-handle-alist gnus-auto-select-part] 23 (#$ . 176764) [(list last-nonmenu-event) (gnus-article-mode)]]) #@55 Save the MIME part under point. (fn &optional EVENT) (defalias 'gnus-mime-save-part #[256 "\300!\210\301 \210\302`\303\"\211\205\304!\207" [mouse-set-point gnus-article-check-buffer get-text-property gnus-data mm-save-part] 4 (#$ . 179579) [(list last-nonmenu-event) (gnus-article-mode)]]) #@96 Pipe the MIME part under point to a process. Use CMD as the process. (fn &optional CMD EVENT) (defalias 'gnus-mime-pipe-part #[512 "\300!\210\301 \210\302`\303\"\211\205\304\"\207" [mouse-set-point gnus-article-check-buffer get-text-property gnus-data mm-pipe-part] 6 (#$ . 179880) [(list nil last-nonmenu-event) (gnus-article-mode)]]) #@92 Interactively choose a viewing method for the MIME part under point. (fn &optional EVENT) (defalias 'gnus-mime-view-part #[256 "\212\301!\210\302 \210\303`\304\"\211\205\305\306!\211\262\"\307!\262)\207" [gnus-article-mime-handles mouse-set-point gnus-article-check-buffer get-text-property gnus-data mm-merge-handles copy-sequence mm-interactively-view-part] 6 (#$ . 180228) [(list last-nonmenu-event) (gnus-article-mode)]]) (defalias 'gnus-mime-view-part-as-type-internal #[0 "\300 \210\301`\302\"\303A@\304\"\206\305\3068A\236A\211\205\307!\211\203(\211\310B\206O\203N\311\211@;\203<\211@\262\202B\211A@@\262\312\"@\262\313\232\203N\314\207\315\207" [gnus-article-check-buffer get-text-property gnus-data mail-content-type-get name filename 4 mm-default-file-type 0 split-string "/" "text" ("text/plain" . 0) ("application/octet-stream" . 0)] 7]) #@184 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. (fn &optional MIME-TYPE PRED EVENT) (defalias 'gnus-mime-view-part-as-type #[768 "\212\211\203 \301!\210\204+\302 \303\304\203\305\306 \"\202\306 \307\211\211@&\262\262\310 \210\311`\312\"\211\205\216\211\211@;\203D\211@\262\202J\211A@@\262\313\232\203^\3148\204Y\315!\210\3148\262\211@A@AB\3168\3178\3208\3218\307\3228\257\262\323\"\324!\203\213\325!\210\326!\262)\207" [gnus-article-mime-handles mouse-set-point 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] 13 (#$ . 181114) [(byte-code "\301\211E\207" [last-nonmenu-event nil] 3) (gnus-article-mode)]]) #@175 Put the MIME part under point into a new buffer. If `auto-compression-mode' is enabled, compressed files like .gz and .bz2 are decompressed. (fn &optional HANDLE ARG EVENT) (defalias 'gnus-mime-copy-part #[768 "\306!\210\307 \210\204\310`\311\"\262\205\365\312!\313\211\211\211\314\315\316\"r\211q\210\317\320\"\216\321 \210\322 !\210\3231?\324\313\325#0\202F\210\316\262\202I\206K\326 \262*\210\203Y\327!\202b\203a\330\202b\331\262\204\261\204\236\332A@\333\"\211\262\204\261\314\315\316\"r\211q\210\317\334\"\216\321 \210c\210\335 *\262\211\262\204\261\262\202\261\247\203\261 \236A\206\257\336\337!\262\340\314!!\210\211\204\321\203\337\341\313\316#\211\262\203\337\211\342=\204\337\343 \210\344\"c\210\n\202\347\321 \210c\210\f\345\216\346!\347 \210)eb\266\205\207" [gnus-newsgroup-charset gnus-summary-show-article-charset-alist last-coding-system-used buffer-file-coding-system mm-binary-coding-system buffer-file-name mouse-set-point gnus-article-check-buffer get-text-property gnus-data mm-handle-filename nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part (error) mm-decompress-buffer sig buffer-string file-name-nondirectory "*raw data*" "*decoded*" mail-content-type-get charset #[0 "\301\300!\205 \302\300!\207" [V0 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 #[0 "\301\211\207" [buffer-file-name nil] 2] expand-file-name normal-mode] 13 (#$ . 182127) [(list nil current-prefix-arg last-nonmenu-event) (gnus-article-mode)]]) #@72 Print the MIME part under point. (fn &optional HANDLE FILENAME EVENT) (defalias 'gnus-mime-print-part #[768 "\212\303!\210\304 \210\206\305`\306\"\211\205\307!\310\311\312\"!\313\211@;\203,\211@\262\2022\211A@@\262\314\"\205y\211\203`\315\316\"\216\317\"\210\320 \321\322\323!\321\n\324 \fA@#&)\266\204\202{\322\325\326\"r\211q\210\315\327\"\216c\210\330 \210*\210\331!\266\204)\207" [mm-tmp-directory shell-file-name shell-command-switch mouse-set-point gnus-article-check-buffer get-text-property gnus-data mm-get-part make-temp-file expand-file-name "mm." mailcap-mime-info "print" make-closure #[0 "\301\300!\207" [V0 delete-file] 2] mm-save-part-to-file call-process nil generate-new-buffer " *mm*" mm-mailcap-command " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] gnus-print-buffer ps-despool] 17 (#$ . 183882) [(byte-code "\302\303! E\207" [current-prefix-arg last-nonmenu-event nil ps-print-preprint] 3) (gnus-article-mode)]]) #@145 Insert the MIME part under point into the current buffer. Compressed files like .gz and .bz2 are decompressed. (fn &optional HANDLE ARG EVENT) (defalias 'gnus-mime-inline-part #[768 "\211\203\302!\210\303 \210\304`\2036\305\306\"=\203\211\202=\307 \210\310`d\306$\206=\310e`\306$\202=\305\306\"\262\211\311\205+\312\306\311d$\262\313\306\"\262U\203Y\262\204v\3148\203v\315!\262\315!\262\316!\210\202\251\203\232\247\203\216\3148\203\232\316!\210\202\232\3148\203\232\316!\210\211b\210n\204\244\317y\210\320!\210\321!\203\271\322!\311\211\223\210\262b\210\323!\324\305\325\"C#\210`\312`\306\311d$|\210`\262\326\327\311\304#\203\370b\210\211\204l\204\330S{\331\304#c\266\202\332\333!\210\334`\"\335\336\304#\210\335\337\304#\266\214\340 \210\341\342\343!\210*\210\321!\203)\322!\311\211\223\210\262b)\207" [inhibit-read-only gnus-treatment-function-alist mouse-set-point 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] 13 (#$ . 184887) [(list nil current-prefix-arg last-nonmenu-event) (gnus-article-mode)]]) #@103 Set CHARSET to parameters in HANDLE. CHARSET may either be a string or a symbol. (fn HANDLE CHARSET) (defalias 'gnus-mime-set-charset-parameters #[514 "\211;\204\n\300!\262@;\203%A\211\205$\211@\301\"\210A\266\202\202\207\211@;\2033\211@\262\2029\211A@@\262\302\232\203N\3038\204H\304!\210\3038\202OA@\305A\236\211\203]\211\241\207\305BAB\241\207" [symbol-name gnus-mime-set-charset-parameters "message/external-body" 6 mm-extern-cache-contents charset] 7 (#$ . 186477)]) #@120 Insert the MIME part under point into the current buffer using the specified charset. (fn &optional HANDLE ARG EVENT) (defalias 'gnus-mime-view-part-as-charset #[768 "\212\303!\210\304 \210\206\305`\306\"\305`\307\"\310\311\211\211\211\205\316\2052 \236A\206/\312\313!\211\262\3148\203>\315!\210\205\316\316\"\210\243\211\262:\203\312\3171[\320\2360\202]\210\311\211\262\203\312AA@\211\262\203\312@\321=\203yA@\262\305`\306\"\232\204\312\305`\322\"\211\262\203\312\211\n\236A\211\262\203\312\211\211@;\203\244\211@\262\202\252\211A@@\262\323\232\203\312\324A!\211\262\203\312AA\321\235A@\206\307@D\240\210!)\266\207)\207" [gnus-newsgroup-ignored-charsets gnus-summary-show-article-charset-alist gnus-article-mime-handle-alist mouse-set-point 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] 14 (#$ . 186987) [(list nil current-prefix-arg last-nonmenu-event) (gnus-article-mode)]]) #@86 View the MIME part under point with an external viewer. (fn &optional HANDLE EVENT) (defalias 'gnus-mime-view-part-externally #[512 "\212\306!\210\307 \210\206\310`\311\"\312 r q\210\f)\211\211@;\203)\211@\262\202/\211A@@\262\313!\314\211;\204A\315\312\316\"\202J\205J\317\312\314#,\266\203)\207" [mm-inlined-types gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mouse-set-point gnus-article-check-buffer get-text-property gnus-data nil mailcap-mime-info t gnus-mime-view-part-as-type #[257 "\300!;\207" [mailcap-mime-info] 3 "\n\n(fn TYPE)"] mm-display-part mm-enable-external] 9 (#$ . 188136) [(list nil last-nonmenu-event) (gnus-article-mode)]]) #@146 View the MIME part under point with an internal viewer. If no internal viewer is available, use an external viewer. (fn &optional HANDLE EVENT) (defalias 'gnus-mime-view-part-internally #[512 "\212\306!\210\307 \210\206\310`\311\"\312\313\nr\fq\210 )\313\314!\2041\315\316\317\320\"\"\202\267\211\205\267\316\211r\321\322!\203f\211\205X\323\324!\211\262!\205X\211\262\203b\202\201p\202\201\f\211\205w\323\324!\211\262!\205w\211\262\203\200\f\202\201pq\210\325 \203\255 ;\203\237\326 \"\204\255 :\203\260 \235\203\260\316)\327\316\313#+-\262)\207" [mm-inlined-types mm-inline-large-images gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mouse-set-point gnus-article-check-buffer get-text-property gnus-data (".*") t mm-inlinable-p gnus-mime-view-part-as-type nil make-closure #[257 "\301\300\"\207" [V0 mm-inlinable-p] 4 "\n\n(fn TYPE)"] derived-mode-p gnus-article-mode buffer-live-p get-buffer gnus-blocked-images string-match mm-display-part mail-parse-ignored-charsets inhibit-read-only 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] 8 (#$ . 188887) [(list nil last-nonmenu-event) (gnus-article-mode)]]) #@74 Do something with the MIME attachment at (point). (fn &optional ACTION) (defalias 'gnus-mime-action-on-part #[256 "\301 \210\302\"\211\205\211A \207" [gnus-mime-action-alist gnus-article-check-buffer assoc] 4 (#$ . 190235) [(byte-code "\301\302\303\304\"\305#C\207" [gnus-mime-action-alist gnus-completing-read "Action" mapcar car t] 5) (gnus-article-mode)]]) #@201 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. (fn N FUNCTION &optional NO-HANDLE INTERACTIVE) (defalias 'gnus-article-part-wrapper #[1026 "\306C\306C\211\205\307\310!\211\262!\205\211\262\203.\311\312\"\240\203.\313\314\242!\240!\2042\315\316!\210rq\210r q\210\n\317`\320\"\211\205F\321!\266\317`\322\"\206Q\323 )=\204Z\315\324!\210\203g\325!\262\202\251`\317\326\"\206\246o\204{\317S\326\"\206\246\317\327y\210`b\210\326\"\206\246\317\330\326\"\211\262\203\230S\206\240\331`\326\"\206\240`\326\"\206\246\327\262\210 GV\203\264\315\332!\210)\333\242\334 \240\210\335\242\336 \240\210!\210!\210\337!\205*\340 \203\343\341`\342 \"\343 S\344\245V\204\353\345\343 S\344\245!\210\312\346\347 .\350\351#\216\203\203\352!\210\202(\203 \210\202(\203!\352\317`\353\"\"\210\202(\317`\353\"!\210,\312?\205F/\2037\315\332!\207\312/\354 \210\355#)\207" [gnus-article-buffer gnus-summary-buffer gnus-current-article gnus-article-mime-handle-alist overlay-arrow-position overlay-arrow-string 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 make-closure #[0 "\n\304\211\223\210 ?\205\305\301\242!\210\306\300\242!\207" [V0 V1 overlay-arrow-position gnus-auto-select-part nil select-frame-set-input-focus select-window] 3] call-interactively gnus-data gnus-summary-show-article gnus-article-part-wrapper cursor-in-non-selected-windows gnus-inhibit-mime-unbuttonizing] 12 (#$ . 190608)]) #@58 Pipe MIME part N, which is the numerical prefix. (fn N) (defalias 'gnus-article-pipe-part #[257 "\300\301\"\207" [gnus-article-part-wrapper mm-pipe-part] 4 (#$ . 192677) ["P" (gnus-article-mode)]]) #@58 Save MIME part N, which is the numerical prefix. (fn N) (defalias 'gnus-article-save-part #[257 "\300\301\"\207" [gnus-article-part-wrapper mm-save-part] 4 (#$ . 192883) ["P" (gnus-article-mode)]]) #@72 View MIME part N interactively, which is the numerical prefix. (fn N) (defalias 'gnus-article-interactively-view-part #[257 "\300\301\"\207" [gnus-article-part-wrapper mm-interactively-view-part] 4 (#$ . 193089) ["P" (gnus-article-mode)]]) #@58 Copy MIME part N, which is the numerical prefix. (fn N) (defalias 'gnus-article-copy-part #[257 "\300\301\"\207" [gnus-article-part-wrapper gnus-mime-copy-part] 4 (#$ . 193337) ["P" (gnus-article-mode)]]) #@80 View MIME part N using a specified charset. N is the numerical prefix. (fn N) (defalias 'gnus-article-view-part-as-charset #[257 "\300\301\"\207" [gnus-article-part-wrapper gnus-mime-view-part-as-charset] 4 (#$ . 193550) ["P" (gnus-article-mode)]]) #@69 View MIME part N externally, which is the numerical prefix. (fn N) (defalias 'gnus-article-view-part-externally #[257 "\300\301\"\207" [gnus-article-part-wrapper gnus-mime-view-part-externally] 4 (#$ . 193807) ["P" (gnus-article-mode)]]) #@60 Inline MIME part N, which is the numerical prefix. (fn N) (defalias 'gnus-article-inline-part #[257 "\300\301\"\207" [gnus-article-part-wrapper gnus-mime-inline-part] 4 (#$ . 194053) ["P" (gnus-article-mode)]]) #@91 Save MIME part N and replace it with an external body. N is the numerical prefix. (fn N) (defalias 'gnus-article-save-part-and-strip #[257 "\300\301\302#\207" [gnus-article-part-wrapper gnus-mime-save-part-and-strip t] 5 (#$ . 194272) ["P" (gnus-article-mode)]]) #@79 Replace MIME part N with an external body. N is the numerical prefix. (fn N) (defalias 'gnus-article-replace-part #[257 "\300\301\302\211$\207" [gnus-article-part-wrapper gnus-mime-replace-part t] 6 (#$ . 194543) ["P" (gnus-article-mode)]]) #@104 Delete MIME part N and add some information about the removed part. N is the numerical prefix. (fn N) (defalias 'gnus-article-delete-part #[257 "\300\301\302#\207" [gnus-article-part-wrapper gnus-mime-delete-part t] 5 (#$ . 194793) ["P" (gnus-article-mode)]]) #@87 Choose a MIME media type, and view part N as such. N is the numerical prefix. (fn N) (defalias 'gnus-article-view-part-as-type #[257 "\300\301\302#\207" [gnus-article-part-wrapper gnus-mime-view-part-as-type t] 5 (#$ . 195061) ["P" (gnus-article-mode)]]) #@18 (fn CONDITION) (defalias 'gnus-article-mime-match-handle-first #[257 "\211\203q\301\211\203j\211@\302!\203A!\202J\303\267\202I\304A8\206=\211A\211@;\2035\211@\262\202;\211A@@\262\305\232?\202J\304A8?\202J\306\203c\307@!\203c\203_\211@W\203c\211@\262A\266\202\202\210\211\206p\310\207\310\207" [gnus-article-mime-handle-alist nil functionp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (undisplayed 31 undisplayed-alternative 65)) 3 "multipart/alternative" t gnus-article-goto-part 1] 6 (#$ . 195324)]) #@143 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. (fn &optional N) (defalias 'gnus-article-view-part #[256 "rq\210\211\247\204\303 !\262\211\nGV\203\304\305!\210\211\n\236A\306!\205<\211@\307\232\2032\310 \210\311 \202<\312!\313=\205<\314 \262)\207" [gnus-article-buffer gnus-article-mime-match-handle-function gnus-article-mime-handle-alist 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] 4 (#$ . 195906) ["P" (gnus-article-mode gnus-summary-mode)]]) (defalias 'gnus-article-mime-total-parts #[0 "\301@!\203 \302\207GS\207" [gnus-article-mime-handles bufferp 1] 2]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-article-mime-total-parts speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@50 Display HANDLE and fix MIME button. (fn HANDLE) (defalias 'gnus-mm-display-part #[257 "\306`\307\"`C\310\311  \211\205\312\313!\211\262!\205\211\262\205&r q\210\n)\314C\314\315\316\n\n\n &\216\317p\310\"\211\203O\320!\210\242b\210\210\321\242\322\314d$\240\210\323\242\322\"\240\210\324 !\203}\325\242!\240\210\326 !\262\202\230\327 !\203\217\330 !\203\217\310\202,\331\332\310\"r\211q\210\315\333\"\216\314\211++,-r\334\335!\203\315.\211\205\277\312\313!\211\262!\205\277\211\262\203\311.\202\350p\202\350 \211\205\336\312\313!\211\262!\205\336\211\262\203\347 \202\350pq\210/-\336 ,0\2031;\203\33710\"\2041:\20301\235\203\314+)\326\n!\262+\340 \341U?\205)\342 *\262\242b\210n\2047\343y\210\211;\203\216\214`c\210n\204H\344c\210`}\210\345\314\n\3462@!\203[\343\202_2GS \211@;\203n\211@\262\202t\211A@@\262$\210\347\n\233\325e\310\"\350 \315\351#\266\202\240\210)\210\202\230\211\203\227\352\n!\210\210,\207" [gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset inhibit-read-only get-text-property gnus-part t selected-window buffer-live-p get-buffer nil make-closure #[0 "\306\302\242!\203\302\307\302\242!\302\242\310\211\223\210\240\210\302\242b\210\311\300!\312\300\301C#\210`\313`\314\310d$|\210\304`\240\210\315\316\310\317#\203S\304\242b\210\211\204tl\204t\320\304\242S\304\242{\321\317#c\266\202u\322\323!\210\324\302\242`\"\325\326\317#\210\325\327\317#\266\214\330 \210\331\332\333!\210*\210\302\242b\210\334\303!\205\202\335\303!\207" [V0 V1 V2 V3 V4 gnus-treatment-function-alist 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] 7] 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*" #[0 "\301\300!\205 \302\300!\207" [V0 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 point-max-marker #[0 "\303\300\301|)\207" [V0 V1 inhibit-read-only t] 2] mm-display-inline 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 gnus-article-mime-handles] 17 (#$ . 196879)]) #@28 Go to MIME part N. (fn N) (defalias 'gnus-article-goto-part #[257 "\203~\210\301 \210\302`d\303$\206\302e`\303$\304\211\211\211\211\205\227b\210\305\306\"\211\262\2035\266\206\202\231\262\307 \262\204z\203zW\203z\310\306\304$\211\262\203z\262\305\306\"\262BB\262\311!\204<\304\262\302\306\304$\262\202<\204\212\312\313\314\"\237!\236A\262\203\226Tb\266\206\202\231\266\206\203\240\315 \210\207" [gnus-break-pages 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] 12 (#$ . 199678)]) #@38 (fn HANDLE ID &optional DISPLAYED) (defalias 'gnus-insert-mime-button #[770 "\306!\206\307A@\310\"\206\311\211@;\203\211@\262\202%\211A@@\262\3128\206-\311\2036@\202:\313!\203A\311\202B\314r@q\210\315 )\316\317\211\211 (\320\321(\"\203s\322\311\323\211($(\f(\311\232?\205\200\324(PP \311\232\204\214\325P \326U\203\250)\203\250\320\327*\"\203\250\330\331!P\332\262`\262\333+,\334-\335\336\337 \340\341\342\343BBBBBBBBBB#\210n\203\322`S\202\323`\262\344\334-\345.\346\323\347 &\n.\207" [gnus-tmp-type-long gnus-tmp-length gnus-tmp-dots gnus-tmp-description gnus-tmp-type gnus-tmp-id mm-handle-filename mail-content-type-get url "" 5 mm-handle-displayed-p "..." buffer-size "mouse-2: toggle the MIME part; down-mouse-3: more options" nil string-match ".*/" replace-match t "; " " --- " 0 "^nnimap\\+" substitute-command-keys "\\ (not downloaded, \\[gnus-summary-show-complete-article] to fetch.)" "Type \\[gnus-summary-show-complete-article] to download complete article. mouse-2: toggle the MIME part; down-mouse-3: more options" 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 gnus-tmp-name nnimap-fetch-partial-articles gnus-newsgroup-name gnus-mime-button-line-format gnus-mime-button-line-format-alist gnus-mime-button-map gnus-article-button-face] 27 (#$ . 200366)]) (defvar gnus-displaying-mime nil) #@50 Display the MIME parts. (fn &optional IHANDLES) (defalias 'gnus-display-mime #[256 "\212\306 r\307\310\"\216\311!`\203\312!\210\313\"\210\266\314\204@\315\316\n\"\211\262\2038 \203@\317!\210\202@ \203@\320 \262\204^\f\204^ \203S\321 !\210\316!\211\"\203^\322!\210\211\203\206\211@;\203m\211A\203\206\204|\f\204|\323 \210`d|\210\314\324!\210)\202\230\214\323 \210`d}\210\325\316\326\211\327$\210~\210)\204\357\212\214\323 \210e`}\210\314#eb\210\330\331\316\314#\205\272n?\205\272\332\225\211\205\313\330\333\316\314#\205\313\334\332\224\"db\210\335\316x\210\336e`\337$\210\325\340!\210db\210\335\316x\210\336e`\337$\210)\266*)\210*\210db\210n?\205\375\335c)\207" [gnus-article-buffer inhibit-read-only gnus-article-loose-mime gnus-article-emulate-mime gnus-displaying-mime gnus-article-mime-handles internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 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 gnus-article-mime-handle-alist gnus-article-mime-part-function case-fold-search] 10 (#$ . 201897)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\311& \210\300\317\302\303\320DD\321\315\316\306\307\310\311& \210\300\322\302\303\323DD\324\315\325\306\307\310\311& \207" [custom-declare-variable gnus-mime-display-multipart-as-mixed funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "Display \"multipart/alternative\" parts as \"multipart/mixed\"." :version "22.1" gnus-mime-display-multipart-related-as-mixed #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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) #@15 (fn HANDLE) (defalias 'gnus-mime-display-part #[257 "\211?\206x\211@;\204\305!\207\306@\"A\203!\306@\"A!\207\211@\307\232\203A \204A\n\204A GT\211B B\310A\311\211$\207\211@\312\232\203V \204V\f\204V\313A@!\207\211@\314\232\203e\315\316!\210\317!\207\211@\320\232\203t\315\321!\210\317!\207\322A!\207" [gnus-mime-multipart-functions gnus-mime-display-multipart-as-mixed gnus-mime-display-multipart-alternative-as-mixed gnus-article-mime-handle-alist gnus-mime-display-multipart-related-as-mixed 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] 7 (#$ . 204804)]) #@16 (fn HANDLES) (defalias 'gnus-mime-part-function #[257 "\211@;\203\f\301\302A\"\207!\207" [gnus-article-mime-part-function mapcar gnus-mime-part-function] 4 (#$ . 205611)]) #@16 (fn HANDLES) (defalias 'gnus-mime-display-mixed #[257 "\300\301\"\207" [mapcar gnus-mime-display-part] 4 (#$ . 205795)]) #@23 (fn HANDLE CHARSET) (defalias 'gnus-mime--inline-message #[514 "\304\211\305=?\205\206@\306\307!\210)\310 \210\n+\211\205(\311\n\"\211\207" [gnus-newsgroup-charset gnus-article-prepare-hook gnus-article-mime-handles gnus-original-article-buffer nil gnus-decoded run-hooks gnus-article-decode-hook gnus-article-prepare-display mm-merge-handles] 6 (#$ . 205925)]) #@15 (fn HANDLE) (defalias 'gnus-mime-display-single #[257 "\211\211@;\203\211@\262\202\211A@@\262\306\307\310\"\311\312\211\211\3132\247\203=\314\211A\262\242\"\203$\315\313\312\"\210\202$ \211\205N\316\317!\211\262!\205N\211\262\203\\r q\210\f)\202]\f\203h\314\320\"\204\256\321!?\205\206\3228?\206\206\3228@\323\232\206\206\324!\211\262\203\256\325!\203\256\326!\203\241\327!\204\250\330!\203\256\311\262\202\322\331\211@;\203\277\211@\262\202\305\211A@@\262\332\"@\262\333\232\203\322\311\262\334 \"@\312\204\351 GT\262 B B\2030\331\211@;\203\376\211@\262\202\211A@@\262\332\"@\262\335\232\2030\336\337n\204\340\202.o\204)`S\206\"`Sf\337=\203-\341\202.\342\"\210\203B\343!\203B2=\203T\344 \206Q\205QC#\210`\262\203\3663\212\3451i q0\210\202j\2104)56\312\2117789r\346\347!\203\242:\211\205\224\316\317!\211\262!\205\224\211\262\203\236:\202\275p\202\275 \211\205\263\316\317!\211\262!\205\263\211\262\203\274 \202\275pq\210\f9\350 8;\203\350<;\203\332\314<;\"\204\350<:\203\353;<\235\203\353\3127)\351 \311\"\210-\202\203\203\352 !\210db\210\314\320 \"\203\353 \210\2023\354\312x\355Um\204 \342u\210\203)\353 \210\2020\356`d\357\311$\210db\210\212\214\211`}\210==\203^\360\312\342\211\f\211@;\203T\211@\262\202Z\211A@@\262$\202\243\312=\211\203\201\211@\211;\204z\211A@@\361\232\204z\211B\262A\266\202\202a\210\360\312 >GG \211@;\203\232\211@\262\202\240\211A@@\262$\262*\266\2020*\207" [gnus-ignored-mime-types gnus-displaying-mime mm-inline-font-lock gnus-summary-buffer gnus-inhibit-images gnus-article-mime-handle-alist gnus-visual-p article-highlight highlight t nil ignored 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" 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] 16 (#$ . 206310)]) #@52 Say whether TYPE is to be unbuttonized. (fn TYPE) (defalias 'gnus-unbuttonized-mime-type-p #[257 "?\205I\3032% \211\205\"\304\211A\262\242\"\203\n\305\303\306\"\210\202\n\2620\205I\3032H\n\211\205E\304\211A\262\242\"\203-\305\303\306\"\210\202-\2620?\207" [gnus-inhibit-mime-unbuttonizing gnus-unbuttonized-mime-types gnus-buttonized-mime-types found string-match throw t] 5 (#$ . 208942)]) #@47 Insert a newline, but mark it as undeletable. (defalias 'gnus-article-insert-newline #[0 "\300`\301c\210`\302\303$\207" [put-text-property "\n" gnus-undeletable t] 5 (#$ . 209359)]) #@47 (fn HANDLES &optional PREFERRED IBEGEND ID) (defalias 'gnus-mime-display-alternative #[1025 "\206\306!`\307\310C\310C\311 \312\313\"\216\214\2039@A\206.@b\210\314y\210`}\210ed|\210\315\n!\210\316 C\240\210 \235A@\206M\n@\240\210\204^\203^\317\320!\204\321`\322\323\n\"c\210` \324\312\325 \f\f&\326\n\327 \330\f\331\307\332\333BBBBBBBBBBBB\262#\210 \211\203 \211@\321`\322\334\f\232\203\255\335\202\256\336\211@;\203\274\211@\262\202\302\211A@@\262#c\210` \324\312\337 &\326\n\327 \330\f\331\307\332\340\307\341\307\342\343BBBBBBBBBBBBBBBBBB\262#\210\344c\210A\266\202\202\230\210\345c\210\203\366@;\203!\346!\210\202\355 \3472!\2051r2q\2103)45\310\2116678r\350\351!\203f9\211\205X\347\352!\211\262!\205X\211\262\203b9\202\203p\202\2032\211\205x\347\352!\211\262!\205x\211\262\203\2022\202\203pq\210:8\353 7;\203\257<;\203\241\354<;\"\204\257<:\203\262;<\235\203\262\3106)\355!\210+\212\214\242@d}\210\356\310 G\357=@!\203\321\360\202\325=GS \211@;\203\344\211@\262\202\352\211A@@\262$\210,db\210\242\316 \241\210*\210\203b\210)\266>\205\n\361 \207" [inhibit-read-only gnus-article-mime-handle-alist gnus-mime-button-map gnus-article-mouse-face gnus-article-button-face gnus-newsgroup-charset mm-preferred-alternative t nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 2 mm-remove-parts point-marker gnus-unbuttonized-mime-type-p "multipart/alternative" add-text-properties format "%d. " gnus-callback #[257 "\300\203\305\306\302\304\242\303\242\301$\207" [V0 V1 V2 V3 V4 V5 gnus-mime-display-alternative gnus-article-mime-handle-alist] 6 "\n\n(fn HANDLES)"] keymap mouse-face face follow-link gnus-part (article-type multipart rear-nonsticky t) "(%c) %-18s" 42 32 #[257 "\300\203\305\306\302\304\303\242\301$\207" [V0 V1 V2 V3 V4 V5 gnus-mime-display-alternative gnus-article-mime-handle-alist] 6 "\n\n(fn HANDLES)"] button category gnus-data (rear-nonsticky t) " " "\n\n" gnus-display-mime buffer-live-p derived-mode-p gnus-article-mode get-buffer gnus-blocked-images string-match mm-display-part gnus-treat-article bufferp 1 gnus-mime-buttonize-attachments-in-header 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 gnus-inhibit-images gnus-newsgroup-name gnus-safe-html-newsgroups gnus-article-mime-handles gnus-mime-display-attachment-buttons-in-header] 35 (#$ . 209547)]) #@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 "\300\301\211\203@\211@\211@\302A@!\3038\302\3048!\3058\306\307\310\311%\210\306\307\310\311%\210EB\262\266A\266\202\202\207" [((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] 15) (#$ . 212191)) #@18 (fn KEY VALUE) (defalias 'gnus-article-wash-status-entry #[514 "\301\"\203\f\211A@\207\3028\207" [gnus-article-wash-status-strings assoc 2] 5 (#$ . 213284)]) #@58 Return a string which display status of article washing. (defalias 'gnus-article-wash-status #[0 "rq\210\302 >\303 >\304 >\305 >\306 >\307 >\310 >\311 >\312 >\313 >\314\302 \"\314\303 \2060\n\"\314\305\n\206D \206D\206D\"\314\311\"\314\312\"\314\313\"\260\266\212)\207" [gnus-article-buffer gnus-article-wash-types cite headers boring-headers pgp pem signed encrypted signature overstrike emphasis gnus-article-wash-status-entry] 18 (#$ . 213455)]) #@57 Add a washing of TYPE to the current status. (fn TYPE) (defalias 'gnus-add-wash-type #[257 "\300\301\"\207" [add-to-list gnus-article-wash-types] 4 (#$ . 213931)]) #@57 Add a washing of TYPE to the current status. (fn TYPE) (defalias 'gnus-delete-wash-type #[257 "\301\"\211\207" [gnus-article-wash-types delq] 4 (#$ . 214103)]) #@77 Add IMAGE of CATEGORY to the list of displayed images. (fn CATEGORY IMAGE) (defalias 'gnus-add-image #[514 "\236\211\204C\262\211B\211C\244\207" [gnus-article-image-alist] 5 (#$ . 214273)]) #@47 Delete all images in CATEGORY. (fn CATEGORY) (defalias 'gnus-delete-images #[257 "\211\236\211A\211\203\211@\301\"\210A\266\202\202\210\302\"\303!\207" [gnus-article-image-alist gnus-remove-image delq gnus-delete-wash-type] 7 (#$ . 214479)]) (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 #[0 "\211\205\303\304!\211\262!\205\211\262\203 rq\210 )?\205'\n?\205'\305 \207" [gnus-summary-buffer gnus-have-all-headers gnus-inhibit-hiding buffer-live-p get-buffer article-hide-headers] 4 (#$ . 214821)]) #@95 Put image DATA with a string ALT. Enable image to be deleted. (fn DATA ALT &optional FLAGS) (defalias 'gnus-shr-put-image #[770 "\211\203\300\301\206\f\302\303\304##\202 \300\301\206\302\303\304#\"\211\205(\305\304\"\207" [shr-put-image propertize "*" gnus-image-category shr gnus-add-image] 9 (#$ . 215186)]) #@31 (fn &optional ALIST ID ALL) (defalias 'gnus-article-mime-handles #[768 "\203K\301\302\211\211\203I\211@\303C\"\262T\262\211@;\2030\304A #\244\262\202B\305\306\"\"\210BC\244\262A\266\202\202\207\302C\307!\211\203\217\211@\211A@;\203t\211AA\203\210\304AA@C#\244\262\202\210\305\306A\"\"\210@CABC\244\262A\266\202\202P\210\211A\262\310\311\"\210\207" [gnus-article-mime-handle-alist 1 nil append gnus-article-mime-handles delq rassq reverse mapc #[257 "\211@A\203\211@@T\240\210\211B\211\207\211@@\240\207" [gnus-article-mime-handle-alist] 3 "\n\n(fn HANDLE)"]] 13 (#$ . 215517)]) #@306 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. (fn &optional INTERACTIVE) (defalias 'gnus-mime-buttonize-attachments-in-header #[256 "\304\305!!\205\344rq\210\306\211\307\211\212\214~\210\310 \210\2045\311\312\307\306#\2035\313\314\225\315\"\203\314\224\262\202~\210\203L\311\316\307\306#\203I\314\224\202Jd|\210\205Q?\205\340\307\262\317 \211\203s\211@\320A8\204l\211B\262A\266\202\202Z\210\205\340\321 \210\322y\210``}\210\323A\203\214\324\202\215\325\326\261\210\237\211\203\305\211@`\262\327c\210\330A@\"\210\331\307x\210`d|\210i\332 V\203\276b\210\333c\210\307\210A\266\202\202\223\210\333c\210\334e`\"\335\315\306#\210\335\336\306#\266\337\340\341!)+\266\203*\207" [gnus-article-buffer inhibit-read-only case-fold-search gnus-treatment-function-alist 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] 10 (#$ . 216164) [(list t) (gnus-article-mode gnus-summary-mode)]]) #@299 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. (fn FILE-NAME) (defalias 'gnus-output-to-file #[257 "p\n\211?\205\n \211\206 \206 \306!\307\310\311\"r\211q\210\312\313\"\216\203=\314!\210eb\210\315\316!\203=\317\224\317\225|\210db\210\320!\210db\210\321c\210\203v\322\323 \312\324\"\216\325ed#)\262!\262\326\236A\206jeb\210\327\330\"c\210\203\214\331ed\332\333%\210\334\335\"\210\202\223\331ed#\210*\210+\266\311\207" [nnmail-pathname-coding-system file-name-coding-system gnus-article-save-coding-system mm-text-coding-system coding-system-for-read mm-text-coding-system-for-write file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 #[0 "\301\300!\207" [V0 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" coding-system-for-write] 11 (#$ . 217680)]) #@108 Narrow the article buffer to a page. If given a numerical ARG, move forward ARG pages. (fn &optional ARG) (defalias 'gnus-narrow-to-page #[256 "\211\203\n\304!\202 \305\262rq\210~\210\306\307!\203$\310\311\312!\210\311\313!\210)\314\211\211\212\305W\203d\315\n\314\316\317!$\203Q\305\224\262\211\262\315\n\314\310#\203\276\305\225\262\202\276\320\n\314\310#\205\276\305\224\262e\211\262\202\276\305V\203\236\320\n\314\316$\203\213\305\225\262\211\262\320\n\314\310#\203\276\305\224\262\202\276\315\n\314\310#\205\276\305\225\262d\211\262\202\276\315\n\314\310#\203\255\305\225\211\262b\210\320\n\314\310#\203\271\305\224\262\206\276)\205\362\310\211\203\313\211b\210\206\320e\206\325d}\210\306\307!\205\362\212\203\350b\210\321 \210\205\361b\210\322 )\266\203)\207" [gnus-article-buffer inhibit-read-only page-delimiter gnus-page-broken 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] 10 (#$ . 219067) ["P" (gnus-article-mode)]]) #@36 Show the next page of the article. (defalias 'gnus-article-goto-next-page #[0 "\300 \205\feb\210\301\302\303\"\207" [gnus-article-next-page gnus-article-read-summary-keys nil 110] 3 (#$ . 220225) [nil (gnus-article-mode)]]) #@40 Show the previous page of the article. (defalias 'gnus-article-goto-prev-page #[0 "\214~\210o)\203 \300\301\302\"\207\303\301!\207" [gnus-article-read-summary-keys nil 112 gnus-article-prev-page] 3 (#$ . 220456) [nil (gnus-article-mode)]]) #@174 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. (fn &optional LINES) (defalias 'gnus-article-next-page #[256 "\303\304Z!\210 \203\305\306 d\"\206\307 S\\V\204L\212\310\210\311 \205(`dY)\203L\n\203<\212\214~\210\310y\210m*\203F \203D\312!\210\313\207\314\315!\210\310\207\312!\210\310\207" [scroll-margin gnus-article-over-scroll 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] 4 (#$ . 220704) ["p" (gnus-article-mode)]]) #@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 #[0 "\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 (#$ . 221361)]) #@14 (fn LINES) (defalias 'gnus-article-next-page-1 #[257 "\3021\303\211\304!*0\210\202\210db\210\305 \207" [auto-window-vscroll scroll-in-place (end-of-buffer) nil scroll-up gnus-article-beginning-of-window] 3 (#$ . 221789)]) #@114 Show previous page of current article. Argument LINES specifies lines to be scrolled down. (fn &optional LINES) (defalias 'gnus-article-prev-page #[256 "\304\305!\210\2036o\2036\214~\210o)\2046\306\307!\210db\210\310 \2033\203,\n\\\311]\2024\312 \313Z\2024\307!\207\3141D\315\316!)0\202G\210eb\317 \210\207" [gnus-page-broken gnus-article-over-scroll 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] 4 (#$ . 222027) ["p" (gnus-article-mode)]]) #@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 #[0 "\205I\302\303!\205I\303J\205I\212\304\3052H\306\307\310\304#\203C\311u\210\312`\313\310\314\315\"\316\317\320!\"B\"\262\303J\321#\204\322\305\310\"\210\202\322\305\304\"0*\207" [gnus-article-skip-boring inhibit-point-motion-hooks boundp gnus-article-boring-faces t only-boring re-search-forward "\\b\\w\\w" nil -1 seq-intersection delq get-text-property face mapcar #[257 "\300\301\"\207" [overlay-get face] 4 "\n\n(fn OVERLAY)"] overlays-at eq throw] 9 (#$ . 222618)]) #@52 Read article specified by message-id around point. (defalias 'gnus-article-refer-article #[0 "\212\301\302\303 \304#\210\305\306\307 \304#\210\305\310\307 \304#\203)\311\312\313!\314Qq\210\315!\262\202,\316\317!)\207" [gnus-summary-buffer re-search-backward "[ ]\\|^" point-at-bol t re-search-forward "]+" "<" match-string 0 ">" gnus-summary-refer-article error "No references around point"] 4 (#$ . 223336) [nil (gnus-article-mode)]]) #@45 Reconfigure windows to show summary buffer. (defalias 'gnus-article-show-summary #[0 "\211\205\302\303!\211\262!\205\211\262\204\304\305!\207\306 \210\307\310!\210\311 !\210\312 \207" [gnus-summary-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 (#$ . 223825) [nil (gnus-article-mode)]]) #@41 Describe article mode commands briefly. (defalias 'gnus-article-describe-briefly #[0 "\300\301\302\303\304!#\207" [gnus-message 6 "%s" substitute-command-keys "\\\\[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 (#$ . 224306) [nil (gnus-article-mode)]]) #@35 Beep if not in an article buffer. (defalias 'gnus-article-check-buffer #[0 "\300\301!?\205\n\302\303!\207" [derived-mode-p gnus-article-mode error "Command invoked outside of a Gnus article buffer"] 2 (#$ . 224751)]) #@119 Read a summary buffer key sequence and execute it from the article buffer. (fn &optional ARG KEY NOT-RESTORE-WINDOW) (defalias 'gnus-article-read-summary-keys #[768 "\306 \210\307\310\311\312\211\211\211r q\210\n \206 C\244\313\312\314\"\262\315\314\"\262)\316\317!\210\211\320=\2036\321\322\"\210\211GSH\323=\203I\324\325\326O!\202\331\235\204]\235\204]\235\203\231\211\203f\211\247\203l\327 \210\202\214\235\204u q\210\2119\203\205\211\330N\203\205\321\331\"\210\332!\210`\262\235\205\331\333\f!\202\331p\334 \312\211\211\211\211\211\203\262\333 !\210\335 \262\202\354\336 !\211\262\203\303\337!\210\202\354 \340\341!\210\336\342\"\211\262\204\337\343\340\341!\210)\336\342\"\262\344\345!!\210\337!\266p\2629\203\330N\203\321\331\n\"\210\203\301\346 !\203\301\3471\332 !\210\3140\202\"\211\262\312\262\203\301\335 =\203;`\262 \350!\262\351!\262p=\204Kp=\205\327q\210\3521U\353 0\202W\210\312\262q\210\204g\354!\210\355=\203\212\n\203\212\356\336p!\357\"\210\360\336p!\361 \203\207`S\202\210`\"\210?\205\327\n\205\327\362!\205\327r\363!q\210\364\365!)\205\327\360\f\"\210\356\"\210\366\"\266\210\202\331\354!\210\211\203\325\367@A\"\266\210\202\331\327 \266\210)\207" [gnus-pick-mode gnus-article-current-summary unread-command-events last-command-event gnus-article-buffer gnus-buffer-configuration 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 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] 22 (#$ . 224976) ["P" (gnus-article-mode)]]) (defalias 'gnus-article-read-summary-send-keys #[0 "\301C\302 )\207" [unread-command-events 83 gnus-article-read-summary-keys] 1 nil [nil (gnus-article-mode)]]) #@94 Display documentation of the function invoked by KEY. KEY is a string or a vector. (fn KEY) (defalias 'gnus-article-describe-key #[257 "\304 \210\305\306\"\307>\203(rq\210\310\311\" \244\306\312\313\314\312\306\"\315 BCp\"+\207\313!\207" [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 #[257 "\211\250\203\211\300Y\203\301\300ZD\207\207" [128 meta] 4 "\n\n(fn X)"] nil describe-key read-key-sequence this-single-command-raw-keys] 5 (#$ . 227547) [(byte-code "\301\302\303!)C\207" [cursor-in-echo-area t read-key-sequence "Describe key: "] 2) (gnus-article-mode)]]) #@111 Display documentation of the function invoked by KEY. KEY is a string or a vector. (fn KEY &optional INSERT) (defalias 'gnus-article-describe-key-briefly #[513 "\304 \210\305\306\"\307>\203)rq\210\310\311\" \244\306\312\313\314\312\306\"\315 BCp#+\207\313\"\207" [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 #[257 "\211\250\203\211\300Y\203\301\300ZD\207\207" [128 meta] 4 "\n\n(fn X)"] nil describe-key-briefly read-key-sequence this-single-command-raw-keys] 6 (#$ . 228289) [(byte-code "\302\303\304!) D\207" [cursor-in-echo-area current-prefix-arg t read-key-sequence "Describe key: "] 2) (gnus-article-mode)]]) #@207 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. (fn &optional PREFIX) (defalias 'gnus-article-describe-bindings #[256 "\306 \210\307!\307 !\310\311!\312 \313\211\211\314\315#\210\314\316\313#\210\314\317\320#\210r\nq\210\211\203C\211@\314\321\322 \"#\210A\266\202\202+\210\323\324!\211\262\203`\307!\211\262\323\"\210\202a\"\210\323\321\315!\"\210\313\211\211\203\323\211A\262\242\262\325!\203\272G\326U\203\272\327H\211\262:\203\272\211@\247\203\272\211A\247\203\272\211@A]\330W\203o\331\332\333\334!\237\"\"\262\202o\321!\211\262\203o\211\320=\204o\314 #\210\202o)\266\335\304!\203\337\f\262\335\305!\203\350 \262)\336\337\340\"r\211q\210\341\342\"\216\343!\210\344\304!\210\344\305!\210\345 !\210*\210p\341\346\" D\347\350!\210r\313*\351 )q\210\211\211+)\207" [gnus-article-mode-map gnus-article-send-map gnus-article-current-summary gnus-pick-mode gnus-agent-summary-mode gnus-draft-mode 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 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] use-local-map make-local-variable describe-bindings #[257 "r\300q\210\301!)\207" [V0 gnus-article-describe-bindings] 3 "\n\n(fn PREFIX)"] require help-mode help-buffer help-xref-following help-xref-stack-item] 16 (#$ . 229086) [nil (gnus-article-mode)]]) #@178 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. (fn &optional WIDE) (defalias 'gnus-article-reply-with-original #[256 "A\304 \203 \n\204r q\210\305CC\")\207`\306\307!{\262 \203$\304r q\210\305DC\")\207" [gnus-article-current transient-mark-mode mark-active gnus-summary-buffer nil gnus-summary-reply mark t] 6 (#$ . 230840) [nil (gnus-article-mode)]]) #@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 #[0 "\300\301!\207" [gnus-article-reply-with-original t] 2 (#$ . 231320) [nil (gnus-article-mode)]]) #@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 #[0 "A\304 \203 \n\204r q\210\305CC!)\207`\306\307!{\262 \203#\304r q\210\305DC!)\207" [gnus-article-current transient-mark-mode mark-active gnus-summary-buffer nil gnus-summary-followup mark t] 5 (#$ . 231638) [nil (gnus-article-mode)]]) #@193 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. (fn &optional ARG FORCE) (defalias 'gnus-article-hide #[512 "\302\303!!\205rq\210\304\305!\210\306 \210\307\"\210\310!*\207" [gnus-article-buffer inhibit-read-only buffer-live-p get-buffer t article-hide-headers article-hide-list-identifiers gnus-article-hide-citation-maybe article-hide-signature] 5 (#$ . 232087) [(byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3) (gnus-article-mode gnus-summary-mode)]]) (defalias 'gnus-check-group-server #[0 "\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]) #@68 Get an article and insert it into this buffer. (fn ARTICLE GROUP) (defalias 'gnus-request-article-this-buffer #[514 "\306\211\212\307 \210\310 \210\306\206 \262;\203\311!\210\247\203\244\n\211\2051\312\313!\211\262!\2051\211\262\203\244r\nq\210\314 \"\3158\262\316W\203y\f>\203d\262\317\f\"\211\320H\262\311!\262\202y\321!\203r\211\320H\262\202y\322\262\323!\210\324 !\211@\325=\203\241\321!\203\241\326\320H!\211;\203\240\327!\203\240\325\262\330!\210\210\266)\247\203\322\n\211\205\272\312\313!\211\262!\205\272\211\262\203\322r\nq\210 \236A)5=\203\322\306\202\3136!\203\375\247\203\375r6q\2107@\232\205\3607A=)\203\375\3316!\210\332\2028\203\333p#\203\332\202\334p#\2030\335\n#\210\247\203,8\203,\336p#\210\332\2029\203E\247\203E\337\"\203E\332\202\340\"\203P\332\202;\204Z\247\203:;\205hr\nq\210\341 )\324 !@\306\342;\211:\204\203\203\203\211A\262\242:\211\204\367\307 \210\310 \210\306\343 \210)\344p#\203\331\247\203\323\335 \n#\2108\203\273\336 p#\210<\203\323=\203\323\345!\203\323\346\"\210\332\262\202\203\203\350\211A\262\242:\202\203\347\350\351!\"\204\203\352\262\202\203\211\332=\205\376\332*\266\204\202)\n>\313?!\203U\353p!\353\313?!!\232\203U\212\3136!\203,6q\210\202;\3546!q\210\355 \210\356@\342A\342;\307 \210\331?!\210)B7)\357\360!\2100B\203{\247\204c;\203{r\nq\210\361\"\210\362\306\342#\210\363\364p\342\"`\"\210)\207" [bidi-paragraph-direction gnus-newsgroup-name gnus-summary-buffer gnus-newsgroup-data gnus-newsgroup-sparse gnus-newsgroup-reads 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 article 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-canceled-mark gnus-original-article-buffer gnus-original-article gnus-keep-backlog gnus-use-cache gnus-override-method inhibit-read-only gnus-agent gnus-agent-eagerly-store-articles gnus-article-current-summary gnus-article-buffer major-mode buffer-read-only gnus-article-decoded-p] 13 (#$ . 232903)]) #@89 Allows images in newsgroups to be shown, blocks images in all other groups. (fn GROUP) (defalias 'gnus-block-private-groups #[257 "\301!\206\302\303\"\206\211\235?\205\304\207" [gnus-global-groups gnus-news-group-p gnus-member-of-valid global "."] 4 (#$ . 235742)]) (defalias 'gnus-blocked-images #[0 "\302!\203\n !\207\207" [gnus-blocked-images gnus-newsgroup-name functionp] 2]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-article-edit-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run in article edit mode buffers." :group gnus-article-various :type hook] 8) (defvar gnus-article-edit-done-function nil) (defvar gnus-article-edit-mode-map nil) (byte-code "\204\302 \303 \"\210\304\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 (#$ . 237587)) (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 #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R $=\204R\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%\341 \210~\210)\342\343!\207" [delay-mode-hooks major-mode mode-name gnus-article-edit-mode-map gnus-article-edit-mode-syntax-table gnus-article-edit-mode-abbrev-table 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 "" mml-mode nil buffer-enable-undo run-mode-hooks gnus-article-edit-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 239617) nil]) #@175 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. (fn &optional FORCE) (defalias 'gnus-article-edit #[256 "\211\204 \304 \203 \305\306!\210\307\310!!\203rq\210\311\312 \210*\313\314\n\315H\206(\316\304 \317\320$\266\203\"\207" [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 5 "" make-closure #[257 "\303\300\301\302$\207" [V0 V1 V2 gnus-summary-edit-article-done] 6 "\n\n(fn NO-HIGHLIGHT)"]] 11 (#$ . 240982) ["P" (gnus-article-mode gnus-summary-mode)]]) #@102 Start editing the contents of the current article buffer. (fn START-FUNC EXIT-FUNC &optional QUIET) (defalias 'gnus-article-edit-article #[770 "\304 q\210\305\306 \210) \210\307\305!\210\310\311!\210\211?\205#\312\313\314\"\207" [gnus-article-buffer message-auto-save-directory gnus-article-edit-done-function gnus-prev-winconf 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"] 7 (#$ . 241761)]) #@56 Update the article edits and exit. (fn &optional ARG) (defalias 'gnus-article-edit-done #[256 "p\305 ~\210!\210q\210\n\203\306 @ A\"\210\307 \210\f\203'\310 @ A\"\210\311 \210\312ed\313#\210\314 \210\315!\210q\210\316\317!\"\210\320\317!`\"\266\321 \207" [gnus-article-edit-done-function gnus-prev-winconf gnus-keep-backlog gnus-article-current gnus-use-cache 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] 9 (#$ . 242275) ["P" (gnus-article-mode)]]) (defalias 'gnus-flush-original-article-buffer #[0 "\302!\205rq\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 #[0 "\302 \203 \303\304!\205Jp`\305 \306 \210\211\205#\307\310!\211\262!\205#\211\262\203,\311!\210 \312 \210\313 \210\314!\210rq\210\315\316p!\"\210b\210)\266\317 \207" [gnus-original-article-buffer gnus-prev-winconf buffer-modified-p yes-or-no-p "Article modified; kill anyway? " window-start 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] 7 (#$ . 243131) [nil (gnus-article-mode)]]) #@51 Interactively repair spacing at end of sentences. (defalias 'gnus-article-edit-full-stops #[0 "\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 (#$ . 243760) [nil (gnus-article-mode)]]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\313& \210\300\320\302\303\321DD\322\306\323\310\311\312\313& \210\300\324\302\303\325DD\326\306\323\312\327\310\311& \210\300\330\302\303\331DD\332\306\323\310\311\312\313& \210\300\333\302\303\334DD\335\306\323\310\311\312\336& \210\300\337\302\303\340DD\341\306\323\310\311\312\342& \207" [custom-declare-variable gnus-button-url-regexp funcall function #[0 "\207" [browse-url-button-regexp] 1 #1=""] "Regular expression that matches URLs." :version "27.1" :group gnus-article-buttons :type regexp gnus-button-valid-fqdn-regexp #[0 "\300\207" ["\\([-A-Za-z0-9]+\\.\\)+[A-Za-z]+"] 1 #1#] "Regular expression that matches a valid FQDN." "26.1" gnus-button-valid-localpart-regexp #[0 "\300\207" ["[-a-z0-9$%(*+./=?[_][^<>\")!;:,{}\n @]*"] 1 #1#] "Regular expression that matches a localpart of mail addresses or MIDs." "22.1" gnus-button-man-handler #[0 "\300\207" [manual-entry] 1 #1#] "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 #[0 "\302\303 \304\260\207" [gnus-button-valid-localpart-regexp gnus-button-valid-fqdn-regexp "\\b\\(?\\)\\b"] 5 #1#] "Regular expression that matches a message ID or a mail address." gnus-button-prefer-mid-or-mail #[0 "\300\207" [gnus-button-mid-or-mail-heuristic] 1 #1#] "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 #[0 "\300\207" [((-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]"))] 1 #1#] "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) #@213 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. (fn MID-OR-MAIL) (defalias 'gnus-button-mid-or-mail-heuristic #[257 "\302\303\302\211\211\211\304\305\306\n#G\262\307\310\311\n$\210\312\313 \"\203-\307\310\314\n#\210\315\262\312\316 \"\203?\307\310\317\n#\210\320\262\247\203\344\203v@\262\211@\262\211A\262A\262\312 \"\203D\\\262\307\321\322\n\n&\210\202D\323X\203\212\324\\\262\307\321\325\n$\210\326Y\203\344\307\321\327\n#\210\312\330 \"\203\273\331\324\332_\\_\262\\\262\307\321\333\n %\210\202\344\312\334 \"\203\325\335\\\262\307\321\336\n\335 %\210\202\344\324\\\262\307\321\337\n\324 %\210\307\310\340\n$\2109\203\366\202 \341W\203\342\202 \343V\203\n\315\202 \344)\207" [gnus-button-mid-or-mail-heuristic-alist case-fold-search 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 0.1 "Many digits in `%s', rate `%s', result `%s'." "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*@" -5.0 "Few vowels in `%s', rate `%s', result `%s'." "`%s', rate `%s', result `%s'." "`%s': Final rate is `%s'." -10.0 mid 10.0 ask] 15 (#$ . 247762)]) #@20 (fn MID-OR-MAIL) (defalias 'gnus-button-handle-mid-or-mail #[257 "\301\302P\303P\304\305\306#\210\307!\2034\310\311\312#!\262\313=\204+\314=\2031\262\2024\315\262\315=\203V\316 \317\320\"\216\321\322\323Q!\203Q\314\262\202T\313\262)\210\324\267\202p\304\325\326#\210\327!\207\304\325\330#\210\331!\207\304\332\333\"\207" [gnus-button-prefer-mid-or-mail nil "news:" "mailto:" gnus-message 9 "mid-or-mail=%s" fboundp replace-regexp-in-string "^<\\|>$" "" mid mail ask current-window-configuration make-closure #[0 "\301\300!\207" [V0 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 92 mail 102)) 8 "calling `gnus-button-handle-news' %s" gnus-button-handle-news "calling `gnus-url-mailto' %s" gnus-url-mailto 3 "Invalid string."] 10 (#$ . 249436)]) #@135 Call function FUN on argument ARG. Both FUN and ARG are supposed to be strings. ARG will be passed as a symbol to FUN. (fn FUN ARG) (defalias 'gnus-button-handle-custom #[514 "\300!\301\302\"\203\202\300!!\207" [intern string-match "^customize-apropos"] 6 (#$ . 250334)]) (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|?\\)") #@79 Call `describe-function' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-describe-function #[257 "\301\302\303\304#!!\207" [gnus-button-handle-describe-prefix describe-function intern replace-regexp-in-string ""] 7 (#$ . 250691)]) #@79 Call `describe-variable' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-describe-variable #[257 "\301\302\303\304#!!\207" [gnus-button-handle-describe-prefix describe-variable intern replace-regexp-in-string ""] 7 (#$ . 250965)]) #@99 Display help on variable or function. Calls `describe-variable' or `describe-function'. (fn URL) (defalias 'gnus-button-handle-symbol #[257 "\300!\301!\203 \302!\207\303!\203\304!\207\305\306\307#\207" [intern fboundp describe-function boundp describe-variable gnus-message 3 "`%s' is not a known function of variable."] 6 (#$ . 251239)]) #@74 Call `describe-key' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-describe-key #[257 "\301\302#\3031\304!0\202\210\305\211\203\306!\207\307\310\311#\207" [gnus-button-handle-describe-prefix replace-regexp-in-string "" (error) kbd nil describe-key gnus-message 3 "Invalid key sequence in button: %s"] 7 (#$ . 251594)]) #@69 Call `apropos' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-apropos #[257 "\301\302\303#!\207" [gnus-button-handle-describe-prefix apropos replace-regexp-in-string ""] 6 (#$ . 251966)]) #@69 Call `apropos' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-apropos-command #[257 "\301\302\303#!\207" [gnus-button-handle-describe-prefix apropos-command replace-regexp-in-string ""] 6 (#$ . 252198)]) #@69 Call `apropos' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-apropos-variable #[257 "\301\302\303#!\207" [gnus-button-handle-describe-prefix apropos-variable replace-regexp-in-string ""] 6 (#$ . 252446)]) #@69 Call `apropos' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-apropos-documentation #[257 "\301\302\303#!\207" [gnus-button-handle-describe-prefix apropos-documentation replace-regexp-in-string ""] 6 (#$ . 252696)]) #@76 Call `locate-library' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-library #[257 "\300\301\302#\210\303!\304\305\306\206\307#\204\300\310\311#\207\312!\207" [gnus-message 9 "url=`%s'" locate-library replace-regexp-in-string "\\.elc" ".el" "" 1 "Cannot locate library `%s'." find-file-read-only] 7 (#$ . 252956)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\307\310\311\312\321\314\315& \210\300\322\302\303\323DD\324\306\307\310\311\314\315& \210\300\325\302\303\326DD\327\306\307\310\311\314\315& \210\300\330\302\303\331DD\332\310\311\314\333&\210\334\330\335\336#\210\300\337\302\303\340DD\341\310\311\310\342\314\343& \210\334\337\335\336#\207" [custom-declare-variable gnus-button-man-level funcall function #[0 "\300\207" [5] 1 #1=""] "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 #[0 "\300\207" [5] 1 #1#] "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 #[0 "\300\207" [5] 1 #1#] "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 #[0 "\300\207" [5] 1 #1#] "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 #[0 "\300\207" [(("<\\(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) ("\\( \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\\|?\\)[ \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) ("]*\\)>" 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) ("/\\([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\\|?\\)[ \n]+f[ \n]+\\([^ \n]+\\)[ \n]+RET\\>" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2) ("\\b\\(C-h\\|?\\)[ \n]+v[ \n]+\\([^ \n]+\\)[ \n]+RET\\>" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2) ("['`‘]\\(\\(C-h\\|?\\)[ \n]+k[ \n]+\\([^'’]+\\)\\)['’]" 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3) ("\\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))] 1 #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 #[0 "\300\207" [(("^\\(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))] 1 #1#] "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) #@198 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. (fn EVENT) (defalias 'gnus-article-push-button #[257 "\300\301!\211@\262!q\210\302\301!!\303\304\"\303\305\"b\210\211\205\"\211!\207" [window-buffer event-start posn-point get-text-property gnus-data gnus-callback] 6 (#$ . 262491) ["e" (gnus-article-mode)]]) #@178 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. (fn &optional EVENT) (defalias 'gnus-article-press-button #[256 "\212\211\203 \300!\210\301`\302\"\211\205\211\301`\303\"!\262)\207" [mouse-set-point get-text-property gnus-callback gnus-data] 6 (#$ . 262951) [(list last-nonmenu-event) (gnus-article-mode)]]) #@274 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. (fn &optional FORCE) (defalias 'gnus-article-highlight #[256 "\300 \210\301!\210\302 \210\303 \210\304 \207" [gnus-article-highlight-headers gnus-article-highlight-citation gnus-article-highlight-signature gnus-article-add-buttons gnus-article-add-buttons-to-head] 3 (#$ . 263378) [(byte-code "\300C\207" [force] 1) (gnus-article-mode)]]) #@239 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. (fn &optional FORCE) (defalias 'gnus-article-highlight-some #[256 "\300 \210\301 \210\302 \207" [gnus-article-highlight-headers gnus-article-highlight-signature gnus-article-add-buttons] 2 (#$ . 263977) [(byte-code "\300C\207" [force] 1) (gnus-article-mode)]]) #@69 Highlight article headers as specified by `gnus-header-face-alist'. (defalias 'gnus-article-highlight-headers #[0 "rq\210\214\305\211\211\306 \210\307\211\211\211\211\211\f\211\205\245\211@eb\210\310@\311\230\203*\312\202,@\313Q\262\211A@\262\3148\262\315\307\305#\203\236m\204\236\316 \210`\262\317\320\307\305#\204X\321u\210\203p`>\204p`B\262\322`\323\n$\210\203:`\211\262>\204:B\262\315\324\307\305#\203\220\325u\210\202\223db\210\322`\323 $\210\202:A\266\202\202\262\266\206-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-header-face-alist t article-narrow-to-head nil "^\\(" "" "[^ ]" "\\)" 2 re-search-forward beginning-of-line search-forward ":" 1 put-text-property face "^[^ ]" -2] 13 (#$ . 264461) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 #[0 "\304\305!!\205=rq\210\306\211\214 \205<\307 \205<\310\311ed\312\306$\313 #\210~\210\314 \210\315\224\316 \315\225T\312\223\317S\320$\266\202,\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks gnus-signature-face 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] 8 (#$ . 265315) [nil (gnus-article-mode gnus-summary-mode)]]) #@55 Say whether PROP exists in the region. (fn B E PROP) (defalias 'gnus-button-in-region-p #[771 "\300\301$\207" [text-property-not-all nil] 8 (#$ . 266005)]) #@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 #[0 "\305\306!!\205\215rq\210\307\211\307\n\310\211\211\311 \210`\262\211A\262\242\211\262\205\211\312@\307\"\262b\210\313\310\307#\203A@\224A@\225\314\224\312\3158\307\"\203\204\316\317#\204\204\320 \310\223\262@\321=\203n\322#\204\204\323\324 D$\210\325\326\327\"$\210\266\2024*\266\206*\207" [gnus-article-buffer inhibit-read-only gnus-button-alist case-fold-search inhibit-point-motion-hooks 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] 17 (#$ . 266172) [nil (gnus-article-mode gnus-summary-mode)]]) #@357 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. (fn BEG START END) (defalias 'gnus-article-extend-url-button #[771 "`D\303\211\211b\210\304\305!?\205\316b\210\306\307\310  {\"\205\316{C\262\311\224\2031\312\2022\313\262\314 \210\304!\205J\315\225W\205J\316\317\315!!\320\321R\262\311y\210\304!\203\204\311\224\317\322!\206d\317\311!B\262\322\225\206o\311\225\211\262B\262\322\224\206}\311\224B\262\204P\322\224\205\316\303\203\250\323\211A\262\242\211A\262\242\324 \325\n\236D$\210\202\213)\326\"\327\330\331#\210\327\332\333\334\237\335#C#\210 \203\314\327\336 #\210\210\331b\210\207" [message-cite-prefix-regexp gnus-article-mouse-face gnus-button-alist 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] 16 (#$ . 267167)]) #@41 Add buttons to the head of the article. (defalias 'gnus-article-add-buttons-to-head #[0 "rq\210\214\305\211\211\306 \210\307\211\f\211\205\205\211@eb\210\310@\307\305#\203~\311\224\262\310\312\307\305#\2034\311\224\2065d\262b\210\310\313A@\305\"\305#\203x\211A\211A@\224A@\225\3148\311\225b\210\313\305\"\203s\315\3168\3178\224\317 8\225{$\210\266\202:b\210\202A\266\202\202\262\266\202-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-header-button-alist t article-narrow-to-head nil re-search-forward 0 "^[^ ]" eval 2 gnus-article-add-button 3 4] 15 (#$ . 268579) [nil (gnus-article-mode gnus-summary-mode)]]) #@108 Create a button between FROM and TO with callback FUN and data DATA. (fn FROM TO FUN &optional DATA TEXT) (defalias 'gnus-article-add-button #[1283 "\303\205\n\304D\305\306\307 \310 \311\312\313\312\314\312\257\244\205&\315D\244#\210\n\2053\316\n\312$\207" [gnus-article-mouse-face gnus-url-button-map gnus-article-button-face add-text-properties mouse-face gnus-callback button-data action keymap follow-link t category button gnus-data add-face-text-property] 23 (#$ . 269279)]) #@49 Copy the string in the button to the kill ring. (defalias 'gnus-article-copy-string #[0 "\300 \210\301`\302\"\211\205'\303\304\305\"r\211q\210\306\307\"\216c\210\310ed\"\210\311\312\"*\262\207" [gnus-article-check-buffer get-text-property gnus-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] copy-region-as-kill message "Copied %s"] 5 (#$ . 269785) [nil (gnus-article-mode)]]) (defalias 'gnus-article-set-globals #[0 "rq\210\301 )\207" [gnus-summary-buffer gnus-set-global-variables] 1]) #@12 (fn END) (defalias 'gnus-signature-toggle #[257 "\306\307!!\205Crq\210\310\211\311d\312\313$\203,\314\313!\210\315\312\313d\312\313 BB%\210\202<\316\313!\210\317\312\320d\312\313 BB%\210)\f\321\322!+\207" [gnus-article-buffer inhibit-read-only inhibit-point-motion-hooks gnus-hidden-properties gnus-article-mime-handle-alist gnus-article-mime-handle-alist-1 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] 10 (#$ . 270356)]) #@25 (fn MARKER-AND-ENTRY) (defalias 'gnus-button-push #[257 "\212\211@A@\211@\301b\210\3029\203J\202!\205c\3038@\304=\203.\305\306\"\2064\307\310\311\233\"\312!\203C\313\"\266\202\202c\314!\203Z\312J!\203Z\313J\"\266\202\202c\315\316\317B#\266\202)\266\203)\207" [inhibit-point-motion-hooks t looking-at 3 gnus-button-url-regexp get-char-property gnus-button-url mapcar #[257 "\300!\301\302G\303$\210\207" [match-string set-text-properties 0 nil] 7 "\n\n(fn GROUP)"] 4 fboundp apply boundp gnus-message 1 "You must define `%S' to use this button"] 11 (#$ . 270956)]) #@12 (fn URL) (defalias 'gnus-parse-news-url #[257 "\300\211\211\211\211\211\301\302\303\"r\211q\210\304\305\"\216c\210eb\210\306\307!\203)\310\311!\262\312\225b\210\306\313!\203L\310\311!\262\310\314!;\203C\315\310\314!!\202F\310\314!\262\312\225b\210\306\316!\203Z\310\311!\262\202\202\306\317!\203p\310\311!\262\320\310\321!\322\"\262\202\202\306\323!\203~\310\311!\262\202\202\324\325!\210*\210\257\207" [nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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"] 13 (#$ . 271561)]) #@29 Fetch a news URL. (fn URL) (defalias 'gnus-button-handle-news #[257 "\303!\211G\304U\203\211A\266\202\202\305\306\307GD\"\210\310\211A\262\242\211A\262\242\211A\262\242\211A\262\242\310\203`rq\210\203[\311DC \244\206K\312\313\314\315 $\210\316!*\202^\316!)\207\205h\317!\207" [gnus-summary-buffer gnus-refer-article-method nntp-port-number gnus-parse-news-url 6 signal wrong-number-of-arguments (_scheme server port group message-id _articles) nil nntp "nntp" gnus-message 7 "Fetching %s with %s" gnus-summary-refer-article gnus-button-fetch-group] 13 (#$ . 272350)]) #@70 Visit an Emacs Lisp library LIBRARY on line LINE. (fn LIBRARY LINE) (defalias 'gnus-button-patch #[514 "\300\301!!\211\204\302\303\"\210\304!\210eb\210\305!Sy\207" [locate-library file-name-nondirectory error "Couldn't find library %s" find-file string-to-number] 6 (#$ . 272958) [nil (gnus-article-mode)]]) #@29 Fetch a man page. (fn URL) (defalias 'gnus-button-handle-man #[257 "\301\302\303$\210\304=\203\305\306\307#\262\301\302\303$\210!\207" [gnus-button-man-handler gnus-message 9 "`%s' `%s'" woman replace-regexp-in-string "([1-9][X1a-z]*).*\\'" ""] 6 (#$ . 273279)]) #@30 Fetch an info URL. (fn URL) (defalias 'gnus-button-handle-info-url #[257 "\300\301\302#\262\303\304\"\203%\305\306\307\310\311\"!\206\312\313\307\310\314\"!R!\207\303\315\"\203<\316\317\320\321\322\323##\262\305!\207\324\325\"\207" [subst-char-in-string 43 32 string-match "^\\([^:/]+\\)?/\\(.*\\)" gnus-info-find-node "(" gnus-url-unhex-string match-string 1 "Gnus" ")" 2 "([^)\"]+)[^\"]+" string-replace "\"" "" replace-regexp-in-string "[\n ]+" " " error "Can't parse %s"] 9 (#$ . 273560)]) #@39 Fetch GNOME style info URL. (fn URL) (defalias 'gnus-button-handle-info-url-gnome #[257 "\300\301\302#\262\303\304\"\203%\305\306\307\310\311\"!\312\307\310\313\"!\206\"\314R!\207\315\316\"\207" [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"] 9 (#$ . 274078)]) #@37 Fetch KDE style info URL. (fn URL) (defalias 'gnus-button-handle-info-url-kde #[257 "\300\301!!\207" [gnus-info-find-node gnus-url-unhex-string] 4 (#$ . 274469)]) #@66 Call `info' when pushing the corresponding URL button. (fn URL) (defalias 'gnus-button-handle-info-keystrokes #[257 "\300\211\211\301\302\"\203\303\304\"\262\303\305\"\262\202\306\307\"\210\310 \210\311 \210\312!\210G\313V\205x\301\314\"\210\303\304\"\262\303\315\"\262\316!\210\211\203w\317\320\321\"r\211q\210\322\323\"\216c\210eb\210\324\325!*\262\313\211W\203u\300\326\315!\266\211T\262\202b\266\300\207" [nil string-match "\\b\\(C-h\\|?\\)[ \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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] how-many "," Info-index-next] 9 (#$ . 274640)]) (autoload 'pgg-snarf-keys-region "pgg") #@77 Retrieve and add an OpenPGP key given URL from an OpenPGP header. (fn URL) (defalias 'gnus-button-openpgp #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306ed\"\210\307\310\211\211#*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-url-insert-file-contents-external pgg-snarf-keys-region pgg-display-output-buffer nil] 6 (#$ . 275601)]) #@36 Fetch MESSAGE-ID. (fn MESSAGE-ID) (defalias 'gnus-button-message-id #[257 "rq\210\301!)\207" [gnus-summary-buffer gnus-summary-refer-article] 3 (#$ . 276027)]) #@62 Fetch GROUP specified by ADDRESS. (fn ADDRESS &rest IGNORE) (defalias 'gnus-button-fetch-group #[385 "\301\302\"\203 \303\304\"\262\301\305\"\204\306\"\207\301\307\"\204%\310\311\"\207\306\303\312\"\313\303\314\"\315\303\314\"D\316\304\225\203E\303\304 \"\202F\317DF\320\211\211\321\225\205X\322\303\321\n\"!C&\207" [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] 12 (#$ . 276196)]) #@33 (fn QUERY &optional DOWNCASE) (defalias 'gnus-url-parse-query-string #[513 "\300\211\211\211\211\301\302\"\262\203Y@\262A\262\303\304\"\203\f\305\306\211\224O!\262\305\306\225\300O\307\"\262\203:\227\262\310\"\262\203OAB\241\210\202\fDB\262\202\f\207" [nil split-string "&" string-match "=" gnus-url-unhex-string 0 t assoc] 11 (#$ . 276852)]) (make-obsolete 'gnus-url-parse-query-string 'message-parse-mailto-url "28.1") #@12 (fn URL) (defalias 'gnus-url-mailto #[257 "\300 \210\301!\207" [gnus-msg-mail message-mailto-1] 3 (#$ . 277316)]) #@51 Activate ADDRESS with `browse-url'. (fn ADDRESS) (defalias 'gnus-button-embedded-url #[257 "\300\301!!\207" [browse-url gnus-strip-whitespace] 4 (#$ . 277439)]) (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 "\300 \301\302\303#\210\301\304\303#\210\207" [make-sparse-keymap define-key [mouse-2] gnus-button-prev-page " "] 5)) (defvar gnus-next-page-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\207" [make-sparse-keymap define-key [mouse-2] gnus-button-next-page " "] 5)) (defalias 'gnus-insert-prev-page-button #[0 "`\304\305\306 \304\307\n\310BB#\210n\203`S\202`\262\311\307\n\312 &)\207" [inhibit-read-only 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] 9]) #@53 Go to the next page. (fn &optional ARGS MORE-ARGS) (defalias 'gnus-button-next-page #[512 "\301 \302\303\304\"!\210\305 \210\302!\207" [gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-next-page] 7 (#$ . 278421) [nil (gnus-article-mode)]]) #@53 Go to the prev page. (fn &optional ARGS MORE-ARGS) (defalias 'gnus-button-prev-page #[512 "\301 \302\303\304\"!\210\305 \210\302!\207" [gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-prev-page] 7 (#$ . 278709) [nil (gnus-article-mode)]]) (defalias 'gnus-insert-next-page-button #[0 "`\304\305\306 \304\307\n\310BB#\210n\203`S\202`\262\311\307\n\312 &)\207" [inhibit-read-only 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] 9]) #@32 Go to the next page. (fn ARG) (defalias 'gnus-article-button-next-page #[257 "\301 \302\303\304\"!\210\305 \210\302!\207" [gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-next-page] 6 (#$ . 279368) ["P" (gnus-article-mode)]]) #@32 Go to the prev page. (fn ARG) (defalias 'gnus-article-button-prev-page #[257 "\301 \302\303\304\"!\210\305 \210\302!\207" [gnus-article-buffer selected-window select-window gnus-get-buffer-window t gnus-article-prev-page] 6 (#$ . 279643) ["P" (gnus-article-mode)]]) #@416 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) (#$ . 279919)) (defvar gnus-decode-header-methods-cache nil) #@82 Apply the functions from `gnus-encoded-word-methods' that match. (fn START END) (defalias 'gnus-multi-decode-header #[514 "\203 @=\204< C\n\211\203;\211@\2119\203\"C\244\210\2024 \2034\303@ \"\2034AC\244\210A\266\202\202\210\211A\262\214}\210\211\205W\211A\262\242ed\"\210\202F)\207" [gnus-decode-header-methods-cache gnus-newsgroup-name gnus-decode-header-methods string-match] 7 (#$ . 280471)]) (defvar gnus-inhibit-article-treatments nil) #@48 (fn CONDITION &optional PART-NUM TOTAL TYPE) (defalias 'gnus-treat-article #[1025 "deZ\306?\2060\30720 \211\205-\310\211A\262\242\n\"\203\311\307\306\"\210\202\2620\312\313\314\"\315 \316\317!\210\211\205\250\211@\212\211\205e\320\321!\211\262!\205e\211\262\203nq\210\211@J)\262:\204}\203\241\203\211\322=\203\241\323!\203\241\211@\314N\203\232\203\241\214\211A@ \210)A\266\202\202L\262.\207" [gnus-treatment-function-alist gnus-article-treat-types article-goto-body-goes-to-point-min-p gnus-treat-length gnus-treat-type gnus-treat-total-parts 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 gnus-treat-part-number gnus-treat-condition gnus-summary-buffer gnus-inhibit-article-treatments] 20 (#$ . 280947)]) #@12 (fn VAL) (defalias 'gnus-treat-predicate #[257 "\211\204\306\207\203=\207\211\242;\203! \206\307\310\311\312\"\"\207\211<\203[\211A\262\242\211\313\267\202M\314\315\316\317\"\"\207\314\320\316\317\"\"\207\317@!?\207@\n\232\207\321!\203V\211 \207\322\323\"\207\211\324\267\202m\325\207\306\207 \326=\207 \f=\207\211\247\203v W\207\322\327\"\207" [gnus-treat-condition gnus-newsgroup-name gnus-treat-type gnus-treat-part-number gnus-treat-total-parts gnus-treat-length nil "" seq-some make-closure #[257 "\211\300\302\303\304#)\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn S)"] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (or 50 and 58 not 66 typep 72)) 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 97 head 99 first 101 last 105)) t 1 "%S is not a valid value"] 7 (#$ . 281844)]) #@54 Encrypt the article body. (fn PROTOCOL &optional N) (defalias 'gnus-article-encrypt-body #[513 "\203 \203\306\307!\204\310\311!\210\312\n\"A\211\204 \310\313\"\210 \314\235\203+\310\315 \"\210\316!\211\205\333\317@!\210r\fq\210 *\f\320\211+,\321 \210\322 \203S\310\323!\210\324\325!\210-\326H\206_\327\262.q\210\325/\330\331\332\"\333 \210\334\335!\210db\210`\262\336\337\"c\210~\210d}\21000\340\3411\"\210\340\3421\"\210\340\343\344\"\210 \210)eb\210\345c\210~\210\346\320\325$\210)\2102\203\277\3473@3A\"\210\350 \2104\203\320\3513@3A\"\210*\266)\211A\262\202.\207" [gnus-article-encrypt-protocol gnus-novice-user gnus-article-encrypt-protocol-alist gnus-newsgroup-name gnus-summary-buffer gnus-newsgroup-charset 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 #[257 "\214\300 \210eb\210\301\302\303#)\205\304 \210\305 ed|\210~\210\207" [message-narrow-to-head search-forward nil t message-narrow-to-field buffer-string] 5 "\n\n(fn FIELD)"] ("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 gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-current-headers gnus-article-buffer inhibit-read-only message-options user-mail-address gnus-keep-backlog gnus-article-current gnus-use-cache] 15 (#$ . 282865) [(byte-code "\206\f\303\304\305\306 \"\307#\nD\207" [gnus-article-encrypt-protocol gnus-article-encrypt-protocol-alist current-prefix-arg gnus-completing-read "Encrypt protocol" mapcar car t] 5) (gnus-article-mode)]]) #@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" (#$ . 285054)) #@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" (#$ . 285271)) (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 "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\211\203+\211@\302A@@#\210A\266\202\202\210\207" [gnus-mime-security-button-commands make-sparse-keymap define-key " " gnus-article-push-button [mouse-2] [down-mouse-3] gnus-mime-security-button-menu] 7)) #@23 Security button menu. (defvar gnus-mime-security-button-menu nil (#$ . 286368)) (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 #[257 "\211@\300=?\205\301AA@@\302\303$\207" [undefined vector :active t] 6 "\n\n(fn C)"]] 10) #@77 Construct a context-sensitive menu of security commands. (fn EVENT PREFIX) (defalias 'gnus-mime-security-button-menu #[514 "\301 \302\303\"\216\304!\305\211@\262!\210\306!b\210\307 \210\310\311#\262)\207" [gnus-mime-security-button-menu current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] event-start select-window posn-point gnus-article-check-buffer popup-menu nil] 8 (#$ . 286784) ["e\nP" (gnus-article-mode)]]) (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 (#$ . 287351)) #@15 (fn HANDLE) (defalias 'gnus-mime-security-verify-or-decrypt #[257 "\303A!\210\304\305\306@#\307\310\203@b\210`\262r\304\305\311@#q\210\312\211\313A\"\211A=\204;\314A!\210\241\210*\210)\315!\210\203W`A|\210@\307\211\223\210A\307\211\223\210\211b)\207" [inhibit-read-only 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] 8 (#$ . 287469)]) #@15 (fn HANDLE) (defalias 'gnus-mime-security-show-details #[257 "\305\306\307@#\211\204\310\311\312\"\207\203M\305`\313\"?\305`\314\"\315\316u\210\305`\314\"\n=\2032\316u\210\202#\317u\210\214``}\210\320!\210)`\321`d\314\n$\206Jd|+\207\f\211\205^\322\323!\211\262!\205^\211\262\203nr\fq\210\324 \210)\202r\325\326!r\fq\210\211c\210eb\210)\327\f!\207" [gnus-mime-security-show-details-inline inhibit-read-only gnus-mime-security-button-line-format gnus-mime-security-button-pressed gnus-mime-security-details-buffer 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] 8 (#$ . 287966)]) #@15 (fn HANDLE) (defalias 'gnus-mime-security-press-button #[257 "\212\300\301\302@#\203\303!\202\304!)\207" [get-text-property 0 gnus-info gnus-mime-security-show-details gnus-mime-security-verify-or-decrypt] 5 (#$ . 288787)]) #@35 (fn HANDLE &optional DISPLAYED) (defalias 'gnus-insert-mime-security-button #[513 "\306\307\310@#\311\312\"8\206\311\312 \"8\206\313@\314\232\203$\315\202%\316\317Q\306\307\320@#\2062\321\306\307\322@#\323\211\323\203G\324P\202H\325\262 \203R\202S\325n\204[\324c\210`\262\326#$\327%\330\331\332#\333 \334\335\336\337\340\257#\210n\203\201`S\202\202`\262\341\327%\342&&+\207" [mm-verify-function-alist mm-decrypt-function-alist gnus-tmp-type gnus-tmp-info gnus-tmp-pressed-details gnus-mime-security-button-pressed get-text-property 0 protocol 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-mime-security-button-line-format gnus-mime-security-button-line-format-alist gnus-mime-security-button-map gnus-article-button-face] 24 (#$ . 289026)]) #@15 (fn HANDLE) (defalias 'gnus-mime-display-security #[257 "\214``}\210\302@!\204\303!\210\304A@!\210n\204\305c\210\302@!\204+\303!\210)\211\306\307 \310 B\205A\311\312@G@%\266db)\207" [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] 10 (#$ . 290067)]) #@65 Run FUNCTION with the security part under point. (fn FUNCTION) (defalias 'gnus-mime-security-run-function #[257 "\300 \210\301`\302\"\303\211\242;\205P\301\304\305@#\211\262\205PA@\211\262\205P\306@!\203<\307A!B\262\310\233\303\240\210\202M\301\304\311@#\303\211\211\211\211\211\257\262!\207" [gnus-article-check-buffer get-text-property gnus-data nil 0 buffer bufferp copy-sequence 3 protocol] 12 (#$ . 290535)]) #@37 Save the security part under point. (defalias 'gnus-mime-security-save-part #[0 "\300\301!\207" [gnus-mime-security-run-function mm-save-part] 2 (#$ . 290977) [nil (gnus-article-mode)]]) #@50 Pipe the security part under point to a process. (defalias 'gnus-mime-security-pipe-part #[0 "\300\301!\207" [gnus-mime-security-run-function mm-pipe-part] 2 (#$ . 291170) [nil (gnus-article-mode)]]) (byte-code "\300\301!\210\302\303!\207" [provide gnus-art run-hooks gnus-art-load-hook] 2)