;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:00 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/rmailsort.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 "`rmailsort.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302\303\"!\207" [msg rmail-make-date-sortable rmail-fetch-field "Date"] 4]] 3 (#$ . 756) "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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\303\304\"\206\305\306\307\310\n\"\203\n\311\225\312O\202\n*\207" [msg case-fold-search key rmail-fetch-field "Subject" "" t string-match "^\\(re:[ ]*\\)*" 0 nil] 3]] 3 (#$ . 1074) "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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302\303\"\206\302\304\"\206\305!\227\207" [msg mail-strip-quoted-names rmail-fetch-field "From" "Sender" ""] 4]] 3 (#$ . 1494) "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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302\303\"\206\302\304\"\206\305!\227\207" [msg mail-strip-quoted-names rmail-fetch-field "To" "Apparently-To" ""] 4]] 3 (#$ . 1859) "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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302\"\207" [msg rmail-select-correspondent ("From" "Sender" "To" "Apparently-To")] 3]] 3 (#$ . 2235) "P"]) (defalias 'rmail-select-correspondent #[(msg fields) "\303 \203!\303\230\203!\304\305\306\n @\"\206\303!! A\211\204)\207" [ans fields msg "" rmail-dont-reply-to mail-strip-quoted-names rmail-fetch-field] 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) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302!\303!\"\207" [msg count-lines rmail-msgbeg rmail-msgend] 4]] 3 (#$ . 2808) "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-labels #[(reverse labels) "\303\304\"\204 \305\306!\210\307\224\310O\311P\310\303\312\"\2030\313\307\211\224O\314Q B\307\225\310O\202\315\316 \237\"\317\n\320\")\207" [labels labelvec reverse string-match "[^ ]" error "No labels specified" 0 nil "," "[ ]*,[ ]*" ", ?\\(" "\\)," apply vector rmail-sort-messages #[(msg) "\303\303 GW\203\304\n H\"\204T\211\202)\207" [n labelvec msg 0 rmail-message-labels-p] 5]] 4 (#$ . 3129) "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) "r\306=\203\n q\210\307`eZ\307\211\310\311!\210~\210\312()(Y\203U*(!+(=,(H,(THF\nB\313(\314\246!\203M\310\315(\"\210(T(\202)-\204^\n\237\n@@\247\203j\316\202l\317\320\n\321\"-\203y\n\237\310\322!\210\323\307\312\307.(/0\324p!\210\325\312!b\210\326\327!\210\330u\210\n\203\334\n@.\331p\332.8\333.8#\210\332.8\333.8|\210.A@\203\302(/\nA\313(\314\246!\203\324\310\334(\"\210(T(\202\231\335\312!\210\3071\336 \210\337 \210\340/!\210\fe\\b\210\341 \205()2\342 \203\343 3\212\344\216\3454!\2102)\346 \210,\202%\2124q\2102)\346 \210*\347 ). \207" [major-mode rmail-buffer sort-lists predicate point-offset buffer-read-only rmail-summary-mode nil message "Finding sort keys..." 1 zerop 10 "Finding sort keys...%d" < string-lessp sort #[(a b) " @\n@\"\207" [predicate a b] 3] "Reordering messages..." t buffer-disable-undo rmail-msgbeg insert-before-markers 90 -1 insert-buffer-substring 2 3 "Reordering messages...%d" delete-char buffer-enable-undo rmail-set-message-counters rmail-show-message rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) pop-to-buffer rmail-update-summary rmail-maybe-display-summary msgnum rmail-total-messages keyfun rmail-current-message rmail-message-vector reverse msginfo current-message inhibit-quit quit-flag total window rmail-summary-buffer] 5 (#$ . 3799)]) #@75 Return the value of the header FIELD of MSG. Arguments are MSG and FIELD. (defalias 'rmail-fetch-field #[(msg field) "\214~\210\303!\304!b\210\305\306 \307#\203`\202\310y\210`\305\311\312\307#\210`}\210\313\n!*\207" [msg next field rmail-msgend rmail-msgbeg search-forward "\n*** EOOH ***\n" t 1 "\n\n" nil mail-fetch-field] 5 (#$ . 5428)]) #@53 Make DATE sortable using the function string-lessp. (defalias 'rmail-make-date-sortable #[(date) "\301\302\211#\207" [date timezone-make-date-sortable "GMT"] 4 (#$ . 5782)]) (provide 'rmailsort)