;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:07 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-art.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-art.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\302\312!\210\302\313!\210\302\314!\210\302\315!\210\302\316!\210\317\320\321\322\323 \304&\210\317\324\321\325\326 \320&\210\317\327\321\330\331 \320&\210\317\332\321\333\334 \320 \335& \210\317\336\321\337\340 \320&\210\317\341\321\342\343 \320&\210\317\344\321\345\346 \320&\210\317\347\321\350\351 \320&\210\317\352\321\353\354 \320&\210\317\355\321\356\357 \320&\210\317\360\321\361\362 \320&\210\317\363\321\364\365 \320&\207" [:link :group require custom gnus gnus-sum gnus-spec gnus-int browse-url mm-bodies mail-parse mm-decode mm-view wid-edit mm-uu custom-declare-group gnus-article nil "Article display." (custom-manual "(gnus)The Article Buffer") gnus-article-treat "Treating article parts." (custom-manual "(gnus)Article Hiding") gnus-article-hiding "Hiding article parts." (custom-manual "(gnus)Article Hiding") gnus-article-highlight "Article highlighting." (custom-manual "(gnus)Article Highlighting") gnus-visual gnus-article-signature "Article signatures." (custom-manual "(gnus)Article Signature") gnus-article-headers "Article headers." (custom-manual "(gnus)Hiding Headers") gnus-article-washing "Special commands on articles." (custom-manual "(gnus)Article Washing") gnus-article-emphasis "Fontisizing articles." (custom-manual "(gnus)Article Fontisizing") gnus-article-saving "Saving articles." (custom-manual "(gnus)Saving Articles") gnus-article-mime "Worshiping the MIME wonder." (custom-manual "(gnus)Using MIME") gnus-article-buttons "Pushable buttons in the article buffer." (custom-manual "(gnus)Article Buttons") gnus-article-various "Other article options." (custom-manual "(gnus)Misc Article")] 10) #@197 *All headers that start with this regexp will be hidden. This variable can also be a list of regexps of headers to be ignored. If `gnus-visible-headers' is non-nil, this variable will be ignored. (custom-declare-variable 'gnus-ignored-headers ''("^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:" "^X-Pgp" "^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:") '(#$ . -2403) :type '(choice :custom-show nil regexp (repeat regexp)) :group 'gnus-article-hiding) #@202 *All headers that do not match this regexp will be hidden. This variable can also be a list of regexp of headers to remain visible. If this variable is non-nil, `gnus-ignored-headers' will be ignored. (custom-declare-variable 'gnus-visible-headers '"^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:" '(#$ . -4427) :type '(repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) :group 'gnus-article-hiding) #@194 *This variable is a list of regular expressions. If it is non-nil, headers that match the regular expressions will be placed first in the article buffer in the sequence specified by this list. (custom-declare-variable 'gnus-sorted-header-list ''("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:") '(#$ . -5151) :type '(repeat regexp) :group 'gnus-article-hiding) #@187 Headers that are only to be displayed if they have interesting data. Possible values in this list are `empty', `newsgroups', `followup-to', `reply-to', `date', `long-to', and `many-to'. (custom-declare-variable 'gnus-boring-article-headers ''(empty followup-to reply-to) '(#$ . 5588) :type '(set (const :tag "Headers with no content." empty) (const :tag "Newsgroups with only one group." newsgroups) (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 "Very long To header." long-to) (const :tag "Multiple To headers." many-to)) :group 'gnus-article-hiding) #@202 Regexp matching signature separator. This can also be a list of regexps. In that case, it will be checked from head to tail looking for a separator. Searches will be done from the end of the buffer. (custom-declare-variable 'gnus-signature-separator ''("^-- $" "^-- *$") '(#$ . 6279) :type '(repeat string) :group 'gnus-article-signature) #@467 Provide a limit to what is considered a signature. If it is a number, no signature may not be longer (in characters) than that number. If it is a floating point number, no signature may be longer (in lines) than that number. If it is a function, the function will be called without any parameters, and if it returns nil, there is no signature in the buffer. If it is a string, it will be used as a regexp. If it matches, the text in question is not a signature. (custom-declare-variable 'gnus-signature-limit 'nil '(#$ . 6627) :type '(choice (integer :value 200) (number :value 4.0) (function :value fun) (regexp :value ".*")) :group 'gnus-article-signature) #@39 Property list to use for hiding text. (custom-declare-variable 'gnus-hidden-properties ''(invisible t intangible t) '(#$ . 7296) :type 'sexp :group 'gnus-article-hiding) #@196 *String or function to be executed to display an X-Face header. If it is a string, the command will be executed in a sub-shell asynchronously. The compressed face will be piped to this command. (custom-declare-variable 'gnus-article-x-face-command '"{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | display -" '(#$ . -7473) :type 'string :group 'gnus-article-washing) #@70 Regexp matching posters whose face shouldn't be shown automatically. (custom-declare-variable 'gnus-article-x-face-too-ugly 'nil '(#$ . 7863) :type '(choice regexp (const nil)) :group 'gnus-article-washing) #@416 *Alist that says how to fontify certain phrases. Each item looks like this: ("_\\(\\w+\\)_" 0 1 'underline) The first element is a regular expression to be matched. The second is a number that says what regular expression grouping used to find the entire emphasized word. The third is a number that says what regexp grouping should be displayed and highlighted. The fourth is the face used for highlighting. (custom-declare-variable 'gnus-emphasis-alist '(let ((format "\\(\\s-\\|^\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-,;:\"]\\s-\\|[?!.]+\\s-\\|\\s)\\)") (types '(("_" "_" underline) ("/" "/" italic) ("\\*" "\\*" bold) ("_/" "/_" underline-italic) ("_\\*" "\\*_" underline-bold) ("\\*/" "/\\*" bold-italic) ("_\\*/" "/\\*_" underline-bold-italic)))) `(("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline) ,@(mapcar (lambda (spec) (list (format format (car spec) (cadr spec)) 2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec))))) types))) '(#$ . -8077) :type '(repeat (list :value ("" 0 0 default) regexp (integer :tag "Match group") (integer :tag "Emphasize group") face)) :group 'gnus-article-emphasis) (byte-code "\301\302\303\304\305%\210\301\306\307\310\305%\210\301\311\312\313\305%\210\301\314\315\316\305%\210\301\317\320\321\305%\210\301\322\323\324\305%\210\301\325\326\327\305%\210\301\330\331\332\305%\207" [:group custom-declare-face gnus-emphasis-bold ((t (:bold t))) "Face used for displaying strong emphasized text (*word*)." gnus-article-emphasis gnus-emphasis-italic ((t (:italic t))) "Face used for displaying italic emphasized text (/word/)." gnus-emphasis-underline ((t (:underline t))) "Face used for displaying underlined emphasized text (_word_)." gnus-emphasis-underline-bold ((t (:bold t :underline t))) "Face used for displaying underlined bold emphasized text (_*word*_)." gnus-emphasis-underline-italic ((t (:italic t :underline t))) "Face used for displaying underlined italic emphasized text (_/word/_)." gnus-emphasis-bold-italic ((t (:bold t :italic t))) "Face used for displaying bold italic emphasized text (/*word*/)." gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))) "Face used for displaying underlined bold italic emphasized text.\nEsample: (_/*word*/_)." gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))) "Face used for displaying highlighted words."] 6) #@280 Format for display of Date headers in article bodies. See `format-time-string' for the possible values. The variable can also be function, which should return a complete Date header. The function is called with one argument, the time, which can be fed to `format-time-string'. (custom-declare-variable 'gnus-article-time-format '"%a, %b %d %Y %T %Z" '(#$ . 10530) :type '(choice string symbol) :link '(custom-manual "(gnus)Article Date") :group 'gnus-article-washing) (autoload 'mail-extract-address-components "mail-extr") #@54 *If non-nil, don't remove any headers before saving. (custom-declare-variable 'gnus-save-all-headers 't '(#$ . -11062) :group 'gnus-article-saving :type 'boolean) #@456 *This variable says how much prompting is to be done when saving articles. If it is nil, no prompting will be done, and the articles will be saved to the default files. If this variable is `always', each and every article that is saved will be preceded by a prompt, even when saving large batches of articles. If this variable is neither nil not `always', there the user will be prompted once for a file name for each invocation of the saving commands. (custom-declare-variable 'gnus-prompt-before-saving ''always '(#$ . -11232) :group 'gnus-article-saving :type '(choice (item always) (item :tag "never" nil) (sexp :tag "once" :format "%t\n" :value t))) #@250 Headers to keep if `gnus-save-all-headers' is nil. If `gnus-save-all-headers' is non-nil, this variable will be ignored. If that variable is nil, however, all headers that match this regexp will be kept while the rest will be deleted before saving. (custom-declare-variable 'gnus-saved-headers 'gnus-visible-headers '(#$ . 11896) :group 'gnus-article-saving :type 'regexp) #@476 A function to save articles in your favourite format. The function must be interactively callable (in other words, it must be an Emacs command). Gnus provides the following functions: * gnus-summary-save-in-rmail (Rmail format) * gnus-summary-save-in-mail (Unix mail format) * gnus-summary-save-in-folder (MH folder) * gnus-summary-save-in-file (article format) * gnus-summary-save-in-vm (use VM's folder format) * gnus-summary-write-to-file (article format -- overwrite). (custom-declare-variable 'gnus-default-article-saver ''gnus-summary-save-in-rmail '(#$ . 12276) :group 'gnus-article-saving :type '(radio (function-item gnus-summary-save-in-rmail) (function-item gnus-summary-save-in-mail) (function-item gnus-summary-save-in-folder) (function-item gnus-summary-save-in-file) (function-item gnus-summary-save-in-vm) (function-item gnus-summary-write-to-file))) #@141 A function generating a file name to save articles in Rmail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (custom-declare-variable 'gnus-rmail-save-name ''gnus-plain-save-name '(#$ . 13152) :group 'gnus-article-saving :type 'function) #@145 A function generating a file name to save articles in Unix mail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (custom-declare-variable 'gnus-mail-save-name ''gnus-plain-save-name '(#$ . 13428) :group 'gnus-article-saving :type 'function) #@140 A function generating a file name to save articles in MH folder. The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER. (custom-declare-variable 'gnus-folder-save-name ''gnus-folder-save-name '(#$ . 13707) :group 'gnus-article-saving :type 'function) #@143 A function generating a file name to save articles in article format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (custom-declare-variable 'gnus-file-save-name ''gnus-numeric-save-name '(#$ . 13984) :group 'gnus-article-saving :type 'function) #@923 *Variable used to suggest where articles are to be saved. For instance, if you would like to save articles related to Gnus in the file "gnus-stuff", and articles related to VM in "vm-stuff", you could set this variable to something like: '(("^Subject:.*gnus\|^Newsgroups:.*gnus" "gnus-stuff") ("^Subject:.*vm\|^Xref:.*vm" "vm-stuff")) This variable is an alist where the where the key is the match and the value is a list of possible files to save in if the match is non-nil. If the match is a string, it is used as a regexp match on the article. If the match is a symbol, that symbol will be funcalled from the buffer of the article to be saved with the newsgroup as the parameter. If it is a list, it will be evaled in the same buffer. If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will be used as possible file names. (custom-declare-variable 'gnus-split-methods ''((gnus-article-archive-name) (gnus-article-nndoc-name)) '(#$ . -14263) :group 'gnus-article-saving :type '(repeat (choice (list :value (fun) function) (cons :value ("" "") regexp (repeat string)) (sexp :value nil)))) #@140 *Regexp describing what to use as article page delimiters. The default value is "^ ", which is a form linefeed at the beginning of a line. (custom-declare-variable 'gnus-page-delimiter '"^\f" '(#$ . -15456) :type 'regexp :group 'gnus-article-various) #@241 *The format specification for the article mode line. See `gnus-summary-mode-line-format' for a closer description. The following additional specs are available: %w The article washing status. %m The number of MIME parts in the article. (custom-declare-variable 'gnus-article-mode-line-format '"Gnus: %g [%w] %S%m" '(#$ . -15714) :type 'string :group 'gnus-article-various) #@32 *A hook for Gnus article mode. (custom-declare-variable 'gnus-article-mode-hook 'nil '(#$ . -16097) :type 'hook :group 'gnus-article-various) #@56 *Hook run after the creation of the article mode menu. (custom-declare-variable 'gnus-article-menu-hook 'nil '(#$ . -16245) :type 'hook :group 'gnus-article-various) #@74 *A hook called after an article has been prepared in the article buffer. (custom-declare-variable 'gnus-article-prepare-hook 'nil '(#$ . -16417) :type 'hook :group 'gnus-article-various) #@59 *A hook called after successfully hiding a PGP signature. (custom-declare-variable 'gnus-article-hide-pgp-hook 'nil '(#$ . -16610) :type 'hook :group 'gnus-article-various) #@160 Face used for highlighting buttons in the article buffer. An article button is a piece of text that you can activate by pressing `RET' or `mouse-2' above it. (custom-declare-variable 'gnus-article-button-face ''bold '(#$ . 16790) :type 'face :group 'gnus-article-buttons) #@136 Face used for mouse highlighting in the article buffer. Article buttons will be displayed in this face when the cursor is above them. (custom-declare-variable 'gnus-article-mouse-face ''highlight '(#$ . 17070) :type 'face :group 'gnus-article-buttons) #@136 Face used for highlighting a signature in the article buffer. Obsolete; use the face `gnus-signature-face' for customizations instead. (custom-declare-variable 'gnus-signature-face ''gnus-signature-face '(#$ . 17330) :type 'face :group 'gnus-article-highlight :group 'gnus-article-signature) (byte-code "\301\302\303\304\305\306&\210\301\307\310\311\312\305&\210\301\313\314\315\312\305&\210\301\316\317\320\312\305&\210\301\321\322\323\312\305&\210\301\324\325\326\312\305&\207" [:group custom-declare-face gnus-signature-face ((((type x)) (:italic t))) "Face used for highlighting a signature in the article buffer." gnus-article-highlight gnus-article-signature gnus-header-from-face ((((class color) (background dark)) (:foreground "spring green")) (((class color) (background light)) (:foreground "red3")) (t (:italic t))) "Face used for displaying from headers." gnus-article-headers gnus-header-subject-face ((((class color) (background dark)) (:foreground "SeaGreen3")) (((class color) (background light)) (:foreground "red4")) (t (:bold t :italic t))) "Face used for displaying subject headers." gnus-header-newsgroups-face ((((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." gnus-header-name-face ((((class color) (background dark)) (:foreground "SeaGreen")) (((class color) (background light)) (:foreground "maroon")) (t (:bold t))) "Face used for displaying header names." gnus-header-content-face ((((class color) (background dark)) (:foreground "forest green" :italic t)) (((class color) (background light)) (:foreground "indianred4" :italic t)) (t (:italic t))) "Face used for displaying header content."] 8) #@468 *Controls highlighting of article header. An alist of the form (HEADER NAME CONTENT). HEADER is a regular expression which should match the name of an header header and NAME and CONTENT are either face names or nil. The name of each header field will be displayed using the face specified by the first element in the list where HEADER match the header name and NAME is non-nil. Similarly, the content will be displayed by the first non-nil matching CONTENT face. (custom-declare-variable 'gnus-header-face-alist ''(("From" nil gnus-header-from-face) ("Subject" nil gnus-header-subject-face) ("Newsgroups:.*," nil gnus-header-newsgroups-face) ("" gnus-header-name-face gnus-header-content-face)) '(#$ . -19137) :group 'gnus-article-headers :group 'gnus-article-highlight :type '(repeat (list (regexp :tag "Header") (choice :tag "Name" (item :tag "skip" nil) (face :value default)) (choice :tag "Content" (item :tag "skip" nil) (face :value default))))) #@43 *Hook run to decode charsets in articles. (custom-declare-variable 'gnus-article-decode-hook ''(article-decode-charset article-decode-encoded-words) '(#$ . -20099) :group 'gnus-article-headers :type 'hook) #@36 Function to display MIME articles. (custom-declare-variable 'gnus-display-mime-function ''gnus-display-mime '(#$ . 20311) :group 'gnus-article-mime :type 'function) #@34 Function used to decode headers. (defvar gnus-decode-header-function 'mail-decode-encoded-word-region (#$ . 20482)) #@37 Table for MS-to-Latin1 translation. (defvar gnus-article-dumbquotes-map '(("\202" ",") ("\203" "f") ("\204" ",,") ("\205" "...") ("\213" "<") ("\214" "OE") ("\221" "`") ("\222" "'") ("\223" "``") ("\224" "\"") ("\225" "*") ("\226" "---") ("\227" "-") ("\231" "(TM)") ("\233" ">") ("\234" "oe") ("\264" "'")) (#$ . 20604)) #@52 List of MIME types that should be ignored by Gnus. (custom-declare-variable 'gnus-ignored-mime-types 'nil '(#$ . 20932) :group 'gnus-article-mime :type '(repeat regexp)) #@75 List of MIME types that should not be given buttons when rendered inline. (custom-declare-variable 'gnus-unbuttonized-mime-types ''(".*/.*") '(#$ . 21108) :group 'gnus-article-mime :type '(repeat regexp)) #@178 Function called with a MIME handle as the argument. This is meant for people who want to do something automatic based on parts -- for instance, adding Vcard info to a database. (custom-declare-variable 'gnus-article-mime-part-function 'nil '(#$ . 21320) :group 'gnus-article-mime :type 'function) #@54 An alist of MIME types to functions to display them. (custom-declare-variable 'gnus-mime-multipart-functions 'nil '(#$ . 21623)) #@212 Whether the X-Sent and Date headers can coexist. When using `gnus-treat-date-lapsed', the "X-Sent:" header will either replace the old "Date:" header (if this variable is nil), or be added below it (otherwise). (custom-declare-variable 'gnus-article-date-lapsed-new-header 'nil '(#$ . 21759) :group 'gnus-article-headers :type 'boolean) #@378 Function called with a MIME handle as the argument. This is meant for people who want to view first matched part. For `undisplayed-alternative' (default), the first undisplayed part or alternative part is used. For `undisplayed', the first undisplayed part is used. For a function, the first part which the function return `t' is used. For `nil', the first part is used. (custom-declare-variable 'gnus-article-mime-match-handle-function ''undisplayed-alternative '(#$ . 22103) :group 'gnus-article-mime :type '(choice (item :tag "first" :value nil) (item :tag "undisplayed" :value undisplayed) (item :tag "undisplayed or alternative" :value undisplayed-alternative) (function))) #@53 Hook called on parts that are to receive treatment. (defvar gnus-part-display-hook nil (#$ . 22794)) (byte-code "\303\300!\204\304\300 B\303\302!\204\305\302 B\303\207" [gnus-article-treat-custom current-load-list gnus-article-treat-head-custom boundp (choice (const :tag "Off" nil) (const :tag "On" t) (const :tag "Header" head) (const :tag "Last" last) (integer :tag "Less") (repeat :tag "Groups" regexp) (sexp :tag "Predicate")) (choice (const :tag "Off" nil) (const :tag "Header" head))] 2) #@17 Parts to treat. (defvar gnus-article-treat-types '("text/plain") (#$ . 23303)) #@31 Whether to inhibit treatment. (defvar gnus-inhibit-treatment nil (#$ . 23388)) #@122 Highlight the signature. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-highlight-signature ''(or last (typep "text/x-vcard")) '(#$ . 23474) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-highlight-signature 'highlight t) #@110 Add buttons. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-buttonize '100000 '(#$ . 23819) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-buttonize 'highlight t) #@122 Add buttons to the head. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-buttonize-head ''head '(#$ . 24105) :group 'gnus-article-treat :type gnus-article-treat-head-custom) (put 'gnus-treat-buttonize-head 'highlight t) #@113 Emphasize text. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-emphasize '50000 '(#$ . 24417) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-emphasize 'highlight t) #@122 Remove carriage returns. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-cr 'nil '(#$ . 24705) :group 'gnus-article-treat :type gnus-article-treat-custom) #@111 Hide headers. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-hide-headers ''head '(#$ . 24958) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@118 Hide boring headers. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-hide-boring-headers 'nil '(#$ . 25211) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@117 Hide the signature. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-hide-signature 'nil '(#$ . 25476) :group 'gnus-article-treat :type gnus-article-treat-custom) #@115 Fill the article. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-fill-article 'nil '(#$ . 25730) :group 'gnus-article-treat :type gnus-article-treat-custom) #@114 Hide cited text. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-hide-citation 'nil '(#$ . 25980) :group 'gnus-article-treat :type gnus-article-treat-custom) #@150 Strip list identifiers from `gnus-list-identifiers`. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-list-identifiers ''head '(#$ . 26230) :group 'gnus-article-treat :type gnus-article-treat-custom) #@119 Strip PGP signatures. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-pgp 't '(#$ . 26527) :group 'gnus-article-treat :type gnus-article-treat-custom) #@119 Strip PEM signatures. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-pem 'nil '(#$ . 26776) :group 'gnus-article-treat :type gnus-article-treat-custom) #@198 Strip banners from articles. The banner to be stripped is specified in the `banner' group parameter. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-banner 't '(#$ . 27027) :group 'gnus-article-treat :type gnus-article-treat-custom) #@120 Highlight the headers. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-highlight-headers ''head '(#$ . 27358) :group 'gnus-article-treat :type gnus-article-treat-head-custom) (put 'gnus-treat-highlight-headers 'highlight t) #@119 Highlight cited text. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-highlight-citation 't '(#$ . 27674) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-highlight-citation 'highlight t) #@127 Display the Date in UT (GMT). Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-ut 'nil '(#$ . 27982) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@137 Display the Date in the local timezone. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-local 'nil '(#$ . 28244) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@167 Display the Date header in a way that says how much time has elapsed. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-lapsed 'nil '(#$ . 28519) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@140 Display the date in the original timezone. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-original 'nil '(#$ . 28825) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@137 Display the date in the ISO8601 format. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-iso8601 'nil '(#$ . 29106) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@206 Display the date in a user-defined format. The format is defined by the `gnus-article-time-format' variable. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-date-user-defined 'nil '(#$ . 29383) :group 'gnus-article-treat :type gnus-article-treat-head-custom) #@164 Strip the X-No-Archive header line from the beginning of the body. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-headers-in-body 't '(#$ . 29734) :group 'gnus-article-treat :type gnus-article-treat-custom) #@125 Strip trailing blank lines. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-trailing-blank-lines 'nil '(#$ . 30040) :group 'gnus-article-treat :type gnus-article-treat-custom) #@124 Strip leading blank lines. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-leading-blank-lines 'nil '(#$ . 30314) :group 'gnus-article-treat :type gnus-article-treat-custom) #@125 Strip multiple blank lines. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-strip-multiple-blank-lines 'nil '(#$ . 30586) :group 'gnus-article-treat :type gnus-article-treat-custom) #@128 Treat overstrike highlighting. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-overstrike 't '(#$ . 30860) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-overstrike 'highlight t) #@121 Display X-Face headers. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-display-xface '(if (and gnus-xemacs (featurep 'xface)) 'head nil) '(#$ . 31161) :group 'gnus-article-treat :type gnus-article-treat-head-custom) (put 'gnus-treat-display-xface 'highlight t) #@114 Display smileys. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-display-smileys '(if (and gnus-xemacs (featurep 'xpm)) t nil) '(#$ . 31515) :group 'gnus-article-treat :type gnus-article-treat-custom) (put 'gnus-treat-display-smileys 'highlight t) #@113 Display picons. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-display-picons '(if gnus-xemacs 'head nil) '(#$ . 31855) :group 'gnus-article-treat :type gnus-article-treat-head-custom) (put 'gnus-treat-display-picons 'highlight t) #@133 Capitalize sentence-starting words. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-capitalize-sentences 'nil '(#$ . 32179) :group 'gnus-article-treat :type gnus-article-treat-custom) #@114 Fill long lines. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-fill-long-lines 'nil '(#$ . 32455) :group 'gnus-article-treat :type gnus-article-treat-custom) #@110 Play sounds. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-play-sounds 'nil '(#$ . 32707) :group 'gnus-article-treat :type gnus-article-treat-custom) #@146 Translate articles from one language to another. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details. (custom-declare-variable 'gnus-treat-translate 'nil '(#$ . 32951) :group 'gnus-article-treat :type gnus-article-treat-custom) (byte-code "\306\300!\204\307\300 B\306\302!\204\307\302 B\306\303!\204 \307\303 B\306\304!\204,\307\304 B\306\305!\2048\310\305 B\306\311!\204E\307 \311 B\306\312!\204R\307\n\312 B\306\313!\204_\307 \313 B\307\207" [article-goto-body-goes-to-point-min-p current-load-list gnus-article-wash-types gnus-article-emphasis-alist gnus-article-mime-handle-alist-1 gnus-treatment-function-alist boundp nil ((gnus-treat-strip-banner gnus-article-strip-banner) (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body) (gnus-treat-highlight-signature gnus-article-highlight-signature) (gnus-treat-buttonize gnus-article-add-buttons) (gnus-treat-fill-article gnus-article-fill-cited-article) (gnus-treat-fill-long-lines gnus-article-fill-long-lines) (gnus-treat-strip-cr gnus-article-remove-cr) (gnus-treat-emphasize gnus-article-emphasize) (gnus-treat-display-xface gnus-article-display-x-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-hide-citation gnus-article-hide-citation) (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers) (gnus-treat-strip-pgp gnus-article-hide-pgp) (gnus-treat-strip-pem gnus-article-hide-pem) (gnus-treat-highlight-headers gnus-article-highlight-headers) (gnus-treat-highlight-citation gnus-article-highlight-citation) (gnus-treat-highlight-signature gnus-article-highlight-signature) (gnus-treat-date-ut gnus-article-date-ut) (gnus-treat-date-local gnus-article-date-local) (gnus-treat-date-lapsed gnus-article-date-lapsed) (gnus-treat-date-original gnus-article-date-original) (gnus-treat-date-user-defined gnus-article-date-user) (gnus-treat-date-iso8601 gnus-article-date-iso8601) (gnus-treat-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-buttonize-head gnus-article-add-buttons-to-head) (gnus-treat-display-smileys gnus-smiley-display) (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences) (gnus-treat-display-picons gnus-article-display-picons) (gnus-treat-play-sounds gnus-earcon-display)) gnus-article-mime-handle-alist article-lapsed-timer gnus-article-current-summary] 2) #@86 Syntax table used in article mode buffers. Initialized from `text-mode-syntax-table. (defvar gnus-article-mode-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\307 #\210\303\310\311 #\210 )\207" [text-mode-syntax-table table copy-syntax-table modify-syntax-entry 45 "w" 62 ")" 60 "("] 4) (#$ . 35697)) (byte-code "\306\300!\204\307\300 B\306\303!\204\310\n\244\303 B\306\304!\204\"\307\304 B\306\305!\204.\307\305 B\307\207" [gnus-save-article-buffer current-load-list gnus-summary-mode-line-format-alist gnus-article-mode-line-format-alist gnus-number-of-articles-to-be-saved gnus-inhibit-hiding boundp nil ((119 (gnus-article-wash-status) 115) (109 (gnus-article-mime-part-status) 115))] 2) #@71 Set text PROPS on the B to E region, extending `intangible' 1 past B. (defalias 'gnus-article-hide-text #[(b e props) "\303 \n#\210\304\n>\205\305Se]\304\211\n>AA$\207" [b e props add-text-properties intangible put-text-property] 6 (#$ . 36420)]) (put 'gnus-article-hide-text 'byte-optimizer 'byte-compile-inline-expand) #@60 Remove hidden text properties from region between B and E. (defalias 'gnus-article-unhide-text #[(b e) "\303 \n#\210\304\n>\205\305Se]\304\306$\207" [b e gnus-hidden-properties remove-text-properties intangible put-text-property nil] 5 (#$ . 36752)]) (put 'gnus-article-unhide-text 'byte-optimizer 'byte-compile-inline-expand) #@36 Hide text of TYPE between B and E. (defalias 'gnus-article-hide-text-type #[(b e type) " B\n \306\fBB\307\n #\210\310 >\205'\311\nSe]\n\310\211 >AA$+\207" [type gnus-article-wash-types b e gnus-hidden-properties props article-type add-text-properties intangible put-text-property] 6 (#$ . 37090)]) #@38 Unhide text of TYPE between B and E. (defalias 'gnus-article-unhide-text-type #[(b e type) "\305 \"\306\n \307\fBB#\210\310\f>\205\311\nSe]\n\310\312$\207" [type gnus-article-wash-types b e gnus-hidden-properties delq remove-text-properties article-type intangible put-text-property nil] 6 (#$ . 37402)]) #@42 Hide text of TYPE in the current buffer. (defalias 'gnus-article-hide-text-of-type #[(type) "\212ed\304 \305\n$\211\205\306 \211T\211 #\210\202+\207" [e b type gnus-hidden-properties text-property-any article-type add-text-properties] 5 (#$ . 37718)]) #@44 Delete text of TYPE in the current buffer. (defalias 'gnus-article-delete-text-of-type #[(type) "\212e\302d\303 $\211\205\304d\303 $\206d|\210\202*\207" [b type text-property-any article-type text-property-not-all] 6 (#$ . 37985)]) #@50 Delete all invisible text in the current buffer. (defalias 'gnus-article-delete-invisible-text #[nil "\212e\301d\302\303$\211\205\304d\302\303$\206d|\210\202*\207" [b text-property-any invisible t text-property-not-all] 6 (#$ . 38234)]) #@57 Say whether any text of type TYPE exists in the buffer. (defalias 'gnus-article-text-type-exists-p #[(type) "\301ed\302$\207" [type text-property-any article-type] 5 (#$ . 38488)]) #@75 Give the rank of the string HEADER as given by `gnus-sorted-header-list'. (defalias 'gnus-article-header-rank #[nil "\303\n\203\304\n@!\203\305\nA T\202 *\207" [gnus-sorted-header-list i list 0 looking-at nil] 2 (#$ . 38676)]) (put 'gnus-article-header-rank 'byte-optimizer 'byte-compile-inline-expand) #@55 Hide unwanted headers and possibly sort them as well. (defalias 'article-hide-headers #[(&optional arg delete) "?\205\341\212\214\306\307 GT\n?\205$ ;\203 \202$ <\205$\310\311 \312#\n;\203-\n\202;\n\205;\n<\205;\310\311\n\312#\307\306\313 \210\314\315!\203X\316y\210\202Lo\204`e`|\210\317\320\306\307#\203\275\321y\210\322``T\323\203|\314!\204\210\203\261\314!\204\261 \321 !!\203\253\314!@!\203\236\306!!A! T \202\216 *\202\265\324\\$\210\316y\210\202`\325 \210\326ed\323\324\\$\211\205\337\327\"B\"\330ee\331\\\332#\210\fd|. \207" [gnus-inhibit-hiding gnus-sorted-header-list gnus-visible-headers gnus-ignored-headers beg inhibit-point-motion-hooks nil t mapconcat identity "\\|" article-narrow-to-head looking-at "From " 1 re-search-forward "^[^ ]*:" 0 put-text-property message-rank 2 message-sort-headers-1 text-property-any headers add-text-properties 5 (article-type headers dummy-invisible t) visible ignored max case-fold-search buffer-read-only i list gnus-article-wash-types] 8 (#$ . 38997) nil]) #@138 Toggle hiding of headers that aren't very interesting. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'article-hide-boring-headers #[(&optional arg) "\306\307\"?\205W ?\205W\212\214\310\n\311\310/\312 \210 \205U \211A@eb\210 \313=\203U\314\315\310\311#\203\316y\210\317\320y\210`\310\210\314\321\310\311#\203N\320\224\202Od\307#\210\202. \322=\203\213\323\324!\325\326!\203i\202j\3270\330\3310\"\203}0\320\225\310O\2020)\232\203\332\324!\210\202 \333=\203\242\334\335!\334\324!\232\203\332\335!\210\202 \336=\203\312\334\337!\334\340!\2111\203\306\203\306\341\342\343\217\203\306\332\340!\210*\202 \344=\203\354\334\345!\211$\203\350\346\347 $\"\350W\203\350\332\345!\210)\202 \351=\203\334\352!\2112G\353V\203\332\352!\210)\202 \354=\203\3203eb\210\314\355\310\311#\203\"3T3\2023\356V\203Q3\320V\203Qeb\210\214\314\355\310\2113$\210\316y\210`d}\210\332\352!\210)3S\2113\202+)\202.\207" [arg gnus-show-all-headers gnus-boring-article-headers elem inhibit-point-motion-hooks list gnus-article-check-hidden-text boring-headers nil t article-narrow-to-head empty re-search-forward "^[^: ]+:[ ]*\n[^ ]" -1 gnus-article-hide-text-type 0 "^[^ ]" newsgroups gnus-fetch-field "newsgroups" boundp gnus-newsgroup-name "" string-match "^[^:]+:" gnus-article-hide-header followup-to message-fetch-field "followup-to" reply-to "from" "reply-to" #1=#:G81933 (byte-code "\302!A@\302 !A@\232\207" [from reply-to mail-extract-address-components] 3) ((error)) date "date" days-between current-time-string 4 long-to "to" 1024 many-to "^to:" 1 buffer-read-only gname from to to-count] 7 (#$ . 40075) (gnus-article-hidden-arg)]) (defalias 'gnus-article-hide-header #[(header) "\212eb\210\301\302\303Q\304\305#\205'\306\307y\210`\304\210\301\310\304\305#\203$\307\224\202%d\311#)\207" [header re-search-forward "^" ":" nil t gnus-article-hide-text-type 0 "^[^ ]" boring-headers] 6]) #@31 Length of normalized headers. (defvar gnus-article-normalized-header-length 40 (#$ . 42080)) #@43 Make all header lines 40 characters long. (defalias 'article-normalize-headers #[nil "\303\211\212\214\304 \210m?\205>\305 `Z\211\nW\203'\303\210\306\nZ\307\"c\210\2028\nV\2038\310\nu\210`\305 \311\312$\210\313y\210\202 ,\207" [column buffer-read-only gnus-article-normalized-header-length nil article-narrow-to-head gnus-point-at-eol make-string 32 gnus-put-text-property invisible t 1] 5 (#$ . 42179) nil]) #@168 Translate M******** sm*rtq**t*s into proper text. Note that this function guesses whether a character is a sm*rtq**t* or not, so it should only be used interactively. (defalias 'article-treat-dumbquotes #[nil "\301!\207" [gnus-article-dumbquotes-map article-translate-strings] 2 (#$ . 42606) nil]) #@175 Translate all characters in the body of the article according to FROM and TO. FROM is a string of characters to translate from; to is a string of characters to translate to. (defalias 'article-translate-characters #[(from to) "\212\305 \205@\306\307\310\311\"\312T\211 GW\203! \211I\210\202\313\313 GW\203: H\fHI\210T\211\202$\314`d #+)\207" [i x buffer-read-only from to article-goto-body nil make-string 225 120 -1 0 translate-region] 5 (#$ . 42912)]) #@133 Translate all string in the body of the article according to MAP. MAP is an alist where the elements are on the form ("from" "to"). (defalias 'article-translate-strings #[(map) "\212\303 \205,\304\211\n\211A@\211\205+\212\305@\304\306#\203'\307A@!\210\202)\202\n*)\207" [elem buffer-read-only map article-goto-body nil search-forward t replace-match] 4 (#$ . 43391)]) #@39 Translate overstrikes into bold text. (defalias 'article-treat-overstrike #[nil "\212\303 \205g\304\305\306\304\307#\205f\304f`\310Zf\211 =\2031\311`\310Z`\312#\210\313``T\314\315$\210\202b\n\316=\203L\311`S`T\312#\210\313`\310Z`S\314\317$\210\202b \316=\203b\311`\310Z`\312#\210\313``T\314\317$\210*\202))\207" [buffer-read-only previous next article-goto-body nil search-forward "" t 2 gnus-article-hide-text-type overstrike put-text-property face bold 95 underline] 6 (#$ . 43777) nil]) #@50 Fill lines that are wider than the window width. (defalias 'article-fill-long-lines #[nil "\212\304\305\306p!!\214\307 \210\304m?\2053\304\210i ^Y\203-`\310 }\210\311\304!\210db\210~\210\312y\210\202-\207" [width buffer-read-only adaptive-fill-mode fill-column nil window-width get-buffer-window article-goto-body gnus-point-at-bol fill-paragraph 1] 4 (#$ . 44286) nil]) #@45 Capitalize the first word in each sentence. (defalias 'article-capitalize-sentences #[nil "\212\302\303\304 \210m?\205\305\306!\210\307 \210\202+\207" [paragraph-start buffer-read-only nil "^[\n\f]" article-goto-body capitalize-word 1 forward-sentence] 2 (#$ . 44672) nil]) #@64 Remove trailing CRs and then translate remaining CRs into LFs. (defalias 'article-remove-cr #[nil "\212\301eb\210\302\303\301\304#\203\305\306\304\211#\210\202eb\210\307\310\301\304#\205+\305\311\304\211#\210\202*\207" [buffer-read-only nil re-search-forward " +$" t replace-match "" search-forward " " "\n"] 4 (#$ . 44958) nil]) #@51 Remove all trailing blank lines from the article. (defalias 'article-remove-trailing-blank-lines #[nil "\212\301db\210`o\204\302\303!\203\304`\305 \"\204\306y\210\202\307y\210`|*\207" [buffer-read-only nil looking-at "^[ ]*$" gnus-annotation-in-region-p gnus-point-at-eol -1 1] 4 (#$ . 45302) nil]) #@54 Look for an X-Face header and display it if present. (defalias 'article-display-x-face #[(&optional force) "\212\306\307!\203 \310\307!\210\311\211\312\211\214\313 \210eb\210\314\315!eb\210\f\205\274?\205\274 \204E\203E\205\274 \205\274\316 \"?\205\274\317\320\312\311#\205\274\f;\203T\311\212`\317\321\312\311#S\f9\203\234\f\2119\203t\322!\206\206<\203\202@\323=\206\206\324!)\203\224\f\"\210\202\270\325\326\f\"\210\202\270\312\327\330\307\312 !\f%!\210\331\307#\210\332\307!\210)+\202!.\207" [last from case-fold-search inhibit-point-motion-hooks gnus-article-x-face-command force process-status "article-x-face" delete-process t nil article-narrow-to-head message-fetch-field "from" string-match re-search-forward "^X-Face: " "^\\($\\|[^ ]\\)" fboundp lambda byte-code-function-p error "%s is not a function" process-kill-without-query start-process process-send-region process-send-eof gnus-article-x-face-too-ugly end beg form process-connection-type shell-file-name shell-command-switch] 8 (#$ . 45617) (list 'force)]) #@47 Decode all MIME-encoded words in the article. (defalias 'article-decode-mime-words #[nil "\212q\210\306\307 \212\nq\210 ) \n\310ed\"-\207" [gnus-article-buffer gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset t nil mail-decode-encoded-word-region buffer-read-only inhibit-point-motion-hooks] 4 (#$ . 46709) nil]) #@104 Decode charset-encoded text in the article. If PROMPT (the prefix), prompt for a coding system to use. (defalias 'article-decode-charset #[(&optional prompt) "\306\211\307\212\307\310\311\217\210 )\307\211\211\211\212\214\312 \210\313\314\306\"\313\315\306\" \2055\316\317\320\217 \203A\321\322!\202I \205I\323 \302\" \203X\324\325 @\"\204X\307db\210)\326y\210\214`d}\210 \203o @\327\232\205~\330\n\f\205{\331\332\f!\227! @#. \207" [gnus-newsgroup-charset gnus-newsgroup-ignored-charsets charset ctl cte ct t nil (set-buffer gnus-summary-buffer) ((error)) article-narrow-to-head message-fetch-field "Content-Type" "Content-Transfer-Encoding" #1=#:G81934 (mail-header-parse-content-type ct) ((error)) mm-read-coding-system "Charset to decode: " mail-content-type-get string-match "/" 1 "text/plain" mm-decode-body intern gnus-strip-whitespace mail-parse-ignored-charsets mail-parse-charset buffer-read-only case-fold-search inhibit-point-motion-hooks prompt] 9 (#$ . 47107) "P"]) #@44 Remove encoded-word encoding from headers. (defalias 'article-decode-encoded-words #[nil "\306\212\307\310\311\217\210 )\307\214\312 \210 ed\"-\207" [gnus-newsgroup-charset gnus-newsgroup-ignored-charsets buffer-read-only mail-parse-ignored-charsets mail-parse-charset inhibit-point-motion-hooks t nil (set-buffer gnus-summary-buffer) ((error)) article-narrow-to-head gnus-decode-header-function] 5 (#$ . 48122)]) #@125 Translate a quoted-printable-encoded article. If FORCE, decode the article whether it is marked as quoted-printable or not. (defalias 'article-de-quoted-unreadable #[(&optional force) "\212\305\306\307!\f\204\n\205.\310\311\n\227\"\205.\312 \210\214`d}\210\313ed\"\210 \205-\314 !),\207" [gnus-newsgroup-charset charset type buffer-read-only force nil gnus-fetch-field "content-transfer-encoding" string-match "quoted-printable" article-goto-body quoted-printable-decode-region mm-decode-body] 3 (#$ . 48549) (list 'force)]) #@33 Translate a HZ-encoded article. (defalias 'article-decode-HZ #[nil "\301\302!\210\212\303\304ed\"*\207" [buffer-read-only require rfc1843 nil rfc1843-decode-region] 3 (#$ . 49089) nil]) #@108 Remove list identifies from the Subject header. The `gnus-list-identifiers' variable specifies what to do. (defalias 'article-hide-list-identifiers #[nil "\212\214\304\305\306 \210\n;\203\n\202\307\310\n\311#\211\205/eb\210\312\313 \314Q\305\304#\205/\315\224\316\225|-\207" [buffer-read-only inhibit-point-motion-hooks gnus-list-identifiers regexp t nil article-narrow-to-head mapconcat identity " *\\|" re-search-forward "^Subject: +\\(Re: +\\)?\\(" " *\\)" 2 0] 5 (#$ . 49283) nil]) #@63 Remove any PGP headers and signatures in the current article. (defalias 'article-hide-pgp #[nil "\212\214\305\306\211\211\307 \210\310\311\306\305#\205s\312\fB\313\224\313\225|\210`\310\314\306\305#\206)`|\210`\315\316\306\305#\203N\313\224T\211\203N\315\317\306\305#\203K\313\225\202Ld|\210 \203p\203p }\210eb\210\310\320\306\305#\203n\313\224\313\225|\210\202]~\210\321\322!.\207" [end beg buffer-read-only inhibit-point-motion-hooks gnus-article-wash-types t nil article-goto-body re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" pgp 0 "^[ ]*\n" search-forward "\n-----BEGIN PGP SIGNATURE-----\n" "\n-----END PGP SIGNATURE-----\n" "^- " gnus-run-hooks gnus-article-hide-pgp-hook] 5 (#$ . 49784) nil]) #@155 Toggle hiding of any PEM headers and signatures in the current article. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'article-hide-pem #[(&optional arg) "\304\305\"?\205G\212\306\211eb\210\307\310\306\311#\205F\312\224T\211\205F\305 B\313 \307\314\306\311#\2033\312\225\2024d\305#\210\307\315\306\311#\205F\313\312\224\312\225\305#+\207" [arg end buffer-read-only gnus-article-wash-types gnus-article-check-hidden-text pem nil search-forward "\n-----BEGIN PRIVACY-ENHANCED MESSAGE-----\n" t 0 gnus-article-hide-text-type "\n\n" "\n-----END PRIVACY-ENHANCED MESSAGE-----\n"] 6 (#$ . 50526) (gnus-article-hidden-arg)]) #@61 Strip the banner specified by the `banner' group parameter. (defalias 'article-strip-banner #[nil "\212\214\306\307\305\"\310\211\211\211 \205E\311 \210 \312=\203/\313 \205E~\210\314y\210`d|\202E ;\205E\315 \310\306#\205E\316\224\316\225|\210\2024.\207" [gnus-newsgroup-name end beg buffer-read-only gnus-signature-limit banner t gnus-group-get-parameter nil article-goto-body signature gnus-article-narrow-to-signature -1 re-search-forward 0 inhibit-point-motion-hooks] 6 (#$ . 51207) nil]) #@56 Translate article using an online translation service. (defalias 'article-babel #[nil "\306\307!\210\212q\210\310 \205(\311`d\n {\312\f!\214\n }\210\n |\210 c.)\207" [gnus-article-buffer buffer-read-only start end orig trans require babel article-goto-body nil babel-as-string] 2 (#$ . 51721) nil]) #@126 Hide the signature in the current article. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'article-hide-signature #[(&optional arg) "\302\303\"?\205\212\214\304\305 \205\306ed\303#+\207" [arg buffer-read-only gnus-article-check-hidden-text signature nil gnus-article-narrow-to-signature gnus-article-hide-text-type] 4 (#$ . 52035) (gnus-article-hidden-arg)]) #@38 Strip offensive headers from bodies. (defalias 'article-strip-headers-in-body #[nil "\212\301 \210\302\303\304!\205\305y\210`\306y\210`|*\207" [case-fold-search article-goto-body t looking-at "x-no-archive:" 0 1] 2 (#$ . 52451) nil]) #@59 Remove all blank lines from the beginning of the article. (defalias 'article-strip-leading-blank-lines #[nil "\212\302\303\304 \205\"m?\205\"\305\306!\205\"\307y\210`\310y\210`|\210\202\n+\207" [buffer-read-only inhibit-point-motion-hooks t nil article-goto-body looking-at "[ ]*$" 0 1] 2 (#$ . 52694) nil]) #@105 Narrow the buffer to the head of the message. Point is left at the beginning of the narrowed-to region. (defalias 'article-narrow-to-head #[nil "eb\300\301\302\303#\203`S\202d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 53016)]) #@39 Place point at the start of the body. (defalias 'article-goto-body #[nil "eb\210\203 \301\207\302\303\304\301#\203\301\207db\210\304\207" [article-goto-body-goes-to-point-min-p t search-forward "\n\n" nil] 4 (#$ . 53261)]) #@54 Replace consecutive blank lines with one empty line. (defalias 'article-strip-multiple-blank-lines #[nil "\212\302\303\304 \210\305\306\303\302#\203\"\307\310\224\310\225\"\204\311\312\303\302#\210\202\304 \210\305\313\303\302#\205?\307\310\224\310\225\"\204%\311\314\302\211#\210\202%+\207" [buffer-read-only inhibit-point-motion-hooks t nil article-goto-body re-search-forward "^[ ]+$" gnus-annotation-in-region-p 0 replace-match "" "\n\n\n+" "\n\n"] 4 (#$ . 53494) nil]) #@72 Remove all white space from the beginning of the lines in the article. (defalias 'article-strip-leading-space #[nil "\212\302\303\304 \210\305\306\303\302#\205\307\310\302\211#\210\202+\207" [buffer-read-only inhibit-point-motion-hooks t nil article-goto-body re-search-forward "^[ ]+" replace-match ""] 4 (#$ . 53985) nil]) #@66 Remove all white space from the end of the lines in the article. (defalias 'article-strip-trailing-space #[nil "\212\302\303\304 \210\305\306\303\302#\205\307\310\302\211#\210\202+\207" [buffer-read-only inhibit-point-motion-hooks t nil article-goto-body re-search-forward "[ ]+$" replace-match ""] 4 (#$ . 54323) nil]) #@51 Strip leading, trailing and multiple blank lines. (defalias 'article-strip-blank-lines #[nil "\300 \210\301 \210\302 \207" [article-strip-leading-blank-lines article-remove-trailing-blank-lines article-strip-multiple-blank-lines] 1 (#$ . 54656) nil]) #@24 Strip all blank lines. (defalias 'article-strip-all-blank-lines #[nil "\212\302\303\304 \210\305\306\303\302#\205\307\310\302\211#\210\202+\207" [buffer-read-only inhibit-point-motion-hooks t nil article-goto-body re-search-forward "^[ ]*\n" replace-match ""] 4 (#$ . 54913) nil]) #@70 Narrow to the signature; return t if a signature is found, else nil. (defalias 'gnus-article-narrow-to-signature #[nil "\306\307 \205\205\310y\210 <\203 \202 C\311\211\f\211A@\211\203z \250\2031d`Z W\204\312 !\203@\313`d\" W\204 \2119\203M\314 !\206\\ <\203Y @\315=\206\\\316 !)\203e \204 ;\203r\317 \311\306#\203\306\311\211\202\n?\205\204`d}\210\306+)\207" [inhibit-point-motion-hooks gnus-signature-limit limited limit limits form t gnus-article-search-signature 1 nil floatp count-lines fboundp lambda byte-code-function-p re-search-forward] 5 (#$ . 55207)]) #@111 Search the current buffer for the signature separator. Put point at the beginning of the signature separator. (defalias 'gnus-article-search-signature #[nil "`db\210 ;\203\303 \304\305#\202+ \n\203)\303\n@\304\305#\204)\n\211A\210\202\n)\2032\305\2026b\210\304)\207" [cur gnus-signature-separator seps re-search-backward nil t] 4 (#$ . 55812)]) #@63 Return the current prefix arg as a number, or 0 if no prefix. (defalias 'gnus-article-hidden-arg #[nil "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value 0] 2 (#$ . 56176)]) #@131 Return nil if hiding is necessary. Arg can be nil or a number. Nil and positive means hide, negative means show, 0 means toggle. (defalias 'gnus-article-check-hidden-text #[(type arg) "\212\214\303!\n\203\n\304V\203\305\202)\n\304W\203 \306!\202) \307=\205)\306!+\207" [type hide arg gnus-article-hidden-text-p 0 nil gnus-article-show-hidden-text hidden] 2 (#$ . 56379)]) #@67 Say whether the current buffer contains hidden text of type TYPE. (defalias 'gnus-article-hidden-text-p #[(type) "\302ed\303$\211\203%\304 \305\"\204%\304 \306\"\204%\302 Td\303$\211\204 \205*\307)\207" [type pos text-property-any article-type get-text-property invisible dummy-invisible hidden] 6 (#$ . 56770)]) #@68 Show all hidden text of type TYPE. If HIDE, hide the text instead. (defalias 'gnus-article-show-hidden-text #[(type &optional hide) "\212\306\307e\306\310 d\311\f$\211\203~b\210\312d\311\f$\206!d \203U \313#\210\314>\203Q\315Se]\314\211>AA$\210+\202x \316#\210\314>\203w\315Se]\314\306$\210* b\210\202 -\307\207" [beg end inhibit-point-motion-hooks buffer-read-only type hide nil t text-property-any article-type text-property-not-all add-text-properties intangible put-text-property remove-text-properties gnus-hidden-properties props e b] 6 (#$ . 57099)]) #@37 Mapping from time units to seconds. (defconst article-time-units (byte-code "\300\301\302_B\303\304\305\\B\306\302\305\\B\307\310\305\\B\311BBBB\207" [year 365.25 86400 week 604800 0 day hour 3600 ((minute . 60) (second . 1))] 6) (#$ . 57718)) #@328 Convert DATE date to universal time in the current article. If TYPE is `local', convert to local time; if it is `lapsed', output how much time has lapsed since DATE. For `lapsed', the value of `gnus-article-date-lapsed-new-header' says whether the "X-Sent:" header should replace the "Date:" one, or should be added below it. (defalias 'article-date-ut #[(&optional type highlight header) "\206 \306\307!\206 \310\311\n\204 \202! \312=\203 \313\202!\314\315!\203.\316H\202/\317\"\320#\320$\320%\212\214\321 \210\322 \320\317#\203e\323\324 \325\"$\323\324 \326\"\206Y \323\327 S\325\"%\330y\210 \205\366 \310\230?\205\366eb\210\320&\322\f\320\317#\203\240#\203\220\331y\210`\330y\210`|\210\202v\331y\210`\320\210`|\210`#\202v#\204\260\322 \320\317#\203\260\330y\210#\203\271#b\210\332 \206\300\333\"c\210#\204\316\334c\210\335y\210\331y\210\336\337!\205\365\340\330\224\330\225T\326 $\210\340\330\224\330\225T\325$$\210\340\341\224\341\225\325%$).\n\207" [header tdate-regexp gnus-article-date-lapsed-new-header type date-regexp date message-fetch-field "date" "" "^Date:[ ]\\|^X-Sent:[ ]" lapsed "^X-Sent:[ ]" "^Date:[ ]" vectorp 3 t nil article-narrow-to-head re-search-forward get-text-property gnus-point-at-bol face original-date gnus-point-at-eol 1 0 article-make-date-line ut "\n" -1 looking-at "\\([^:]+\\): *\\(.*\\)$" put-text-property 2 inhibit-point-motion-hooks pos bface eface buffer-read-only] 5 (#$ . 57969) (list 'ut t)]) #@29 Return a DATE line of TYPE. (defalias 'article-make-date-line #[(date type) "\306\307\310\217 \311=\2031\312!@\313\314\315!\n\316V\203\317\202 \320\321\n!\322\245\321\n!\322\246\323\245%)\202k \324=\203\325\315\326 !\327\330\f\"\211@5 A@\312!@Z\2116\316W\203a5S6\331\\D\202x6\332V\203s5T6\331ZD\202x56D,!\333Q\202k \334=\203\232\325\335\336 \"\203\225 \316\211\224O\202\226 P\202k \337=\203\3277\21189\203\260\3408!\206\3028<\203\2768@\341=\206\302\3428!)\203\3157!\202k\325\3437\"P\202k \344=\203\312!@\325\343\345\"\313\346\n\316V\203\363\317\202\364\320\321\n!\322\245\321\n!\322\246\323\245$Q)\202k \347=\203g\350 9\3519\"\211:\205'\352:@!\331_:A@\\;:\2052\321;!<\306=\306>:\204C\353\202b<\316U\203N\354\202b\355\356\357?\360#;\316V\203`\361\202a\362Q.\202k\363\364 \")\207" [time type tz date e tm nil (date-to-time date) ((error '(0 0))) local current-time-zone format "Date: %s %s%02d%02d" current-time-string 0 "+" "-" abs 3600 60 ut "Date: " parse-time-string apply encode-time 65536 65535 " UT" original string-match "\n+$" user fboundp lambda byte-code-function-p format-time-string iso8601 "%Y%m%dT%H%M%S" "%s%02d%02d" lapsed current-time subtract-time float "X-Sent: Unknown" "X-Sent: Now" "X-Sent: " mapconcat #[(unit) "\304 A\245!\211\305U\203\306\207\n A_Z \203\307\202\306\310\311\n!!\312\313 @!\n\314V\2033\315\2024\306\260\316\207" [sec unit num prev ffloor 0 "" ", " int-to-string floor " " symbol-name 1 "s" t] 6] "" " ago" " in the future" error "Unknown conversion type: %s" ms ls gnus-article-time-format form now real-time real-sec sec num prev article-time-units] 9 (#$ . 59467)]) #@57 Convert the current article date to the local timezone. (defalias 'article-date-local #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut local] 3 (#$ . 61179) (list t)]) #@187 Convert the current article date to what it was originally. This is only useful if you have used some other date conversion function and want to see what the date was before converting. (defalias 'article-date-original #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut original] 3 (#$ . 61374) (list t)]) #@68 Convert the current article date to time lapsed since it was sent. (defalias 'article-date-lapsed #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut lapsed] 3 (#$ . 61704) (list t)]) #@65 Function to be run from a timer to update the lapsed time line. (defalias 'article-update-date-lapsed #[nil "\301\212\302\303\304\217*\207" [deactivate-mark nil #1=#:G81935 (byte-code "\300\301\302\303#\207" [walk-windows #[(w) "\302!q\210 \303=\205eb\210\304\305\306\307#\205\310\307!\207" [w major-mode window-buffer gnus-article-mode re-search-forward "^X-Sent:" nil t article-date-lapsed] 4] nil visible] 4) ((error))] 3 (#$ . 61911)]) #@145 Start a timer to update the X-Sent header in the article buffers. The numerical prefix says how frequently (in seconds) the function is to run. (defalias 'gnus-start-date-timer #[(&optional n) "\204\302\303 \210\304\302\305#\211\207" [n article-lapsed-timer 1 gnus-stop-date-timer nnheader-run-at-time article-update-date-lapsed] 4 (#$ . 62364) "p"]) #@24 Stop the X-Sent timer. (defalias 'gnus-stop-date-timer #[nil "\205 \301!\210\302\211\207" [article-lapsed-timer nnheader-cancel-timer nil] 2 (#$ . 62727) nil]) #@129 Convert the current article date to the user-defined format. This format is defined by the `gnus-article-time-format' variable. (defalias 'article-date-user #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut user] 3 (#$ . 62898) (list t)]) #@46 Convert the current article date to ISO8601. (defalias 'article-date-iso8601 #[(&optional highlight) "\301\302\"\207" [highlight article-date-ut iso8601] 3 (#$ . 63162) (list t)]) #@45 Show all hidden text in the article buffer. (defalias 'article-show-all #[nil "\212\304ed\305\n #\210\306 >\205\307\nSe]\n\306\304$,\207" [buffer-read-only e b gnus-hidden-properties nil remove-text-properties intangible put-text-property] 5 (#$ . 63349) nil]) #@52 Emphasize text according to `gnus-emphasis-alist'. (defalias 'article-emphasize #[(&optional arg) "\306\307\"?\205\356\212\310\311\312\217\206 \310\313\314\n\"\310\211\211\211\211\211 !\315 \210`!\211A!@\211\205\354b\210@A@\3168\3178\320\310\321#\2031\f\224\203V \224\203V\307\"B\" \224 \225#$\322$##\210\323>\203\234\324$Se]$\323\211>AA$\210+\325\f\224\f\225\307#\210\f\224\f\225\303 %&'\326 (\327\216\212\214b\210\320\330'\331#\203\331\332\333\224&%$\210`\202\277\332`&%$\210. \225b\210\202V.\n\207" [arg gnus-emphasis-alist gnus-hidden-properties face visible invisible gnus-article-check-hidden-text emphasis nil (byte-code "rq\210 )\207" [gnus-summary-buffer gnus-article-emphasis-alist] 1) ((error)) append (article-type emphasis) article-goto-body 2 3 re-search-forward t add-text-properties intangible put-text-property gnus-article-unhide-text-type match-data ((set-match-data save-match-data-internal)) "[ ]*\n" move gnus-put-text-property 0 beg elem regexp props buffer-read-only alist gnus-article-wash-types e b val prop end save-match-data-internal] 9 (#$ . 63622) (gnus-article-hidden-arg)]) #@33 Setup newsgroup emphasis alist. (defalias 'gnus-article-setup-highlight-words #[(&optional highlight-words) "?\205h \205 \306\307\n\"\203\n\310\225\311O\202\n)\312\300!\210\f\311\211\211A@\211\203O \203)\306@ \"\203)\311\313A!\202) +\313 !\244 \205a\313\314 \315\316#!\244\244\211)\207" [gnus-article-emphasis-alist gnus-newsgroup-name gname name gnus-group-highlight-words-alist highlight string-match "^[^:]+:" 0 nil make-local-variable copy-sequence gnus-group-find-parameter highlight-words t elem alist gnus-emphasis-alist] 6 (#$ . 64823)]) (byte-code "\301B\302B\301\207" [current-load-list gnus-summary-article-menu gnus-summary-post-menu] 2) #@38 Save the currently selected article. (defalias 'gnus-article-save #[(save-buffer file &optional num) "\204 \206 \n \212 q\210\305\306\307\"\210+\310\213\207" [gnus-save-all-headers gnus-saved-headers gnus-visible-headers save-buffer gnus-article-buffer article-hide-headers 1 t ((byte-code "\204\306\307!\207 q\210\n\f\204\310\202 \f\311=\203\312\202 \f\f\313=\205* q\210\f!+\207" [gnus-default-article-saver gnus-article-buffer save-buffer gnus-save-article-buffer gnus-prompt-before-saving file error "No default saver is defined" default always nil t filename num gnus-number-of-articles-to-be-saved gnus-article-current-summary] 2))] 3 (#$ . 65520)]) (defalias 'gnus-read-save-file-name #[(prompt &optional filename function group headers variable) " \n J#\306\307=\203 \202\310=\203 \202\203)\202\311!\312\203F\313V\203F\312\314\"\202G\315\"\204`\316\317\320 !\321R\322 ! #\202\347;\203\n J#\316\317\320 !\321R\322 ! #\202\347G\313U\203\277\323@\" \324 !\203\236\325 !\202\254\326 !\203\252 \202\254!\316\317 \321R! #*\202\347\237\306\"\244\"\323\316\327P@#\")\f\"B\211\"@)#\330\322#!!\210\324#!\203\325#!\320 !P#\331#!+\330\322\f!!\210 \fL*\207" [function group headers variable result default-name nil default t gnus-get-split-value format 1 "these %d articles" "this article" read-file-name " (default " file-name-nondirectory ") " file-name-directory expand-file-name file-directory-p file-name-as-directory file-exists-p " (`M-p' for defaults) " gnus-make-directory nnheader-translate-file-chars filename gnus-split-methods split-name prompt gnus-number-of-articles-to-be-saved gnus-article-save-directory name dir file-name-history file] 5]) #@71 Return the first instance of an "Archive-name" in the current buffer. (defalias 'gnus-article-archive-name #[(group) "\302\303\304\305\302#\205\306 \307\310!\")\207" [case-fold-search gnus-article-save-directory t re-search-forward "archive-name: *\\([^ \n ]+\\)[ ]*$" nil nnheader-concat match-string 1] 4 (#$ . 67315)]) #@66 If GROUP is an nndoc group, return the name of the parent group. (defalias 'gnus-article-nndoc-name #[(group) "\301!@\302=\205 \303\304\"\207" [group gnus-find-method-for-group nndoc gnus-group-get-parameter save-article-group] 3 (#$ . 67647)]) #@150 Append this article to Rmail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-rmail #[(&optional filename) "\306\307 \n \310&\311  \312\313\"\314\216\203,\315!\210\316!q\210\2021\317!\210\212\214~\210\320!\210.\207" [filename gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in rmail file:" gnus-newsgroup-last-rmail selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-output-to-rmail #2=#:buf #3=#:w] 7 (#$ . 67902)]) #@154 Append this article to Unix mail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-mail #[(&optional filename) "\306\307 \n \310&\311  \312\313\"\314\216\203,\315!\210\316!q\210\2021\317!\210\212\214~\210\320!\203I\321!\203I\322\323\"\210\202M\324!\210.\207" [filename gnus-mail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in Unix mail file:" gnus-newsgroup-last-mail selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer file-readable-p mail-file-babyl-p rmail-output-to-rmail-file t gnus-output-to-mail #2=#:buf #3=#:w] 7 (#$ . 68612)]) #@144 Append this article to file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-file #[(&optional filename overwrite) "\306\307 \n \310&\311  \312\313\"\314\216\203,\315!\210\316!q\210\2021\317!\210\212\214~\210\203D\320!\203D\321!\210\322!\210.\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s in file:" gnus-newsgroup-last-file selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer file-exists-p delete-file gnus-output-to-file #2=#:buf #3=#:w overwrite] 7 (#$ . 69434)]) #@147 Write this article to a file. Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'. (defalias 'gnus-summary-write-to-file #[(&optional filename) "\300\301\302\"\207" [gnus-summary-save-in-file nil t] 3 (#$ . 70204)]) #@153 Append this article body to a file. Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'. (defalias 'gnus-summary-save-body-in-file #[(&optional filename) "\306\307 \n \310&\311  \312\313\"\314\216\203,\315!\210\316!q\210\2021\317!\210\212\214~\210\320 \203>`d}\210\321!\210.\207" [filename gnus-file-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-save-article-buffer gnus-read-save-file-name "Save %s body in file:" gnus-newsgroup-last-file selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer article-goto-body gnus-output-to-file #2=#:buf #3=#:w] 7 (#$ . 70490)]) #@34 Pipe this article to subprocess. (defalias 'gnus-summary-save-in-pipe #[(&optional command) "\306=\203 \203 \202.\203\202.\307\310\311\n\203*\n\312V\203*\310\313\n\"\202+\314\" \"\211\315\230\2037 \316 \f\317 \320\"\321\216\203W\322!\210\323!q\210\202[\324 !\210\214~\210\325ed\326$\210-\211\207" [command gnus-last-shell-command gnus-number-of-articles-to-be-saved #1=#:GnusStartBufferWindow gnus-article-buffer #2=#:buf default read-string format "Shell command on %s: " 1 "these %d articles" "this article" "" selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer shell-command-on-region nil #3=#:w] 7 (#$ . 71238)]) #@28 Capitalize NEWSGROUP name. (defalias 'gnus-capitalize-newsgroup #[(newsgroup) "G\301U?\205\302\301H\226!\303\304OP\207" [newsgroup 0 char-to-string 1 nil] 4 (#$ . 71948)]) #@193 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num. (defalias 'gnus-Numeric-save-name #[(newsgroup headers &optional last-file) "\305\306\307!\203 \310!\202\311!\312\313 \314H!Q\n\"\f\2035\315 !\315\f!\230\2035\316\317\320\f!\"\2035 \202:\f\206: )\207" [newsgroup headers gnus-article-save-directory default last-file expand-file-name gnus-use-long-file-name not-save gnus-capitalize-newsgroup gnus-newsgroup-directory-form "/" int-to-string 0 file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 72132)]) #@193 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/news.group/num. Otherwise, it is like ~/News/news/group/num. (defalias 'gnus-numeric-save-name #[(newsgroup headers &optional last-file) "\305\306\307!\203 \202\310!\311\312 \313H!Q\n\"\f\2033\314 !\314\f!\230\2033\315\316\317\f!\"\2033 \2028\f\2068 )\207" [newsgroup headers gnus-article-save-directory default last-file expand-file-name gnus-use-long-file-name not-save gnus-newsgroup-directory-form "/" int-to-string 0 file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 72819)]) #@191 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group. Otherwise, it is like ~/News/news/group/news. (defalias 'gnus-Plain-save-name #[(newsgroup headers &optional last-file) "\206\303\304\305!\203\306 !\202\307 !\310P\n\"\207" [last-file newsgroup gnus-article-save-directory expand-file-name gnus-use-long-file-name not-save gnus-capitalize-newsgroup gnus-newsgroup-directory-form "/news"] 3 (#$ . 73475)]) #@191 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/news.group. Otherwise, it is like ~/News/news/group/news. (defalias 'gnus-plain-save-name #[(newsgroup headers &optional last-file) "\206\303\304\305!\203 \202\306 !\307P\n\"\207" [last-file newsgroup gnus-article-save-directory expand-file-name gnus-use-long-file-name not-save gnus-newsgroup-directory-form "/news"] 3 (#$ . 73987)]) (byte-code "\302\303\304\"\210\305\306\307\310#\210\311 \"\210\312\300\313\"\210\314\315\316#\207" [gnus-article-mode-map widget-keymap mapcar #[(func) "\303\211\n:\203\n@\nA\202\n\304\305\306\n\"!\307 !\205=\310\311\312 \313\"\314\315\316\317\320\321\322 DD\323\322 D\324BBFE\257M*\207" [gfunc afunc func nil intern format "gnus-%s" fboundp lambda (&optional interactive &rest args) documentation t (interactive (list t)) save-excursion (set-buffer gnus-article-buffer) if interactive call-interactively quote apply (args)] 13] (article-hide-headers article-hide-boring-headers article-treat-overstrike article-fill-long-lines article-capitalize-sentences article-remove-cr article-display-x-face article-de-quoted-unreadable article-decode-HZ article-mime-decode-quoted-printable article-hide-list-identifiers article-hide-pgp article-strip-banner article-babel article-hide-pem article-hide-signature article-strip-headers-in-body article-remove-trailing-blank-lines article-strip-leading-blank-lines article-strip-multiple-blank-lines article-strip-leading-space article-strip-trailing-space article-strip-blank-lines article-strip-all-blank-lines article-date-local article-date-iso8601 article-date-original article-date-ut article-decode-mime-words article-decode-charset article-decode-encoded-words article-date-user article-date-lapsed article-emphasize article-treat-dumbquotes article-normalize-headers (article-show-all . gnus-article-show-all-headers)) put gnus-article-mode mode-class special set-keymap-parent gnus-define-keys-1 (" " gnus-article-goto-next-page "" gnus-article-goto-prev-page [delete] gnus-article-goto-prev-page [backspace] gnus-article-goto-prev-page "^" gnus-article-refer-article "h" gnus-article-show-summary "s" gnus-article-show-summary " " gnus-article-mail "?" gnus-article-describe-briefly "e" gnus-summary-article-edit "<" beginning-of-buffer ">" end-of-buffer " " gnus-info-find-node "" gnus-bug "" gnus-article-read-summary-keys "\252" gnus-article-read-summary-keys "\243" gnus-article-read-summary-keys "\336" gnus-article-read-summary-keys "\347" gnus-article-read-summary-keys) substitute-key-definition undefined gnus-article-read-summary-keys] 4) (defalias 'gnus-article-make-menu-bar #[nil "\305\306!\210\307\300!?\205N\307\300!\204\310\300 B\311\300\312\313#\210\314\300\n\313\315$\210\307\303!\204,\310\303 B\311\303\312\313#\210\314\303\n\313\316$\210\307\304!\203K\317\n\320\321\fB#\210\322\323!\207" [gnus-article-article-menu current-load-list gnus-article-mode-map gnus-article-treatment-menu gnus-summary-post-menu gnus-turn-off-edit-menu article boundp nil put variable-documentation "" easy-menu-do-define ("Article" ["Scroll forwards" gnus-article-goto-next-page t] ["Scroll backwards" gnus-article-goto-prev-page t] ["Show summary" gnus-article-show-summary t] ["Fetch Message-ID at point" gnus-article-refer-article t] ["Mail to address at point" gnus-article-mail t] ["Send a bug report" gnus-bug t]) ("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] ["Remove carriage return" gnus-article-remove-cr t] ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t] ["Decode HZ" gnus-article-decode-HZ t]) define-key [menu-bar post] "Post" gnus-run-hooks gnus-article-menu-hook] 5]) #@644 Major mode for displaying an article. All normal editing commands are switched off. The following commands are available in addition to all summary mode commands: \ \[gnus-article-next-page] Scroll the article one page forwards \[gnus-article-prev-page] Scroll the article one page backwards \[gnus-article-refer-article] Go to the article referred to by an article id near point \[gnus-article-show-summary] Display the summary buffer \[gnus-article-mail] Send a reply to the address near point \[gnus-article-describe-briefly] Describe the current mode briefly \[gnus-info-find-node] Go to the Gnus info node (defalias 'gnus-article-mode #[nil "\306\307\310\"\203\n\311 \210\312 \210\313\314\315\316!\210\317\n!\210\320\321\322\"\210\315\323! L\210\315\324!\210\315\325!\210\315\326!\210\315\327!\210\315\330!\210\315\331!\210\315\332!\210\333 \210\334 \210\335\336 !\210\337\340!\203b\341\342!\203b\343\342!\203b\340\335!\210\344\345!\207" [mode-name major-mode gnus-article-mode-map gnus-page-delimiter buffer-read-only gnus-article-mode-syntax-table gnus-visual-p article-menu menu gnus-article-make-menu-bar gnus-simplify-mode-line "Article" gnus-article-mode make-local-variable minor-mode-alist use-local-map gnus-update-format-specifications nil article-mode page-delimiter gnus-page-broken gnus-button-marker-list gnus-article-current-summary gnus-article-mime-handles gnus-article-decoded-p gnus-article-mime-handle-alist gnus-article-washed-types gnus-set-default-directory buffer-disable-undo t set-syntax-table fboundp set-buffer-multibyte boundp enable-multibyte-characters default-value gnus-run-hooks gnus-article-mode-hook] 3 (#$ . 77908) nil]) #@32 Initialize the article buffer. (defalias 'gnus-article-setup-buffer #[nil "\203\306\202\f\307 \310Q\311\312\n\"\210\313\n\314\225\315OP\n \315!\2042\212q\210\n \316 \210)\317 \210\212\320 !q\210\321\322!\203Q\323\324!\203Q\325\324!\203Q\322\326!\210\327\"\330\331!\210)\332\n!\203\205\212\nq\210#\203m\333#!\210\334 \210\335 \210\326$\"\336=\204\200\336 \210p)\202\230\212\320\n!q\210\336 \210\330\337!\210\340 !\210p)*\207" [gnus-single-article-buffer gnus-newsgroup-name name original gnus-article-buffer gnus-original-article-buffer "*Article*" "*Article " "*" string-match "\\*Article" " *Original Article" 0 nil gnus-set-global-variables gnus-article-setup-highlight-words gnus-get-buffer-create fboundp set-buffer-multibyte boundp enable-multibyte-characters default-value t gnus-original-article-mode make-local-variable gnus-original-article get-buffer mm-destroy-parts kill-all-local-variables buffer-disable-undo gnus-article-mode gnus-summary-buffer gnus-summary-set-local-parameters gnus-article-mime-handle-alist major-mode gnus-article-mime-handles buffer-read-only] 4 (#$ . 79616)]) (defalias 'gnus-article-set-window-start #[(&optional line) "\302\303\304\"\212q\210eb\210 \204e\202#\305\306\307\"\210\310\311\312\304#\210 y\210`)\"\207" [gnus-article-buffer line set-window-start get-buffer-window t gnus-message 6 "Moved to bookmark" search-forward "\n\n" nil] 6]) #@210 Prepare ARTICLE in article mode buffer. ARTICLE should either be an article number or a Message-ID. If ARTICLE is an id, HEADER should be the article headers. If ALL-HEADERS is non-nil, no headers are hidden. (defalias 'gnus-article-prepare #[(article &optional all-headers header) "\212\306=\204\n q\210p\n\203\n\307H\202 p*+,-\310.\212\311 \210/q\210\312\313!\203; \203;\3100\3101\314 -\")\211.\204\350\212 \247\205\344 2>?\205\344, B3 q\210 4 5>\203p6\202\302 7>\203|8\202\302 9>\203\210:\202\302 ;>\203\224<\202\302 =>\203\240>\202\302 ?>\203\254@\202\302 A>\203\270B\202\302 C\236A\206\302D8=\203\322\315 !\210\316\317!\202\344\320 E\"\210 2>?\205\344\321\322\323\")\202\307.\324=\204\366.\325=\203.\212 q\210 FBF4G\3074\310H\3103.\325=\203\326\327!\210\202\326\303!\210\330 \210)IJ\331\303!)\202\307 \247\203\224 4=\204\224\212 q\210 FBF4G 4\3324K\2368H,4B3\333H!\204e\310H\3344!\210\335 \203t\3344!\210\336\337!\210\331\327!\210\340\341\342\"\203\207\336\343!\210\330 \210L\206\221MN) \247\204\236 ;\203\257\344 \210eb\210O\205\255\345 \210\346PIJ\331\303!\210)\347 \210\350\351p!`\"\210\326\303!\210\346.\207" [major-mode gnus-summary-buffer header article gnus-article summary-buffer gnus-summary-mode 0 nil gnus-article-setup-buffer boundp transient-mark-mode gnus-request-article-this-buffer gnus-summary-set-agent-mark message "Message marked for downloading" gnus-summary-mark-article gnus-error 1 "No such article (may have expired or been canceled)" pseudo nneething gnus-configure-windows summary gnus-set-global-variables gnus-set-mode-line 3 vectorp gnus-summary-goto-subject gnus-summary-show-thread gnus-run-hooks gnus-mark-article-hook gnus-visual-p article-highlight highlight gnus-visual-mark-article-hook gnus-article-prepare-display gnus-narrow-to-page t article-goto-body set-window-point get-buffer-window gnus-article-internal-prepare-hook gnus-tmp-internal-hook gnus-newsgroup-name group result gnus-article-buffer mark-active buffer-read-only gnus-newsgroup-sparse gnus-article-current gnus-current-article gnus-newsgroup-unsendable gnus-unsendable-mark gnus-newsgroup-undownloaded gnus-undownloaded-mark gnus-newsgroup-downloadable gnus-downloadable-mark gnus-newsgroup-unreads gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-newsgroup-expirable gnus-expirable-mark gnus-newsgroup-reads gnus-ancient-mark gnus-canceled-mark gnus-newsgroup-history gnus-last-article gnus-current-headers gnus-article-mime-handle-alist gnus-article-mime-handle-alist-1 gnus-newsgroup-data all-headers gnus-show-all-headers gnus-have-all-headers gnus-break-pages gnus-page-broken] 3 (#$ . 81038)]) #@51 Make the current buffer look like a nice article. (defalias 'gnus-article-prepare-display #[nil "p\305\n\306=\204 \306 \210\305\305\307\310!\210\f\203\f \210\307\311!*\207" [buffer-read-only gnus-article-buffer major-mode gnus-article-wash-types gnus-display-mime-function nil gnus-article-mode gnus-run-hooks gnus-tmp-internal-hook gnus-article-prepare-hook] 2 (#$ . 83826)]) #@250 The following specs can be used: %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 (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n" (#$ . 84217)) (byte-code "\303\300!\204\304\300 B\303\302!\204\305\302 B\303\207" [gnus-mime-button-line-format-alist current-load-list gnus-mime-button-commands boundp ((116 gnus-tmp-type 115) (84 gnus-tmp-type-long 115) (110 gnus-tmp-name 115) (100 gnus-tmp-description 115) (112 gnus-tmp-id 115) (108 gnus-tmp-length 100) (101 gnus-tmp-dots 115)) ((gnus-article-press-button " " "Toggle Display") (gnus-mime-view-part "v" "View Interactively...") (gnus-mime-view-part-as-type "t" "View As Type...") (gnus-mime-save-part "o" "Save...") (gnus-mime-copy-part "c" "View As Text, In Other Buffer") (gnus-mime-inline-part "i" "View As Text, In This Buffer") (gnus-mime-internalize-part "E" "View Internally") (gnus-mime-externalize-part "e" "View Externally") (gnus-mime-pipe-part "|" "Pipe To Command..."))] 2) (defalias 'gnus-article-mime-part-status #[nil "\203\n\301\302G\"\207\303\207" [gnus-article-mime-handle-alist-1 format " (%d parts)" ""] 3]) (byte-code "\306\300!\204\307\300 B\204)\310 \311\n\"\210\312 \313#\210\312\f\314#\210\315\316 \"\210\307\207" [gnus-mime-button-map current-load-list gnus-article-mode-map gnus-mouse-2 gnus-down-mouse-3 gnus-mime-button-commands boundp nil make-sparse-keymap set-keymap-parent define-key gnus-article-push-button gnus-mime-button-menu mapcar #[(c) "\302 A@ @#\207" [gnus-mime-button-map c define-key] 4]] 4) #@54 Construct a context-sensitive menu of MIME commands. (defalias 'gnus-mime-button-menu #[(event) "\212\211A@)\305 \211@)!q\210 \211A@:\203!\nA@@\202$\nA@)b\210\306 \210\307\310\311\312\313\314 \"BD\"\211\205<\f +\207" [event pos position gnus-mime-button-commands response window-buffer gnus-article-check-buffer x-popup-menu t "MIME Part" "" mapcar #[(c) "AA@@B\207" [c] 2]] 8 (#$ . 85916) "e"]) #@26 View all the MIME parts. (defalias 'gnus-mime-view-all-parts #[(&optional handles) "rq\210 \206 \n \212\fq\210 ) \n\211@;\203\"\306 A!\202&\307\310 \",\207" [gnus-article-buffer handles gnus-article-mime-handles gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets gnus-mime-view-all-parts mapcar mm-display-part mail-parse-ignored-charsets mail-parse-charset] 4 (#$ . 86329) nil]) #@33 Save the MIME part under point. (defalias 'gnus-mime-save-part #[nil "\301 \210\302`\303\"\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data mm-save-part] 3 (#$ . 86746) nil]) #@46 Pipe the MIME part under point to a process. (defalias 'gnus-mime-pipe-part #[nil "\301 \210\302`\303\"\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data mm-pipe-part] 3 (#$ . 86951) nil]) #@70 Interactively choose a viewing method for the MIME part under point. (defalias 'gnus-mime-view-part #[nil "\301 \210\302`\303\"\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data mm-interactively-view-part] 3 (#$ . 87169) nil]) #@54 Choose a MIME media type, and view the part as such. (defalias 'gnus-mime-view-part-as-type #[nil "\301 \210\302`\303\"\304!)\207" [handle gnus-article-check-buffer get-text-property gnus-data gnus-mm-display-part] 3 (#$ . 87425) (list (completing-read "View as MIME type: " (mapcar 'list (mailcap-mime-types))))]) #@54 Put the the MIME part under point into a new buffer. (defalias 'gnus-mime-copy-part #[(&optional handle) "\306 \210\206 \307`\310\"\311!\312\313\314A@\315\"\206&\314A@\316\"\206&\317!\320 !\321\f!\210 c\210\322\216\323 !\324 \210)eb-\207" [handle contents | base buffer buffer-file-name gnus-article-check-buffer get-text-property gnus-data mm-get-part nil file-name-nondirectory mail-content-type-get name filename "*decoded*" generate-new-buffer switch-to-buffer ((byte-code "\301\301\207" [buffer-file-name nil] 1)) expand-file-name normal-mode] 4 (#$ . 87748) nil]) #@59 Insert the MIME part under point into the current buffer. (defalias 'gnus-mime-inline-part #[(&optional handle) "\304 \210\206 \305`\306\"\307`\307\3108\203\311!\202,\312!\313y\210\314 \"\210\nb,\207" [handle contents b buffer-read-only gnus-article-check-buffer get-text-property gnus-data nil 3 mm-remove-part mm-get-part 2 mm-insert-inline] 3 (#$ . 88338) nil]) #@57 View the MIME part under point with an external viewer. (defalias 'gnus-mime-externalize-part #[(&optional handle) "\306 \210\206 \307`\310\"\311\311 \212 q\210 )\3128\203'\313!\202*\314!-\207" [handle mm-user-display-methods mm-inline-large-images gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-article-check-buffer get-text-property gnus-data nil 3 mm-remove-part mm-display-part gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets] 3 (#$ . 88723) nil]) #@117 View the MIME part under point with an internal viewer. In no internal viewer is available, use an external viewer. (defalias 'gnus-mime-internalize-part #[(&optional handle) "\306 \210\206 \307`\310\"\311\312 \212 q\210)\3138\203'\314!\202*\315!-\207" [handle mm-inlined-types mm-inline-large-images gnus-newsgroup-charset mail-parse-charset gnus-summary-buffer gnus-article-check-buffer get-text-property gnus-data (".*") t 3 mm-remove-part mm-display-part gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets] 3 (#$ . 89228) nil]) (defalias 'gnus-article-part-wrapper #[(n function) "rq\210 \nGV\203\305\306!\210\307 !\210 \n\236A\f !*\207" [gnus-article-buffer n gnus-article-mime-handle-alist handle function error "No such part" gnus-article-goto-part] 2]) #@50 Pipe MIME part N, which is the numerical prefix. (defalias 'gnus-article-pipe-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-pipe-part] 3 (#$ . 90023) "p"]) #@50 Save MIME part N, which is the numerical prefix. (defalias 'gnus-article-save-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-save-part] 3 (#$ . 90200) "p"]) #@64 View MIME part N interactively, which is the numerical prefix. (defalias 'gnus-article-interactively-view-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper mm-interactively-view-part] 3 (#$ . 90377) "p"]) #@50 Copy MIME part N, which is the numerical prefix. (defalias 'gnus-article-copy-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-copy-part] 3 (#$ . 90596) "p"]) #@61 View MIME part N externally, which is the numerical prefix. (defalias 'gnus-article-externalize-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-externalize-part] 3 (#$ . 90780) "p"]) #@52 Inline MIME part N, which is the numerical prefix. (defalias 'gnus-article-inline-part #[(n) "\301\302\"\207" [n gnus-article-part-wrapper gnus-mime-inline-part] 3 (#$ . 90989) "p"]) (defalias 'gnus-article-mime-match-handle-first #[(condition) "\203x \306\211\f\211A@\211\203q\307!\203! A!\202V\310=\203G\311 A8\206C A\211@;\203< @\202@ A@@)\312\232?\202V\313=\203U\311 A8?\202V\314\203\n\315 @!\203\n\n\203k @\nW\203\n @\202\n\n\206v\316+\207\316\207" [condition gnus-article-mime-handle-alist n ihandle alist handle nil functionp undisplayed 3 "multipart/alternative" undisplayed-alternative t gnus-article-goto-part 1] 4]) #@50 View MIME part N, which is the numerical prefix. (defalias 'gnus-article-view-part #[(&optional n) "rq\210 \247\204 \305\n! GV\203\306\307!\210 \236A\310 !\2059\f@\311\232\203/\312 \2029\313\f!\314=\2059\315 *\207" [gnus-article-buffer n gnus-article-mime-match-handle-function gnus-article-mime-handle-alist handle gnus-article-mime-match-handle-first error "No such part" gnus-article-goto-part "multipart/alternative" gnus-article-press-button gnus-mm-display-part internal gnus-set-window-start] 2 (#$ . 91652) "P"]) #@37 Display HANDLE and fix MIME button. (defalias 'gnus-mm-display-part #[(handle) "\306`\307\"`\310\311y\210\312 \212\fq\210 )\212\313\216\314p\315\"`\211\2030\316!\210 b\210\310y\210\317!\203D\320!\202x\214``T}\210\320!\210eb\210\311y\210`d}\210\321\310\nGS\211@;\203p@\202uA@@)$). b\210\322 \311y\210`|\210\323\n\317!C#\210 b\210+\207" [buffer-read-only point id gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets get-text-property gnus-part nil 1 selected-window ((select-window window)) get-buffer-window t select-window mm-handle-displayed-p mm-display-part gnus-treat-article gnus-point-at-bol gnus-insert-mime-button mail-parse-ignored-charsets mail-parse-charset window beg win handle gnus-article-mime-handles] 7 (#$ . 92191)]) #@20 Go to MIME part N. (defalias 'gnus-article-goto-part #[(n) "\302ed\303$\211\205 b)\207" [n point text-property-any gnus-part] 6 (#$ . 92997)]) (defalias 'gnus-insert-mime-button #[(handle gnus-tmp-id &optional displayed) "\306A@\307\"\206\306\3108\311\"\206\312\211@;\203 @\202$A@@)\313\3148\206-\312! \2037 @\202:\315!\203A\312\202B\316r@q\210\317 )\320\211\211%&'(\321\322(\"\203j\323\312\324\211($('(\312\232?\205x\325(PP&\312\232\204\205\326\fPn\204\214\327c\210`\330)*\331+\332+\333\334\335,\336\337\340\257\f#\210`\341\342 \n-.\343/+0\344& .\207" [handle displayed e b gnus-tmp-type-long gnus-tmp-length mail-content-type-get name 4 filename "" mail-decode-encoded-word-string 5 mm-handle-displayed-p "..." buffer-size nil string-match ".*/" replace-match t "; " " --- " "\n" gnus-eval-format local-map keymap gnus-callback gnus-mm-display-part gnus-part article-type annotation gnus-data widget-convert-button link gnus-widget-press-button #[(widget) "\304\305\306\307\310 \n\"!\203\311\202\312 \203\313\202\314#\207" [help-echo-owns-message widget :mime-handle gnus-xemacs t format "Click to %s the MIME part; %s for more options" mm-handle-displayed-p widget-get "hide" "show" "button3" "mouse-3"] 6] gnus-tmp-dots gnus-tmp-description gnus-tmp-type gnus-tmp-name gnus-mime-button-line-format gnus-mime-button-line-format-alist gnus-mime-button-map gnus-tmp-id :mime-handle :action :button-keymap :help-echo] 16]) (defalias 'gnus-widget-press-button #[(elems el) "\302 \"b\210\303 \207" [elems :from widget-get gnus-article-press-button] 3]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-displaying-mime current-load-list boundp nil] 2) #@25 Display the MIME parts. (defalias 'gnus-display-mime #[(&optional ihandles) "\212\306 \307\216\310 !`\211\203\311 !\210\312 \n\"\210*\f\206%\313 \206%\314 \315\315\315\315\315\315\315\f\204]\204]\203Q\316!\210\315  \203]\317 !\210 \203\207 @;\203l A\203\207\f\204|\204|\320 \210`d|\210\321\322 !\210)\202\230\214\320 \210`d}\210\323\315\324\211#\210~\210)\f?\205\252\212\214\320 \210e`}\210\323\325!*. \207" [save-selected-window-window gnus-article-buffer point window ihandles handles selected-window ((select-window save-selected-window-window)) get-buffer-window select-window set-window-point mm-dissect-buffer mm-uu-dissect nil mm-destroy-parts gnus-mime-part-function article-goto-body t gnus-mime-display-part gnus-treat-article 1 head buffer-read-only handle name type b e display gnus-displaying-mime gnus-article-mime-handles gnus-article-mime-handle-alist gnus-article-mime-part-function] 5 (#$ . 94728)]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-mime-display-multipart-as-mixed current-load-list boundp nil] 2) (defalias 'gnus-mime-display-part #[(handle) "@;\204\n\305!\207\306@ \"A\203\306@ \"A!\207@\307\232\203:\n\204: GT\211B B\310A\311\211\f$)\207@\312\232\203K\n\204K\313A@!\207\314A!\207" [handle gnus-mime-multipart-functions gnus-mime-display-multipart-as-mixed gnus-article-mime-handle-alist id gnus-mime-display-single assoc "multipart/alternative" gnus-mime-display-alternative nil "multipart/related" gnus-mime-display-part gnus-mime-display-mixed] 6]) (defalias 'gnus-mime-part-function #[(handles) "@;\203\f\302\303A\"\207 !\207" [handles gnus-article-mime-part-function mapcar gnus-mime-part-function] 3]) (defalias 'gnus-mime-display-mixed #[(handles) "\301\302\"\207" [handles mapcar gnus-mime-display-part] 3]) (defalias 'gnus-mime-display-single #[(handle) "\211@;\203 @\202A@@) \306\307\211\211\n\310\311\215.\207" [handle gnus-ignored-mime-types text display move not-attachment t nil ignored (byte-code "\203\306\211A@ \"\203\307\300\310\"\210\202\311\n!?\2051\312\n8?\2061\312\n8@\313\232\2061\314\n!\211\203M\315\n!\203M\316\n!\204H\317 !\203M\320\202m\n\321\n\211@;\203]\n@\202a\nA@@)\322\"@)\323\232\203m\320GT\211\nBB\f\203\205\324 !\204\233\325\n\f\206\222 \205\222 C#\210\326 \210\320 )`!\f\203\311 \203\256\327y\210`!\"\212\310\330\331\217\210#)$%\332\n\320\"\210*db\210\202\351 \203\351 \203\351 \203\334\327y\210`!\326 \210\333\n\334\n!\"\210db\210\212\214!`}\210\335\310G&GS\n\211@;\203\n@\202\n\nA@@)$+\207" [ignored type handle not-attachment display text string-match throw nil mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t split-string "/" "text" gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -2 (set-buffer gnus-summary-buffer) ((error)) mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handle-alist id move beg gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-article-mime-handles] 6) type] 7]) #@41 Say whether TYPE is to be unbuttonized. (defalias 'gnus-unbuttonized-mime-type-p #[(type) "?\205\301\302\215\207" [gnus-inhibit-mime-unbuttonizing found (byte-code " \205\303 \211A@\n\"\203\304\305\306\"\210\202)\207" [gnus-unbuttonized-mime-types types type string-match throw found t] 3)] 2 (#$ . 97956)]) #@47 Insert a newline, but mark it as undeletable. (defalias 'gnus-article-insert-newline #[nil "\300`\301c\210`\302\303$\207" [gnus-put-text-property "\n" gnus-undeletable t] 5 (#$ . 98282)]) (defalias 'gnus-mime-display-alternative #[(handles &optional preferred ibegend id) "\206\306 ! `\307\307\307 \307\n\307 \307\f\310\213\210 \205& b. \207" [preferred handles ihandles point handle buffer-read-only mm-preferred-alternative nil ((byte-code "\214\203@A\206@b\210\306y\210`}\210ed|\210\307 !\210\310 C \f\235A@\211\204/\f@\2049\311\312!\204\313`\211(\314\315)\"c\210`\316\317\320\321?\322\323\324DEE\325\324\fD\324 D\324\nD)\257F\326*+,\327-\330*\331)\332.\257#\210\333\334(`/\33501&\210 \211A@\211.\203 \313`\211(\314\336. \232\203\246\337\202\247\340.\211.@;\203\267.@\202\274.A@@)#c\210`\316\317\341\321?\322\323\324DEE\325\324\fD\324.D\324\nD)\257F\326*+,\327-\330*\331)\332.\257#\210\333\334(`/\33501&\210\342c\210\202\211\343c\210 \203b @;\203\344 !\210\202Z2\2123q\2104)56\345 !\210\212\214\n@d}\210\346\347G7GS.\211.@;\203Q.@\202V.A@@)$\210,db\210\n\310 \241\210)\347\207" [ibegend handles begend preferred ihandles not-pref 2 mm-remove-parts point-marker gnus-unbuttonized-mime-type-p "multipart/alternative" gnus-add-text-properties format "%d. " gnus-callback lambda (handles) unless setq gnus-article-mime-handle-alist quote gnus-mime-display-alternative local-map face keymap gnus-part gnus-data widget-convert-button link gnus-widget-press-button "(%c) %-18s" 42 32 (handles) " " "\n\n" gnus-display-mime mm-display-part gnus-treat-article nil from id gnus-mime-button-map gnus-mouse-face-prop gnus-article-mouse-face gnus-article-button-face handle :action :button-keymap gnus-widget-button-keymap gnus-newsgroup-charset gnus-summary-buffer gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-article-mime-handles] 18)) from props begend not-pref ibegend] 2]) #@58 Return a string which display status of article washing. (defalias 'gnus-article-wash-status #[nil "\212q\210\306 >\307 >\310 >\311 >\305 >\304 >\303 >\302 > \312\313\2033\314\2024\315\204>\203B\316\202C\315 \204L \203P\317\202Q\315\f\203Y\320\202Z\315 \203b\321\202c\315\n\203k\322\202l\315&. \207" [gnus-article-buffer gnus-article-wash-types emphasis overstrike signature pem cite headers boring-headers pgp format "%c%c%c%c%c%c" 99 32 104 112 115 111 101 boring] 9 (#$ . 100298)]) (fset 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers) #@96 Hide unwanted headers if `gnus-have-all-headers' is nil. Provided for backwards compatibility. (defalias 'gnus-article-maybe-hide-headers #[nil "\211\205\304 !\205\305\304 !!)\203\212q\210\n)?\205& ?\205&\306 \207" [gnus-summary-buffer buffer gnus-have-all-headers gnus-inhibit-hiding get-buffer buffer-name gnus-article-hide-headers] 4 (#$ . 100900)]) #@55 Append the current article to a file named FILE-NAME. (defalias 'gnus-output-to-file #[(file-name) "p\303\304\305!!\306\216r q\210\307!\210db\210\310c\210\311ed\n#\210,\312\207" [artbuf #1=#:temp-buffer file-name get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring "\n" mm-append-to-file t] 4 (#$ . 101270)]) #@88 Narrow the article buffer to a page. If given a numerical ARG, move forward ARG pages. (defalias 'gnus-narrow-to-page #[(&optional arg) "\203\n\304!\202 \305\212 q\210eb\210~\210\306\307!\203&\310\311\312!\210\311\313!\210)\305W\2038\314 \310\315\316!T$\202D\305V\203K\317 \310\315$\203K\305\225b\210`\317 \310\315#\203Y\305\224\202Z`}\210\306\307!\203pe\320U\204p\212eb\210\321 \210)\306\307!\205\206d\322\\\323 W\205\206\212db\210\324 ))\207" [arg gnus-article-buffer buffer-read-only page-delimiter prefix-numeric-value 0 gnus-visual-p page-marker nil gnus-remove-text-with-property gnus-prev gnus-next re-search-backward move abs re-search-forward 1 gnus-insert-prev-page-button 2 buffer-size gnus-insert-next-page-button] 6 (#$ . 101693) "P"]) #@36 Show the next page of the article. (defalias 'gnus-article-goto-next-page #[nil "\300 \205eb\210\301\302\303\304!\"\207" [gnus-article-next-page gnus-article-read-summary-keys nil gnus-character-to-event 110] 4 (#$ . 102469) nil]) #@36 Show the next page of the article. (defalias 'gnus-article-goto-prev-page #[nil "o\203 \300\301\302\303!\"\207\304\301!\207" [gnus-article-read-summary-keys nil gnus-character-to-event 112 gnus-article-prev-page] 4 (#$ . 102708) nil]) #@152 Show the next page of the current article. If end of article, return non-nil. Otherwise return nil. Argument LINES specifies lines to be scrolled up. (defalias 'gnus-article-next-page #[(&optional lines) "\302\303!\210\212\304\210\305 \205m)\203*\203\"\212\214~\210\306y\210m*\203$\307\207\310\306!\210\304\207\304\304\311\312\217\210)\302\313!\210\304\207" [gnus-page-broken scroll-in-place move-to-window-line -1 nil pos-visible-in-window-p 1 t gnus-narrow-to-page (scroll-up lines) ((end-of-buffer (byte-code "db\207" [] 1))) 0] 3 (#$ . 102951) "p"]) #@92 Show previous page of current article. Argument LINES specifies lines to be scrolled down. (defalias 'gnus-article-prev-page #[(&optional lines) "\302\303!\210\203o\203\214~\210o)\204\304\305!\210db\210\306\305!\207\307\307\310\311\217\302\303!\210)\207" [gnus-page-broken scroll-in-place move-to-window-line 0 gnus-narrow-to-page -1 recenter nil (scroll-down lines) ((beginning-of-buffer (byte-code "eb\207" [] 1)))] 3 (#$ . 103520) "p"]) #@52 Read article specified by message-id around point. (defalias 'gnus-article-refer-article #[nil "`\303\304\305\306#\210\307\310\305\306#\203!\311\312!b\210\nq\210\313 !)\202'`b\210\314\315!)\207" [point message-id gnus-summary-buffer search-forward ">" nil t re-search-backward "\\(<[^<> \n]+>\\)" match-string 1 gnus-summary-refer-article error "No references around point"] 4 (#$ . 103974) nil]) #@45 Reconfigure windows to show summary buffer. (defalias 'gnus-article-show-summary #[nil "\211\205\303 !\205\304\303 !!)\204\305\306!\207\307 \210\310\311!\210\312\n!\210\313 \207" [gnus-summary-buffer buffer gnus-current-article get-buffer buffer-name 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 (#$ . 104383) nil]) #@41 Describe article mode commands briefly. (defalias 'gnus-article-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 6 substitute-command-keys "\\\\[gnus-article-goto-next-page]:Next page \\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help"] 4 (#$ . 104840) nil]) #@51 Execute the last keystroke in the summary buffer. (defalias 'gnus-article-summary-command #[nil "p\304 \305\306 \307\"\210\310\311 \312 \"\313!\210\nq\210\314 !\210\315\316p!`\"+\207" [func owin obuf gnus-article-current-summary current-window-configuration nil switch-to-buffer norecord lookup-key current-local-map this-command-keys call-interactively set-window-configuration set-window-point get-buffer-window] 3 (#$ . 105257) nil]) #@51 Execute the last keystroke in the summary buffer. (defalias 'gnus-article-summary-command-nosave #[nil "\302\303 \304\"\210\305\306 \307 \"\310!)\207" [func gnus-article-current-summary nil pop-to-buffer norecord lookup-key current-local-map this-command-keys call-interactively] 3 (#$ . 105705) nil]) #@35 Beep if not in an article buffer. (defalias 'gnus-article-check-buffer #[nil "\301\232?\205\n\302\303!\207" [major-mode gnus-article-mode error "Command invoked outside of a Gnus article buffer"] 2 (#$ . 106016)]) #@76 Read a summary buffer key sequence and execute it from the article buffer. (defalias 'gnus-article-read-summary-keys #[(&optional arg key not-restore-window) "\306 \210\307\310\311\312\313\211\212!q\210\313\"#\206$%B%&\2030\314\315\313!!\2023\315\313!*\316\317!\210 \235\204K \f\235\204K \235\203|\313'\320\213\210'\204\\\321 \210\202m \235\204f!q\210\322'!\210` \f\235\205x\323(\324\")\202 p\325 `!\313\211\211)*'+,-./\203\241\323+\324\"\210\202\247\326+\324\"\210p*\313\"\327\330 \")\211'\203\303\322'!\210`\202\306\321 \210*p=\205\331 ).q\210/\204\337\332-!\210)\333=\203\367\334 \210\335\336p!\337\"\210\340\336p!`\"\210\336!!\2110\205\3400\")..\207" [new-sum-point keys up-to-top nosave-in-article nosave-but-article nosaves gnus-article-check-buffer ("q" "Q" "c" "r" "R" "" "m" "a" "f" "F" "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP" "=" "^" "\336" "|") ("A ") ("") ("n" "Gn" "p" "Gp") nil events-to-keys read-key-sequence message "" ((byte-code "\304\305\"\210\306\307\310 \n\")\306\207" [gnus-article-current-summary gnus-pick-mode keys func pop-to-buffer norecord nil lookup-key current-local-map] 3)) ding call-interactively pop-to-buffer norecord current-window-configuration switch-to-buffer lookup-key current-local-map gnus-summary-select-article set-window-configuration old article-goto-body set-window-start get-buffer-window 1 set-window-point gnus-article-current-summary gnus-pick-mode key last-command-event unread-command-events gnus-xemacs func gnus-article-buffer selected in-buffer summary opoint owin obuf not-restore-window win] 8 (#$ . 106238) "P"]) #@178 Hide all the gruft in the current article. This means that PGP stuff, signatures, cited text and (some) headers will be hidden. If given a prefix, show the hidden text instead. (defalias 'gnus-article-hide #[(&optional arg force) "\302!\210\303!\210\304!\210\305 \"\210\306!\207" [arg force gnus-article-hide-headers gnus-article-hide-list-identifiers gnus-article-hide-pgp gnus-article-hide-citation-maybe gnus-article-hide-signature] 3 (#$ . 107909) (byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3)]) #@68 Do some article highlighting if article highlighting is requested. (defalias 'gnus-article-maybe-highlight #[nil "\300\301\302\"\205 \303 \207" [gnus-visual-p article-highlight highlight gnus-article-highlight-some] 3 (#$ . 108450)]) (defalias 'gnus-check-group-server #[nil "\301\302!!?\205\303\302!!\210\304\305\"\207" [gnus-newsgroup-name gnus-server-opened gnus-find-method-for-group gnus-check-server gnus-request-group t] 3]) #@48 Get an article and insert it into this buffer. (defalias 'gnus-request-article-this-buffer #[(article group) "\306\211\212\307 \210\310 \210\n\206 \f;\203\311\f!\210\f\247\203\277 \203\277\312 !\203\277 \211.\205>.;\203:\312\202;\313.!)\203\277\212 q\210\314\f/\23680\f\315W\203\206\f1>\203p\f0\316H\311\f!\317\f1\"1\202\206\3200!\2030\316H\202\206\321\3220!\210\323 !\2112@\324=\203\276\3200!\203\276\325\3262\236A@\206\2472A@!0\327HP3\3303!\203\275\324\3313!\210)+\f\247\203\373 \203\373\312 !\203\373 \211.\205\343.;\203\337\312\202\340\313.!)\203\373\212 q\210\f4\236)A5=\203\373\306\202 \3126!\203&\f\247\203&\2126q\2107@\n\232\2057A\f=)\203&\3326!\210\304\202 8\2037\333\n\fp#\2037\304\202 \334\n\fp#\203Y\335\n\f #\210\f\247\203U8\203U\336\n\fp#\210\304\202 9\203n\f\247\203n\337\f\n\"\203n\304\202 \f;\204x\f\247\203\f:\f;\205\201;\306\211<=>:><\203\231\317\340>\"\202\234>C>:\204\261>\203\261>\211A>@:=\204\307 \210\310 \210\n\341 \210)\342\f\np#\203\343\f\247\203\340\335\n\f #\2108\203\340\336\n\fp#\210\304==\204\261>\203\371>\211A>@:\202\261\343\211=\203\266=\304=\205\304,\202 \f) ?\312@!\203]\313p!\313\312@!!\232\203]\212\3126!\20346q\210\202C\3446!q\210\345 \210\346A\347<\306<\307 \210\332@!\210)\n\fB7)\350\351!\210)B \203\211\f\247\204k\f;\203\211pC q\210\352 \"\210\353 \306\347#\210\354\355p\347\"`\"\210Cq\210)*\207" [sparse-header do-update-line group gnus-newsgroup-name article gnus-summary-buffer nil erase-buffer gnus-kill-all-overlays gnus-read-header get-buffer buffer-name 3 0 4 delq vectorp pseudo gnus-request-pseudo-article gnus-find-method-for-group nneething file-name-as-directory nneething-address 1 file-directory-p gnus-group-enter-directory insert-buffer-substring gnus-backlog-request-article gnus-async-request-fetched-article gnus-async-prefetch-next gnus-backlog-enter-article gnus-cache-request-article current gnus-check-group-server gnus-request-article done gnus-get-buffer-create buffer-disable-undo gnus-original-article-mode t run-hooks gnus-article-decode-hook gnus-summary-update-article gnus-summary-goto-subject set-window-point get-buffer-window buffer gnus-newsgroup-data header gnus-newsgroup-sparse method dir gnus-newsgroup-reads gnus-canceled-mark gnus-original-article-buffer gnus-original-article gnus-keep-backlog gnus-use-cache gnus-override-method gnus-refer-article-method buffer-read-only result methods gnus-article-current-summary gnus-article-buffer major-mode gnus-article-decoded-p buf] 6 (#$ . 108894)]) #@40 Hook run in article edit mode buffers. (custom-declare-variable 'gnus-article-edit-mode-hook 'nil '(#$ . 111536) :group 'gnus-article-various :type 'hook) (byte-code "\304\300!\204\305\300 B\304\302!\204\305\302 B\n\204.\306 \307\n \"\210\310\302\311\"\210\310\312\313\"\210\305\207" [gnus-article-edit-done-function current-load-list gnus-article-edit-mode-map text-mode-map boundp nil make-sparse-keymap set-keymap-parent gnus-define-keys-1 ("" gnus-article-edit-done " " gnus-article-edit-exit) (gnus-article-edit-wash-map "" gnus-article-edit-mode-map) ("f" gnus-article-edit-full-stops)] 3) #@96 Major mode for editing articles. This is an extended text-mode. \{gnus-article-edit-mode-map} (defalias 'gnus-article-edit-mode #[nil "\304\305\306\n!\210\307\310!\210\307\311!\210\312\313 \210~\210\314\315\316\"\207" [major-mode mode-name gnus-article-edit-mode-map buffer-read-only gnus-article-edit-mode "Article Edit" use-local-map make-local-variable gnus-article-edit-done-function gnus-prev-winconf nil buffer-enable-undo gnus-run-hooks text-mode-hook gnus-article-edit-mode-hook] 3 (#$ . 112153) nil]) #@153 Edit the current article. This will have permanent effect only in mail groups. If FORCE is non-nil, allow editing of articles even in read-only groups. (defalias 'gnus-article-edit #[(&optional force) "\204 \303 \203 \304\305!\210\306 \210\307\310\311\312\313\314 \315H\206\316\303 \n\317BBBBF\"\207" [force gnus-current-headers gnus-summary-buffer gnus-group-read-only-p error "The current newsgroup does not support article editing" gnus-article-date-original gnus-article-edit-article ignore lambda (no-highlight) 'ignore gnus-summary-edit-article-done 5 "" (no-highlight)] 10 (#$ . 112674) "P"]) #@59 Start editing the contents of the current article buffer. (defalias 'gnus-article-edit-article #[(start-func exit-func) "\306  q\210\307 \210\n \210\310\311!\210 \312\313\314\")\207" [winconf gnus-article-buffer start-func exit-func gnus-article-edit-done-function gnus-prev-winconf current-window-configuration gnus-article-edit-mode gnus-configure-windows edit-article gnus-message 6 "C-c C-c to end edits"] 3 (#$ . 113285)]) #@36 Update the article edits and exit. (defalias 'gnus-article-edit-done #[(&optional arg) "\212\214~\210\306 \203[\307`d\"d`Z\310\311`!eb\210\312\313\310#\203.\314\224\314\225|\210\315\n!c\210eb\210\312\316\310#\203D\314\224\314\225|\210\315\n!c\210eb\210\312\317\310#\203Z\314\224\314\225|\210\315 !c\210,*\fp\320 \321 \210\212q\210\322!\210)\203\205\323@A\"\210\212\324!\203\224q\210\322 )!\203\243\325@A\"\210)q\210\326\327! \"\210\330\327!`\"+\207" [body case-fold-search length lines gnus-article-edit-done-function start article-goto-body count-lines t copy-marker re-search-forward "^content-length:[ ]\\([0-9]+\\)" 1 number-to-string "^x-content-length:[ ]\\([0-9]+\\)" "^lines:[ ]\\([0-9]+\\)" window-start gnus-article-edit-exit nil gnus-backlog-remove-article get-buffer gnus-cache-update-article set-window-start get-buffer-window set-window-point buf func buffer-read-only arg gnus-keep-backlog gnus-article-current gnus-original-article-buffer gnus-original-article gnus-use-cache] 5 (#$ . 113723) "P"]) #@44 Exit the article editing without updating. (defalias 'gnus-article-edit-exit #[nil "\306\307\310 \"p`\300 \311 \210 c\210\f\312 \210\313 !\210r\nq\210\314\315p!\"\210 b.\207" [window-start p curbuf buf gnus-prev-winconf winconf format "%s" buffer-string erase-buffer gnus-article-mode set-window-configuration set-window-start get-buffer-window] 4 (#$ . 114796) nil]) #@51 Interactively repair spacing at end of sentences. (defalias 'gnus-article-edit-full-stops #[nil "\212eb\210\301\302\303\304#\210\303\305\306\307\"*\207" [case-fold-search search-forward-regexp "^$" nil t query-replace-regexp "\\([.!?][])}]* \\)\\([[({A-Z]\\)" "\\1 \\2"] 4 (#$ . 115177) nil]) #@39 Regular expression that matches URLs. (custom-declare-variable 'gnus-button-url-regexp '"\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)" '(#$ . 115477) :group 'gnus-article-buttons :type 'regexp) #@590 *Alist of regexps matching buttons in article bodies. Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where REGEXP: is the string matching text around the button, BUTTON: is the number of the regexp grouping actually matching the button, FORM: is a lisp expression which must eval to true for the button to be added, CALLBACK: is the function to call when the user push this button, and each PAR: is a number of a regexp grouping whose text will be passed to CALLBACK. CALLBACK can also be a variable, in that case the value of that variable it the real callback function. (custom-declare-variable 'gnus-button-alist '`(("<\\(url:[>\n ]*?\\)?news:[>\n ]*\\([^>\n ]*@[^>\n ]*\\)>" 0 t gnus-button-message-id 2) ("\\bnews:\\([^>\n ]*@[^>)!;:,\n ]*\\)" 0 t gnus-button-message-id 1) ("\\(\\b<\\(url:[>\n ]*\\)?news:[>\n ]*\\(//\\)?\\([^>\n ]*\\)>\\)" 1 t gnus-button-fetch-group 4) ("\\bnews:\\(//\\)?\\([^'\">\n ]+\\)" 0 t gnus-button-fetch-group 2) ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\( \n ]+\\)>" 0 t gnus-url-mailto 2) ("mailto:\\([-a-zA-Z.@_+0-9%]+\\)" 0 t gnus-url-mailto 1) ("\\bmailto:\\([^ \n ]+\\)" 0 t gnus-url-mailto 1) ("]*\\)>" 0 t gnus-button-embedded-url 1) (,gnus-button-url-regexp 0 t browse-url 0)) '(#$ . -115822) :group 'gnus-article-buttons :type '(repeat (list regexp (integer :tag "Button") (sexp :tag "Form") (function :tag "Callback") (repeat :tag "Par" :inline t (integer :tag "Regexp group"))))) #@328 *Alist of headers and regexps to match buttons in article heads. This alist is very similar to `gnus-button-alist', except that each alist has an additional HEADER element first in each entry: (HEADER REGEXP BUTTON FORM CALLBACK PAR) HEADER is a regexp to match a header. For a fuller explanation, see `gnus-button-alist'. (custom-declare-variable 'gnus-header-button-alist '`(("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>" 0 t gnus-button-message-id 0) ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1) ("^\\(Cc\\|To\\):" "[^ \n<>,()\"]+@[^ \n<>,()\"]+" 0 t gnus-button-mailto 0) ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t browse-url 0) ("^Subject:" ,gnus-button-url-regexp 0 t browse-url 0) ("^[^:]+:" ,gnus-button-url-regexp 0 t browse-url 0) ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t gnus-button-message-id 3)) '(#$ . -117387) :group 'gnus-article-buttons :group 'gnus-article-headers :type '(repeat (list (regexp :tag "Header") regexp (integer :tag "Button") (sexp :tag "Form") (function :tag "Callback") (repeat :tag "Par" :inline t (integer :tag "Regexp group"))))) (byte-code "\304\300!\204\305\300 B\304\302!\204\305\302 B\304\303!\204 \305\303 B\305\207" [gnus-button-regexp current-load-list gnus-button-marker-list gnus-button-last boundp nil] 2) #@186 Check text under the mouse pointer for a callback function. If the text under the mouse pointer has a `gnus-callback' property, call it with the value of the `gnus-data' text property. (defalias 'gnus-article-push-button #[(event) "\305\211A@)\211@)!q\210\211A@)\211A@:\203# A@@\202& A@)\306\n\307\"\306\n\310\"\nb\210\f\205<\f !+\207" [event position pos data fun window-buffer get-text-property gnus-data gnus-callback] 4 (#$ . 118708) "e"]) #@156 Check text at point for a callback function. If the text at point has a `gnus-callback' property, call it with the value of the `gnus-data' text property. (defalias 'gnus-article-press-button #[nil "\302`\303\"\302`\304\"\211\205 !*\207" [data fun get-text-property gnus-data gnus-callback] 4 (#$ . 119171) nil]) #@252 Highlight current article. This function calls `gnus-article-highlight-headers', `gnus-article-highlight-citation', `gnus-article-highlight-signature', and `gnus-article-add-buttons' to do the highlighting. See the documentation for those functions. (defalias 'gnus-article-highlight #[(&optional force) "\301 \210\302!\210\303 \210\304!\210\305 \207" [force gnus-article-highlight-headers gnus-article-highlight-citation gnus-article-highlight-signature gnus-article-add-buttons gnus-article-add-buttons-to-head] 2 (#$ . 119496) (list 'force)]) #@217 Highlight current article. This function calls `gnus-article-highlight-headers', `gnus-article-highlight-signature', and `gnus-article-add-buttons' to do the highlighting. See the documentation for those functions. (defalias 'gnus-article-highlight-some #[(&optional force) "\300 \210\301 \210\302 \207" [gnus-article-highlight-headers gnus-article-highlight-signature gnus-article-add-buttons] 1 (#$ . 120052) (list 'force)]) #@69 Highlight article headers as specified by `gnus-header-face-alist'. (defalias 'gnus-article-highlight-headers #[nil "\212q\210\214 \306\307\211\306\211\211\211\211\211\211\310 \210\211A@\211\205\263eb\210\311@\312\230\203B\313\202E@\314QA@\3158\316\306\307#\203%m\204%\317y\210`\320\321\306\307#\204q\322u\210\203\210` >\204\210` B\323\f`\324$\210 \203T`\211\n>\204T\f\nB\316\325\306\307#\203\246\326u\210\202\251db\210\323\f`\324 $\210\202T. \207" [gnus-article-buffer gnus-header-face-alist fpoints hpoints from field-face nil t article-narrow-to-head "^\\(" "" "[^ ]" "\\)" 2 re-search-forward 0 search-forward ":" 1 gnus-put-text-property face "^[^ ]" -2 header-face regexp entry inhibit-point-motion-hooks case-fold-search buffer-read-only alist] 11 (#$ . 120486) nil]) #@142 Highlight the signature in an article. It does this by highlighting everything after `gnus-signature-separator' using `gnus-signature-face'. (defalias 'gnus-article-highlight-signature #[nil "\212q\210\306\307\214 \2053\310 \2053\311\312ed\"\313 #\210~\210\314 \210\315\224\316 \315\225T\306\223\317 \fS\320\f$*,\207" [gnus-article-buffer inhibit-point-motion-hooks buffer-read-only gnus-signature-face end start nil t gnus-article-narrow-to-signature gnus-overlay-put gnus-make-overlay face gnus-article-search-signature 0 make-marker gnus-article-add-button gnus-signature-toggle] 5 (#$ . 121331) nil]) #@40 Say whether PROP exists in the region. (defalias 'gnus-button-in-region-p #[(b e prop) "\303 \n\304$\207" [b e prop text-property-not-all nil] 5 (#$ . 121949)]) #@164 Find external references in the article and make buttons of them. "External references" are things like Message-IDs and URLs, as specified by `gnus-button-alist'. (defalias 'gnus-article-add-buttons #[(&optional force) "\212q\210\306\307\211 \306\211\211\306\211\211\211A@\211\203ceW\2048dY\203BB\202b\210\310 \211\203Z\311 A@\224 A@\225\312\306$\210\306\211\223\210\202+\313 \210` \211A@\211\205\320 @\fb\210\314\n\306\307#\203m \205\215 A@\224 \205\227 A@\225\315\224\316 8\307=\204\255\317\316 8!\203\314\320\312#\204\314\321\322\323 \306\223B\211@$\210+\202}.\207" [gnus-article-buffer gnus-button-alist regexp entry beg alist nil t gnus-button-entry put-text-property gnus-callback article-goto-body re-search-forward 0 2 eval gnus-button-in-region-p gnus-article-add-button gnus-button-push make-marker case-fold-search inhibit-point-motion-hooks buffer-read-only new-list marker gnus-button-marker-list start end from] 7 (#$ . 122118) (list 'force)]) #@41 Add buttons to the head of the article. (defalias 'gnus-article-add-buttons-to-head #[nil "\212q\210\214\306\307\211 \306\211\211\310 \210 \205\210 @ Aeb\210\311\f@\306\307#\203\312\224\311\313\306\307#\203?\312\224\206@d b\210\311\fA@\n\307#\203\202\fA\211A@\224\fA@\225\314\f8\312\225b\210\315!\203~\316\n\317\f8\320\f8\224\320\f8\225{$\210,\202D\nb\210\202&. \207" [gnus-article-buffer gnus-header-button-alist end beg entry alist nil t article-narrow-to-head re-search-forward 0 "^[^ ]" 2 eval gnus-article-add-button 3 4 case-fold-search inhibit-point-motion-hooks buffer-read-only start form] 8 (#$ . 123164) nil]) #@70 Create a button between FROM and TO with callback FUN and data DATA. (defalias 'gnus-article-add-button #[(from to fun &optional data) "\203 \306\307 \n\"\310#\210\311 \n \205\f D\312 D\244\205$\313D\244#\210\314\315 \n\316&\207" [gnus-article-button-face from to gnus-article-mouse-face gnus-mouse-face-prop fun gnus-overlay-put gnus-make-overlay face gnus-add-text-properties gnus-callback gnus-data widget-convert-button link gnus-widget-press-button data :action :button-keymap gnus-widget-button-keymap] 8 (#$ . 123826)]) (defalias 'gnus-article-set-globals #[nil "\212q\210\301 )\207" [gnus-summary-buffer gnus-set-global-variables] 1]) (defalias 'gnus-signature-toggle #[(end) "\212q\210\306\307\310 \311\"\203. d\312 \f#\210\313>\205*\314 Se] \313\306$*\202S d\315 \f#\210\313>\205R\314 Se] \313\211>AA$++\207" [gnus-article-buffer inhibit-point-motion-hooks buffer-read-only end e b nil t get-text-property invisible remove-text-properties intangible put-text-property add-text-properties gnus-hidden-properties props] 6]) (defalias 'gnus-button-entry #[nil "\303\n\203 \n\211A@\304 @!\203\303\211\202\303\202 *\207" [gnus-button-alist entry alist nil looking-at] 3]) (defalias 'gnus-button-push #[(marker) "\212b\210\305 \306\307 8\310\311\312 \233\"\313 !\203!\314 \f\"\202=\315 !\2036\313 J!\2036\314 J\f\"\202=\316\317\320 \fB#-\207" [marker entry inhibit-point-motion-hooks fun args gnus-button-entry t 3 mapcar #[(group) "\302!\303\304 G\305 $\210 )\207" [group string match-string gnus-set-text-properties 0 nil] 5] 4 fboundp apply boundp gnus-message 1 "You must define `%S' to use this button"] 5]) #@19 Fetch MESSAGE-ID. (defalias 'gnus-button-message-id #[(message-id) "\212q\210\302 !)\207" [gnus-summary-buffer message-id gnus-summary-refer-article] 2 (#$ . 125518)]) #@35 Fetch GROUP specified by ADDRESS. (defalias 'gnus-button-fetch-group #[(address) "\302\303\"\204\f\304 \"\207\302\305\"\204\306\307\"\207\304\310\311\"\312\310\313\"\314\310\313\"D\315\316\225\2035\310\316\"\2026\317DF\"\207" [address gnus-select-method string-match "[:/]" gnus-group-read-ephemeral-group "^\\([^:/]+\\)\\(:\\([^/]+\\)/\\)?\\(.*\\)$" error "Can't parse %s" match-string 4 nntp 1 nntp-address nntp-port-number 3 "nntp"] 9 (#$ . 125693)]) (defalias 'gnus-url-parse-query-string #[(query &optional downcase) "\306\211\211\211\211\307 \310\" \203T @ A\311\312\n\"\203\313\n\314\211\224O!\313\n\314\225\306O!\2038 \227\315 \f\"\211\203K\n\nAB\241\210\202 D\fB\202\f-\207" [val key cur pairs retval query nil split-string "&" string-match "=" gnus-url-unhex-string 0 assoc downcase] 6]) (defalias 'gnus-url-unhex #[(x) "\301V\203\302Y\203\302Z\303\\\207\304Z\303\\\207\305Z\207" [x 57 97 10 65 48] 2]) #@218 Remove %XXX embedded spaces, etc in a url. If optional second argument ALLOW-NEWLINES is non-nil, then allow the decoding of carriage returns and line feeds in the string, which is normally forbidden in URL encoding. (defalias 'gnus-url-unhex-string #[(str &optional allow-newlines) "\206\306\306\307\310\311\"\203V\312\224\313 T\234!\211\314_\313 \315\\\234!\\\n\312 O\2037\316 !\202J \317U\204C \320U\203G\321\202J\316 !Q\312\225\322O+\202\n\nP\211*\207" [str case-fold-search tmp start ch1 code "" t string-match "%[0-9a-f][0-9a-f]" 0 gnus-url-unhex 16 2 char-to-string 10 13 " " nil allow-newlines] 6 (#$ . 126661)]) (defalias 'gnus-url-mailto #[(url) "\305\306\"\203 \307\224\310O\310\211\211\211\305\311\312!\"\2032\313\314\211\224O!\315\314\225\310O\316\"\2026\313!\317\fD B\320\321 \"\243\322 \210 \203t\323\324 @@\227P!\325 !\203^ \210\202d\326 @@!\210\327\330 @A\331#c\210 A\211\204I\n\203}\332 \202\333 ,\207" [url func subject args to string-match "mailto:/*\\(.*\\)" 1 nil regexp-quote "?" gnus-url-unhex-string 0 gnus-url-parse-query-string t "to" assoc "subject" message-mail intern-soft "message-goto-" fboundp message-position-on-field mapconcat identity ", " message-goto-body message-goto-subject] 5]) (defalias 'gnus-button-mailto #[(address) "\301 q\210\302!\207" [address gnus-copy-article-buffer message-reply] 2]) (defalias 'gnus-button-reply #[(address) "\301!\207" [address message-reply] 2]) #@17 Browse ADDRESS. (defalias 'gnus-button-embedded-url #[(address) "\301\302!!\207" [address browse-url gnus-strip-whitespace] 3 (#$ . 128144)]) (byte-code "\305\300!\204\306\300 B\305\302!\204\307\302 B\305\303!\204 \310\303 B \2047\311 \312 \f\313#\210\312 \314\313#\210\310\207" [gnus-next-page-line-format current-load-list gnus-prev-page-line-format gnus-prev-page-map gnus-mouse-2 boundp "%{%(Next page...%)%}\n" "%{%(Previous page...%)%}\n" nil make-sparse-keymap define-key gnus-button-prev-page " "] 4) (defalias 'gnus-insert-prev-page-button #[nil "\303\304 \303\305\306\307\n\310BBBB#)\207" [buffer-read-only gnus-prev-page-line-format gnus-prev-page-map nil gnus-eval-format gnus-prev t local-map (gnus-callback gnus-article-button-prev-page article-type annotation)] 8]) (byte-code "\304\300!\204\305\300 B\204#\306 \307\n!\210\310 \311#\210\310\312\311#\210\305\207" [gnus-next-page-map current-load-list gnus-prev-page-map gnus-mouse-2 boundp nil make-keymap suppress-keymap define-key gnus-button-next-page " "] 4) #@22 Go to the next page. (defalias 'gnus-button-next-page #[nil "\302 \303\304 \305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window get-buffer-window t gnus-article-next-page] 4 (#$ . 129202) nil]) #@22 Go to the prev page. (defalias 'gnus-button-prev-page #[nil "\302 \303\304 \305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window get-buffer-window t gnus-article-prev-page] 4 (#$ . 129438) nil]) (defalias 'gnus-insert-next-page-button #[nil "\303\304 \303\305\306\307\n\310BBBB#)\207" [buffer-read-only gnus-next-page-line-format gnus-next-page-map nil gnus-eval-format gnus-next t local-map (gnus-callback gnus-article-button-next-page article-type annotation)] 8]) #@22 Go to the next page. (defalias 'gnus-article-button-next-page #[(arg) "\302 \303\304 \305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window get-buffer-window t gnus-article-next-page] 4 (#$ . 129947) "P"]) #@22 Go to the prev page. (defalias 'gnus-article-button-prev-page #[(arg) "\302 \303\304 \305\"!\210\306 \210\303!)\207" [win gnus-article-buffer selected-window select-window get-buffer-window t gnus-article-prev-page] 4 (#$ . 130193) "P"]) #@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 apply to all newsgroups. If item is a (REGEXP . FUNCTION), FUNCTION will be only apply to thes 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) (#$ . 130440)) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-decode-header-methods-cache current-load-list boundp nil] 2) #@66 Apply the functions from `gnus-encoded-word-methods' that match. (defalias 'gnus-multi-decode-header #[(start end) "\203 @=\204 C\306\307\n\"\210\211A\214\f }\210 \205- \211A@ed\"\210\202*\207" [gnus-decode-header-methods-cache gnus-newsgroup-name gnus-decode-header-methods xlist start end mapcar #[(x) "9\203\n C\244\207\n\205\303@\n\"\205 AC\244\207" [x gnus-decode-header-methods-cache gnus-newsgroup-name string-match] 3]] 4 (#$ . 131062)]) (defalias 'gnus-treat-article #[(condition &optional part-number total-parts type) "deZ\306 ?\206 \307\310\215\311\312\313\"\314\211\315\316!\210\211A@\211\205U\n@J\211:\204: \203!\317 !\203!\n@\313N\203K\f\203!\214\nA@ \210)\202!.\207" [gnus-treatment-function-alist type elem val highlightp treated-type t found (byte-code " \205\303 \211A@\n\"\203\304\305\306\"\210\202)\207" [gnus-article-treat-types list type string-match throw found t] 3) gnus-visual-p article-highlight highlight nil gnus-run-hooks gnus-part-display-hook gnus-treat-predicate article-goto-body-goes-to-point-min-p alist length] 8]) (byte-code "\301B\302B\303B\304B\305B\301\207" [current-load-list part-number total-parts type condition length] 2) (defalias 'gnus-treat-predicate #[(val) "\204\306\207<\203#@;\203#\307\310\311\312\313\314\315 \206\316EE\"\"\207<\203o\211A@\211\317=\203>\307\310\311\320\"\"\202m\n\321=\203N\307\322\311\320\"\"\202m\n\323=\203\\\320@!?\202m\n\324=\203i@ \232\202m\325\326\n\")\207\f\203w\f=\207\327=\203\327\207\330=\203\207\306\207\331=\203\222 =\207\247\203\234W\207\325\332\"\207" [val gnus-newsgroup-name pred type condition part-number nil apply gnus-or mapcar lambda (s) string-match s "" or gnus-treat-predicate and gnus-and not typep error "%S is not a valid predicate" t head last "%S is not a valid value" total-parts length] 9]) (byte-code "\300 \210\301\302!\210\303\304!\207" [gnus-ems-redefine provide gnus-art run-hooks gnus-art-load-hook] 2)