/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / rmailsort.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 33 3a 32 39 20 | 31 39 39 34 0a 3b 3b 3b |1:53:29 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 72 6d 61 69 6c | 73 6f 72 74 2e 65 6c 0a |sp/rmail|sort.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 32 2e | 39 32 2e 32 2e 0a 3b 3b |n 19.22.|92.2..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 2f 67 64 2f |   (erro|r "`/gd/|
|000001a0| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|000001b0| 69 73 70 2f 72 6d 61 69 | 6c 73 6f 72 74 2e 65 6c |isp/rmai|lsort.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|000001f0| c2 c3 c4 5c 22 87 22 20 | 5b 72 65 71 75 69 72 65 |...\"." |[require|
|00000200| 20 73 6f 72 74 20 61 75 | 74 6f 6c 6f 61 64 20 74 | sort au|toload t|
|00000210| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 64 61 74 |imezone-|make-dat|
|00000220| 65 2d 73 6f 72 74 61 62 | 6c 65 20 22 74 69 6d 65 |e-sortab|le "time|
|00000230| 7a 6f 6e 65 22 5d 20 33 | 29 0a 28 64 65 66 61 6c |zone"] 3|).(defal|
|00000240| 69 61 73 20 27 72 6d 61 | 69 6c 2d 73 6f 72 74 2d |ias 'rma|il-sort-|
|00000250| 62 79 2d 64 61 74 65 20 | 23 5b 28 72 65 76 65 72 |by-date |#[(rever|
|00000260| 73 65 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 72 6d |se) "...|\"." [rm|
|00000270| 61 69 6c 2d 73 6f 72 74 | 2d 6d 65 73 73 61 67 65 |ail-sort|-message|
|00000280| 73 20 72 65 76 65 72 73 | 65 20 23 5b 28 6d 73 67 |s revers|e #[(msg|
|00000290| 29 20 22 c0 c1 5c 6e c3 | 5c 22 21 87 22 20 5b 72 |) "..\n.|\"!." [r|
|000002a0| 6d 61 69 6c 2d 6d 61 6b | 65 2d 64 61 74 65 2d 73 |mail-mak|e-date-s|
|000002b0| 6f 72 74 61 62 6c 65 20 | 72 6d 61 69 6c 2d 66 65 |ortable |rmail-fe|
|000002c0| 74 63 68 2d 66 69 65 6c | 64 20 6d 73 67 20 22 44 |tch-fiel|d msg "D|
|000002d0| 61 74 65 22 5d 20 34 5d | 5d 20 33 20 22 5c 0a 53 |ate"] 4]|] 3 "\.S|
|000002e0| 6f 72 74 20 6d 65 73 73 | 61 67 65 73 20 6f 66 20 |ort mess|ages of |
|000002f0| 63 75 72 72 65 6e 74 20 | 52 6d 61 69 6c 20 66 69 |current |Rmail fi|
|00000300| 6c 65 20 62 79 20 64 61 | 74 65 2e 0a 49 66 20 70 |le by da|te..If p|
|00000310| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 52 |refix ar|gument R|
|00000320| 45 56 45 52 53 45 20 69 | 73 20 6e 6f 6e 2d 6e 69 |EVERSE i|s non-ni|
|00000330| 6c 2c 20 73 6f 72 74 20 | 74 68 65 6d 20 69 6e 20 |l, sort |them in |
|00000340| 72 65 76 65 72 73 65 20 | 6f 72 64 65 72 2e 22 20 |reverse |order." |
|00000350| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00000360| 27 72 6d 61 69 6c 2d 73 | 6f 72 74 2d 62 79 2d 73 |'rmail-s|ort-by-s|
|00000370| 75 62 6a 65 63 74 20 23 | 5b 28 72 65 76 65 72 73 |ubject #|[(revers|
|00000380| 65 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 72 6d 61 |e) "...\|"." [rma|
|00000390| 69 6c 2d 73 6f 72 74 2d | 6d 65 73 73 61 67 65 73 |il-sort-|messages|
|000003a0| 20 72 65 76 65 72 73 65 | 20 23 5b 28 6d 73 67 29 | reverse| #[(msg)|
|000003b0| 20 22 c0 09 c2 5c 22 86 | 08 00 c3 c4 1d 1e 06 c7 | "...\".|........|
|000003c0| c8 0e 06 5c 22 83 1d 00 | 0e 06 c9 95 ca 4f 82 1f |...\"...|.....O..|
|000003d0| 00 0e 06 2a 87 22 20 5b | 72 6d 61 69 6c 2d 66 65 |...*." [|rmail-fe|
|000003e0| 74 63 68 2d 66 69 65 6c | 64 20 6d 73 67 20 22 53 |tch-fiel|d msg "S|
|000003f0| 75 62 6a 65 63 74 22 20 | 22 22 20 74 20 63 61 73 |ubject" |"" t cas|
|00000400| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6b 65 |e-fold-s|earch ke|
|00000410| 79 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |y string|-match "|
|00000420| 5e 5c 5c 28 72 65 3a 5b | 20 09 5d 2a 5c 5c 29 2a |^\\(re:[| .]*\\)*|
|00000430| 22 20 30 20 6e 69 6c 5d | 20 33 5d 5d 20 33 20 22 |" 0 nil]| 3]] 3 "|
|00000440| 5c 0a 53 6f 72 74 20 6d | 65 73 73 61 67 65 73 20 |\.Sort m|essages |
|00000450| 6f 66 20 63 75 72 72 65 | 6e 74 20 52 6d 61 69 6c |of curre|nt Rmail|
|00000460| 20 66 69 6c 65 20 62 79 | 20 73 75 62 6a 65 63 74 | file by| subject|
|00000470| 2e 0a 49 66 20 70 72 65 | 66 69 78 20 61 72 67 75 |..If pre|fix argu|
|00000480| 6d 65 6e 74 20 52 45 56 | 45 52 53 45 20 69 73 20 |ment REV|ERSE is |
|00000490| 6e 6f 6e 2d 6e 69 6c 2c | 20 73 6f 72 74 20 74 68 |non-nil,| sort th|
|000004a0| 65 6d 20 69 6e 20 72 65 | 76 65 72 73 65 20 6f 72 |em in re|verse or|
|000004b0| 64 65 72 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |der." "P|"]).(def|
|000004c0| 61 6c 69 61 73 20 27 72 | 6d 61 69 6c 2d 73 6f 72 |alias 'r|mail-sor|
|000004d0| 74 2d 62 79 2d 61 75 74 | 68 6f 72 20 23 5b 28 72 |t-by-aut|hor #[(r|
|000004e0| 65 76 65 72 73 65 29 20 | 22 c0 09 c2 5c 22 87 22 |everse) |"...\"."|
|000004f0| 20 5b 72 6d 61 69 6c 2d | 73 6f 72 74 2d 6d 65 73 | [rmail-|sort-mes|
|00000500| 73 61 67 65 73 20 72 65 | 76 65 72 73 65 20 23 5b |sages re|verse #[|
|00000510| 28 6d 73 67 29 20 22 c0 | c1 5c 6e c3 5c 22 86 10 |(msg) ".|.\n.\"..|
|00000520| 00 c1 5c 6e c4 5c 22 86 | 10 00 c5 21 97 87 22 20 |..\n.\".|...!.." |
|00000530| 5b 6d 61 69 6c 2d 73 74 | 72 69 70 2d 71 75 6f 74 |[mail-st|rip-quot|
|00000540| 65 64 2d 6e 61 6d 65 73 | 20 72 6d 61 69 6c 2d 66 |ed-names| rmail-f|
|00000550| 65 74 63 68 2d 66 69 65 | 6c 64 20 6d 73 67 20 22 |etch-fie|ld msg "|
|00000560| 46 72 6f 6d 22 20 22 53 | 65 6e 64 65 72 22 20 22 |From" "S|ender" "|
|00000570| 22 5d 20 34 5d 5d 20 33 | 20 22 5c 0a 53 6f 72 74 |"] 4]] 3| "\.Sort|
|00000580| 20 6d 65 73 73 61 67 65 | 73 20 6f 66 20 63 75 72 | message|s of cur|
|00000590| 72 65 6e 74 20 52 6d 61 | 69 6c 20 66 69 6c 65 20 |rent Rma|il file |
|000005a0| 62 79 20 61 75 74 68 6f | 72 2e 0a 49 66 20 70 72 |by autho|r..If pr|
|000005b0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 52 45 |efix arg|ument RE|
|000005c0| 56 45 52 53 45 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |VERSE is| non-nil|
|000005d0| 2c 20 73 6f 72 74 20 74 | 68 65 6d 20 69 6e 20 72 |, sort t|hem in r|
|000005e0| 65 76 65 72 73 65 20 6f | 72 64 65 72 2e 22 20 22 |everse o|rder." "|
|000005f0| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00000600| 72 6d 61 69 6c 2d 73 6f | 72 74 2d 62 79 2d 72 65 |rmail-so|rt-by-re|
|00000610| 63 69 70 69 65 6e 74 20 | 23 5b 28 72 65 76 65 72 |cipient |#[(rever|
|00000620| 73 65 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 72 6d |se) "...|\"." [rm|
|00000630| 61 69 6c 2d 73 6f 72 74 | 2d 6d 65 73 73 61 67 65 |ail-sort|-message|
|00000640| 73 20 72 65 76 65 72 73 | 65 20 23 5b 28 6d 73 67 |s revers|e #[(msg|
|00000650| 29 20 22 c0 c1 5c 6e c3 | 5c 22 86 10 00 c1 5c 6e |) "..\n.|\"....\n|
|00000660| c4 5c 22 86 10 00 c5 21 | 97 87 22 20 5b 6d 61 69 |.\"....!|.." [mai|
|00000670| 6c 2d 73 74 72 69 70 2d | 71 75 6f 74 65 64 2d 6e |l-strip-|quoted-n|
|00000680| 61 6d 65 73 20 72 6d 61 | 69 6c 2d 66 65 74 63 68 |ames rma|il-fetch|
|00000690| 2d 66 69 65 6c 64 20 6d | 73 67 20 22 54 6f 22 20 |-field m|sg "To" |
|000006a0| 22 41 70 70 61 72 65 6e | 74 6c 79 2d 54 6f 22 20 |"Apparen|tly-To" |
|000006b0| 22 22 5d 20 34 5d 5d 20 | 33 20 22 5c 0a 53 6f 72 |""] 4]] |3 "\.Sor|
|000006c0| 74 20 6d 65 73 73 61 67 | 65 73 20 6f 66 20 63 75 |t messag|es of cu|
|000006d0| 72 72 65 6e 74 20 52 6d | 61 69 6c 20 66 69 6c 65 |rrent Rm|ail file|
|000006e0| 20 62 79 20 72 65 63 69 | 70 69 65 6e 74 2e 0a 49 | by reci|pient..I|
|000006f0| 66 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |f prefix| argumen|
|00000700| 74 20 52 45 56 45 52 53 | 45 20 69 73 20 6e 6f 6e |t REVERS|E is non|
|00000710| 2d 6e 69 6c 2c 20 73 6f | 72 74 20 74 68 65 6d 20 |-nil, so|rt them |
|00000720| 69 6e 20 72 65 76 65 72 | 73 65 20 6f 72 64 65 72 |in rever|se order|
|00000730| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00000740| 61 73 20 27 72 6d 61 69 | 6c 2d 73 6f 72 74 2d 62 |as 'rmai|l-sort-b|
|00000750| 79 2d 63 6f 72 72 65 73 | 70 6f 6e 64 65 6e 74 20 |y-corres|pondent |
|00000760| 23 5b 28 72 65 76 65 72 | 73 65 29 20 22 c0 09 c2 |#[(rever|se) "...|
|00000770| 5c 22 87 22 20 5b 72 6d | 61 69 6c 2d 73 6f 72 74 |\"." [rm|ail-sort|
|00000780| 2d 6d 65 73 73 61 67 65 | 73 20 72 65 76 65 72 73 |-message|s revers|
|00000790| 65 20 23 5b 28 6d 73 67 | 29 20 22 c0 09 c2 5c 22 |e #[(msg|) "...\"|
|000007a0| 87 22 20 5b 72 6d 61 69 | 6c 2d 73 65 6c 65 63 74 |." [rmai|l-select|
|000007b0| 2d 63 6f 72 72 65 73 70 | 6f 6e 64 65 6e 74 20 6d |-corresp|ondent m|
|000007c0| 73 67 20 28 22 46 72 6f | 6d 22 20 22 53 65 6e 64 |sg ("Fro|m" "Send|
|000007d0| 65 72 22 20 22 54 6f 22 | 20 22 41 70 70 61 72 65 |er" "To"| "Appare|
|000007e0| 6e 74 6c 79 2d 54 6f 22 | 29 5d 20 33 5d 5d 20 33 |ntly-To"|)] 3]] 3|
|000007f0| 20 22 5c 0a 53 6f 72 74 | 20 6d 65 73 73 61 67 65 | "\.Sort| message|
|00000800| 73 20 6f 66 20 63 75 72 | 72 65 6e 74 20 52 6d 61 |s of cur|rent Rma|
|00000810| 69 6c 20 66 69 6c 65 20 | 62 79 20 6f 74 68 65 72 |il file |by other|
|00000820| 20 63 6f 72 72 65 73 70 | 6f 6e 64 65 6e 74 2e 0a | corresp|ondent..|
|00000830| 49 66 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |If prefi|x argume|
|00000840| 6e 74 20 52 45 56 45 52 | 53 45 20 69 73 20 6e 6f |nt REVER|SE is no|
|00000850| 6e 2d 6e 69 6c 2c 20 73 | 6f 72 74 20 74 68 65 6d |n-nil, s|ort them|
|00000860| 20 69 6e 20 72 65 76 65 | 72 73 65 20 6f 72 64 65 | in reve|rse orde|
|00000870| 72 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |r." "P"]|).(defal|
|00000880| 69 61 73 20 28 71 75 6f | 74 65 20 72 6d 61 69 6c |ias (quo|te rmail|
|00000890| 2d 73 65 6c 65 63 74 2d | 63 6f 72 72 65 73 70 6f |-select-|correspo|
|000008a0| 6e 64 65 6e 74 29 20 23 | 5b 28 6d 73 67 20 66 69 |ndent) #|[(msg fi|
|000008b0| 65 6c 64 73 29 20 22 c0 | 19 5c 6e 83 5c 22 00 09 |elds) ".|.\n.\"..|
|000008c0| c0 98 83 5c 22 00 c3 c4 | c5 0e 06 5c 6e 40 5c 22 |...\"...|...\n@\"|
|000008d0| 86 18 00 c0 21 21 11 5c | 6e 41 89 12 84 06 00 09 |....!!.\|nA......|
|000008e0| 29 87 22 20 5b 22 22 20 | 61 6e 73 20 66 69 65 6c |)." ["" |ans fiel|
|000008f0| 64 73 20 72 6d 61 69 6c | 2d 64 6f 6e 74 2d 72 65 |ds rmail|-dont-re|
|00000900| 70 6c 79 2d 74 6f 20 6d | 61 69 6c 2d 73 74 72 69 |ply-to m|ail-stri|
|00000910| 70 2d 71 75 6f 74 65 64 | 2d 6e 61 6d 65 73 20 72 |p-quoted|-names r|
|00000920| 6d 61 69 6c 2d 66 65 74 | 63 68 2d 66 69 65 6c 64 |mail-fet|ch-field|
|00000930| 20 6d 73 67 5d 20 36 5d | 29 0a 28 64 65 66 61 6c | msg] 6]|).(defal|
|00000940| 69 61 73 20 27 72 6d 61 | 69 6c 2d 73 6f 72 74 2d |ias 'rma|il-sort-|
|00000950| 62 79 2d 6c 69 6e 65 73 | 20 23 5b 28 72 65 76 65 |by-lines| #[(reve|
|00000960| 72 73 65 29 20 22 c0 09 | c2 5c 22 87 22 20 5b 72 |rse) "..|.\"." [r|
|00000970| 6d 61 69 6c 2d 73 6f 72 | 74 2d 6d 65 73 73 61 67 |mail-sor|t-messag|
|00000980| 65 73 20 72 65 76 65 72 | 73 65 20 23 5b 28 6d 73 |es rever|se #[(ms|
|00000990| 67 29 20 22 c0 c1 5c 6e | 21 c3 5c 6e 21 5c 22 87 |g) "..\n|!.\n!\".|
|000009a0| 22 20 5b 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 20 72 |" [count|-lines r|
|000009b0| 6d 61 69 6c 2d 6d 73 67 | 62 65 67 20 6d 73 67 20 |mail-msg|beg msg |
|000009c0| 72 6d 61 69 6c 2d 6d 73 | 67 65 6e 64 5d 20 34 5d |rmail-ms|gend] 4]|
|000009d0| 5d 20 33 20 22 5c 0a 53 | 6f 72 74 20 6d 65 73 73 |] 3 "\.S|ort mess|
|000009e0| 61 67 65 73 20 6f 66 20 | 63 75 72 72 65 6e 74 20 |ages of |current |
|000009f0| 52 6d 61 69 6c 20 66 69 | 6c 65 20 62 79 20 6e 75 |Rmail fi|le by nu|
|00000a00| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 2e 0a 49 |mber of |lines..I|
|00000a10| 66 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |f prefix| argumen|
|00000a20| 74 20 52 45 56 45 52 53 | 45 20 69 73 20 6e 6f 6e |t REVERS|E is non|
|00000a30| 2d 6e 69 6c 2c 20 73 6f | 72 74 20 74 68 65 6d 20 |-nil, so|rt them |
|00000a40| 69 6e 20 72 65 76 65 72 | 73 65 20 6f 72 64 65 72 |in rever|se order|
|00000a50| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00000a60| 61 73 20 27 72 6d 61 69 | 6c 2d 73 6f 72 74 2d 62 |as 'rmai|l-sort-b|
|00000a70| 79 2d 6b 65 79 77 6f 72 | 64 73 20 23 5b 28 72 65 |y-keywor|ds #[(re|
|00000a80| 76 65 72 73 65 20 6c 61 | 62 65 6c 73 29 20 22 c0 |verse la|bels) ".|
|00000a90| c1 5c 6e 5c 22 84 0b 00 | c3 c4 21 88 5c 6e c5 94 |.\n\"...|..!.\n..|
|00000aa0| c6 4f c7 50 12 c6 1e 08 | c0 c9 5c 6e 5c 22 83 33 |.O.P....|..\n\".3|
|00000ab0| 00 ca 5c 6e c5 89 94 4f | cb 51 0e 08 42 16 08 5c |..\n...O|.Q..B..\|
|00000ac0| 6e c5 95 c6 4f 12 82 16 | 00 cc cd 0e 08 9f 5c 22 |n...O...|......\"|
|00000ad0| 16 08 ce 0e 0f d0 5c 22 | 29 87 22 20 5b 73 74 72 |......\"|)." [str|
|00000ae0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 5e 20 09 5d |ing-matc|h "[^ .]|
|00000af0| 22 20 6c 61 62 65 6c 73 | 20 65 72 72 6f 72 20 22 |" labels| error "|
|00000b00| 4e 6f 20 6c 61 62 65 6c | 73 20 73 70 65 63 69 66 |No label|s specif|
|00000b10| 69 65 64 22 20 30 20 6e | 69 6c 20 22 2c 22 20 6c |ied" 0 n|il "," l|
|00000b20| 61 62 65 6c 76 65 63 20 | 22 5b 20 09 5d 2a 2c 5b |abelvec |"[ .]*,[|
|00000b30| 20 09 5d 2a 22 20 22 2c | 20 3f 5c 5c 28 22 20 22 | .]*" ",| ?\\(" "|
|00000b40| 5c 5c 29 2c 22 20 61 70 | 70 6c 79 20 76 65 63 74 |\\)," ap|ply vect|
|00000b50| 6f 72 20 72 6d 61 69 6c | 2d 73 6f 72 74 2d 6d 65 |or rmail|-sort-me|
|00000b60| 73 73 61 67 65 73 20 72 | 65 76 65 72 73 65 20 23 |ssages r|everse #|
|00000b70| 5b 28 6d 73 67 29 20 22 | c0 19 c0 5c 6e 47 57 83 |[(msg) "|...\nGW.|
|00000b80| 19 00 c3 5c 66 5c 6e 09 | 48 5c 22 84 19 00 09 54 |...\f\n.|H\"....T|
|00000b90| 89 11 82 03 00 09 29 87 | 22 20 5b 30 20 6e 20 6c |......).|" [0 n l|
|00000ba0| 61 62 65 6c 76 65 63 20 | 72 6d 61 69 6c 2d 6d 65 |abelvec |rmail-me|
|00000bb0| 73 73 61 67 65 2d 6c 61 | 62 65 6c 73 2d 70 20 6d |ssage-la|bels-p m|
|00000bc0| 73 67 5d 20 35 5d 5d 20 | 34 20 22 5c 0a 53 6f 72 |sg] 5]] |4 "\.Sor|
|00000bd0| 74 20 6d 65 73 73 61 67 | 65 73 20 6f 66 20 63 75 |t messag|es of cu|
|00000be0| 72 72 65 6e 74 20 52 6d | 61 69 6c 20 66 69 6c 65 |rrent Rm|ail file|
|00000bf0| 20 62 79 20 6c 61 62 65 | 6c 73 2e 0a 49 66 20 70 | by labe|ls..If p|
|00000c00| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 52 |refix ar|gument R|
|00000c10| 45 56 45 52 53 45 20 69 | 73 20 6e 6f 6e 2d 6e 69 |EVERSE i|s non-ni|
|00000c20| 6c 2c 20 73 6f 72 74 20 | 74 68 65 6d 20 69 6e 20 |l, sort |them in |
|00000c30| 72 65 76 65 72 73 65 20 | 6f 72 64 65 72 2e 0a 4b |reverse |order..K|
|00000c40| 45 59 57 4f 52 44 53 20 | 69 73 20 61 20 63 6f 6d |EYWORDS |is a com|
|00000c50| 6d 61 2d 73 65 70 61 72 | 61 74 65 64 20 6c 69 73 |ma-separ|ated lis|
|00000c60| 74 20 6f 66 20 6c 61 62 | 65 6c 73 2e 22 20 22 50 |t of lab|els." "P|
|00000c70| 5c 6e 73 53 6f 72 74 20 | 62 79 20 6c 61 62 65 6c |\nsSort |by label|
|00000c80| 73 3a 20 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |s: "]).(|defalias|
|00000c90| 20 27 72 6d 61 69 6c 2d | 73 6f 72 74 2d 6d 65 73 | 'rmail-|sort-mes|
|00000ca0| 73 61 67 65 73 20 23 5b | 28 72 65 76 65 72 73 65 |sages #[|(reverse|
|00000cb0| 20 6b 65 79 66 75 6e 29 | 20 22 8a 08 c1 3d 83 5c | keyfun)| "...=.\|
|00000cc0| 6e 00 5c 6e 71 88 c3 89 | 89 1c 1d 1e 06 c7 c8 21 |n.\nq...|.......!|
|00000cd0| 88 7e 88 c9 1e 5c 6e 0e | 0b 0e 5c 6e 59 83 52 00 |.~...\n.|..\nY.R.|
|00000ce0| 0e 5c 66 0e 5c 6e 21 0e | 0d 0e 5c 6e 3d 0e 0e 0e |.\f.\n!.|..\n=...|
|00000cf0| 5c 6e 48 0e 0e 0e 5c 6e | 54 48 46 5c 66 42 14 0e |\nH...\n|THF\fB..|
|00000d00| 5c 6e cf a6 d0 55 83 4a | 00 c7 d1 0e 5c 6e 5c 22 |\n...U.J|....\n\"|
|00000d10| 88 0e 5c 6e 54 16 5c 6e | 82 1a 00 29 0e 12 84 5b |..\nT.\n|...)...[|
|00000d20| 00 5c 66 9f 14 5c 66 40 | 40 a7 83 67 00 d3 15 82 |.\f..\f@|@..g....|
|00000d30| 69 00 d4 15 d5 5c 66 d6 | 5c 22 14 0e 12 83 76 00 |i....\f.|\"....v.|
|00000d40| 5c 66 9f 14 c7 d7 21 88 | d8 c3 c9 c3 1e 19 1e 5c |\f....!.|.......\|
|00000d50| 6e 1e 1a 1e 1b dc 70 21 | 88 dd c9 21 62 88 de df |n.....p!|...!b...|
|00000d60| 21 88 e0 c9 21 88 5c 66 | 83 da 00 5c 66 40 16 19 |!...!.\f|...\f@..|
|00000d70| e1 70 e2 0e 19 38 e3 0e | 19 38 23 88 e2 0e 19 38 |.p...8..|.8#....8|
|00000d80| e3 0e 19 38 7c 88 0e 19 | 41 40 83 c0 00 0e 5c 6e |...8|...|A@....\n|
|00000d90| 16 1a 5c 66 41 14 0e 5c | 6e cf a6 d0 55 83 d2 00 |..\fA..\|n...U...|
|00000da0| c7 e4 0e 5c 6e 5c 22 88 | 0e 5c 6e 54 16 5c 6e 82 |...\n\".|.\nT.\n.|
|00000db0| 97 00 e5 c9 21 88 c3 16 | 26 e7 20 88 e8 20 88 e9 |....!...|&. .. ..|
|00000dc0| 0e 1a 21 88 ea 20 85 14 | 01 eb 20 83 09 01 ec 20 |..!.. ..|.. .... |
|00000dd0| 1e 2d 8a ee 8e ef 0e 30 | 21 88 f1 20 88 2b 82 12 |.-.....0|!.. .+..|
|00000de0| 01 8a 0e 30 71 88 f1 20 | 88 29 f2 20 2e 08 87 22 |...0q.. |.). ..."|
|00000df0| 20 5b 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 72 6d 61 | [major-|mode rma|
|00000e00| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6d 6f 64 65 20 |il-summa|ry-mode |
|00000e10| 72 6d 61 69 6c 2d 62 75 | 66 66 65 72 20 6e 69 6c |rmail-bu|ffer nil|
|00000e20| 20 73 6f 72 74 2d 6c 69 | 73 74 73 20 70 72 65 64 | sort-li|sts pred|
|00000e30| 69 63 61 74 65 20 62 75 | 66 66 65 72 2d 72 65 61 |icate bu|ffer-rea|
|00000e40| 64 2d 6f 6e 6c 79 20 6d | 65 73 73 61 67 65 20 22 |d-only m|essage "|
|00000e50| 46 69 6e 64 69 6e 67 20 | 73 6f 72 74 20 6b 65 79 |Finding |sort key|
|00000e60| 73 2e 2e 2e 22 20 31 20 | 6d 73 67 6e 75 6d 20 72 |s..." 1 |msgnum r|
|00000e70| 6d 61 69 6c 2d 74 6f 74 | 61 6c 2d 6d 65 73 73 61 |mail-tot|al-messa|
|00000e80| 67 65 73 20 6b 65 79 66 | 75 6e 20 72 6d 61 69 6c |ges keyf|un rmail|
|00000e90| 2d 63 75 72 72 65 6e 74 | 2d 6d 65 73 73 61 67 65 |-current|-message|
|00000ea0| 20 72 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 76 | rmail-m|essage-v|
|00000eb0| 65 63 74 6f 72 20 31 30 | 20 30 20 22 46 69 6e 64 |ector 10| 0 "Find|
|00000ec0| 69 6e 67 20 73 6f 72 74 | 20 6b 65 79 73 2e 2e 2e |ing sort| keys...|
|00000ed0| 25 64 22 20 72 65 76 65 | 72 73 65 20 3c 20 73 74 |%d" reve|rse < st|
|00000ee0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 73 6f 72 74 20 |ring-les|sp sort |
|00000ef0| 23 5b 28 61 20 62 29 20 | 22 08 09 40 5c 6e 40 5c |#[(a b) |"..@\n@\|
|00000f00| 22 87 22 20 5b 70 72 65 | 64 69 63 61 74 65 20 61 |"." [pre|dicate a|
|00000f10| 20 62 5d 20 33 5d 20 22 | 52 65 6f 72 64 65 72 69 | b] 3] "|Reorderi|
|00000f20| 6e 67 20 6d 65 73 73 61 | 67 65 73 2e 2e 2e 22 20 |ng messa|ges..." |
|00000f30| 74 20 6d 73 67 69 6e 66 | 6f 20 63 75 72 72 65 6e |t msginf|o curren|
|00000f40| 74 2d 6d 65 73 73 61 67 | 65 20 69 6e 68 69 62 69 |t-messag|e inhibi|
|00000f50| 74 2d 71 75 69 74 20 62 | 75 66 66 65 72 2d 64 69 |t-quit b|uffer-di|
|00000f60| 73 61 62 6c 65 2d 75 6e | 64 6f 20 72 6d 61 69 6c |sable-un|do rmail|
|00000f70| 2d 6d 73 67 62 65 67 20 | 69 6e 73 65 72 74 2d 62 |-msgbeg |insert-b|
|00000f80| 65 66 6f 72 65 2d 6d 61 | 72 6b 65 72 73 20 39 30 |efore-ma|rkers 90|
|00000f90| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 69 | backwar|d-char i|
|00000fa0| 6e 73 65 72 74 2d 62 75 | 66 66 65 72 2d 73 75 62 |nsert-bu|ffer-sub|
|00000fb0| 73 74 72 69 6e 67 20 32 | 20 33 20 22 52 65 6f 72 |string 2| 3 "Reor|
|00000fc0| 64 65 72 69 6e 67 20 6d | 65 73 73 61 67 65 73 2e |dering m|essages.|
|00000fd0| 2e 2e 25 64 22 20 64 65 | 6c 65 74 65 2d 63 68 61 |..%d" de|lete-cha|
|00000fe0| 72 20 71 75 69 74 2d 66 | 6c 61 67 20 62 75 66 66 |r quit-f|lag buff|
|00000ff0| 65 72 2d 65 6e 61 62 6c | 65 2d 75 6e 64 6f 20 72 |er-enabl|e-undo r|
|00001000| 6d 61 69 6c 2d 73 65 74 | 2d 6d 65 73 73 61 67 65 |mail-set|-message|
|00001010| 2d 63 6f 75 6e 74 65 72 | 73 20 72 6d 61 69 6c 2d |-counter|s rmail-|
|00001020| 73 68 6f 77 2d 6d 65 73 | 73 61 67 65 20 72 6d 61 |show-mes|sage rma|
|00001030| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 65 78 69 73 74 |il-summa|ry-exist|
|00001040| 73 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |s rmail-|summary-|
|00001050| 64 69 73 70 6c 61 79 65 | 64 20 73 65 6c 65 63 74 |displaye|d select|
|00001060| 65 64 2d 77 69 6e 64 6f | 77 20 77 69 6e 64 6f 77 |ed-windo|w window|
|00001070| 20 28 28 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 | ((selec|t-window|
|00001080| 20 77 69 6e 64 6f 77 29 | 29 20 70 6f 70 2d 74 6f | window)|) pop-to|
|00001090| 2d 62 75 66 66 65 72 20 | 72 6d 61 69 6c 2d 73 75 |-buffer |rmail-su|
|000010a0| 6d 6d 61 72 79 2d 62 75 | 66 66 65 72 20 72 6d 61 |mmary-bu|ffer rma|
|000010b0| 69 6c 2d 75 70 64 61 74 | 65 2d 73 75 6d 6d 61 72 |il-updat|e-summar|
|000010c0| 79 20 72 6d 61 69 6c 2d | 6d 61 79 62 65 2d 64 69 |y rmail-|maybe-di|
|000010d0| 73 70 6c 61 79 2d 73 75 | 6d 6d 61 72 79 5d 20 35 |splay-su|mmary] 5|
|000010e0| 20 22 5c 0a 53 6f 72 74 | 20 6d 65 73 73 61 67 65 | "\.Sort| message|
|000010f0| 73 20 6f 66 20 63 75 72 | 72 65 6e 74 20 52 6d 61 |s of cur|rent Rma|
|00001100| 69 6c 20 66 69 6c 65 2e | 0a 49 66 20 31 73 74 20 |il file.|.If 1st |
|00001110| 61 72 67 75 6d 65 6e 74 | 20 52 45 56 45 52 53 45 |argument| REVERSE|
|00001120| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 73 6f 72 | is non-|nil, sor|
|00001130| 74 20 74 68 65 6d 20 69 | 6e 20 72 65 76 65 72 73 |t them i|n revers|
|00001140| 65 20 6f 72 64 65 72 2e | 0a 32 6e 64 20 61 72 67 |e order.|.2nd arg|
|00001150| 75 6d 65 6e 74 20 4b 45 | 59 46 55 4e 20 69 73 20 |ument KE|YFUN is |
|00001160| 63 61 6c 6c 65 64 20 77 | 69 74 68 20 61 20 6d 65 |called w|ith a me|
|00001170| 73 73 61 67 65 20 6e 75 | 6d 62 65 72 2c 20 61 6e |ssage nu|mber, an|
|00001180| 64 20 73 68 6f 75 6c 64 | 20 72 65 74 75 72 6e 20 |d should| return |
|00001190| 61 20 6b 65 79 2e 22 5d | 29 0a 28 64 65 66 61 6c |a key."]|).(defal|
|000011a0| 69 61 73 20 27 72 6d 61 | 69 6c 2d 66 65 74 63 68 |ias 'rma|il-fetch|
|000011b0| 2d 66 69 65 6c 64 20 23 | 5b 28 6d 73 67 20 66 69 |-field #|[(msg fi|
|000011c0| 65 6c 64 29 20 22 8c 7e | 88 c0 09 21 1a c3 09 21 |eld) ".~|...!...!|
|000011d0| 62 88 c4 c5 5c 6e c6 23 | 83 18 00 60 82 1c 00 c7 |b...\n.#|...`....|
|000011e0| 79 88 60 c4 c8 c9 c6 23 | 88 60 7d 88 ca 0e 0b 21 |y.`....#|.`}....!|
|000011f0| 2a 87 22 20 5b 72 6d 61 | 69 6c 2d 6d 73 67 65 6e |*." [rma|il-msgen|
|00001200| 64 20 6d 73 67 20 6e 65 | 78 74 20 72 6d 61 69 6c |d msg ne|xt rmail|
|00001210| 2d 6d 73 67 62 65 67 20 | 73 65 61 72 63 68 2d 66 |-msgbeg |search-f|
|00001220| 6f 72 77 61 72 64 20 22 | 5c 6e 2a 2a 2a 20 45 4f |orward "|\n*** EO|
|00001230| 4f 48 20 2a 2a 2a 5c 6e | 22 20 74 20 31 20 22 5c |OH ***\n|" t 1 "\|
|00001240| 6e 5c 6e 22 20 6e 69 6c | 20 6d 61 69 6c 2d 66 65 |n\n" nil| mail-fe|
|00001250| 74 63 68 2d 66 69 65 6c | 64 20 66 69 65 6c 64 5d |tch-fiel|d field]|
|00001260| 20 35 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 5 "\.Re|turn the|
|00001270| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 68 65 | value o|f the he|
|00001280| 61 64 65 72 20 46 49 45 | 4c 44 20 6f 66 20 4d 53 |ader FIE|LD of MS|
|00001290| 47 2e 0a 41 72 67 75 6d | 65 6e 74 73 20 61 72 65 |G..Argum|ents are|
|000012a0| 20 4d 53 47 20 61 6e 64 | 20 46 49 45 4c 44 2e 22 | MSG and| FIELD."|
|000012b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 6d |]).(defa|lias 'rm|
|000012c0| 61 69 6c 2d 6d 61 6b 65 | 2d 64 61 74 65 2d 73 6f |ail-make|-date-so|
|000012d0| 72 74 61 62 6c 65 20 23 | 5b 28 64 61 74 65 29 20 |rtable #|[(date) |
|000012e0| 22 c0 09 c2 89 23 87 22 | 20 5b 74 69 6d 65 7a 6f |"....#."| [timezo|
|000012f0| 6e 65 2d 6d 61 6b 65 2d | 64 61 74 65 2d 73 6f 72 |ne-make-|date-sor|
|00001300| 74 61 62 6c 65 20 64 61 | 74 65 20 22 47 4d 54 22 |table da|te "GMT"|
|00001310| 5d 20 34 20 22 5c 0a 4d | 61 6b 65 20 44 41 54 45 |] 4 "\.M|ake DATE|
|00001320| 20 73 6f 72 74 61 62 6c | 65 20 75 73 69 6e 67 20 | sortabl|e using |
|00001330| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |the func|tion str|
|00001340| 69 6e 67 2d 6c 65 73 73 | 70 2e 22 5d 29 0a 28 70 |ing-less|p."]).(p|
|00001350| 72 6f 76 69 64 65 20 28 | 71 75 6f 74 65 20 72 6d |rovide (|quote rm|
|00001360| 61 69 6c 73 6f 72 74 29 | 29 0a                   |ailsort)|).      |
+--------+-------------------------+-------------------------+--------+--------+