;ELC ;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Sun Feb 9 19:12:23 1997 ;;; from file /home/fsf/rms/e19/lisp/rmailsort.el ;;; in Emacs version 19.34.92.6 ;;; with bytecomp version 2.25 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "`rmailsort.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÃÄÅ\"‡" [require sort rmail autoload timezone-make-date-sortable "timezone"] 3) #@113 Sort messages of current Rmail file by date. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-date #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\nÃ\"!‡" [rmail-make-date-sortable rmail-fetch-field msg "Date"] 4]] 3 (#$ . 646) "P"]) #@116 Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-subject #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "À Â\"†ÃÄÇÈ\"ƒÉ•ÊO‚*‡" [rmail-fetch-field msg "Subject" "" t case-fold-search key string-match "^\\(re:[ ]*\\)*" 0 nil] 3]] 3 (#$ . 944) "P"]) #@115 Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-author #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\nÃ\"†Á\nÄ\"†Å!—‡" [mail-strip-quoted-names rmail-fetch-field msg "From" "Sender" ""] 4]] 3 (#$ . 1316) "P"]) #@118 Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-recipient #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\nÃ\"†Á\nÄ\"†Å!—‡" [mail-strip-quoted-names rmail-fetch-field msg "To" "Apparently-To" ""] 4]] 3 (#$ . 1644) "P"]) #@128 Sort messages of current Rmail file by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-correspondent #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "À Â\"‡" [rmail-select-correspondent msg ("From" "Sender" "To" "Apparently-To")] 3]] 3 (#$ . 1983) "P"]) (defalias 'rmail-select-correspondent #[(msg fields) "À\nƒ\" À˜ƒ\"ÃÄÅ\n@\"†À!!\nA‰„ )‡" ["" ans fields rmail-dont-reply-to mail-strip-quoted-names rmail-fetch-field msg] 6]) #@124 Sort messages of current Rmail file by number of lines. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-sort-by-lines #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\n!Ã\n!\"‡" [count-lines rmail-msgbeg msg rmail-msgend] 4]] 3 (#$ . 2504) "P"]) #@161 Sort messages of current Rmail file by labels. If prefix argument REVERSE is non-nil, sort them in reverse order. KEYWORDS is a comma-separated list of labels. (defalias 'rmail-sort-by-keywords #[(reverse labels) "ÀÁ\n\"„ ÃÄ!ˆ\nÅ”ÆOÇPÆÀÉ\n\"ƒ3Ê\nʼn”OËQB\nÅ•ÆO‚ÌÍŸ\"ÎÐ\")‡" [string-match "[^ ]" labels error "No labels specified" 0 nil "," labelvec "[ ]*,[ ]*" ", ?\\(" "\\)," apply vector rmail-sort-messages reverse #[(msg) "ÀÀ\nGWƒÃ\f\n H\"„ T‰‚ )‡" [0 n labelvec rmail-message-labels-p msg] 5]] 4 (#$ . 2806) "P\nsSort by labels: "]) #@180 Sort messages of current Rmail file. If 1st argument REVERSE is non-nil, sort them in reverse order. 2nd argument KEYFUN is called with a message number, and should return a key. (defalias 'rmail-sort-messages #[(reverse keyfun) "aÁ=ƒ\n\nqˆÃ`eZÉÈÉ!ˆ~ˆÊ \f YƒW  ! = H THF\fB ЦÑUƒOÈÒ \"ˆ T ‚)„`\fŸ\f@@§ƒlÔ‚nÕÖ\f×\"ƒ{\fŸÈØ!ˆÙÃÊà Ýp!ˆÞÊ!bˆßà!ˆáÊ!ˆ\fƒß\f@âpã8ä8#ˆã8ä8|ˆA@ƒÅ \fA ЦÑUƒ×Èå \"ˆ T ‚œæÊ!ˆÃ'è ˆé ˆê!ˆe\\bˆë …,\f,í ƒî /ŠðŽñ2!ˆ,\fó ˆ,‚)Š2qˆ,\fó ˆ*ô ). ‡" [major-mode rmail-summary-mode rmail-buffer nil sort-lists predicate point-offset buffer-read-only message "Finding sort keys..." 1 msgnum rmail-total-messages keyfun rmail-current-message rmail-message-vector 10 0 "Finding sort keys...%d" reverse < string-lessp sort #[(a b) " @\n@\"‡" [predicate a b] 3] "Reordering messages..." t msginfo current-message inhibit-quit buffer-disable-undo rmail-msgbeg insert-before-markers 90 backward-char insert-buffer-substring 2 3 "Reordering messages...%d" delete-char quit-flag buffer-enable-undo rmail-set-message-counters rmail-show-message rmail-summary-exists total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary] 5 (#$ . 3379)]) #@75 Return the value of the header FIELD of MSG. Arguments are MSG and FIELD. (defalias 'rmail-fetch-field #[(msg field) "Œ~ˆÀ !à !bˆÄÅ\nÆ#ƒ`‚Çyˆ`ÄÈÉÆ#ˆ`}ˆÊ !*‡" [rmail-msgend msg next rmail-msgbeg search-forward "\n*** EOOH ***\n" t 1 "\n\n" nil mail-fetch-field field] 5 (#$ . 4723)]) #@53 Make DATE sortable using the function string-lessp. (defalias 'rmail-make-date-sortable #[(date) "À ‰#‡" [timezone-make-date-sortable date "GMT"] 4 (#$ . 5018)]) (provide 'rmailsort)