/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / rmail / rmailsum.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 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 32 39 3a 31 31 20 |Feb  1 1|9:29:11 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 72 6d 61 | 69 6c 2f 72 6d 61 69 6c |lisp/rma|il/rmail|
|00000080| 73 75 6d 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |sum.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 34 2e 31 33 | version| 19.4.13|
|000000a0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 31 |comp ver|sion 2.1|
|000000c0| 30 3b 20 20 31 2d 66 65 | 62 2d 39 33 2e 0a 3b 3b |0;  1-fe|b-93..;;|
|000000d0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000e0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000f0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000100| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000110| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 31 38 2e 0a |ist in E|macs18..|
|00000120| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000130| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000140| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000150| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000160| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000170| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000180| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000190| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001a0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 |    (err|or "This|
|000001b0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001c0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 31 39 2e 22 |ed for E|macs19."|
|000001d0| 29 29 0a 0a 28 66 73 65 | 74 20 27 72 6d 61 69 6c |))..(fse|t 'rmail|
|000001e0| 2d 73 75 6d 6d 61 72 79 | 20 23 5b 6e 69 6c 20 22 |-summary| #[nil "|
|000001f0| c0 c1 c2 5c 22 87 22 20 | 5b 72 6d 61 69 6c 2d 6e |...\"." |[rmail-n|
|00000200| 65 77 2d 73 75 6d 6d 61 | 72 79 20 22 41 6c 6c 22 |ew-summa|ry "All"|
|00000210| 20 6e 69 6c 5d 20 33 20 | 22 5c 0a 44 69 73 70 6c | nil] 3 |"\.Displ|
|00000220| 61 79 20 61 20 73 75 6d | 6d 61 72 79 20 6f 66 20 |ay a sum|mary of |
|00000230| 61 6c 6c 20 6d 65 73 73 | 61 67 65 73 2c 20 6f 6e |all mess|ages, on|
|00000240| 65 20 6c 69 6e 65 20 70 | 65 72 20 6d 65 73 73 61 |e line p|er messa|
|00000250| 67 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ge." nil|]).(fset|
|00000260| 20 27 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d | 'rmail-|summary-|
|00000270| 62 79 2d 6c 61 62 65 6c | 73 20 23 5b 28 6c 61 62 |by-label|s #[(lab|
|00000280| 65 6c 73 29 20 22 08 c1 | 98 ab 87 5c 6e ae 83 c3 |els) "..|...\n...|
|00000290| c4 21 10 08 12 c5 c6 08 | 50 c7 c8 c9 08 21 ca 51 |.!......|P....!.Q|
|000002a0| 23 87 22 20 5b 6c 61 62 | 65 6c 73 20 22 22 20 72 |#." [lab|els "" r|
|000002b0| 6d 61 69 6c 2d 6c 61 73 | 74 2d 6d 75 6c 74 69 2d |mail-las|t-multi-|
|000002c0| 6c 61 62 65 6c 73 20 65 | 72 72 6f 72 20 22 4e 6f |labels e|rror "No|
|000002d0| 20 6c 61 62 65 6c 20 73 | 70 65 63 69 66 69 65 64 | label s|pecified|
|000002e0| 22 20 72 6d 61 69 6c 2d | 6e 65 77 2d 73 75 6d 6d |" rmail-|new-summ|
|000002f0| 61 72 79 20 22 6c 61 62 | 65 6c 73 20 22 20 72 6d |ary "lab|els " rm|
|00000300| 61 69 6c 2d 6d 65 73 73 | 61 67 65 2d 6c 61 62 65 |ail-mess|age-labe|
|00000310| 6c 73 2d 70 20 22 2c 20 | 5c 5c 28 22 20 6d 61 69 |ls-p ", |\\(" mai|
|00000320| 6c 2d 63 6f 6d 6d 61 2d | 6c 69 73 74 2d 72 65 67 |l-comma-|list-reg|
|00000330| 65 78 70 20 22 5c 5c 29 | 2c 22 5d 20 36 20 22 5c |exp "\\)|,"] 6 "\|
|00000340| 0a 44 69 73 70 6c 61 79 | 20 61 20 73 75 6d 6d 61 |.Display| a summa|
|00000350| 72 79 20 6f 66 20 61 6c | 6c 20 6d 65 73 73 61 67 |ry of al|l messag|
|00000360| 65 73 20 77 69 74 68 20 | 6f 6e 65 20 6f 72 20 6d |es with |one or m|
|00000370| 6f 72 65 20 4c 41 42 45 | 4c 53 2e 0a 4c 41 42 45 |ore LABE|LS..LABE|
|00000380| 4c 53 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 73 |LS shoul|d be a s|
|00000390| 74 72 69 6e 67 20 63 6f | 6e 74 61 69 6e 69 6e 67 |tring co|ntaining|
|000003a0| 20 74 68 65 20 64 65 73 | 69 72 65 64 20 6c 61 62 | the des|ired lab|
|000003b0| 65 6c 73 2c 20 73 65 70 | 61 72 61 74 65 64 20 62 |els, sep|arated b|
|000003c0| 79 20 63 6f 6d 6d 61 73 | 2e 22 20 22 73 4c 61 62 |y commas|." "sLab|
|000003d0| 65 6c 73 20 74 6f 20 73 | 75 6d 6d 61 72 69 7a 65 |els to s|ummarize|
|000003e0| 20 62 79 3a 20 22 5d 29 | 0a 28 66 73 65 74 20 27 | by: "])|.(fset '|
|000003f0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 62 79 |rmail-su|mmary-by|
|00000400| 2d 72 65 63 69 70 69 65 | 6e 74 73 20 23 5b 28 72 |-recipie|nts #[(r|
|00000410| 65 63 69 70 69 65 6e 74 | 73 20 26 6f 70 74 69 6f |ecipient|s &optio|
|00000420| 6e 61 6c 20 70 72 69 6d | 61 72 79 2d 6f 6e 6c 79 |nal prim|ary-only|
|00000430| 29 20 22 c0 c1 5c 6e 50 | c3 c4 5c 6e 21 0d 24 87 |) "..\nP|..\n!.$.|
|00000440| 22 20 5b 72 6d 61 69 6c | 2d 6e 65 77 2d 73 75 6d |" [rmail|-new-sum|
|00000450| 6d 61 72 79 20 22 72 65 | 63 69 70 69 65 6e 74 73 |mary "re|cipients|
|00000460| 20 22 20 72 65 63 69 70 | 69 65 6e 74 73 20 72 6d | " recip|ients rm|
|00000470| 61 69 6c 2d 6d 65 73 73 | 61 67 65 2d 72 65 63 69 |ail-mess|age-reci|
|00000480| 70 69 65 6e 74 73 2d 70 | 20 6d 61 69 6c 2d 63 6f |pients-p| mail-co|
|00000490| 6d 6d 61 2d 6c 69 73 74 | 2d 72 65 67 65 78 70 20 |mma-list|-regexp |
|000004a0| 70 72 69 6d 61 72 79 2d | 6f 6e 6c 79 5d 20 35 20 |primary-|only] 5 |
|000004b0| 22 5c 0a 44 69 73 70 6c | 61 79 20 61 20 73 75 6d |"\.Displ|ay a sum|
|000004c0| 6d 61 72 79 20 6f 66 20 | 61 6c 6c 20 6d 65 73 73 |mary of |all mess|
|000004d0| 61 67 65 73 20 77 69 74 | 68 20 74 68 65 20 67 69 |ages wit|h the gi|
|000004e0| 76 65 6e 20 52 45 43 49 | 50 49 45 4e 54 53 2e 0a |ven RECI|PIENTS..|
|000004f0| 4e 6f 72 6d 61 6c 6c 79 | 20 63 68 65 63 6b 73 20 |Normally| checks |
|00000500| 74 68 65 20 54 6f 2c 20 | 46 72 6f 6d 20 61 6e 64 |the To, |From and|
|00000510| 20 43 63 20 66 69 65 6c | 64 73 20 6f 66 20 68 65 | Cc fiel|ds of he|
|00000520| 61 64 65 72 73 3b 0a 62 | 75 74 20 69 66 20 50 52 |aders;.b|ut if PR|
|00000530| 49 4d 41 52 59 2d 4f 4e | 4c 59 20 69 73 20 6e 6f |IMARY-ON|LY is no|
|00000540| 6e 2d 6e 69 6c 20 28 70 | 72 65 66 69 78 20 61 72 |n-nil (p|refix ar|
|00000550| 67 20 67 69 76 65 6e 29 | 2c 0a 20 6f 6e 6c 79 20 |g given)|,. only |
|00000560| 6c 6f 6f 6b 20 69 6e 20 | 74 68 65 20 54 6f 20 61 |look in |the To a|
|00000570| 6e 64 20 46 72 6f 6d 20 | 66 69 65 6c 64 73 2e 0a |nd From |fields..|
|00000580| 52 45 43 49 50 49 45 4e | 54 53 20 69 73 20 61 20 |RECIPIEN|TS is a |
|00000590| 73 74 72 69 6e 67 20 6f | 66 20 6e 61 6d 65 73 20 |string o|f names |
|000005a0| 73 65 70 61 72 61 74 65 | 64 20 62 79 20 63 6f 6d |separate|d by com|
|000005b0| 6d 61 73 2e 22 20 22 73 | 52 65 63 69 70 69 65 6e |mas." "s|Recipien|
|000005c0| 74 73 20 74 6f 20 73 75 | 6d 6d 61 72 69 7a 65 20 |ts to su|mmarize |
|000005d0| 62 79 3a 20 5c 6e 50 22 | 5d 29 0a 28 66 73 65 74 |by: \nP"|]).(fset|
|000005e0| 20 27 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d | 'rmail-|message-|
|000005f0| 72 65 63 69 70 69 65 6e | 74 73 2d 70 20 23 5b 28 |recipien|ts-p #[(|
|00000600| 6d 73 67 20 72 65 63 69 | 70 69 65 6e 74 73 20 26 |msg reci|pients &|
|00000610| 6f 70 74 69 6f 6e 61 6c | 20 70 72 69 6d 61 72 79 |optional| primary|
|00000620| 2d 6f 6e 6c 79 29 20 22 | 8c c0 09 21 62 88 c2 c3 |-only) "|...!b...|
|00000630| 21 88 60 c2 c4 21 88 60 | 7d 88 c5 0e 06 c7 c8 21 |!.`..!.`|}......!|
|00000640| ae 81 c9 5c 22 ae 9b c5 | 0e 06 c7 ca 21 ae 81 c9 |...\"...|....!...|
|00000650| 5c 22 ae 8f 0e 0b 3f ad | 8a c5 0e 06 c7 cc 21 ae |\"....?.|......!.|
|00000660| 81 c9 5c 22 29 87 22 20 | 5b 72 6d 61 69 6c 2d 6d |..\")." |[rmail-m|
|00000670| 73 67 62 65 67 20 6d 73 | 67 20 73 65 61 72 63 68 |sgbeg ms|g search|
|00000680| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 2a 2a 2a 20 |-forward| "\n*** |
|00000690| 45 4f 4f 48 20 2a 2a 2a | 5c 6e 22 20 22 5c 6e 5c |EOOH ***|\n" "\n\|
|000006a0| 6e 22 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |n" strin|g-match |
|000006b0| 72 65 63 69 70 69 65 6e | 74 73 20 6d 61 69 6c 2d |recipien|ts mail-|
|000006c0| 66 65 74 63 68 2d 66 69 | 65 6c 64 20 22 54 6f 22 |fetch-fi|eld "To"|
|000006d0| 20 22 22 20 22 46 72 6f | 6d 22 20 70 72 69 6d 61 | "" "Fro|m" prima|
|000006e0| 72 79 2d 6f 6e 6c 79 20 | 22 43 63 22 5d 20 34 5d |ry-only |"Cc"] 4]|
|000006f0| 29 0a 28 66 73 65 74 20 | 27 72 6d 61 69 6c 2d 73 |).(fset |'rmail-s|
|00000700| 75 6d 6d 61 72 79 2d 62 | 79 2d 72 65 67 65 78 70 |ummary-b|y-regexp|
|00000710| 20 23 5b 28 72 65 67 65 | 78 70 29 20 22 08 c1 98 | #[(rege|xp) "...|
|00000720| ab 87 5c 6e ae 83 c3 c4 | 21 10 08 12 c5 c6 08 50 |..\n....|!......P|
|00000730| c7 08 23 87 22 20 5b 72 | 65 67 65 78 70 20 22 22 |..#." [r|egexp ""|
|00000740| 20 72 6d 61 69 6c 2d 6c | 61 73 74 2d 72 65 67 65 | rmail-l|ast-rege|
|00000750| 78 70 20 65 72 72 6f 72 | 20 22 4e 6f 20 72 65 67 |xp error| "No reg|
|00000760| 65 78 70 20 73 70 65 63 | 69 66 69 65 64 22 20 72 |exp spec|ified" r|
|00000770| 6d 61 69 6c 2d 6e 65 77 | 2d 73 75 6d 6d 61 72 79 |mail-new|-summary|
|00000780| 20 22 72 65 67 65 78 70 | 20 22 20 72 6d 61 69 6c | "regexp| " rmail|
|00000790| 2d 6d 65 73 73 61 67 65 | 2d 72 65 67 65 78 70 2d |-message|-regexp-|
|000007a0| 70 5d 20 34 20 22 5c 0a | 44 69 73 70 6c 61 79 20 |p] 4 "\.|Display |
|000007b0| 61 20 73 75 6d 6d 61 72 | 79 20 6f 66 20 61 6c 6c |a summar|y of all|
|000007c0| 20 6d 65 73 73 61 67 65 | 73 20 61 63 63 6f 72 64 | message|s accord|
|000007d0| 69 6e 67 20 74 6f 20 72 | 65 67 65 78 70 20 52 45 |ing to r|egexp RE|
|000007e0| 47 45 58 50 2e 0a 49 66 | 20 74 68 65 20 72 65 67 |GEXP..If| the reg|
|000007f0| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000800| 69 73 20 66 6f 75 6e 64 | 20 69 6e 20 74 68 65 20 |is found| in the |
|00000810| 68 65 61 64 65 72 20 6f | 66 20 74 68 65 20 6d 65 |header o|f the me|
|00000820| 73 73 61 67 65 0a 28 69 | 6e 63 6c 75 64 69 6e 67 |ssage.(i|ncluding|
|00000830| 20 69 6e 20 74 68 65 20 | 64 61 74 65 20 61 6e 64 | in the |date and|
|00000840| 20 6f 74 68 65 72 20 6c | 69 6e 65 73 2c 20 61 73 | other l|ines, as|
|00000850| 20 77 65 6c 6c 20 61 73 | 20 74 68 65 20 73 75 62 | well as| the sub|
|00000860| 6a 65 63 74 20 6c 69 6e | 65 29 2c 0a 45 6d 61 63 |ject lin|e),.Emac|
|00000870| 73 20 77 69 6c 6c 20 6c | 69 73 74 20 74 68 65 20 |s will l|ist the |
|00000880| 68 65 61 64 65 72 20 6c | 69 6e 65 20 69 6e 20 74 |header l|ine in t|
|00000890| 68 65 20 52 4d 41 49 4c | 2d 73 75 6d 6d 61 72 79 |he RMAIL|-summary|
|000008a0| 2e 22 20 22 73 52 65 67 | 65 78 70 20 74 6f 20 73 |." "sReg|exp to s|
|000008b0| 75 6d 6d 61 72 69 7a 65 | 20 62 79 3a 20 22 5d 29 |ummarize| by: "])|
|000008c0| 0a 28 66 73 65 74 20 27 | 72 6d 61 69 6c 2d 6d 65 |.(fset '|rmail-me|
|000008d0| 73 73 61 67 65 2d 72 65 | 67 65 78 70 2d 70 20 23 |ssage-re|gexp-p #|
|000008e0| 5b 28 6d 73 67 20 72 65 | 67 65 78 70 29 20 22 c0 |[(msg re|gexp) ".|
|000008f0| 09 21 62 88 8a c2 c3 64 | 5c 22 88 60 29 1c c5 0e |.!b....d|\".`)...|
|00000900| 06 0c c7 23 29 87 22 20 | 5b 72 6d 61 69 6c 2d 6d |...#)." |[rmail-m|
|00000910| 73 67 62 65 67 20 6d 73 | 67 20 73 65 61 72 63 68 |sgbeg ms|g search|
|00000920| 2d 66 6f 72 77 61 72 64 | 20 22 2a 2a 2a 20 45 4f |-forward| "*** EO|
|00000930| 4f 48 20 2a 2a 2a 22 20 | 65 6e 64 20 72 65 2d 73 |OH ***" |end re-s|
|00000940| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 72 65 |earch-fo|rward re|
|00000950| 67 65 78 70 20 74 5d 20 | 34 20 22 5c 0a 52 65 74 |gexp t] |4 "\.Ret|
|00000960| 75 72 6e 20 74 2c 20 69 | 66 20 66 6f 72 20 6d 65 |urn t, i|f for me|
|00000970| 73 73 61 67 65 20 6e 75 | 6d 62 65 72 20 4d 53 47 |ssage nu|mber MSG|
|00000980| 2c 20 72 65 67 65 78 70 | 20 52 45 47 45 58 50 20 |, regexp| REGEXP |
|00000990| 6d 61 74 63 68 65 73 20 | 69 6e 20 74 68 65 20 68 |matches |in the h|
|000009a0| 65 61 64 65 72 2e 22 5d | 29 0a 28 66 73 65 74 20 |eader."]|).(fset |
|000009b0| 27 72 6d 61 69 6c 2d 6e | 65 77 2d 73 75 6d 6d 61 |'rmail-n|ew-summa|
|000009c0| 72 79 20 23 5b 28 64 65 | 73 63 72 69 70 74 69 6f |ry #[(de|scriptio|
|000009d0| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 26 72 65 73 74 |n functi|on &rest|
|000009e0| 20 61 72 67 73 29 20 22 | c0 c1 21 88 5c 6e ab 85 | args) "|..!.\n..|
|000009f0| c3 5c 6e 21 ac 87 c4 c3 | 20 c5 50 21 12 c6 c7 1e |.\n!....| .P!....|
|00000a00| 08 1e 09 ca c6 1e 0b 1e | 0c 8c 8a 7e 88 65 62 88 |........|...~.eb.|
|00000a10| 0e 0d 0e 0c 59 ab 9f 0e | 0e ab 8b cf 0e 0e 0e 0c |....Y...|........|
|00000a20| 0e 10 42 5c 22 ab 89 d1 | 0e 0c 21 0e 09 42 16 09 |..B\"...|..!..B..|
|00000a30| 0e 0c 54 16 0c aa 5a 2c | 5c 6e 70 0e 0d 0e 12 1e |..T...Z,|\np.....|
|00000a40| 13 1e 14 1e 15 1e 16 d7 | 0e 16 21 88 d8 d9 21 88 |........|..!...!.|
|00000a50| 0e 15 16 19 c6 1e 0b da | 20 88 0e 09 ab 93 db 0e |........| .......|
|00000a60| 09 9f 0e 16 5c 22 88 dc | dd 21 88 de ca df e0 e1 |....\"..|.!......|
|00000a70| 24 88 29 e2 16 0b 65 62 | 88 e3 20 88 d8 e4 21 88 |$.)...eb|.. ...!.|
|00000a80| e5 0e 26 44 16 24 0e 15 | 16 27 0e 14 16 0d e8 0e |..&D.$..|.'......|
|00000a90| 13 e2 5c 22 88 2e 06 c0 | e9 21 87 22 20 5b 6d 65 |..\"....|.!." [me|
|00000aa0| 73 73 61 67 65 20 22 43 | 6f 6d 70 75 74 69 6e 67 |ssage "C|omputing|
|00000ab0| 20 73 75 6d 6d 61 72 79 | 20 6c 69 6e 65 73 2e 2e | summary| lines..|
|00000ac0| 2e 22 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |." rmail|-summary|
|00000ad0| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 6e |-buffer |buffer-n|
|00000ae0| 61 6d 65 20 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |ame gene|rate-new|
|00000af0| 2d 62 75 66 66 65 72 20 | 22 2d 73 75 6d 6d 61 72 |-buffer |"-summar|
|00000b00| 79 22 20 6e 69 6c 20 30 | 20 6e 65 77 2d 73 75 6d |y" nil 0| new-sum|
|00000b10| 6d 61 72 79 2d 6c 69 6e | 65 2d 63 6f 75 6e 74 20 |mary-lin|e-count |
|00000b20| 73 75 6d 6d 61 72 79 2d | 6d 73 67 73 20 31 20 62 |summary-|msgs 1 b|
|00000b30| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00000b40| 6d 73 67 6e 75 6d 20 72 | 6d 61 69 6c 2d 74 6f 74 |msgnum r|mail-tot|
|00000b50| 61 6c 2d 6d 65 73 73 61 | 67 65 73 20 66 75 6e 63 |al-messa|ges func|
|00000b60| 74 69 6f 6e 20 61 70 70 | 6c 79 20 61 72 67 73 20 |tion app|ly args |
|00000b70| 72 6d 61 69 6c 2d 6d 61 | 6b 65 2d 73 75 6d 6d 61 |rmail-ma|ke-summa|
|00000b80| 72 79 2d 6c 69 6e 65 20 | 72 6d 61 69 6c 2d 63 75 |ry-line |rmail-cu|
|00000b90| 72 72 65 6e 74 2d 6d 65 | 73 73 61 67 65 20 6d 65 |rrent-me|ssage me|
|00000ba0| 73 67 20 74 6f 74 61 6c | 20 72 62 75 66 20 73 62 |sg total| rbuf sb|
|00000bb0| 75 66 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |uf pop-t|o-buffer|
|00000bc0| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00000bd0| 61 62 6c 65 20 6f 74 68 | 65 72 2d 77 69 6e 64 6f |able oth|er-windo|
|00000be0| 77 2d 73 63 72 6f 6c 6c | 2d 62 75 66 66 65 72 20 |w-scroll|-buffer |
|00000bf0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 70 72 69 |erase-bu|ffer pri|
|00000c00| 6e 63 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d |nc delet|e-char -|
|00000c10| 31 20 73 75 62 73 74 2d | 63 68 61 72 2d 69 6e 2d |1 subst-|char-in-|
|00000c20| 72 65 67 69 6f 6e 20 32 | 20 34 30 20 33 32 20 74 |region 2| 40 32 t|
|00000c30| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 6d | rmail-s|ummary-m|
|00000c40| 6f 64 65 20 6d 69 6e 6f | 72 2d 6d 6f 64 65 2d 61 |ode mino|r-mode-a|
|00000c50| 6c 69 73 74 20 22 3a 20 | 22 20 64 65 73 63 72 69 |list ": |" descri|
|00000c60| 70 74 69 6f 6e 20 72 6d | 61 69 6c 2d 62 75 66 66 |ption rm|ail-buff|
|00000c70| 65 72 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |er rmail|-summary|
|00000c80| 2d 67 6f 74 6f 2d 6d 73 | 67 20 22 43 6f 6d 70 75 |-goto-ms|g "Compu|
|00000c90| 74 69 6e 67 20 73 75 6d | 6d 61 72 79 20 6c 69 6e |ting sum|mary lin|
|00000ca0| 65 73 2e 2e 2e 64 6f 6e | 65 22 5d 20 35 20 22 5c |es...don|e"] 5 "\|
|00000cb0| 0a 43 72 65 61 74 65 20 | 61 20 73 75 6d 6d 61 72 |.Create |a summar|
|00000cc0| 79 20 6f 66 20 73 65 6c | 65 63 74 65 64 20 6d 65 |y of sel|ected me|
|00000cd0| 73 73 61 67 65 73 2e 0a | 44 45 53 43 52 49 50 54 |ssages..|DESCRIPT|
|00000ce0| 49 4f 4e 20 6d 61 6b 65 | 73 20 70 61 72 74 20 6f |ION make|s part o|
|00000cf0| 66 20 74 68 65 20 6d 6f | 64 65 20 6c 69 6e 65 20 |f the mo|de line |
|00000d00| 6f 66 20 74 68 65 20 73 | 75 6d 6d 61 72 79 20 62 |of the s|ummary b|
|00000d10| 75 66 66 65 72 2e 0a 46 | 6f 72 20 65 61 63 68 20 |uffer..F|or each |
|00000d20| 6d 65 73 73 61 67 65 2c | 20 46 55 4e 43 54 49 4f |message,| FUNCTIO|
|00000d30| 4e 20 69 73 20 61 70 70 | 6c 69 65 64 20 74 6f 20 |N is app|lied to |
|00000d40| 74 68 65 20 6d 65 73 73 | 61 67 65 20 6e 75 6d 62 |the mess|age numb|
|00000d50| 65 72 20 61 6e 64 20 41 | 52 47 53 2e 2e 2e 0a 61 |er and A|RGS....a|
|00000d60| 6e 64 20 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |nd if th|e result|
|00000d70| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 61 | is non-|nil, tha|
|00000d80| 74 20 6d 65 73 73 61 67 | 65 20 69 73 20 69 6e 63 |t messag|e is inc|
|00000d90| 6c 75 64 65 64 2e 0a 6e | 69 6c 20 66 6f 72 20 46 |luded..n|il for F|
|00000da0| 55 4e 43 54 49 4f 4e 20 | 6d 65 61 6e 73 20 61 6c |UNCTION |means al|
|00000db0| 6c 20 6d 65 73 73 61 67 | 65 73 2e 22 5d 29 0a 28 |l messag|es."]).(|
|00000dc0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00000dd0| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 88 c8 c9 4d 88 ca |.M...M..|.M...M..|
|00000de0| cb 4d 88 cc cd 4d 88 ce | cf 4d 88 d0 d1 4d 88 d2 |.M...M..|.M...M..|
|00000df0| d3 4d 88 d4 d5 d6 d7 23 | 87 22 20 5b 72 6d 61 69 |.M.....#|." [rmai|
|00000e00| 6c 2d 6d 61 6b 65 2d 73 | 75 6d 6d 61 72 79 2d 6c |l-make-s|ummary-l|
|00000e10| 69 6e 65 20 23 5b 28 6d | 73 67 29 20 22 08 09 53 |ine #[(m|sg) "..S|
|00000e20| 48 ae 92 5c 6e 54 89 12 | c3 a6 c4 55 ab 85 c5 c6 |H..\nT..|...U....|
|00000e30| 5c 6e 5c 22 88 c7 09 21 | 89 1e 08 c9 ca 09 21 ab |\n\"...!|......!.|
|00000e40| 83 cb aa 8e cc 09 21 cd | 5c 5c 66 ce 55 ab 83 cf |......!.|\\f.U...|
|00000e50| aa 81 d0 49 88 0e 08 29 | 87 22 20 5b 72 6d 61 69 |...I...)|." [rmai|
|00000e60| 6c 2d 73 75 6d 6d 61 72 | 79 2d 76 65 63 74 6f 72 |l-summar|y-vector|
|00000e70| 20 6d 73 67 20 6e 65 77 | 2d 73 75 6d 6d 61 72 79 | msg new|-summary|
|00000e80| 2d 6c 69 6e 65 2d 63 6f | 75 6e 74 20 31 30 20 30 |-line-co|unt 10 0|
|00000e90| 20 6d 65 73 73 61 67 65 | 20 22 43 6f 6d 70 75 74 | message| "Comput|
|00000ea0| 69 6e 67 20 73 75 6d 6d | 61 72 79 20 6c 69 6e 65 |ing summ|ary line|
|00000eb0| 73 2e 2e 2e 25 64 22 20 | 72 6d 61 69 6c 2d 6d 61 |s...%d" |rmail-ma|
|00000ec0| 6b 65 2d 73 75 6d 6d 61 | 72 79 2d 6c 69 6e 65 2d |ke-summa|ry-line-|
|00000ed0| 31 20 6c 69 6e 65 20 34 | 20 72 6d 61 69 6c 2d 6d |1 line 4| rmail-m|
|00000ee0| 65 73 73 61 67 65 2d 64 | 65 6c 65 74 65 64 2d 70 |essage-d|eleted-p|
|00000ef0| 20 36 38 20 72 6d 61 69 | 6c 2d 6d 73 67 62 65 67 | 68 rmai|l-msgbeg|
|00000f00| 20 33 20 34 38 20 34 35 | 20 33 32 5d 20 35 5d 20 | 3 48 45| 32] 5] |
|00000f10| 72 6d 61 69 6c 2d 6d 61 | 6b 65 2d 73 75 6d 6d 61 |rmail-ma|ke-summa|
|00000f20| 72 79 2d 6c 69 6e 65 2d | 31 20 23 5b 28 6d 73 67 |ry-line-|1 #[(msg|
|00000f30| 29 20 22 c0 09 21 62 88 | 8a c2 79 88 60 29 1b c4 |) "..!b.|..y.`)..|
|00000f40| 1d c6 75 88 c7 c8 21 88 | 6c ab 83 c9 aa 89 ca 60 |..u...!.|l......`|
|00000f50| c4 7f 88 60 7b cb 51 b0 | 01 1e 0c cd 79 88 ce cf |...`{.Q.|....y...|
|00000f60| 21 ad 8d d0 95 62 88 60 | cd 79 88 60 7b 89 16 11 |!....b.`|.y.`{...|
|00000f70| 89 1e 11 ab 91 d2 d3 0e | 11 5c 22 ac 8a 60 d4 79 |........|.\"..`.y|
|00000f80| 88 60 7c 88 c4 16 11 0e | 11 ac c6 d5 1e 16 d7 09 |.`|.....|........|
|00000f90| 21 1e 18 c0 09 21 62 88 | c7 d9 0e 18 d5 23 ab 83 |!....!b.|.....#..|
|00000fa0| 60 aa 84 cd 79 88 60 1e | 1a c7 db c4 d5 23 88 60 |`...y.`.|.....#.`|
|00000fb0| 1e 1c 8c 0e 1a 0e 1c 7d | 88 0e 1a 62 88 dd 20 16 |.......}|...b.. .|
|00000fc0| 11 29 c0 09 21 62 88 c2 | 79 88 cf 0e 11 b1 02 88 |.)..!b..|y.......|
|00000fd0| 2c d2 d3 0e 11 5c 22 15 | 0e 1e 09 53 df e0 09 5c |,....\".|...S...\|
|00000fe0| 22 0e 11 d0 0d 4f 0e 0c | 0e 11 0d 54 c4 4f 52 49 |"....O..|...T.ORI|
|00000ff0| 2c 87 22 20 5b 72 6d 61 | 69 6c 2d 6d 73 67 62 65 |,." [rma|il-msgbe|
|00001000| 67 20 6d 73 67 20 32 20 | 6c 69 6d 20 6e 69 6c 20 |g msg 2 |lim nil |
|00001010| 70 6f 73 20 33 20 73 65 | 61 72 63 68 2d 66 6f 72 |pos 3 se|arch-for|
|00001020| 77 61 72 64 20 22 2c 2c | 22 20 22 22 20 22 7b 22 |ward ",,|" "" "{"|
|00001030| 20 22 7d 20 22 20 6c 61 | 62 65 6c 73 20 31 20 6c | "} " la|bels 1 l|
|00001040| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 53 75 6d 6d 61 |ooking-a|t "Summa|
|00001050| 72 79 2d 6c 69 6e 65 3a | 20 22 20 30 20 6c 69 6e |ry-line:| " 0 lin|
|00001060| 65 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |e string|-match "|
|00001070| 23 22 20 2d 31 20 74 20 | 63 61 73 65 2d 66 6f 6c |#" -1 t |case-fol|
|00001080| 64 2d 73 65 61 72 63 68 | 20 72 6d 61 69 6c 2d 6d |d-search| rmail-m|
|00001090| 73 67 65 6e 64 20 6e 65 | 78 74 20 22 5c 6e 2a 2a |sgend ne|xt "\n**|
|000010a0| 2a 20 45 4f 4f 48 20 2a | 2a 2a 5c 6e 22 20 62 65 |* EOOH *|**\n" be|
|000010b0| 67 20 22 5c 6e 5c 6e 22 | 20 65 6e 64 20 72 6d 61 |g "\n\n"| end rma|
|000010c0| 69 6c 2d 6d 61 6b 65 2d | 62 61 73 69 63 2d 73 75 |il-make-|basic-su|
|000010d0| 6d 6d 61 72 79 2d 6c 69 | 6e 65 20 72 6d 61 69 6c |mmary-li|ne rmail|
|000010e0| 2d 73 75 6d 6d 61 72 79 | 2d 76 65 63 74 6f 72 20 |-summary|-vector |
|000010f0| 66 6f 72 6d 61 74 20 22 | 25 34 64 20 20 22 5d 20 |format "|%4d  "] |
|00001100| 39 5d 20 72 6d 61 69 6c | 2d 6d 61 6b 65 2d 62 61 |9] rmail|-make-ba|
|00001110| 73 69 63 2d 73 75 6d 6d | 61 72 79 2d 6c 69 6e 65 |sic-summ|ary-line|
|00001120| 20 23 5b 6e 69 6c 20 22 | 65 62 88 8a c0 c1 c2 c3 | #[nil "|eb......|
|00001130| 23 ac 83 c4 aa bb c0 c5 | 8a c2 7f 88 60 29 c3 23 |#.......|....`).#|
|00001140| ab 91 c6 c7 c8 c9 94 c9 | 95 7b 21 ca 94 ca 95 7b |........|.{!....{|
|00001150| 23 aa 9e c0 cb 8a c2 7f | 88 60 29 c3 23 ab 91 c6 |#.......|.`).#...|
|00001160| c7 c8 ca 94 ca 95 7b 21 | c9 94 c9 95 7b 23 aa 81 |......{!|....{#..|
|00001170| cc 29 cd 8a c0 ce c2 c3 | 23 ac 84 cf 82 e9 00 d0 |.)......|#.......|
|00001180| 60 53 c2 7f 88 d1 c2 78 | 88 60 7b 21 1e 12 c2 1e |`S.....x|.`{!....|
|00001190| 13 c2 1e 14 c2 1e 15 d6 | d7 d8 d9 20 21 da 51 0e |........|... !.Q.|
|000011a0| 12 5c 22 ab 9c 8a 65 62 | 88 c0 db c2 c3 23 ab 90 |.\"...eb|.....#..|
|000011b0| dc d0 60 c2 7f 88 d1 c2 | 78 88 60 7b 21 50 16 12 |..`.....|x.`{!P..|
|000011c0| 29 0e 12 47 16 13 d6 dd | 0e 12 5c 22 16 14 c6 de |)..G....|..\"....|
|000011d0| 0e 14 ab 86 0e 13 df 58 | ab 8c 0e 12 e0 0e 13 df |.......X|........|
|000011e0| 5a 5d c2 4f aa ab 0e 12 | 0e 14 e1 5a e0 57 ab 83 |Z].O....|...Z.W..|
|000011f0| e0 aa 93 0e 13 0e 14 e2 | 5c 5c 57 ab 86 0e 13 df |........|\\W.....|
|00001200| 5a aa 84 0e 14 e1 5a 89 | 16 15 0e 13 0e 15 df 5c |Z.....Z.|.......\|
|00001210| 5c 5e 4f 5c 22 2c 29 e3 | c0 e4 c2 c3 23 ab 8c d1 |\^O\",).|....#...|
|00001220| c2 77 88 60 c2 7f 88 60 | 7b aa 8c c0 e5 c2 c3 23 |.w.`...`|{......#|
|00001230| 88 60 c2 7f 88 60 7b e6 | b0 06 87 22 20 5b 72 65 |.`...`{.|..." [re|
|00001240| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001250| 22 5e 44 61 74 65 3a 22 | 20 6e 69 6c 20 74 20 22 |"^Date:"| nil t "|
|00001260| 20 20 20 20 20 20 22 20 | 22 5c 5c 28 5b 5e 30 2d |      " |"\\([^0-|
|00001270| 39 3a 5d 5c 5c 29 5c 5c | 28 5b 30 2d 33 5d 3f 5b |9:]\\)\\|([0-3]?[|
|00001280| 30 2d 39 5d 5c 5c 29 5c | 5c 28 5b 2d 20 09 5f 5d |0-9]\\)\|\([- ._]|
|00001290| 2b 5c 5c 29 5c 5c 28 5b | 61 64 66 6a 6d 6e 6f 73 |+\\)\\([|adfjmnos|
|000012a0| 5d 5b 61 63 65 6f 70 75 | 5d 5b 62 63 67 6c 6e 70 |][aceopu|][bcglnp|
|000012b0| 72 74 76 79 5d 5c 5c 29 | 22 20 66 6f 72 6d 61 74 |rtvy]\\)|" format|
|000012c0| 20 22 25 32 64 2d 25 33 | 73 22 20 73 74 72 69 6e | "%2d-%3|s" strin|
|000012d0| 67 2d 74 6f 2d 69 6e 74 | 20 32 20 34 20 22 5c 5c |g-to-int| 2 4 "\\|
|000012e0| 28 5b 5e 61 2d 7a 5d 5c | 5c 29 5c 5c 28 5b 61 64 |([^a-z]\|\)\\([ad|
|000012f0| 66 6a 6d 6e 6f 73 5d 5b | 61 63 65 70 6f 75 5d 5b |fjmnos][|acepou][|
|00001300| 62 63 67 6c 6e 70 72 74 | 76 79 5d 5c 5c 29 5c 5c |bcglnprt|vy]\\)\\|
|00001310| 28 5b 2d 61 2d 7a 20 09 | 5f 5d 2a 5c 5c 29 5c 5c |([-a-z .|_]*\\)\\|
|00001320| 28 5b 30 2d 39 5d 5b 30 | 2d 39 5d 3f 5c 5c 29 22 |([0-9][0|-9]?\\)"|
|00001330| 20 22 3f 3f 3f 3f 3f 3f | 22 20 22 20 20 22 20 22 | "??????|" "  " "|
|00001340| 5e 46 72 6f 6d 3a 5b 20 | 09 5d 2a 22 20 22 20 20 |^From:[ |.]*" "  |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001360| 20 20 20 20 20 20 20 22 | 20 6d 61 69 6c 2d 73 74 |       "| mail-st|
|00001370| 72 69 70 2d 71 75 6f 74 | 65 64 2d 6e 61 6d 65 73 |rip-quot|ed-names|
|00001380| 20 22 20 09 22 20 66 72 | 6f 6d 20 6c 65 6e 20 6d | " ." fr|om len m|
|00001390| 63 68 20 6c 6f 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ch lo st|ring-mat|
|000013a0| 63 68 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |ch "^" r|egexp-qu|
|000013b0| 6f 74 65 20 75 73 65 72 | 2d 6c 6f 67 69 6e 2d 6e |ote user|-login-n|
|000013c0| 61 6d 65 20 22 5c 5c 28 | 24 5c 5c 7c 40 5c 5c 29 |ame "\\(|$\\|@\\)|
|000013d0| 22 20 22 5e 54 6f 3a 5b | 20 09 5d 2a 22 20 22 74 |" "^To:[| .]*" "t|
|000013e0| 6f 3a 20 22 20 22 5b 40 | 25 5d 22 20 22 25 32 35 |o: " "[@|%]" "%25|
|000013f0| 73 22 20 32 35 20 30 20 | 39 20 31 36 20 22 20 20 |s" 25 0 |9 16 "  |
|00001400| 23 22 20 22 5e 53 75 62 | 6a 65 63 74 3a 22 20 22 |#" "^Sub|ject:" "|
|00001410| 5b 5c 6e 5d 5b 5c 6e 5d | 2b 22 20 22 5c 6e 22 5d |[\n][\n]|+" "\n"]|
|00001420| 20 39 5d 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 | 9] rmai|l-summar|
|00001430| 79 2d 6e 65 78 74 2d 61 | 6c 6c 20 23 5b 28 26 6f |y-next-a|ll #[(&o|
|00001440| 70 74 69 6f 6e 61 6c 20 | 6e 75 6d 62 65 72 29 20 |ptional |number) |
|00001450| 22 08 ab 83 08 aa 81 c1 | 79 88 c2 20 87 22 20 5b |".......|y.. ." [|
|00001460| 6e 75 6d 62 65 72 20 31 | 20 72 6d 61 69 6c 2d 73 |number 1| rmail-s|
|00001470| 75 6d 6d 61 72 79 2d 67 | 6f 74 6f 2d 6d 73 67 5d |ummary-g|oto-msg]|
|00001480| 20 31 20 6e 69 6c 20 22 | 70 22 5d 20 72 6d 61 69 | 1 nil "|p"] rmai|
|00001490| 6c 2d 73 75 6d 6d 61 72 | 79 2d 70 72 65 76 69 6f |l-summar|y-previo|
|000014a0| 75 73 2d 61 6c 6c 20 23 | 5b 28 26 6f 70 74 69 6f |us-all #|[(&optio|
|000014b0| 6e 61 6c 20 6e 75 6d 62 | 65 72 29 20 22 08 ab 83 |nal numb|er) "...|
|000014c0| 08 aa 81 c1 5b 79 88 c2 | 20 87 22 20 5b 6e 75 6d |....[y..| ." [num|
|000014d0| 62 65 72 20 31 20 72 6d | 61 69 6c 2d 73 75 6d 6d |ber 1 rm|ail-summ|
|000014e0| 61 72 79 2d 67 6f 74 6f | 2d 6d 73 67 5d 20 31 20 |ary-goto|-msg] 1 |
|000014f0| 6e 69 6c 20 22 70 22 5d | 20 72 6d 61 69 6c 2d 73 |nil "p"]| rmail-s|
|00001500| 75 6d 6d 61 72 79 2d 6e | 65 78 74 2d 6d 73 67 20 |ummary-n|ext-msg |
|00001510| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 75 6d |#[(&opti|onal num|
|00001520| 62 65 72 29 20 22 c0 79 | 88 09 c0 56 ab 83 c2 79 |ber) ".y|...V...y|
|00001530| 88 09 c0 57 ab 84 09 5b | aa 81 09 09 c0 56 ab 83 |...W...[|.....V..|
|00001540| c3 aa 81 c4 c5 1e 06 1e | 07 89 1e 08 c0 56 ab 90 |........|.....V..|
|00001550| 0e 07 c9 c5 ca 23 ab 88 | 0e 08 53 89 16 08 aa 6c |.....#..|..S....l|
|00001560| cb 20 2b 87 22 20 5b 30 | 20 6e 75 6d 62 65 72 20 |. +." [0| number |
|00001570| 31 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |1 re-sea|rch-forw|
|00001580| 61 72 64 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |ard re-s|earch-ba|
|00001590| 63 6b 77 61 72 64 20 6e | 69 6c 20 65 6e 64 20 73 |ckward n|il end s|
|000015a0| 65 61 72 63 68 20 63 6f | 75 6e 74 20 22 5e 2e 2e |earch co|unt "^..|
|000015b0| 2e 2e 2e 5b 5e 44 5d 22 | 20 74 20 72 6d 61 69 6c |...[^D]"| t rmail|
|000015c0| 2d 73 75 6d 6d 61 72 79 | 2d 67 6f 74 6f 2d 6d 73 |-summary|-goto-ms|
|000015d0| 67 5d 20 35 20 6e 69 6c | 20 22 70 22 5d 20 72 6d |g] 5 nil| "p"] rm|
|000015e0| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 70 72 65 76 |ail-summ|ary-prev|
|000015f0| 69 6f 75 73 2d 6d 73 67 | 20 23 5b 28 26 6f 70 74 |ious-msg| #[(&opt|
|00001600| 69 6f 6e 61 6c 20 6e 75 | 6d 62 65 72 29 20 22 c0 |ional nu|mber) ".|
|00001610| 09 ab 83 09 aa 81 c2 5b | 21 87 22 20 5b 72 6d 61 |.......[|!." [rma|
|00001620| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6e 65 78 74 2d |il-summa|ry-next-|
|00001630| 6d 73 67 20 6e 75 6d 62 | 65 72 20 31 5d 20 32 20 |msg numb|er 1] 2 |
|00001640| 6e 69 6c 20 22 70 22 5d | 20 72 6d 61 69 6c 2d 73 |nil "p"]| rmail-s|
|00001650| 75 6d 6d 61 72 79 2d 64 | 65 6c 65 74 65 2d 66 6f |ummary-d|elete-fo|
|00001660| 72 77 61 72 64 20 23 5b | 6e 69 6c 20 22 c0 19 c2 |rward #[|nil "...|
|00001670| 20 88 c3 0c 21 88 c5 20 | 88 c3 0e 06 21 88 c0 1e | ...!.. |....!...|
|00001680| 07 c8 c0 77 88 c9 c0 77 | 88 ca cb 21 88 cc 63 88 |...w...w|...!..c.|
|00001690| 29 cd cb 21 29 87 22 20 | 5b 6e 69 6c 20 65 6e 64 |)..!)." |[nil end|
|000016a0| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 67 | rmail-s|ummary-g|
|000016b0| 6f 74 6f 2d 6d 73 67 20 | 70 6f 70 2d 74 6f 2d 62 |oto-msg |pop-to-b|
|000016c0| 75 66 66 65 72 20 72 6d | 61 69 6c 2d 62 75 66 66 |uffer rm|ail-buff|
|000016d0| 65 72 20 72 6d 61 69 6c | 2d 64 65 6c 65 74 65 2d |er rmail|-delete-|
|000016e0| 6d 65 73 73 61 67 65 20 | 72 6d 61 69 6c 2d 73 75 |message |rmail-su|
|000016f0| 6d 6d 61 72 79 2d 62 75 | 66 66 65 72 20 62 75 66 |mmary-bu|ffer buf|
|00001700| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 22 20 |fer-read|-only " |
|00001710| 22 20 22 5b 30 2d 39 5d | 22 20 64 65 6c 65 74 65 |" "[0-9]|" delete|
|00001720| 2d 63 68 61 72 20 31 20 | 22 44 22 20 72 6d 61 69 |-char 1 |"D" rmai|
|00001730| 6c 2d 73 75 6d 6d 61 72 | 79 2d 6e 65 78 74 2d 6d |l-summar|y-next-m|
|00001740| 73 67 5d 20 32 20 6e 69 | 6c 20 6e 69 6c 5d 20 72 |sg] 2 ni|l nil] r|
|00001750| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 64 65 6c |mail-sum|mary-del|
|00001760| 65 74 65 2d 62 61 63 6b | 77 61 72 64 20 23 5b 6e |ete-back|ward #[n|
|00001770| 69 6c 20 22 c0 19 c2 20 | 88 c3 0c 21 88 c5 20 88 |il "... |...!.. .|
|00001780| c3 0e 06 21 88 c0 1e 07 | c8 c0 77 88 c9 c0 77 88 |...!....|..w...w.|
|00001790| ca cb 21 88 cc 63 88 29 | cd ce 21 29 87 22 20 5b |..!..c.)|..!)." [|
|000017a0| 6e 69 6c 20 65 6e 64 20 | 72 6d 61 69 6c 2d 73 75 |nil end |rmail-su|
|000017b0| 6d 6d 61 72 79 2d 67 6f | 74 6f 2d 6d 73 67 20 70 |mmary-go|to-msg p|
|000017c0| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 20 72 6d 61 |op-to-bu|ffer rma|
|000017d0| 69 6c 2d 62 75 66 66 65 | 72 20 72 6d 61 69 6c 2d |il-buffe|r rmail-|
|000017e0| 64 65 6c 65 74 65 2d 6d | 65 73 73 61 67 65 20 72 |delete-m|essage r|
|000017f0| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 62 75 66 |mail-sum|mary-buf|
|00001800| 66 65 72 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |fer buff|er-read-|
|00001810| 6f 6e 6c 79 20 22 20 22 | 20 22 5b 30 2d 39 5d 22 |only " "| "[0-9]"|
|00001820| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 31 20 22 | delete-|char 1 "|
|00001830| 44 22 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |D" rmail|-summary|
|00001840| 2d 6e 65 78 74 2d 6d 73 | 67 20 2d 31 5d 20 32 20 |-next-ms|g -1] 2 |
|00001850| 6e 69 6c 20 6e 69 6c 5d | 20 72 6d 61 69 6c 2d 73 |nil nil]| rmail-s|
|00001860| 75 6d 6d 61 72 79 2d 75 | 6e 64 65 6c 65 74 65 20 |ummary-u|ndelete |
|00001870| 23 5b 6e 69 6c 20 22 c0 | 19 c0 7f 88 c2 c3 c0 c4 |#[nil ".|........|
|00001880| 23 ab 9b c5 c6 21 88 c7 | 20 88 c8 0e 09 21 88 ca |#....!..| ....!..|
|00001890| 0e 0b 21 ab 83 cc 20 88 | c8 0e 0d 21 aa 82 c7 20 |..!... .|...!... |
|000018a0| 29 87 22 20 5b 6e 69 6c | 20 62 75 66 66 65 72 2d |)." [nil| buffer-|
|000018b0| 72 65 61 64 2d 6f 6e 6c | 79 20 72 65 2d 73 65 61 |read-onl|y re-sea|
|000018c0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5c 5c |rch-back|ward "\\|
|000018d0| 28 5e 20 2a 5b 30 2d 39 | 5d 2a 5c 5c 29 5c 5c 28 |(^ *[0-9|]*\\)\\(|
|000018e0| 44 5c 5c 29 22 20 74 20 | 72 65 70 6c 61 63 65 2d |D\\)" t |replace-|
|000018f0| 6d 61 74 63 68 20 22 5c | 5c 31 20 22 20 72 6d 61 |match "\|\1 " rma|
|00001900| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 67 6f 74 6f 2d |il-summa|ry-goto-|
|00001910| 6d 73 67 20 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |msg pop-|to-buffe|
|00001920| 72 20 72 6d 61 69 6c 2d | 62 75 66 66 65 72 20 72 |r rmail-|buffer r|
|00001930| 6d 61 69 6c 2d 6d 65 73 | 73 61 67 65 2d 64 65 6c |mail-mes|sage-del|
|00001940| 65 74 65 64 2d 70 20 72 | 6d 61 69 6c 2d 63 75 72 |eted-p r|mail-cur|
|00001950| 72 65 6e 74 2d 6d 65 73 | 73 61 67 65 20 72 6d 61 |rent-mes|sage rma|
|00001960| 69 6c 2d 75 6e 64 65 6c | 65 74 65 2d 70 72 65 76 |il-undel|ete-prev|
|00001970| 69 6f 75 73 2d 6d 65 73 | 73 61 67 65 20 72 6d 61 |ious-mes|sage rma|
|00001980| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 62 75 66 66 65 |il-summa|ry-buffe|
|00001990| 72 5d 20 34 20 6e 69 6c | 20 6e 69 6c 5d 20 70 75 |r] 4 nil| nil] pu|
|000019a0| 74 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |t rmail-|summary-|
|000019b0| 6d 6f 64 65 20 6d 6f 64 | 65 2d 63 6c 61 73 73 20 |mode mod|e-class |
|000019c0| 73 70 65 63 69 61 6c 5d | 20 34 29 0a 28 66 73 65 |special]| 4).(fse|
|000019d0| 74 20 27 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |t 'rmail|-summary|
|000019e0| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|000019f0| c1 c2 21 88 c1 c3 21 88 | c4 15 c6 16 07 c8 0e 09 |..!...!.|........|
|00001a00| 21 88 ca 16 0b ca 16 0c | cd 0e 0e 21 88 cf d0 21 |!.......|...!...!|
|00001a10| 87 22 20 5b 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |." [kill|-all-loc|
|00001a20| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 6d 61 6b |al-varia|bles mak|
|00001a30| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|00001a40| 20 72 6d 61 69 6c 2d 62 | 75 66 66 65 72 20 72 6d | rmail-b|uffer rm|
|00001a50| 61 69 6c 2d 74 6f 74 61 | 6c 2d 6d 65 73 73 61 67 |ail-tota|l-messag|
|00001a60| 65 73 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |es rmail|-summary|
|00001a70| 2d 6d 6f 64 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-mode ma|jor-mode|
|00001a80| 20 22 52 4d 41 49 4c 20 | 53 75 6d 6d 61 72 79 22 | "RMAIL |Summary"|
|00001a90| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 75 73 65 2d 6c | mode-na|me use-l|
|00001aa0| 6f 63 61 6c 2d 6d 61 70 | 20 72 6d 61 69 6c 2d 73 |ocal-map| rmail-s|
|00001ab0| 75 6d 6d 61 72 79 2d 6d | 6f 64 65 2d 6d 61 70 20 |ummary-m|ode-map |
|00001ac0| 74 20 74 72 75 6e 63 61 | 74 65 2d 6c 69 6e 65 73 |t trunca|te-lines|
|00001ad0| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00001ae0| 79 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |y set-sy|ntax-tab|
|00001af0| 6c 65 20 74 65 78 74 2d | 6d 6f 64 65 2d 73 79 6e |le text-|mode-syn|
|00001b00| 74 61 78 2d 74 61 62 6c | 65 20 72 75 6e 2d 68 6f |tax-tabl|e run-ho|
|00001b10| 6f 6b 73 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |oks rmai|l-summar|
|00001b20| 79 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |y-mode-h|ook] 2 "|
|00001b30| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 69 6e 20 |\.Major |mode in |
|00001b40| 65 66 66 65 63 74 20 69 | 6e 20 52 6d 61 69 6c 20 |effect i|n Rmail |
|00001b50| 73 75 6d 6d 61 72 79 20 | 62 75 66 66 65 72 2e 0a |summary |buffer..|
|00001b60| 41 20 73 75 62 73 65 74 | 20 6f 66 20 74 68 65 20 |A subset| of the |
|00001b70| 52 6d 61 69 6c 20 6d 6f | 64 65 20 63 6f 6d 6d 61 |Rmail mo|de comma|
|00001b80| 6e 64 73 20 61 72 65 20 | 73 75 70 70 6f 72 74 65 |nds are |supporte|
|00001b90| 64 20 69 6e 20 74 68 69 | 73 20 6d 6f 64 65 2e 20 |d in thi|s mode. |
|00001ba0| 0a 41 73 20 63 6f 6d 6d | 61 6e 64 73 20 61 72 65 |.As comm|ands are|
|00001bb0| 20 69 73 73 75 65 64 20 | 69 6e 20 74 68 65 20 73 | issued |in the s|
|00001bc0| 75 6d 6d 61 72 79 20 62 | 75 66 66 65 72 20 74 68 |ummary b|uffer th|
|00001bd0| 65 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 0a |e corres|ponding.|
|00001be0| 6d 61 69 6c 20 6d 65 73 | 73 61 67 65 20 69 73 20 |mail mes|sage is |
|00001bf0| 64 69 73 70 6c 61 79 65 | 64 20 69 6e 20 74 68 65 |displaye|d in the|
|00001c00| 20 72 6d 61 69 6c 20 62 | 75 66 66 65 72 2e 0a 0a | rmail b|uffer...|
|00001c10| 6e 20 20 20 20 20 20 20 | 4d 6f 76 65 20 74 6f 20 |n       |Move to |
|00001c20| 6e 65 78 74 20 75 6e 64 | 65 6c 65 74 65 64 20 6d |next und|eleted m|
|00001c30| 65 73 73 61 67 65 2c 20 | 6f 72 20 61 72 67 20 6d |essage, |or arg m|
|00001c40| 65 73 73 61 67 65 73 2e | 0a 70 20 20 20 20 20 20 |essages.|.p      |
|00001c50| 20 4d 6f 76 65 20 74 6f | 20 70 72 65 76 69 6f 75 | Move to| previou|
|00001c60| 73 20 75 6e 64 65 6c 65 | 74 65 64 20 6d 65 73 73 |s undele|ted mess|
|00001c70| 61 67 65 2c 20 6f 72 20 | 61 72 67 20 6d 65 73 73 |age, or |arg mess|
|00001c80| 61 67 65 73 2e 0a 43 2d | 6e 09 4d 6f 76 65 20 74 |ages..C-|n.Move t|
|00001c90| 6f 20 6e 65 78 74 2c 20 | 6f 72 20 66 6f 72 77 61 |o next, |or forwa|
|00001ca0| 72 64 20 61 72 67 20 6d | 65 73 73 61 67 65 73 2e |rd arg m|essages.|
|00001cb0| 0a 43 2d 70 09 4d 6f 76 | 65 20 74 6f 20 70 72 65 |.C-p.Mov|e to pre|
|00001cc0| 76 69 6f 75 73 2c 20 6f | 72 20 70 72 65 76 69 6f |vious, o|r previo|
|00001cd0| 75 73 20 61 72 67 20 6d | 65 73 73 61 67 65 73 2e |us arg m|essages.|
|00001ce0| 0a 6a 20 20 20 20 20 20 | 20 4a 75 6d 70 20 74 6f |.j      | Jump to|
|00001cf0| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 61 74 20 | the mes|sage at |
|00001d00| 74 68 65 20 63 75 72 73 | 6f 72 20 6c 6f 63 61 74 |the curs|or locat|
|00001d10| 69 6f 6e 2e 0a 64 20 20 | 20 20 20 20 20 44 65 6c |ion..d  |     Del|
|00001d20| 65 74 65 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |ete the |message |
|00001d30| 61 74 20 74 68 65 20 63 | 75 72 73 6f 72 20 6c 6f |at the c|ursor lo|
|00001d40| 63 61 74 69 6f 6e 20 61 | 6e 64 20 6d 6f 76 65 20 |cation a|nd move |
|00001d50| 74 6f 20 6e 65 78 74 20 | 6d 65 73 73 61 67 65 2e |to next |message.|
|00001d60| 0a 43 2d 64 09 44 65 6c | 65 74 65 20 74 68 65 20 |.C-d.Del|ete the |
|00001d70| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 63 |message |at the c|
|00001d80| 75 72 73 6f 72 20 6c 6f | 63 61 74 69 6f 6e 20 61 |ursor lo|cation a|
|00001d90| 6e 64 20 6d 6f 76 65 20 | 74 6f 20 70 72 65 76 69 |nd move |to previ|
|00001da0| 6f 75 73 20 6d 65 73 73 | 61 67 65 2e 0a 75 09 55 |ous mess|age..u.U|
|00001db0| 6e 64 65 6c 65 74 65 20 | 74 68 69 73 20 6f 72 20 |ndelete |this or |
|00001dc0| 70 72 65 76 69 6f 75 73 | 20 64 65 6c 65 74 65 64 |previous| deleted|
|00001dd0| 20 6d 65 73 73 61 67 65 | 2e 0a 71 09 51 75 69 74 | message|..q.Quit|
|00001de0| 20 52 6d 61 69 6c 2e 0a | 78 09 45 78 69 74 20 61 | Rmail..|x.Exit a|
|00001df0| 6e 64 20 6b 69 6c 6c 20 | 74 68 65 20 73 75 6d 6d |nd kill |the summ|
|00001e00| 61 72 79 20 77 69 6e 64 | 6f 77 2e 0a 73 70 61 63 |ary wind|ow..spac|
|00001e10| 65 20 20 20 53 63 72 6f | 6c 6c 20 6d 65 73 73 61 |e   Scro|ll messa|
|00001e20| 67 65 20 69 6e 20 6f 74 | 68 65 72 20 77 69 6e 64 |ge in ot|her wind|
|00001e30| 6f 77 20 66 6f 72 77 61 | 72 64 2e 0a 64 65 6c 65 |ow forwa|rd..dele|
|00001e40| 74 65 20 20 53 63 72 6f | 6c 6c 20 6d 65 73 73 61 |te  Scro|ll messa|
|00001e50| 67 65 20 62 61 63 6b 77 | 61 72 64 2e 0a 0a 45 6e |ge backw|ard...En|
|00001e60| 74 65 72 69 6e 67 20 74 | 68 69 73 20 6d 6f 64 65 |tering t|his mode|
|00001e70| 20 63 61 6c 6c 73 20 76 | 61 6c 75 65 20 6f 66 20 | calls v|alue of |
|00001e80| 68 6f 6f 6b 20 76 61 72 | 69 61 62 6c 65 20 72 6d |hook var|iable rm|
|00001e90| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 6d 6f 64 65 |ail-summ|ary-mode|
|00001ea0| 2d 68 6f 6f 6b 2e 22 20 | 6e 69 6c 5d 29 0a 28 62 |-hook." |nil]).(b|
|00001eb0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00001ec0| 21 ac 82 c4 13 0b ac cf | c5 20 13 c6 0b 21 88 c7 |!.......|. ...!..|
|00001ed0| 0b c8 c0 23 88 c7 0b c9 | ca 23 88 c7 0b cb cc 23 |...#....|.#.....#|
|00001ee0| 88 c7 0b cd ce 23 88 c7 | 0b cf d0 23 88 c7 0b d1 |.....#..|...#....|
|00001ef0| d2 23 88 c7 0b d3 d4 23 | 88 c7 0b d5 d6 23 88 c7 |.#.....#|.....#..|
|00001f00| 0b d7 d8 23 88 c7 0b d9 | da 23 88 c7 0b db dc 23 |...#....|.#.....#|
|00001f10| 88 c7 0b dd de 23 88 c4 | 87 22 20 5b 72 6d 61 69 |.....#..|." [rmai|
|00001f20| 6c 2d 73 75 6d 6d 61 72 | 79 2d 67 6f 74 6f 2d 6d |l-summar|y-goto-m|
|00001f30| 73 67 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |sg #[(&o|ptional |
|00001f40| 6e 20 6e 6f 77 61 72 6e | 29 20 22 08 3a ab 84 c1 |n nowarn|) ".:...|
|00001f50| 08 21 10 6d ab 83 c2 79 | 88 c3 79 88 0c 60 c5 60 |.!.m...y|..y..`.`|
|00001f60| 64 60 c6 5c 5c 5e 7b 21 | 1e 07 1e 08 1e 09 08 ac |d`.\\^{!|........|
|00001f70| 85 0e 07 10 aa b9 08 ca | 57 ab 86 cb cc 21 88 ca |........|W....!..|
|00001f80| 10 08 0e 0d 56 ab 8a cb | ce 21 88 64 62 88 cf 20 |....V...|.!.db.. |
|00001f90| 88 65 62 88 d0 d1 d2 08 | 21 50 d3 d4 23 ac 90 0e |.eb.....|!P..#...|
|00001fa0| 15 ac 85 cb d6 08 5c 22 | 88 0e 07 10 0e 08 62 88 |......\"|......b.|
|00001fb0| c3 79 88 d7 d3 77 88 d8 | d3 77 88 8a 67 d9 55 ab |.y...w..|.w..g.U.|
|00001fc0| 8b d3 1e 1a db ca 21 88 | d7 63 88 29 29 c3 79 88 |......!.|.c.)).y.|
|00001fd0| dc 0e 09 21 88 dd 08 21 | 88 dc 0e 1e 21 2b 87 22 |...!...!|....!+."|
|00001fe0| 20 5b 6e 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 | [n pref|ix-numer|
|00001ff0| 69 63 2d 76 61 6c 75 65 | 20 2d 31 20 30 20 72 6d |ic-value| -1 0 rm|
|00002000| 61 69 6c 2d 62 75 66 66 | 65 72 20 73 74 72 69 6e |ail-buff|er strin|
|00002010| 67 2d 74 6f 2d 69 6e 74 | 20 35 20 63 75 72 6d 73 |g-to-int| 5 curms|
|00002020| 67 20 63 75 72 20 62 75 | 66 20 31 20 6d 65 73 73 |g cur bu|f 1 mess|
|00002030| 61 67 65 20 22 4e 6f 20 | 70 72 65 63 65 64 69 6e |age "No |precedin|
|00002040| 67 20 6d 65 73 73 61 67 | 65 22 20 72 6d 61 69 6c |g messag|e" rmail|
|00002050| 2d 74 6f 74 61 6c 2d 6d | 65 73 73 61 67 65 73 20 |-total-m|essages |
|00002060| 22 4e 6f 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |"No foll|owing me|
|00002070| 73 73 61 67 65 22 20 72 | 6d 61 69 6c 2d 73 75 6d |ssage" r|mail-sum|
|00002080| 6d 61 72 79 2d 67 6f 74 | 6f 2d 6d 73 67 20 72 65 |mary-got|o-msg re|
|00002090| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000020a0| 22 5e 20 2a 22 20 69 6e | 74 2d 74 6f 2d 73 74 72 |"^ *" in|t-to-str|
|000020b0| 69 6e 67 20 6e 69 6c 20 | 74 20 6e 6f 77 61 72 6e |ing nil |t nowarn|
|000020c0| 20 22 4d 65 73 73 61 67 | 65 20 25 64 20 6e 6f 74 | "Messag|e %d not|
|000020d0| 20 66 6f 75 6e 64 22 20 | 22 20 22 20 22 30 2d 39 | found" |" " "0-9|
|000020e0| 22 20 34 35 20 62 75 66 | 66 65 72 2d 72 65 61 64 |" 45 buf|fer-read|
|000020f0| 2d 6f 6e 6c 79 20 64 65 | 6c 65 74 65 2d 63 68 61 |-only de|lete-cha|
|00002100| 72 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |r pop-to|-buffer |
|00002110| 72 6d 61 69 6c 2d 73 68 | 6f 77 2d 6d 65 73 73 61 |rmail-sh|ow-messa|
|00002120| 67 65 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |ge rmail|-summary|
|00002130| 2d 62 75 66 66 65 72 5d | 20 37 20 6e 69 6c 20 22 |-buffer]| 7 nil "|
|00002140| 50 22 5d 20 62 6f 75 6e | 64 70 20 72 6d 61 69 6c |P"] boun|dp rmail|
|00002150| 2d 73 75 6d 6d 61 72 79 | 2d 6d 6f 64 65 2d 6d 61 |-summary|-mode-ma|
|00002160| 70 20 6e 69 6c 20 6d 61 | 6b 65 2d 6b 65 79 6d 61 |p nil ma|ke-keyma|
|00002170| 70 20 73 75 70 70 72 65 | 73 73 2d 6b 65 79 6d 61 |p suppre|ss-keyma|
|00002180| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 6a 22 |p define|-key "j"|
|00002190| 20 22 6e 22 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 | "n" rma|il-summa|
|000021a0| 72 79 2d 6e 65 78 74 2d | 6d 73 67 20 22 70 22 20 |ry-next-|msg "p" |
|000021b0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 70 72 |rmail-su|mmary-pr|
|000021c0| 65 76 69 6f 75 73 2d 6d | 73 67 20 22 0e 22 20 72 |evious-m|sg "." r|
|000021d0| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 6e 65 78 |mail-sum|mary-nex|
|000021e0| 74 2d 61 6c 6c 20 22 10 | 22 20 72 6d 61 69 6c 2d |t-all ".|" rmail-|
|000021f0| 73 75 6d 6d 61 72 79 2d | 70 72 65 76 69 6f 75 73 |summary-|previous|
|00002200| 2d 61 6c 6c 20 22 20 22 | 20 72 6d 61 69 6c 2d 73 |-all " "| rmail-s|
|00002210| 75 6d 6d 61 72 79 2d 73 | 63 72 6f 6c 6c 2d 6d 73 |ummary-s|croll-ms|
|00002220| 67 2d 75 70 20 22 71 22 | 20 72 6d 61 69 6c 2d 73 |g-up "q"| rmail-s|
|00002230| 75 6d 6d 61 72 79 2d 71 | 75 69 74 20 22 75 22 20 |ummary-q|uit "u" |
|00002240| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 75 6e |rmail-su|mmary-un|
|00002250| 64 65 6c 65 74 65 20 22 | 78 22 20 72 6d 61 69 6c |delete "|x" rmail|
|00002260| 2d 73 75 6d 6d 61 72 79 | 2d 65 78 69 74 20 22 7f |-summary|-exit ".|
|00002270| 22 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |" rmail-|summary-|
|00002280| 73 63 72 6f 6c 6c 2d 6d | 73 67 2d 64 6f 77 6e 20 |scroll-m|sg-down |
|00002290| 22 64 22 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |"d" rmai|l-summar|
|000022a0| 79 2d 64 65 6c 65 74 65 | 2d 66 6f 72 77 61 72 64 |y-delete|-forward|
|000022b0| 20 22 04 22 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 | "." rma|il-summa|
|000022c0| 72 79 2d 64 65 6c 65 74 | 65 2d 62 61 63 6b 77 61 |ry-delet|e-backwa|
|000022d0| 72 64 5d 20 34 29 0a 28 | 66 73 65 74 20 27 72 6d |rd] 4).(|fset 'rm|
|000022e0| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 73 63 72 6f |ail-summ|ary-scro|
|000022f0| 6c 6c 2d 6d 73 67 2d 75 | 70 20 23 5b 28 26 6f 70 |ll-msg-u|p #[(&op|
|00002300| 74 69 6f 6e 61 6c 20 64 | 69 73 74 29 20 22 c0 09 |tional d|ist) "..|
|00002310| 21 87 22 20 5b 73 63 72 | 6f 6c 6c 2d 6f 74 68 65 |!." [scr|oll-othe|
|00002320| 72 2d 77 69 6e 64 6f 77 | 20 64 69 73 74 5d 20 32 |r-window| dist] 2|
|00002330| 20 22 5c 0a 53 63 72 6f | 6c 6c 20 6f 74 68 65 72 | "\.Scro|ll other|
|00002340| 20 77 69 6e 64 6f 77 20 | 66 6f 72 77 61 72 64 2e | window |forward.|
|00002350| 22 20 22 50 22 5d 29 0a | 28 66 73 65 74 20 27 72 |" "P"]).|(fset 'r|
|00002360| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 73 63 72 |mail-sum|mary-scr|
|00002370| 6f 6c 6c 2d 6d 73 67 2d | 64 6f 77 6e 20 23 5b 28 |oll-msg-|down #[(|
|00002380| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 69 73 74 29 20 |&optiona|l dist) |
|00002390| 22 c0 09 c2 3d ab 83 c3 | aa 8a 09 ac 83 c2 aa 84 |"...=...|........|
|000023a0| c4 09 21 5b 21 87 22 20 | 5b 73 63 72 6f 6c 6c 2d |..![!." |[scroll-|
|000023b0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 64 69 73 |other-wi|ndow dis|
|000023c0| 74 20 2d 20 6e 69 6c 20 | 70 72 65 66 69 78 2d 6e |t - nil |prefix-n|
|000023d0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 5d 20 33 20 |umeric-v|alue] 3 |
|000023e0| 22 5c 0a 53 63 72 6f 6c | 6c 20 6f 74 68 65 72 20 |"\.Scrol|l other |
|000023f0| 77 69 6e 64 6f 77 20 62 | 61 63 6b 77 61 72 64 2e |window b|ackward.|
|00002400| 22 20 22 50 22 5d 29 0a | 28 66 73 65 74 20 27 72 |" "P"]).|(fset 'r|
|00002410| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 71 75 69 |mail-sum|mary-qui|
|00002420| 74 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 20 87 22 |t #[nil |". .. ."|
|00002430| 20 5b 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d | [rmail-|summary-|
|00002440| 65 78 69 74 20 72 6d 61 | 69 6c 2d 71 75 69 74 5d |exit rma|il-quit]|
|00002450| 20 31 20 22 5c 0a 51 75 | 69 74 20 6f 75 74 20 6f | 1 "\.Qu|it out o|
|00002460| 66 20 72 6d 61 69 6c 20 | 61 6e 64 20 72 6d 61 69 |f rmail |and rmai|
|00002470| 6c 20 73 75 6d 6d 61 72 | 79 2e 22 20 6e 69 6c 5d |l summar|y." nil]|
|00002480| 29 0a 28 66 73 65 74 20 | 27 72 6d 61 69 6c 2d 73 |).(fset |'rmail-s|
|00002490| 75 6d 6d 61 72 79 2d 65 | 78 69 74 20 23 5b 6e 69 |ummary-e|xit #[ni|
|000024a0| 6c 20 22 c0 70 21 88 c1 | 5c 6e 21 ab 8b c3 c1 5c |l ".p!..|\n!....\|
|000024b0| 6e 21 c4 c5 20 21 88 21 | 87 c6 5c 6e 21 87 22 20 |n!.. !.!|..\n!." |
|000024c0| 5b 62 75 72 79 2d 62 75 | 66 66 65 72 20 67 65 74 |[bury-bu|ffer get|
|000024d0| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 72 |-buffer-|window r|
|000024e0| 6d 61 69 6c 2d 62 75 66 | 66 65 72 20 73 65 6c 65 |mail-buf|fer sele|
|000024f0| 63 74 2d 77 69 6e 64 6f | 77 20 64 65 6c 65 74 65 |ct-windo|w delete|
|00002500| 2d 77 69 6e 64 6f 77 20 | 73 65 6c 65 63 74 65 64 |-window |selected|
|00002510| 2d 77 69 6e 64 6f 77 20 | 73 77 69 74 63 68 2d 74 |-window |switch-t|
|00002520| 6f 2d 62 75 66 66 65 72 | 5d 20 34 20 22 5c 0a 45 |o-buffer|] 4 "\.E|
|00002530| 78 69 74 20 72 6d 61 69 | 6c 20 73 75 6d 6d 61 72 |xit rmai|l summar|
|00002540| 79 2c 20 72 65 6d 61 69 | 6e 69 6e 67 20 77 69 74 |y, remai|ning wit|
|00002550| 68 69 6e 20 72 6d 61 69 | 6c 2e 22 20 6e 69 6c 5d |hin rmai|l." nil]|
|00002560| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+