;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'rmail)#@134 Sort messages of current Rmail buffer by "Date" header. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-date #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\300\301\302\"!\207" [rmail-make-date-sortable rmail-get-header "Date"] 5 "\n\n(fn MSG)"]] 4 (#$ . 101) "P"])#@165 Sort messages of current Rmail buffer by "Subject" header. Ignores any "Re: " prefix. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-subject #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\301\302\"\206\303\304\305\306\"\203\211\307\225\310O\202\211)\207" [case-fold-search rmail-get-header "Subject" "" t string-match "^\\(re:[ ]*\\)*" 0 nil] 5 "\n\n(fn MSG)"]] 4 (#$ . 433) "P"])#@186 Sort messages of current Rmail buffer by author. This uses either the "From" or "Sender" header, downcased. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-author #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\300\301\302\"\206\301\303\"\206\304!\227\207" [mail-strip-quoted-names rmail-get-header "From" "Sender" ""] 5 "\n\n(fn MSG)"]] 4 (#$ . 892) "P"])#@194 Sort messages of current Rmail buffer by recipient. This uses either the "To" or "Apparently-To" header, downcased. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-recipient #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\300\301\302\"\206\301\303\"\206\304!\227\207" [mail-strip-quoted-names rmail-get-header "To" "Apparently-To" ""] 5 "\n\n(fn MSG)"]] 4 (#$ . 1320) "P"])#@291 Sort messages of current Rmail buffer by other correspondent. This uses either the "From", "Sender", "To", or "Apparently-To" header, downcased. Uses the first header not excluded by `mail-dont-reply-to-names'. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-correspondent #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\300\301\"\227\207" [rmail-select-correspondent ("From" "Sender" "To" "Apparently-To")] 4 "\n\n(fn MSG)"]] 4 (#$ . 1765) "P"])#@144 Find the first header not excluded by `mail-dont-reply-to-names'. MSG is a message number. FIELDS is a list of header names. (fn MSG FIELDS) (defalias 'rmail-select-correspondent #[514 "\300\203\"\211\300\230\203\"\301\302\303@\"\206\300!!\262A\262\202\207" ["" mail-dont-reply-to mail-strip-quoted-names rmail-get-header] 8 (#$ . 2280)])#@140 Sort messages of current Rmail buffer by the number of lines. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE) (defalias 'rmail-sort-by-lines #[257 "\300\301\"\207" [rmail-sort-messages #[257 "\300\301!\302!\"\207" [count-lines rmail-msgbeg rmail-msgend] 5 "\n\n(fn MSG)"]] 4 (#$ . 2640) "P"])#@387 Sort messages of current Rmail buffer by labels. LABELS is a comma-separated list of labels. The order of these labels specifies the order of messages: messages with the first label come first, messages with the second label come second, and so on. Messages that have none of these labels come last. If prefix argument REVERSE is non-nil, sorts in reverse order. (fn REVERSE LABELS) (defalias 'rmail-sort-by-labels #[514 "\300\301\"\204 \302\303!\210\211\304\224\305O\306P\262\305C\305C\300\307\"\2037\310\304\211\224O\311Q\242B\240\210\304\225\305O\262\202\312\313\242\237\"\240\210\211\242G\240\210\314\315\316#\"\207" [string-match "[^ ]" error "No labels specified" 0 nil "," "[ ]*,[ ]*" "\\(, \\|\\`\\)" "\\(,\\|\\'\\)" apply vector rmail-sort-messages make-closure #[257 "\302\303!\304\305!Q\211\304\230\203\300\242\207\300\242W\203*\306\301\242H\"\204*T\262\202\207" [V0 V1 0 rmail-get-attr-names ", " rmail-get-keywords string-match] 6 "\n\n(fn MSG)"]] 10 (#$ . 2971) "P\nsSort by labels: "])#@248 Sort messages of current Rmail buffer. If REVERSE is non-nil, sorts in reverse order. Calls the function KEYFUN with a message number (it should return a sort key). Numeric keys are sorted numerically, all others as strings. (fn REVERSE KEYFUN) (defalias 'rmail-sort-messages #[514 "rq\210\306 \205\n`\307\310 \210\311\312!\210~\210\313 Y\203A!\n= H THFB\262\211\314\246\315U\203:\311\316\"\210\211T\262\202\210\204J\211\237\262\317\211@@\247\203W\320\202X\321\"\262\203c\211\237\262\311\322!\210\323\211\307\313\f\323=?*\324p!\210\325\313!b\210\326\327!\210\330u\210\211\203\301\211@\331p\3328\3338#\210\334 \210\3328\3338|\210\211A@\203\251\262\314\246\315U\203\266\311\335\"\210T\262A\266\202\202\205\210\336\313!\210\307+\211\203\320\337 \210\340 \210\341!\210\203\340b\210\342 \205 \343 \203\344 \212\345\346\"\216\347,!\210\350 +\266\202 r,q\210\211\350 *\210\351 \262*\266\207)\207" [rmail-buffer rmail-total-messages rmail-current-message rmail-message-vector buffer-undo-list inhibit-read-only rmail-buffers-swapped-p nil rmail-swap-buffers-maybe message "Finding sort keys..." 1 10 0 "Finding sort keys...%d" sort car-less-than-car #[514 "@@\231\207" [] 4 "\n\n(fn A B)"] "Reordering messages..." t buffer-disable-undo rmail-msgbeg insert-before-markers 90 -1 insert-buffer-substring 2 3 rmail-ensure-blank-line "Reordering messages...%d" delete-char buffer-enable-undo rmail-set-message-counters rmail-show-message-1 rmail-summary-exists rmail-summary-displayed selected-window make-closure #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary inhibit-quit quit-flag rmail-summary-buffer] 16 (#$ . 4017)]) (autoload 'timezone-make-date-sortable "timezone")#@66 Make DATE sortable using the function `string-lessp'. (fn DATE) (defalias 'rmail-make-date-sortable #[257 "\300\301\211#\207" [timezone-make-date-sortable "GMT"] 5 (#$ . 5819)]) (provide 'rmailsort)