;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:21:57 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-sort.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 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.")) (fset 'vm-move-message-forward #[(count) " !! q pC\"t̉C$Vժ!U!So@HH!@HH!VA=!@HHJ@HHJ AAA@HHLA@HHL@HHL@HHL@HHL!=@@\"$%! )()@*(A)@*@HH!@HH!WA(A)A@*(A)@*+̉,-+\"/(,)=,@!,@-B-,A,e---\"\"#*. " [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-move-messages-physically vm-folder-read-only signal folder-read-only vm-display nil (vm-move-message-forward vm-move-message-backward vm-move-message-forward-physically vm-move-message-backward-physically) this-command vm-message-pointer ovmp vmp-prev ovmp-prev count 0 forward backward direction vm-abs vm-move-message-pointer string-to-int 1 vm-last vm-message-list 6 t inhibit-quit major-mode vm-virtual-mode vm-physically-move-message vm-ml-sort-keys vm-message-order-changed vm-set-buffer-modified-p vm-clear-modification-flag-undos vm-numbering-redo-start-point vm-numbering-redo-end-point vm-summary-pointer vm-summary-buffer mp list vm-copy-local-variables vm-need-summary-pointer-update vm-mark-for-summary-update vm-mapc #[(m p) "H @IH A@I" [m 1 3 p 4] 3] sort mapcar #[(p) "HHHHD" [p 1 3 4] 3] #[(p q) "@ @W" [p q] 2] vm-preview-current-message vm-update-summary-and-mode-line] 8 "\ Move a message forward in a VM folder. Prefix arg COUNT causes the current message to be moved COUNT messages forward. A negative COUNT causes movement to be backward instead of forward. COUNT defaults to 1. The current message remains selected after being moved. If vm-move-messages-physically is non-nil, the physical copy of the message in the folder is moved. A nil value means just change the presentation order and leave the physical order of the folder undisturbed." "p"]) (fset 'vm-move-message-backward #[(count) " [!" [vm-move-message-forward count] 2 "\ Move a message backward in a VM folder. Prefix arg COUNT causes the current message to be moved COUNT messages backward. A negative COUNT causes movement to be forward instead of backward. COUNT defaults to 1. The current message remains selected after being moved. If vm-move-messages-physically is non-nil, the physical copy of the message in the folder is moved. A nil value means just change the presentation order and leave the physical order of the folder undisturbed." "p"]) (fset 'vm-move-message-forward-physically #[(count) " !)" [t vm-move-messages-physically vm-move-message-forward count] 2 "\ Like vm-move-message-forward but always move the message physically." "p"]) (fset 'vm-move-message-backward-physically #[(count) " !)" [t vm-move-messages-physically vm-move-message-backward count] 2 "\ Like vm-move-message-backward but always move the message physically." "p"]) (byte-code "MMM" [vm-physically-move-message #[(m m-dest) " deZV e dƎ~HHd \n   bpHHHH#HH!\nHH! HH Z !!HHHH ZHHHH ZHHHH ZHHHH Z!! Z!! ZHHHH\n |.\n" [buffer-size nil vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) m-dest 0 doomed-end doomed-start offset buffer-read-only dest-start insert-buffer-substring m 5 marker-position vm-vheaders-of vm-text-of 1 4] 6] vm-so-sortable-datestring #[(m) "HHH\"!ȉ#IHH" [m 3 16 timezone-make-date-sortable vm-get-header-contents "Date:" vm-grok-From_-date "Thu, 1 Jan 1970 00:00:00 GMT" "GMT"] 6] vm-so-sortable-subject #[(m) "HHH! \"ɔU ɕO  \"ɕ GU ɉO *IHH" [m 3 17 t vm-su-subject subject case-fold-search vm-subject-ignored-prefix string-match 0 nil vm-subject-ignored-suffix] 5]] 2) (fset 'vm-sort-messages #[(keys &optional lets-get-physical) "!!q t tpC\"t̉$̉ \"#%&=??@蚫)!B욫BB𚫉B򚫉BBBBBBB@ABBCBDEBFGBH\"AIJ!KLM!N\"OKLM!N\")IP!QR@@=AAhQSQ=STUQVWQ=W@XHY@XHYHỈ$Z[ \\I]!~@^H^H@^H^HWAe@@=AAQ_@@\"@^H^HA3I`!aQ!b )Q\\aQ!b cd e\"%f gg@XHhHJA%gii@XHhHJA%i)gj k ." [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-move-messages-physically lets-get-physical vm-folder-read-only signal folder-read-only vm-display nil (vm-sort-messages) (vm-sort-messages) physical virtual order-did-change offset doomed-end doomed-start old-start mp-new mp-old new-message-list old-message-list physical-order-list ml-keys key key-funcs key-list vm-parse keys "[ ]*\\([^ ]+\\)" mapconcat identity "/" vm-message-list major-mode vm-virtual-mode "thread" vm-thread-obarray vm-build-threads vm-sort-compare-thread "author" vm-sort-compare-author "reversed-author" vm-sort-compare-author-r "date" vm-sort-compare-date "reversed-date" vm-sort-compare-date-r "subject" vm-sort-compare-subject "reversed-subject" vm-sort-compare-subject-r "recipients" vm-sort-compare-recipients "reversed-recipients" vm-sort-compare-recipients-r "byte-count" vm-sort-compare-byte-count "reversed-byte-count" vm-sort-compare-byte-count-r "line-count" vm-sort-compare-line-count "reversed-line-count" vm-sort-compare-line-count-r "physical-order" vm-sort-compare-physical-order "reversed-physical-order" vm-sort-compare-physical-order-r "Unknown key: %s" message "Sorting..." vm-key-functions sort copy-sequence vm-sort-compare-xxxxxx (vm-sort-compare-physical-order) "Sorting... done" t inhibit-quit vm-numbering-redo-start-point vm-numbering-redo-end-point vm-summary-buffer vm-need-summary-pointer-update vm-summary-redo-start-point 1 3 buffer-read-only vm-remove-message-order vm-message-order-changed "Moving messages... " 0 vm-physically-move-message "Moving messages... done" vm-set-buffer-modified-p vm-clear-modification-flag-undos vm-ml-sort-keys intern vm-buffers-needing-display-update vm-reverse-link-messages vm-message-pointer 6 vm-last-message-pointer vm-preview-current-message vm-update-summary-and-mode-line] 17 "\ Sort message in a folder by the specified KEYS. You may sort by more than one particular message key. If messages compare equal by the first key, the second key will be compared and so on. When called interactively the keys will be read from the minibuffer. Valid keys are \"date\" \"reversed-date\" \"author\" \"reversed-author\" \"subject\" \"reversed-subject\" \"recipients\" \"reversed-recipients\" \"line-count\" \"reversed-line-count\" \"byte-count\" \"reversed-byte-count\" \"physical-order\" \"reversed-physical-order\" Optional second arg (prefix arg interactively) means the sort should change the physical order of the messages in the folder. Normally VM changes presentation order only, leaving the folder in the order in which the messages arrived." (byte-code "  Ū# *D" [last-command this-command vm-read-string current-prefix-arg vm-move-messages-physically "Physically sort messages by: " "Sort messages by: " vm-supported-sort-keys t] 4)]) (byte-code "MMMMMMMMMMMMMMMM" [vm-sort-compare-xxxxxx #[(m1 m2) " @ \"= Ao \n*" [vm-key-functions nil result key-funcs m1 m2 =] 4] vm-sort-compare-thread #[(m1 m2) " !\n!ƍ*" [vm-th-thread-list m1 m2 list2 list1 done (byte-code "@ @=@N @N Ū ƪ* @ @\"@ @\"A AX LJ ŇƇ" [list1 list2 oldest-date date2 date1 t = nil throw done] 4)] 3] vm-sort-compare-author #[(m1 m2) " !\n! Ū ƪ*" [vm-su-from m1 m2 s2 s1 t = nil] 4] vm-sort-compare-author-r #[(m1 m2) " !\n! Ū ƪ*" [vm-su-from m1 m2 s2 s1 nil = t] 4] vm-sort-compare-date #[(m1 m2) " !\n! Ū ƪ*" [vm-so-sortable-datestring m1 m2 s2 s1 t = nil] 4] vm-sort-compare-date-r #[(m1 m2) " !\n! Ū ƪ*" [vm-so-sortable-datestring m1 m2 s2 s1 nil = t] 4] vm-sort-compare-recipients #[(m1 m2) " !\n! Ū ƪ*" [vm-su-to m1 m2 s2 s1 t = nil] 4] vm-sort-compare-recipients-r #[(m1 m2) " !\n! Ū ƪ*" [vm-su-to m1 m2 s2 s1 nil = t] 4] vm-sort-compare-subject #[(m1 m2) " !\n! Ū ƪ*" [vm-so-sortable-subject m1 m2 s2 s1 t = nil] 4] vm-sort-compare-subject-r #[(m1 m2) " !\n! Ū ƪ*" [vm-so-sortable-subject m1 m2 s2 s1 nil = t] 4] vm-sort-compare-line-count #[(m1 m2) "\n!! !! Wƪ UǪ*" [string-to-int vm-su-line-count m1 m2 n2 n1 t = nil] 5] vm-sort-compare-line-count-r #[(m1 m2) "\n!! !! Vƪ UǪ*" [string-to-int vm-su-line-count m1 m2 n2 n1 t = nil] 5] vm-sort-compare-byte-count #[(m1 m2) "\n!! !! Wƪ UǪ*" [string-to-int vm-su-byte-count m1 m2 n2 n1 t = nil] 5] vm-sort-compare-byte-count-r #[(m1 m2) "\n!! !! Vƪ UǪ*" [string-to-int vm-su-byte-count m1 m2 n2 n1 t = nil] 5] vm-sort-compare-physical-order #[(m1 m2) "HH\nHH WŪ Uƪ*" [m1 0 m2 n2 n1 t = nil] 4] vm-sort-compare-physical-order-r #[(m1 m2) "HH\nHH VŪ Uƪ*" [m1 0 m2 n2 n1 t = nil] 4]] 2)