;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 02:07:17 1993 ;;; from file /th/jwz/emacs19/lisp/rmail/rmailsort.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!\"" [require sort autoload timezone-make-date-sortable "timezone"] 3) (fset '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"]) (fset '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 "\ Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (fset 'rmail-sort-by-author #[(reverse) " \"" [rmail-sort-messages reverse #[(msg) "\n\"\n\"!" [mail-strip-quoted-names rmail-fetch-field msg "From" "Sender" ""] 4]] 3 "\ Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (fset '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 "\ Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (fset '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 'rmail-select-correspondent #[(msg fields) "\n \n@\"!!\nAg )" ["" ans fields rmail-dont-reply-to mail-strip-quoted-names rmail-fetch-field msg] 6]) (fset '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 number of lines. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (fset 'rmail-sort-messages #[(reverse keyfun) "=\nqÉ!~\n \nY \n! \n=\nH\nTHF B\nϦU\n\"\nT\nK)  @@ \" !\np!!b!! @p88#88|A@\n A\nϦU\n\"\nT\nA!& !." [major-mode rmail-summary-mode rmail-buffer nil sort-lists predicate 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] 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."]) (fset '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 "\ Return the value of the header FIELD of MSG. Arguments are MSG and FIELD."]) (fset 'rmail-make-date-sortable #[(date) " ‰#" [timezone-make-date-sortable date "GMT"] 4 "\ Make DATE sortable using the function string-lessp."]) (provide 'rmailsort)