WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/mail
Viewing File: /usr/share/emacs/24.3/lisp/mail/rmailsort.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:42 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rmailsort.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'rmail)
#@120 Sort messages of current Rmail buffer by "Date" header.
If prefix argument REVERSE is non-nil, sorts 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-get-header "Date"] 4]] 3 (#$ . 575) "P"])
#@151 Sort messages of current Rmail buffer by "Subject" header.
Ignores any "Re: " prefix.  If prefix argument REVERSE is
non-nil, sorts 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-get-header "Subject" "" t string-match "^\\(re:[ 	]*\\)*" 0 nil] 3]] 3 (#$ . 899) "P"])
#@172 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.
(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-get-header "From" "Sender" ""] 4]] 3 (#$ . 1352) "P"])
#@180 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.
(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-get-header "To" "Apparently-To" ""] 4]] 3 (#$ . 1773) "P"])
#@277 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.
(defalias 'rmail-sort-by-correspondent #[(reverse) "\301\302\"\207" [reverse rmail-sort-messages #[(msg) "\301\302\"\227\207" [msg rmail-select-correspondent ("From" "Sender" "To" "Apparently-To")] 3]] 3 (#$ . 2210) "P"])
#@127 Find the first header not excluded by `mail-dont-reply-to-names'.
MSG is a message number.  FIELDS is a list of header names.
(defalias 'rmail-select-correspondent #[(msg fields) "\303	\203!\303\230\203!\304\305\306	@\n\"\206\303!!	A\211\204)\207" [ans fields msg "" mail-dont-reply-to mail-strip-quoted-names rmail-get-header] 6 (#$ . 2717)])
#@126 Sort messages of current Rmail buffer by the number of lines.
If prefix argument REVERSE is non-nil, sorts 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 (#$ . 3079) "P"])
#@366 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.
(defalias 'rmail-sort-by-labels #[(reverse labels) "\304\305\"\204\306\307!\210\310\224\311O\312P\311\211\304\313\"\2032\314\310\211\224O\315Q\nB\310\225\311O\202\316\317\n\237\"\211G\320\321\"*\207" [labels nmax labelvec reverse string-match "[^ 	]" error "No labels specified" 0 nil "," "[ 	]*,[ 	]*" "\\(, \\|\\`\\)" "\\(,\\|\\'\\)" apply vector rmail-sort-messages #[(msg) "\305\306!\307\310!Q	\307\230\203\202,\nW\203+\311\f\nH	\"\204+\nT\211\202\n*\207" [msg str n nmax labelvec 0 rmail-get-attr-names ", " rmail-get-keywords string-match] 6]] 5 (#$ . 3402) "P\nsSort by labels: "])
#@227 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.
(defalias 'rmail-sort-messages #[(reverse keyfun) "rq\210\306 \205\n`\307\310 \210\311\312!\210~\210\313\fY\203E
!)=*H*THF	B\314\315\246!\203?\311\316\"\210T\202)+\204N	\237\317	\211@@\247\203[\320\202\\\321\"+\203f	\237\311\322!\210\323\211\307\313\307,\323=?-./01\324p!\210\325\313!b\210\326\327!\210\330u\210	\307.\2112\203\3322@.\331p\332.8\333.8#\210\334 \210\332.8\333.8|\210.A@\203\301/\314\315\246!\203\316\311\335\"\210T2A\2112\204\231*\336\313!\210\3073-\203\352\337 \210\340 \210\341/!\210\n\203\371\nb\210\342 \205+\f4\343 \203\344 5\212\345\216\3466!\2104\347 \210,\202(r6q\2104\347 \210*\350 ).	\207" [rmail-buffer sort-lists return-to-point msgnum rmail-total-messages keyfun rmail-buffers-swapped-p nil rmail-swap-buffers-maybe message "Finding sort keys..." 1 zerop 10 "Finding sort keys...%d" sort car-less-than-car #[(a b) "@	@\231\207" [a b] 2] "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 ((select-window window)) rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-current-message rmail-message-vector reverse buffer-undo-list undo msginfo current-message inhibit-read-only inhibit-quit --dolist-tail-- quit-flag total window rmail-summary-buffer] 8 (#$ . 4395)])
(autoload 'timezone-make-date-sortable "timezone")
#@55 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 (#$ . 6226)])
(provide 'rmailsort)
F1l3 Manager
