;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:18:06 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailsort.el ;;; emacs version 19.8.0. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÀÂ!ˆÃÄÅ\"ˆÆÈÉ#ˆÆÊË#ˆÆÌÍ#ˆÆÎÏ#ˆÆÐÑ#ˆÆÒÓ#ˆÔÕ!ƒgÆÈÖ#ˆÆÊ×#ˆÆÌØ#ˆÆÎÙ#ˆÆÐÚ#ˆÆÒÛ#ˆÀ‡" [require rmail sort autoload timezone-make-date-sortable "timezone" define-key rmail-mode-map "" rmail-sort-by-date "" rmail-sort-by-subject "" rmail-sort-by-author "" rmail-sort-by-recipient "" rmail-sort-by-correspondent " " rmail-sort-by-lines boundp rmail-summary-mode-map 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 rmail-summary-sort-by-lines] 4) (defalias 'rmail-sort-by-date #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\nÃ\"!‡" [rmail-make-date-sortable rmail-fetch-field msg "Date"] 4]] 3 "\ Sort messages of current Rmail file by date. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (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:[ ]+\\)*" match-end 0 nil] 3]] 3 "\ Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-sort-by-author #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ Ä\"† Å\"†Æ!!‡" [downcase mail-strip-quoted-names rmail-fetch-field msg "From" "Sender" ""] 5]] 3 "\ Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-sort-by-recipient #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ Ä\"† Å\"†Æ!!‡" [downcase mail-strip-quoted-names rmail-fetch-field msg "To" "Apparently-To" ""] 5]] 3 "\ Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-sort-by-correspondent #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "À Â\"‡" [rmail-select-correspondent msg ("From" "Sender" "To" "Apparently-To")] 3]] 3 "\ Sort messages of current Rmail file by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (fset (quote rmail-select-correspondent) #[(msg fields) "À\nƒ#à À\"ƒ#ÄÅÆ\n@\"†À!!\nA‰„ )‡" ["" ans fields string= rmail-dont-reply-to mail-strip-quoted-names rmail-fetch-field msg] 6]) (defalias 'rmail-sort-by-lines #[(reverse) "À Â\"‡" [rmail-sort-messages reverse #[(msg) "ÀÁ\n!Ã\n!\"‡" [count-lines rmail-msgbeg msgnum rmail-msgend] 4]] 3 "\ Sort messages of current Rmail file by lines of the message. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-date #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-date reverse] 3 "\ Sort messages of current Rmail summary by date. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-subject #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-subject reverse] 3 "\ Sort messages of current Rmail summary by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-author #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-author reverse] 3 "\ Sort messages of current Rmail summary by author. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-recipient #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-recipient reverse] 3 "\ Sort messages of current Rmail summary by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-correspondent #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-correspondent reverse] 3 "\ Sort messages of current Rmail summary by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-lines #[(reverse) "ÀÁ\n\"‡" [rmail-sort-from-summary rmail-sort-by-lines reverse] 3 "\ Sort messages of current Rmail summary by lines of the message. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-sort-messages #[(reverse keyfun) "À‰‰ÄÅ!ˆÆ ˆÇ YƒI\n! = H THF BÍÎ\"ÏUƒAÄÐ\"ˆT‚)„SÒ !Ó @@!ƒ`Ô‚bÕÖ ×\"ƒpÒ !ÄØ!ˆÙÀÇÀÝp!ˆÞÇ!bˆßà!ˆáÇ!ˆ ƒÖ @âpã8ä8#ˆåã8ä8\"ˆA@ƒ» AÍÎ\"ÏUƒÎÄæ\"ˆT‚‘çÇ!ˆÀ(é ˆê ˆë!.‡" [nil sort-lists predicate buffer-read-only message "Finding sort keys..." widen 1 msgnum rmail-total-messages keyfun rmail-current-message rmail-message-vector % 10 0 "Finding sort keys...%d" reverse nreverse numberp < string-lessp sort #[(a b) " @\n@\"‡" [predicate a b] 3] "Reordering messages..." t msginfo current-message inhibit-quit buffer-flush-undo rmail-msgbeg insert-before-markers 90 backward-char insert-buffer-substring 2 3 delete-region "Reordering messages...%d" delete-char quit-flag buffer-enable-undo rmail-set-message-counters rmail-show-message] 5 "\ 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-from-summary #[(sortfun reverse) "À !ˆ\n !ˆÄ ‡" [pop-to-buffer rmail-buffer sortfun reverse rmail-summary] 2 "\ Sort Rmail messages from Summary buffer and update it after sorting."]) (defalias 'rmail-fetch-field #[(msg field) "ŒÀ ˆÁ\n!Ä\n!bˆÅÆÇ È#ƒ`‚ÉÊ!ˆ`ÆËÌÈ#ˆ`\"ˆÍ!*‡" [widen rmail-msgend msg next rmail-msgbeg narrow-to-region search-forward "\n*** EOOH ***\n" t forward-line 1 "\n\n" nil mail-fetch-field field] 6 "\ Return the value of the header FIELD of MSG. Arguments are MSG and FIELD."]) (defalias 'rmail-make-date-sortable #[(date) "À ‰#‡" [timezone-make-date-sortable date "GMT"] 4 "\ Make DATE sortable using the function string-lessp."]) (provide (quote rmailsort))