;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:01 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/rmailsum.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`rmailsum.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'rmail) #@69 *Non-nil means Rmail summary scroll commands move between messages. (custom-declare-variable 'rmail-summary-scroll-between-messages 't '(#$ . -640) :type 'boolean :group 'rmail-summary) #@76 *Non-nil if Rmail summary should show the number of lines in each message. (custom-declare-variable 'rmail-summary-line-count-flag 't '(#$ . -832) :type 'boolean :group 'rmail-summary) #@60 Additional expressions to highlight in Rmail Summary mode. (defvar rmail-summary-font-lock-keywords '(("^....D.*" . font-lock-string-face) ("^....-.*" . font-lock-type-face) ("^....[^D-] \\(......\\)" 1 font-lock-keyword-face) ("{ \\([^\n}]+\\),}" 1 font-lock-comment-face)) (#$ . 1023)) (defalias 'rmail-update-summary #[(&rest ignore) "\301@A\"\207" [rmail-summary-redo apply] 3]) #@58 Display a summary of all messages, one line per message. (defalias 'rmail-summary #[nil "\300\301\302\303#\207" [rmail-new-summary "All" (rmail-summary) nil] 4 (#$ . 1414) nil]) #@138 Display a summary of all messages with one or more LABELS. LABELS should be a string containing the desired labels, separated by commas. (defalias 'rmail-summary-by-labels #[(labels) "\302\230\203 \206 \303\304!\305\306P\307D\310\311\312!\313Q$\207" [labels rmail-last-multi-labels "" error "No label specified" rmail-new-summary "labels " rmail-summary-by-labels rmail-message-labels-p ", \\(" mail-comma-list-regexp "\\),"] 7 (#$ . 1599) "sLabels to summarize by: "]) #@261 Display a summary of all messages with the given RECIPIENTS. Normally checks the To, From and Cc fields of headers; but if PRIMARY-ONLY is non-nil (prefix arg given), only look in the To and From fields. RECIPIENTS is a string of regexps separated by commas. (defalias 'rmail-summary-by-recipients #[(recipients &optional primary-only) "\302\303P\304 E\305\306! %\207" [recipients primary-only rmail-new-summary "recipients " rmail-summary-by-recipients rmail-message-recipients-p mail-comma-list-regexp] 6 (#$ . 2086) "sRecipients to summarize by: \nP"]) #@251 Display a summary of all messages according to regexp REGEXP. If the regular expression is found in the header of the message (including in the date and other lines, as well as the subject line), Emacs will list the header line in the RMAIL-summary. (defalias 'rmail-summary-by-regexp #[(regexp) "\302\230\203 \206 \303\304!\305\306P\307D\310$\207" [regexp rmail-last-regexp "" error "No regexp specified" rmail-new-summary "regexp " rmail-summary-by-regexp rmail-message-regexp-p] 5 (#$ . 2653) "sRegexp to summarize by: "]) #@238 Display a summary of all messages with the given SUBJECT. Normally checks the Subject field of headers; but if WHOLE-MESSAGE is non-nil (prefix arg given), look in the whole message. SUBJECT is a string of regexps separated by commas. (defalias 'rmail-summary-by-topic #[(subject &optional whole-message) "\302\303P\304 E\305\306! %\207" [subject whole-message rmail-new-summary "about " rmail-summary-by-topic rmail-message-subject-p mail-comma-list-regexp] 6 (#$ . 3196) "sTopics to summarize by: \nP"]) (defalias 'rmail-message-subject-p #[(msg subject &optional whole-message) "\214\305!b\210\306\307\310!\311#\210`\306 \203\312\202\313!\210`}\210eb\210 \203-\314\n\315\316#\202@\317\n\320\321!\211\203=\f !\202>\322)\")\207" [msg whole-message subject subj rmail-summary-line-decoder rmail-msgbeg search-forward "\n*** EOOH ***\n" rmail-msgend move "" "\n\n" re-search-forward nil t string-match mail-fetch-field "Subject" ""] 5]) #@109 Display a summary of all messages with the given SENDERS. SENDERS is a string of names separated by commas. (defalias 'rmail-summary-by-senders #[(senders) "\301\302P\303D\304\305!$\207" [senders rmail-new-summary "senders " rmail-summary-by-senders rmail-message-senders-p mail-comma-list-regexp] 6 (#$ . 4156) "sSenders to summarize by: "]) (defalias 'rmail-message-senders-p #[(msg senders) "\214\302!b\210\303\304!\210`\303\305!\210`}\210\306 \307\310!\206\311\")\207" [msg senders rmail-msgbeg search-forward "\n*** EOOH ***\n" "\n\n" string-match mail-fetch-field "From" ""] 4]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list rmail-summary-symbol-number boundp 0] 2) #@268 Create a summary of selected messages. DESCRIPTION makes part of the mode line of the summary buffer. For each message, FUNCTION is applied to the message number and ARGS... and if the result is non-nil, that message is included. nil for FUNCTION means all messages. (defalias 'rmail-new-summary #[(description redo-form function &rest args) "\306\307!\210\310\211\211\212 \311=\203\312\fq\210 \203$\313 !\203$ \202*\314\313 \315P!(\310\316)*\317\310\320 \321 +,-.\212~\210eb\210/.Y\203u0\203a\3220.1B\"\203m.\323.!B*B*.T.\202H*\237*),+}\210,\3102\203\221r3q\210\310)\212p3/456\nq\210\310-\324 \210*\203\274\325*@A\n\"\210*A\211*\204\253eb\210)\312-\311 \210\326\327!\210\312\3307PDC653894/.\n)\204L\331 \203:\203;\204\332\333 <\"\210\334\335\336 !!\210\337\n!\210\n\340\336 !=\204\341 \210\202\337\n!\210\fq\210/4\342 \203=\333 =\212\343\216\337 !\2104\210+\202E\212 q\2104\210)\344 \210) q\210\345 \312\211#\210\346 \210\306\347!+\207" [was-in-summary mesg sumbuf major-mode rmail-buffer rmail-summary-buffer message "Computing summary lines..." nil rmail-summary-mode t buffer-name generate-new-buffer "-summary" 0 1 point-min-marker point-max-marker apply rmail-make-summary-line erase-buffer princ make-local-variable minor-mode-alist ": " one-window-p split-window selected-window select-window next-window frame-first-window pop-to-buffer window-buffer delete-other-windows rmail-summary-displayed ((select-window window)) rmail-maybe-display-summary rmail-summary-goto-msg rmail-summary-construct-io-menu "Computing summary lines...done" rmail-current-message new-summary-line-count summary-msgs old-max old-min buffer-read-only msgnum rmail-total-messages function args rmail-enable-mime rmail-view-buffer total vbuf rbuf description redo-form rmail-summary-redo pop-up-windows pop-up-frames rmail-summary-window-size window] 5 (#$ . 4864)]) (defalias 'rmail-make-summary-line #[(msg) " SH\206\nT\304\n\305\246!\203\306\307\n\"\210\310 !\211\311\312 !\203'\313\2027\314 !\315\\f\316U\2036\317\2027\320I\210 )\207" [rmail-summary-vector msg new-summary-line-count line zerop 10 message "Computing summary lines...%d" rmail-make-summary-line-1 4 rmail-message-deleted-p 68 rmail-msgbeg 3 48 45 32] 5]) #@67 *Function to decode summary-line. By default, `identity' is set. (custom-declare-variable 'rmail-summary-line-decoder '#'identity '(#$ . -7181) :type 'function :group 'rmail-summary) (defalias 'rmail-make-summary-line-1 #[(msg) "\306!b\210\212\307y\210`)\310\311u\210\312\313!\210l\203\314\202&\315`\310\210`{\316Q\260\317y\210\320\321!\205>\322\225b\210`\317y\210`{\211\211\203S\323\324\f\"\204S`\325y\210`|\210\310\f\204\234\326\327!\306!b\210\312\330\326#\203p`\202t\317y\210`\312\331\310\326#\210`\214}\210b\210\332 )\306!b\210\307y\210\321\f\261\210,\323\324\f\" S!\333\334\"\f\322\nO \f\nT\310OR!I,\207" [msg lim pos labels line case-fold-search rmail-msgbeg 2 nil 3 search-forward ",," "" "{" "} " 1 looking-at "Summary-line: " 0 string-match "#" -1 t rmail-msgend "\n*** EOOH ***\n" "\n\n" rmail-make-basic-summary-line format "%4d " next beg end rmail-summary-vector rmail-summary-line-decoder] 10]) #@575 *Regexp matching user mail addresses. If non-nil, this variable is used to identify the correspondent when receiving new mail. If it matches the address of the sender, the recipient is taken as correspondent of a mail. If nil (default value), your `user-login-name' and `user-mail-address' are used to exclude yourself as correspondent. Usually you don't have to set this variable, except if you collect mails sent by you under different user names. Then it should be a regexp matching your mail addresses. Setting this variable has an effect only before reading a mail. (custom-declare-variable 'rmail-user-mail-address-regexp 'nil '(#$ . -8142) :type '(choice (const :tag "None" nil) regexp) :group 'rmail-retrieve :version "21.1") (defalias 'rmail-make-basic-summary-line #[nil "eb\210\212\306\307\310\311#\204\312\202q\306\313\212\310\210`)\311#\203/\314\315\316\317\224\317\225{!\320\224\320\225{#\202q\306\321\212\310\210`)\311#\203N\314\315\316\320\224\320\225{!\317\224\317\225{#\202q\306\322\212\310\210`)\311#\203p\314\323\317\224\317\225{\324\224\324\225{\320\224\320\225{$\202q\325)\326\212\306\327\310\311#\204\200\330\202(\331`S`\332y\210\333\334!\204\205\335u\210\336\310x\210`){!\310\310\310\337 \206\300\340\341\342 !\343\341@\206\274\342 \344A\206\273\345 Q!\346\260 \"\203\341\212eb\210\306\347\310\311#\203\340\350\331`\310\210\336\310x\210`{!P) G\337\351 \"\314\352 \203\365\n\353X\203 \354\n\353Z]\310O\202& \355Z\354W\203 \354\202\n \356\\W\203\n\353Z\202 \355Z\211\n\f\353\\^O\",)B\203\212\214~\210\357C!\360C!\310DEF\212Fb\210\361\362E\311#\210\363`E\"D)\314D\364X\203a\365\202xD\366X\203l\367\202xD\370X\203w\371\202x\372D\"-\202\200\373\374\306\375\310\311#\203\226\336\310w\210`\310\210`{\202\242\306\376\310\311#\210`\310\210`{\377\260\207" [opoint from len mch lo rmail-user-mail-address-regexp re-search-forward "^Date:" nil t " " "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- _]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" format "%2d-%3s" string-to-int 2 4 "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z _]*\\)\\([0-9][0-9]?\\)" "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" "%2s%2s%2s" 3 "??????" " " "^From:[ ]*" " " mail-strip-quoted-names 1 looking-at "[ ]" -1 " " string-match "^\\(" regexp-quote user-login-name "\\($\\|@\\)\\|" "@" system-name "\\>\\)" "^To:[ ]*" "to: " "[@%]" "%25s" 25 0 14 11 rmail-msgbeg rmail-msgend search-forward "\n*** EOOH ***\n" count-lines 9 " [%d]" 99 " [%d]" 999 " [%3d]" "[%d]" " " " #" "^Subject:" "[\n][\n]+" "\n" user-mail-address mail-host-address rmail-summary-line-count-flag msgnum lines end beg] 10]) (defalias 'rmail-summary-next-all #[(&optional number) "\203\202 \302y\210m\203\303V\203\304y\210\305 !\207" [number rmail-buffer 1 0 -1 display-buffer] 2 nil "p"]) (defalias 'rmail-summary-previous-all #[(&optional number) "\203\202 \302[y\210m\203\303W\203\304y\210\305 !\207" [number rmail-buffer 1 0 -1 display-buffer] 2 nil "p"]) #@171 Display next non-deleted msg from rmail file. With optional prefix argument NUMBER, moves forward this number of non-deleted messages, or backward if NUMBER is negative. (defalias 'rmail-summary-next-msg #[(&optional number) "\305y\210\305V\203\f\306\210\305W\203[\202\305V\203\"\307\202#\310\306\211\305V\203B\n\311\306\312#\2066 \211\203B S\211\202(+\313 \210\314\f!\207" [number non-del-msg-found search count rmail-view-buffer 0 nil re-search-forward re-search-backward "^....[^D]" t beginning-of-line display-buffer] 5 (#$ . 11217) "p"]) (defalias 'rmail-summary-previous-msg #[(&optional number) "\301\203 \202\n\302[!\207" [number rmail-summary-next-msg 1] 2 nil "p"]) #@129 Show next message with LABEL. Defaults to last labels used. With prefix argument N moves forward N messages with these labels. (defalias 'rmail-summary-next-labeled-message #[(n labels) "\305\212 q\210\306\n \"\210\f)\307!)\207" [msg rmail-buffer n labels rmail-current-message nil rmail-next-labeled-message rmail-summary-goto-msg] 3 (#$ . 11926) "p\nsMove to next msg with labels: "]) #@134 Show previous message with LABEL. Defaults to last labels used. With prefix argument N moves backward N messages with these labels. (defalias 'rmail-summary-previous-labeled-message #[(n labels) "\305\212 q\210\306\n \"\210\f)\307!)\207" [msg rmail-buffer n labels rmail-current-message nil rmail-previous-labeled-message rmail-summary-goto-msg] 3 (#$ . 12324) "p\nsMove to previous msg with labels: "]) #@137 Go to the next message in the summary having the same subject. With prefix argument N, do this N times. If N is negative, go backwards. (defalias 'rmail-summary-next-same-subject #[(n) "\306\211\211\211\307V\212q\210\310\311!)\312\313 \"\203& \307\225\306O\314\315 !\316Q\212\307U\204\263 \203=m?\202?o?\203\263\306  \204\233 \203Sm?\202Uo?\203\233 \203`\317\202a\320y\210\321`d`\322\\^{!\212q\210\214~\210\323 !b\210\324\325!\210`\306!\"\324\326!\210`!\"b\210\327\f!\330# ,\202E \203\242 ) \203\254S\202\256T\211\202/)\n\203\276\331\n!\202\312\332\333 \203\310\334\202\311\335\"-\207" [n forward found i search-regexp subject nil 0 mail-fetch-field "Subject" string-match "Re:[ ]*" "^Subject: *\\(Re: *\\)?" regexp-quote "\n" 1 -1 string-to-int 5 rmail-msgbeg search-forward "\n*** EOOH ***\n" "\n\n" re-search-forward t rmail-summary-goto-msg error "No %s message with same subject" "following" "previous" rmail-buffer rmail-current-message done end beg] 7 (#$ . 12739) "p"]) #@148 Go to the previous message in the summary having the same subject. With prefix argument N, do this N times. If N is negative, go forwards instead. (defalias 'rmail-summary-previous-same-subject #[(n) "\301[!\207" [n rmail-summary-next-same-subject] 2 (#$ . 13776) "p"]) #@232 Delete this message and move to next nondeleted one. Deleted messages stay in the file until the \[rmail-expunge] command is given. A prefix argument serves as a repeat count; a negative argument means to delete and move backward. (defalias 'rmail-summary-delete-forward #[(&optional count) "\247\204\306\307\211\310W\310U?\205i\311 \210r\fq\210\312 \210 )\313\n!\210 \203/o\2020m\204L\212\314 \210\315\316!)\203L \203F\317\202G\306y\210\202'm\203W \204W\317y\210\310V\203bS\202dT\211\202+\207" [count backward del-msg end rmail-buffer rmail-current-message 1 nil 0 rmail-summary-goto-msg rmail-delete-message rmail-summary-mark-deleted beginning-of-line looking-at " *[0-9]+D" -1] 5 (#$ . 14054) "p"]) #@235 Delete this message and move to previous nondeleted one. Deleted messages stay in the file until the \[rmail-expunge] command is given. A prefix argument serves as a repeat count; a negative argument means to delete and move forward. (defalias 'rmail-summary-delete-backward #[(&optional count) "\301[!\207" [count rmail-summary-delete-forward] 2 (#$ . 14792) "p"]) (defalias 'rmail-summary-mark-deleted #[(&optional n undel) "\203\n\304\305\211#\210m\204;\306 \307\"\203;\310\311\310w\210\312\310w\210 \2033\313\314!\203:\315\316!\210\311c\210\202:\315\316!\210\314c\210)\317 \207" [n rmail-summary-overlay buffer-read-only undel rmail-summary-goto-msg t overlay-get face nil " " "[0-9]" looking-at "D" delete-char 1 beginning-of-line] 4]) (defalias 'rmail-summary-mark-undeleted #[(n) "\301\302\"\207" [n rmail-summary-mark-deleted t] 3]) (defalias 'rmail-summary-deleted-p #[(&optional n) "\212\203 \301\302\303#\210\304\302w\210\305\302w\210\306\307!)\207" [n rmail-summary-goto-msg nil t " " "[0-9]" looking-at "D"] 4]) #@85 Undelete current message. Optional prefix ARG means undelete ARG previous messages. (defalias 'rmail-summary-undelete #[(&optional arg) "\306U\204\n\307!\207\310`\310\210\311\312\310\313#\203G\314\315!\210\316 \210 \203*\fq\210\202.\317\f!\210\320 !\2037\321 \210 \203@\317!\210\317!\202I b*\207" [arg opoint buffer-read-only rmail-enable-mime rmail-buffer rmail-current-message 1 rmail-summary-undelete-many nil re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" t replace-match "\\1 " rmail-summary-goto-msg pop-to-buffer rmail-message-deleted-p rmail-undelete-previous-message rmail-view-buffer rmail-summary-buffer] 4 (#$ . 15837) "p"]) #@78 Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs. (defalias 'rmail-summary-undelete-many #[(&optional n) "\212q\210 \203\f\n\202 \211 \206 \306\n\306V\2039 W\2039\307\n!\2032\310\311\312\"\210 T\nS\211\202q\210\f\306\n\306V\203a W\203a\313\n!\203Z\314\n!\210 T\nS\211\202B,\315 )\207" [rmail-buffer n rmail-current-message rmail-total-messages init-msg msgs-undeled 0 rmail-message-deleted-p rmail-set-attribute "deleted" nil rmail-summary-deleted-p rmail-summary-mark-undeleted rmail-summary-goto-msg rmail-summary-buffer] 4 (#$ . 16493) "P"]) (put 'rmail-summary-mode 'mode-class 'special) #@947 Rmail Summary Mode is invoked from Rmail Mode by using \\[rmail-summary]. As commands are issued in the summary buffer, they are applied to the corresponding mail messages in the rmail buffer. All normal editing commands are turned off. Instead, nearly all the Rmail mode commands are available, though many of them move only among the messages in the summary. These additional commands exist: \[rmail-summary-undelete-many] Undelete all or prefix arg deleted messages. \[rmail-summary-wipe] Delete the summary and go to the Rmail buffer. Commands for sorting the summary: \[rmail-summary-sort-by-date] Sort by date. \[rmail-summary-sort-by-subject] Sort by subject. \[rmail-summary-sort-by-author] Sort by author. \[rmail-summary-sort-by-recipient] Sort by recipient. \[rmail-summary-sort-by-correspondent] Sort by correspondent. \[rmail-summary-sort-by-lines] Sort by lines. \[rmail-summary-sort-by-labels] Sort by labels. (defalias 'rmail-summary-mode #[nil "\306 \210\307\310\311\311\312\f!\210\313\314!\210\313\315!\210\313\316!\210\313\305!\210\317\313\320!\210\317\313\321!\210\322\323!\210\313\324!\210\325\326 \210\327\330!\207" [major-mode mode-name truncate-lines buffer-read-only text-mode-syntax-table rmail-current-message kill-all-local-variables rmail-summary-mode "RMAIL Summary" t set-syntax-table make-local-variable rmail-buffer rmail-view-buffer rmail-total-messages nil rmail-summary-redo revert-buffer-function make-local-hook post-command-hook font-lock-defaults (rmail-summary-font-lock-keywords t) rmail-summary-enable run-hooks rmail-summary-mode-hook] 2 (#$ . 17148) nil]) (defalias 'rmail-summary-disable #[nil "\302!\210\303\304\305\306#\210\307\211\207" [text-mode-map revert-buffer-function use-local-map remove-hook post-command-hook rmail-summary-rmail-update t nil] 4]) (defalias 'rmail-summary-enable #[nil "\302!\210\303\304\305\306\307$\210\310\211\207" [rmail-summary-mode-map revert-buffer-function use-local-map add-hook post-command-hook rmail-summary-rmail-update nil t rmail-update-summary] 5]) #@313 Used for communicating between calls to `rmail-summary-rmail-update'. If it moves to a message within an Incremental Search, and removes the `unseen' attribute from that message, it sets this flag so that if the next motion between messages is in the same Incremental Search, the `unseen' attribute is restored. (defvar rmail-summary-put-back-unseen nil (#$ . 19228)) (defalias 'rmail-summary-rmail-update #[nil "\306\212m\203\n\307y\210\310 \210\311\306w\210\312`\313\306w\210`{!\n\204!\306\f =\204\206\314 \315\"\316 \n\203M\212q\210 \203D\317\320\315\f#\210\321 \322\")\202O\306 g\323U\203^\324\325!\210\311c\210\203s\326\216\327!\210\330 \315\"\210)\202\205\331!\203\205\212q\210\330 \315\"\210)*\332\306!+\207" [buffer-read-only msg-num isearch-mode rmail-summary-put-back-unseen rmail-current-message rmail-view-buffer nil -1 beginning-of-line " " string-to-int "0-9" get-buffer-window t selected-window rmail-set-attribute "unseen" rmail-message-labels-p ", ?\\(unseen\\)," 45 delete-char 1 ((select-window owin)) select-window rmail-show-message buffer-name rmail-summary-update-highlight owin window rmail-buffer] 4]) (byte-code "\301B\303\301!\204\f\304 \204\307\305 \306 !\210\307 \310\311#\210\307 \312\313#\210\307 \314\315#\210\307 \316\317#\210\307 \320\321#\210\307 \322\323#\210\307 \324\325#\210\307 \326\327#\210\307 \330\331#\210\307 \332\333#\210\307 \334\335#\210\307 \336\337#\210\307 \340\337#\210\307 \341\342#\210\307 \343\344#\210\307 \345\333#\210\307 \346\344#\210\307 \347\350#\210\307 \351\352#\210\307 \353\354#\210\307 \355\356#\210\307 \357\360#\210\307 \361\362#\210\307 \363\364#\210\307 \365\366#\210\307 \367\370#\210\307 \371\372#\210\307 \373\374#\210\307 \375\376#\210\307 \377\201@#\210\307 \201A\201B#\210\307 \201C\201D#\210\307 \201E\201F#\210\307 \201G\201H#\210\307 \201I\201J#\210\307 \201K\201L#\210\307 \201M\201N#\210\307 \201O\201P#\210\307 \201Q\201R#\210\307 \201S\201T#\210\307 \201U\201V#\210\307 \201W\201X#\210\307 \201Y\201Z#\210\307 \201[\201\\#\210\307 \201]\201^#\210\307 \201_\201`#\210\307 \201a\201b#\210\307 \201c\201d#\210\307 \201e\201f#\210\307 \201g\201h#\210\307 \201i\201j#\210\307 \201k\201l#\210\307 \201m\201n#\210\307 \201o\201p#\210\307 \201q\201r#\210\307 \201s\201t #\210\307 \201u\201v\201t\201v!B#\210\307 \201w\201x#\210\307 \201y\201z#\210\307 \201{\201|#\210\307 \201}\201~#\210\307 \201\201\200#\210\307 \201\201\201\202#\210\307 \201\203\201\204#\210\307 \201\205\201\206#\210\307 \201\207\201\210#\210\307 \201\211\201\212\201t\201\212!B#\210\307 \201\213\201\214#\210\307 \201\215\201\216#\210\307 \201\217\201\220#\210\307 \201\221\201\222#\210\307 \201\223\201\224#\210\307 \201\225\201\226#\210\307 \201\227\201\230\201t\201\230!B#\210\307 \201\231\201\232#\210\307 \201\233\201\234#\210\307 \201\235\201\236#\210\307 \201\237\201\240#\210\307 \201\241\201\242#\210\307 \201\243\201\244#\210\307 \201\245\201\246#\210\307 \201\247\201\250#\210\307 \201\251\201\252\201t\201\252!B#\210\307 \201\253\201\254#\210\307 \201\255\201\256#\210\307 \201\257\201\260#\210\307 \201\261\201\262#\210\307 \201\263\201\264\201t\201\264!B#\210\307 \201\265\201\266#\210\307 \201\267\201\270#\210\307 \201\271\201\272#\210\307 \201\273\201\274#\210\307 \201\275\201\276#\210\307 \201\277\201\300#\210\307 \201\301\201\302#\210\307 \201\303\201\304#\210\302B\303\302!\204\226\304\201\305\302\201\306\201\307#\207" [current-load-list rmail-summary-mode-map rmail-summary-overlay boundp nil make-keymap suppress-keymap define-key [mouse-2] rmail-summary-mouse-goto-message "a" rmail-summary-add-label "b" rmail-summary-bury "c" rmail-summary-continue "d" rmail-summary-delete-forward "" rmail-summary-delete-backward "e" rmail-summary-edit-current-message "f" rmail-summary-forward "g" rmail-summary-get-new-mail "h" rmail-summary "i" rmail-summary-input "j" rmail-summary-goto-msg " " "k" rmail-summary-kill-label "l" rmail-summary-by-labels "" "\f" "" rmail-summary-by-recipients "" rmail-summary-by-regexp "" rmail-summary-by-topic "m" rmail-summary-mail "\355" rmail-summary-retry-failure "n" rmail-summary-next-msg "n" rmail-summary-next-all "" rmail-summary-next-labeled-message "o" rmail-summary-output-to-rmail-file "" rmail-summary-output "p" rmail-summary-previous-msg "p" rmail-summary-previous-all "" rmail-summary-previous-labeled-message "q" rmail-summary-quit "Q" rmail-summary-wipe "r" rmail-summary-reply "s" rmail-summary-expunge-and-save "s" rmail-summary-search "t" rmail-summary-toggle-header "u" rmail-summary-undelete "\365" rmail-summary-undelete-many "x" rmail-summary-expunge "w" rmail-summary-output-body "." rmail-summary-beginning-of-message "<" rmail-summary-first-message ">" rmail-summary-last-message " " rmail-summary-scroll-msg-up "" rmail-summary-scroll-msg-down "?" describe-mode "" rmail-summary-next-same-subject "" rmail-summary-previous-same-subject "" rmail-summary-sort-by-date "" rmail-summary-sort-by-subject "" rmail-summary-sort-by-author "" rmail-summary-sort-by-recipient "" rmail-summary-sort-by-correspondent "\f" rmail-summary-sort-by-lines " " rmail-summary-sort-by-labels [menu-bar] make-sparse-keymap [menu-bar classify] "Classify" [menu-bar classify output-menu] ("Output (Rmail Menu)..." . rmail-summary-output-menu) [menu-bar classify input-menu] ("Input Rmail File (menu)..." . rmail-input-menu) [menu-bar classify input-menu] (nil) [menu-bar classify output-menu] (nil) [menu-bar classify output-body] ("Output (body)..." . rmail-summary-output-body) [menu-bar classify output-inbox] ("Output (inbox)..." . rmail-summary-output) [menu-bar classify output] ("Output (Rmail)..." . rmail-summary-output-to-rmail-file) [menu-bar classify kill-label] ("Kill Label..." . rmail-summary-kill-label) [menu-bar classify add-label] ("Add Label..." . rmail-summary-add-label) [menu-bar summary] "Summary" [menu-bar summary senders] ("By Senders..." . rmail-summary-by-senders) [menu-bar summary labels] ("By Labels..." . rmail-summary-by-labels) [menu-bar summary recipients] ("By Recipients..." . rmail-summary-by-recipients) [menu-bar summary topic] ("By Topic..." . rmail-summary-by-topic) [menu-bar summary regexp] ("By Regexp..." . rmail-summary-by-regexp) [menu-bar summary all] ("All" . rmail-summary) [menu-bar mail] "Mail" [menu-bar mail rmail-summary-get-new-mail] ("Get New Mail" . rmail-summary-get-new-mail) [menu-bar mail lambda] ("----") [menu-bar mail continue] ("Continue" . rmail-summary-continue) [menu-bar mail resend] ("Re-send..." . rmail-summary-resend) [menu-bar mail forward] ("Forward" . rmail-summary-forward) [menu-bar mail retry] ("Retry" . rmail-summary-retry-failure) [menu-bar mail reply] ("Reply" . rmail-summary-reply) [menu-bar mail mail] ("Mail" . rmail-summary-mail) [menu-bar delete] "Delete" [menu-bar delete expunge/save] ("Expunge/Save" . rmail-summary-expunge-and-save) [menu-bar delete expunge] ("Expunge" . rmail-summary-expunge) [menu-bar delete undelete] ("Undelete" . rmail-summary-undelete) [menu-bar delete delete] ("Delete" . rmail-summary-delete-forward) [menu-bar move] "Move" [menu-bar move search-back] ("Search Back..." . rmail-summary-search-backward) [menu-bar move search] ("Search..." . rmail-summary-search) [menu-bar move previous] ("Previous Nondeleted" . rmail-summary-previous-msg) [menu-bar move next] ("Next Nondeleted" . rmail-summary-next-msg) [menu-bar move last] ("Last" . rmail-summary-last-message) [menu-bar move first] ("First" . rmail-summary-first-message) [menu-bar move previous] ("Previous" . rmail-summary-previous-all) [menu-bar move next] ("Next" . rmail-summary-next-all) put permanent-local t] 6) #@53 Select the message whose summary line you click on. (defalias 'rmail-summary-mouse-goto-message #[(event) "\3028:\203 \302\202\3038)\303 8:\203 \303 8@\202#\303 8)b\210\304 \207" [event position 2 1 rmail-summary-goto-msg] 2 (#$ . 27065) "@e"]) #@281 Go to message N in the summary buffer and the Rmail buffer. If N is nil, use the message corresponding to point in the summary and move to that message in the Rmail buffer. If NOWARN, don't say anything if N is out of range. If SKIP-RMAIL, don't do anything to the Rmail buffer. (defalias 'rmail-summary-goto-msg #[(&optional n nowarn skip-rmail) ":\203 \306!m\203\307y\210\310 \210p\n`\311\312`d`\313\\^{!\212 q\210 )!\2049\202{\314W\203E\315\316!\210\314!V\203[\315\317!\210db\210\320\311\"##\210eb\210\321\322\323\"\311\324#\204{\"\204s\315\325\"\210\324\fb\210\310 \210\326\311w\210\327\311w\210\212g\330U\203\230\311$\331\314!\210\326c\210))\332 !\210\310 \210#?\205\264\333 %\334\216\335 !\210\336!*.\207" [n obuf rmail-buffer buf cur message-not-found prefix-numeric-value -1 beginning-of-line nil string-to-int 5 1 message "No preceding message" "No following message" rmail-summary-goto-msg re-search-forward format "^%4d[^0-9]" t "Message %d not found" " " "0-9" 45 delete-char rmail-summary-update-highlight selected-window ((byte-code "\302!\210 q\207" [selwin obuf select-window] 2)) pop-to-buffer rmail-show-message curmsg rmail-total-messages total nowarn skip-rmail buffer-read-only selwin] 5 (#$ . 27327) "P"]) (defalias 'rmail-summary-update-highlight #[(not-found) "\204 \302\300!\210\303``\" \203\304\305\306#\207\307\212\310 \210\311\306w\210`)\212\306\210`)#\210\304\305\312#\207" [rmail-summary-overlay not-found make-local-variable make-overlay overlay-put face nil move-overlay beginning-of-line " " highlight] 4]) #@119 Scroll the Rmail window forward. If the Rmail window is displaying the end of a message, advance to the next message. (defalias 'rmail-summary-scroll-msg-up #[(&optional dist) "\306=\203\n\307\310!\207\311 !\211\203P\312 \313\n!\210\212\314\312 !\315\f\316Z!\210\310\210m*\313 !\210)\203F \204<\317\320!\202R\321\206B\322!\202R \323!)\202R\324 )\207" [dist rmail-view-buffer rmail-buffer-window rmail-summary-window ht rmail-summary-scroll-between-messages - rmail-summary-scroll-msg-down nil get-buffer-window selected-window select-window window-height move-to-window-line 2 error "End of buffer" rmail-summary-next-msg 1 scroll-other-window rmail-summary-beginning-of-message other-window-scroll-buffer] 4 (#$ . 28929) "P"]) #@131 Scroll the Rmail window backward. If the Rmail window is now displaying the beginning of a message, move to the previous message. (defalias 'rmail-summary-scroll-msg-down #[(&optional dist) "\306=\203\n\307\310!\207\311 !\211\203H\312 \313\n!\210\212\314\315!\210\316 \210o)\313 !\210)\203?\f\2045\317\320!\202J\321\206;\322!\202J \323!)\202J\324 )\207" [dist rmail-view-buffer rmail-buffer-window rmail-summary-window rmail-summary-scroll-between-messages other-window-scroll-buffer - rmail-summary-scroll-msg-up nil get-buffer-window selected-window select-window move-to-window-line 0 beginning-of-line error "Beginning of buffer" rmail-summary-previous-msg 1 scroll-other-window-down rmail-summary-beginning-of-message] 4 (#$ . 29681) "P"]) #@42 Show current message from the beginning. (defalias 'rmail-summary-beginning-of-message #[nil "\305 \203,\204, \306\307 \"\210\310\311 !\210\312 !\210\n\313\314\311 !!=\204(\315 \210)\2020\312 !\210\316 \210\312\f!\207" [pop-up-frames rmail-view-buffer buffer rmail-summary-window-size rmail-summary-buffer one-window-p split-window selected-window select-window frame-first-window pop-to-buffer window-buffer next-window delete-other-windows beginning-of-buffer] 4 (#$ . 30446) nil]) #@53 Bury the Rmail buffer and the Rmail summary buffer. (defalias 'rmail-summary-bury #[nil "p\303\304\n!\211\203\305 \306\n!\"\210\202\307\n!\210)\310\306!!\210\307!)\207" [buffer-to-bury window rmail-buffer nil get-buffer-window set-window-buffer other-buffer bury-buffer switch-to-buffer] 4 (#$ . 30943) nil]) #@38 Quit out of Rmail and Rmail summary. (defalias 'rmail-summary-quit #[nil "\300 \210\301 \207" [rmail-summary-wipe rmail-quit] 1 (#$ . 31267) nil]) #@59 Kill and wipe away Rmail summary, remaining within Rmail. (defalias 'rmail-summary-wipe #[nil "\212q\210\304)\n\305p!\210\306 \307\304\310\"=\204\311 \210\312 !)\207" [rmail-buffer rmail-summary-buffer rmail-view-buffer local-rmail-buffer nil kill-buffer selected-window next-window no-minibuf delete-window pop-to-buffer] 4 (#$ . 31420) nil]) #@68 Actually erase all deleted messages and recompute summary headers. (defalias 'rmail-summary-expunge #[nil "\212q\210\301 \203\f\302 \210)\303 \207" [rmail-buffer rmail-expunge-confirmed rmail-only-expunge rmail-update-summary] 1 (#$ . 31775) nil]) #@30 Expunge and save RMAIL file. (defalias 'rmail-summary-expunge-and-save #[nil "\212q\210\301 \203\f\302 \210)\303 \210\212q\210\304 \210)\305\306!\207" [rmail-buffer rmail-expunge-confirmed rmail-only-expunge rmail-update-summary save-buffer set-buffer-modified-p nil] 2 (#$ . 32031) nil]) #@326 Get new mail and recompute summary headers. Optionally you can specify the file to get new mail from. In this case, the file of new mail is not changed or deleted. Noninteractively, you can pass the inbox file name as an argument. Interactively, a prefix argument says to read a file name and use that file as the inbox. (defalias 'rmail-summary-get-new-mail #[(&optional file-name) "\304\212 q\210\305\n!\210 )\306!\206\307!)\207" [msg rmail-buffer file-name rmail-current-message nil rmail-get-new-mail zerop rmail-summary-goto-msg] 2 (#$ . 32330) (list (if current-prefix-arg (read-file-name "Get new mail from file: ")))]) #@29 Run Rmail on file FILENAME. (defalias 'rmail-summary-input #[(filename) "\302!\210\303 !\207" [rmail-buffer filename pop-to-buffer rmail] 2 (#$ . 32973) "FRun rmail on RMAIL file: "]) #@55 Show first message in Rmail file from summary buffer. (defalias 'rmail-summary-first-message #[nil "\300 \207" [beginning-of-buffer] 1 (#$ . 33164) nil]) #@54 Show last message in Rmail file from summary buffer. (defalias 'rmail-summary-last-message #[nil "\300 \210\301y\207" [end-of-buffer -1] 1 (#$ . 33324) nil]) (byte-code "\301B\303\301!\204\f\304 \204!\305 \n\244\306 \307\310#\210\306 \311\312#\210\304\207" [current-load-list rmail-summary-edit-map text-mode-map boundp nil make-sparse-keymap define-key "" rmail-cease-edit "" rmail-abort-edit] 4) #@36 Edit the contents of this message. (defalias 'rmail-summary-edit-current-message #[nil "\302!\210\303 \210\304 !\207" [rmail-buffer rmail-summary-edit-map pop-to-buffer rmail-edit-current-message use-local-map] 2 (#$ . 33738) nil]) #@63 Finish editing message, then go back to Rmail summary buffer. (defalias 'rmail-summary-cease-edit #[nil "\301 \210\302!\207" [rmail-summary-buffer rmail-cease-edit pop-to-buffer] 2 (#$ . 33977) nil]) #@86 Abort edit of current message; restore original contents. Go back to summary buffer. (defalias 'rmail-summary-abort-edit #[nil "\301 \210\302!\207" [rmail-summary-buffer rmail-abort-edit pop-to-buffer] 2 (#$ . 34184) nil]) #@221 Show message containing next match for REGEXP. Prefix argument gives repeat count; negative argument means search backwards (through earlier messages). Interactively, empty argument means use same regexp used last time. (defalias 'rmail-summary-search-backward #[(regexp &optional n) "p\304\216 q\210\305\n [\"*\207" [buffer rmail-buffer regexp n ((set-buffer buffer)) rmail-search] 3 (#$ . 34415) (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0)) (prompt (concat (if reversep "Reverse " "") "Rmail search (regexp): ")) regexp) (if rmail-search-last-regexp (setq prompt (concat prompt "(default " rmail-search-last-regexp ") "))) (setq regexp (read-string prompt)) (cond ((not (equal regexp "")) (setq rmail-search-last-regexp regexp)) ((not rmail-search-last-regexp) (error "No previous Rmail search string"))) (list rmail-search-last-regexp (prefix-numeric-value current-prefix-arg)))]) #@221 Show message containing next match for REGEXP. Prefix argument gives repeat count; negative argument means search backwards (through earlier messages). Interactively, empty argument means use same regexp used last time. (defalias 'rmail-summary-search #[(regexp &optional n) "p\304\216 q\210\305\n \"*\207" [buffer rmail-buffer regexp n ((set-buffer buffer)) rmail-search] 3 (#$ . 35329) (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0)) (prompt (concat (if reversep "Reverse " "") "Rmail search (regexp): ")) regexp) (if rmail-search-last-regexp (setq prompt (concat prompt "(default " rmail-search-last-regexp ") "))) (setq regexp (read-string prompt)) (cond ((not (equal regexp "")) (setq rmail-search-last-regexp regexp)) ((not rmail-search-last-regexp) (error "No previous Rmail search string"))) (list rmail-search-last-regexp (prefix-numeric-value current-prefix-arg)))]) #@79 Show original message header if pruned header currently shown, or vice versa. (defalias 'rmail-summary-toggle-header #[nil "\303\213\210\304!\211\205\305 \306\216\307 !\210eb*)\207" [rmail-view-buffer window owin ((byte-code "q\210\301 \207" [rmail-buffer rmail-toggle-header] 1)) get-buffer-window selected-window ((select-window owin)) select-window] 3 (#$ . 36231) nil]) #@116 Add LABEL to labels associated with current Rmail message. Completion is performed over known labels when reading. (defalias 'rmail-summary-add-label #[(label) "\212q\210\302 !)\207" [rmail-buffer label rmail-add-label] 2 (#$ . 36618) (list (save-excursion (set-buffer rmail-buffer) (rmail-read-label "Add label")))]) #@121 Remove LABEL from labels associated with current Rmail message. Completion is performed over known labels when reading. (defalias 'rmail-summary-kill-label #[(label) "\212q\210\302 \303\")\207" [rmail-buffer label rmail-set-label nil] 3 (#$ . 36944) (list (save-excursion (set-buffer rmail-buffer) (rmail-read-label "Kill label")))]) #@75 Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit (defalias 'rmail-summary-override-mail-send-and-exit #[nil "\302\303\304 !!\210\305\306!\307\211\203\" @\310\304 \311#\210 A\211\204*\307\207" [key #1=#:--dolist-temp--97269 use-local-map copy-keymap current-local-map where-is-internal mail-send-and-exit nil define-key rmail-summary-send-and-exit] 5 (#$ . 37285)]) #@123 Send mail in another window. While composing the message, use \[mail-yank-original] to yank the original message into it. (defalias 'rmail-summary-mail #[nil "\302!\211\203\303 !\210\202q\210)\304\305\211\211\211\211p&\210\306 \207" [rmail-buffer window get-buffer-window select-window rmail-start-mail nil rmail-summary-override-mail-send-and-exit] 8 (#$ . 37690) nil]) #@64 Continue composing outgoing message previously being composed. (defalias 'rmail-summary-continue #[nil "\302!\211\203\303 !\210\202q\210)\304\305!\207" [rmail-buffer window get-buffer-window select-window rmail-start-mail t] 3 (#$ . 38075) nil]) #@224 Reply to the current message. Normally include CC: to all other recipients of original message; prefix argument means ignore them. While composing the reply, use \[mail-yank-original] to yank the original message into it. (defalias 'rmail-summary-reply #[(just-sender) "\303!\211\203\304 !\210\202q\210)\305\n!\210\306 \207" [rmail-view-buffer window just-sender get-buffer-window select-window rmail-reply rmail-summary-override-mail-send-and-exit] 3 (#$ . 38335) "P"]) #@225 Edit a mail message which is based on the contents of the current message. For a message rejected by the mail system, extract the interesting headers and the body of the original message; otherwise copy the current message. (defalias 'rmail-summary-retry-failure #[nil "\302!\211\203\303 !\210\202q\210)\304 \210\305 \207" [rmail-buffer window get-buffer-window select-window rmail-retry-failure rmail-summary-override-mail-send-and-exit] 3 (#$ . 38821) nil]) #@47 Send mail reply and return to summary buffer. (defalias 'rmail-summary-send-and-exit #[nil "\300\301!\207" [mail-send-and-exit t] 2 (#$ . 39294) nil]) #@156 Forward the current message to another user. With prefix argument, "resend" the message instead of forwarding it; see the documentation of `rmail-resend'. (defalias 'rmail-summary-forward #[(resend) "\212\303!\211\203\304 !\210\202q\210)\305\n!\210\306 )\207" [rmail-buffer window resend get-buffer-window select-window rmail-forward rmail-summary-override-mail-send-and-exit] 3 (#$ . 39452) "P"]) #@46 Resend current message using 'rmail-resend'. (defalias 'rmail-summary-resend #[nil "\212\302!\211\203\303 !\210\202q\210)\304\305!)\207" [rmail-buffer window get-buffer-window select-window call-interactively rmail-resend] 3 (#$ . 39863) nil]) #@346 Append the current message to an Rmail file named FILE-NAME. If the file does not exist, ask if it should be created. If file is being visited, the message is appended to the Emacs buffer visiting that file. A prefix argument N says to output N consecutive messages starting with the current one. Deleted messages are skipped and don't count. (defalias 'rmail-summary-output-to-rmail-file #[(&optional file-name n) "\306\307 \nW\205C\310 \210r q\210\f)\211=?\205C Tr q\210\307\311 \312\"\210* \2036\313\307!\210\202 \nW\203\314\312!\210\202*\207" [prev-msg i n rmail-buffer rmail-current-message rmail-delete-after-output 0 nil rmail-summary-goto-msg rmail-output-to-rmail-file 1 rmail-summary-delete-forward rmail-summary-next-msg file-name] 3 (#$ . 40121) (byte-code "\301\302!\210\303 \304!D\207" [current-prefix-arg require rmailout rmail-output-read-rmail-file-name prefix-numeric-value] 3)]) #@193 Append this message to Unix mail file named FILE-NAME. A prefix argument N says to output N consecutive messages starting with the current one. Deleted messages are skipped and don't count. (defalias 'rmail-summary-output #[(&optional file-name n) "\305 W\205/Tr\nq\210\306\307\f\310\"\210* \203\"\311\306!\210\202 W\203\312\310!\210\202)\207" [i n rmail-buffer rmail-delete-after-output file-name 0 nil rmail-output 1 rmail-summary-delete-forward rmail-summary-next-msg] 3 (#$ . 41045) (byte-code "\301\302!\210\303 \304!D\207" [current-prefix-arg require rmailout rmail-output-read-file-name prefix-numeric-value] 3)]) #@269 Output current message to another Rmail file, chosen with a menu. Also set the default for subsequent \[rmail-output-to-rmail-file] commands. The variables `rmail-secondary-file-directory' and `rmail-secondary-file-regexp' control which files are offered in the menu. (defalias 'rmail-summary-output-menu #[nil "\212q\210\302\303\304!\210* \205\305\302!\207" [rmail-buffer rmail-delete-after-output nil call-interactively rmail-output-menu rmail-summary-delete-forward] 2 (#$ . 41690) nil]) (defalias 'rmail-summary-construct-io-menu #[nil "\303!\211\203\"\304\n\305\306\307\306 \310#B#\210\304\n\311\312\307\312 \313#B#\202-\304\n\314\315#\210\304\n\316\317#)\207" [rmail-secondary-file-directory files rmail-summary-mode-map rmail-find-all-files define-key [menu-bar classify input-menu] "Input Rmail File" rmail-list-to-menu rmail-summary-input [menu-bar classify output-menu] "Output Rmail File" rmail-summary-output-to-rmail-file [menu-bar classify input-menu] ("Input Rmail File" . rmail-disable-menu) [menu-bar classify output-menu] ("Output Rmail File" . rmail-disable-menu)] 9]) #@122 Write this message body to the file FILE-NAME. FILE-NAME defaults, interactively, from the Subject field of the message. (defalias 'rmail-summary-output-body #[(&optional file-name) "\212q\210\303\n\203\304\n!\210\202\305\304!\210* \205\306\303!\207" [rmail-buffer rmail-delete-after-output file-name nil rmail-output-body-to-file call-interactively rmail-summary-delete-forward] 2 (#$ . 42793) nil]) #@116 Sort messages of current Rmail summary by date. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-date #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-date] 3 (#$ . 43209) "P"]) #@119 Sort messages of current Rmail summary by subject. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-subject #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-subject] 3 (#$ . 43473) "P"]) #@118 Sort messages of current Rmail summary by author. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-author #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-author] 3 (#$ . 43746) "P"]) #@121 Sort messages of current Rmail summary by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-recipient #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-recipient] 3 (#$ . 44016) "P"]) #@131 Sort messages of current Rmail summary by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-correspondent #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-correspondent] 3 (#$ . 44295) "P"]) #@132 Sort messages of current Rmail summary by lines of the message. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-lines #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-lines] 3 (#$ . 44592) "P"]) #@164 Sort messages of current Rmail summary by labels. If prefix argument REVERSE is non-nil, sort them in reverse order. KEYWORDS is a comma-separated list of labels. (defalias 'rmail-summary-sort-by-labels #[(reverse labels) "\301\302\"\207" [reverse rmail-sort-from-summary #[(reverse) "\302 \"\207" [reverse labels rmail-sort-by-labels] 3]] 3 (#$ . 44874) "P\nsSort by labels: "]) #@70 Sort Rmail messages from Summary buffer and update it after sorting. (defalias 'rmail-sort-from-summary #[(sortfun reverse) "\304\305!\210\306 \307\216\310 !\210\n !*\207" [selwin rmail-buffer sortfun reverse require rmailsort selected-window ((select-window selwin)) pop-to-buffer] 2 (#$ . 45262)]) (provide 'rmailsum)