/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / emacs / lisp / rmail.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 6d 61 69 6c 2d 75 74 | 69 6c 73 29 29 0a 0a 28 | mail-ut|ils))..(|
|00000020| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 72 |provide |(quote r|
|00000030| 6d 61 69 6c 29 29 0a 0a | 28 64 65 66 76 61 72 20 |mail))..|(defvar |
|00000040| 6d 6d 64 66 2d 64 65 6c | 69 6d 31 20 22 5e 01 01 |mmdf-del|im1 "^..|
|00000050| 01 01 0a 22 20 22 52 65 | 67 65 78 70 20 6d 61 72 |..." "Re|gexp mar|
|00000060| 6b 69 6e 67 20 74 68 65 | 20 73 74 61 72 74 20 6f |king the| start o|
|00000070| 66 20 61 6e 20 6d 6d 64 | 66 20 6d 65 73 73 61 67 |f an mmd|f messag|
|00000080| 65 22 29 0a 0a 28 64 65 | 66 76 61 72 20 6d 6d 64 |e")..(de|fvar mmd|
|00000090| 66 2d 64 65 6c 69 6d 32 | 20 22 5e 01 01 01 01 0a |f-delim2| "^.....|
|000000a0| 22 20 22 52 65 67 65 78 | 70 20 6d 61 72 6b 69 6e |" "Regex|p markin|
|000000b0| 67 20 74 68 65 20 65 6e | 64 20 6f 66 20 61 6e 20 |g the en|d of an |
|000000c0| 6d 6d 64 66 20 6d 65 73 | 73 61 67 65 22 29 0a 0a |mmdf mes|sage")..|
|000000d0| 28 64 65 66 76 61 72 20 | 72 6d 61 69 6c 2d 6d 65 |(defvar |rmail-me|
|000000e0| 73 73 61 67 65 2d 66 69 | 6c 74 65 72 20 6e 69 6c |ssage-fi|lter nil|
|000000f0| 20 22 5c 0a 49 66 20 6e | 6f 6e 20 6e 69 6c 2c 20 | "\.If n|on nil, |
|00000100| 69 73 20 61 20 66 69 6c | 74 65 72 20 66 75 6e 63 |is a fil|ter func|
|00000110| 74 69 6f 6e 20 66 6f 72 | 20 6e 65 77 20 68 65 61 |tion for| new hea|
|00000120| 64 65 72 73 20 69 6e 20 | 52 4d 41 49 4c 2e 0a 43 |ders in |RMAIL..C|
|00000130| 61 6c 6c 65 64 20 77 69 | 74 68 20 72 65 67 69 6f |alled wi|th regio|
|00000140| 6e 20 6e 61 72 72 6f 77 | 65 64 20 74 6f 20 75 6e |n narrow|ed to un|
|00000150| 66 6f 72 6d 61 74 74 65 | 64 20 68 65 61 64 65 72 |formatte|d header|
|00000160| 2e 22 29 0a 0a 28 64 65 | 66 76 61 72 20 72 6d 61 |.")..(de|fvar rma|
|00000170| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 29 |il-mode-|map nil)|
|00000180| 0a 0a 28 64 65 66 76 61 | 72 20 72 6d 61 69 6c 2d |..(defva|r rmail-|
|00000190| 63 75 72 72 65 6e 74 2d | 6d 65 73 73 61 67 65 20 |current-|message |
|000001a0| 6e 69 6c 29 0a 0a 28 64 | 65 66 76 61 72 20 72 6d |nil)..(d|efvar rm|
|000001b0| 61 69 6c 2d 74 6f 74 61 | 6c 2d 6d 65 73 73 61 67 |ail-tota|l-messag|
|000001c0| 65 73 20 6e 69 6c 29 0a | 0a 28 64 65 66 76 61 72 |es nil).|.(defvar|
|000001d0| 20 72 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 76 | rmail-m|essage-v|
|000001e0| 65 63 74 6f 72 20 6e 69 | 6c 29 0a 0a 28 64 65 66 |ector ni|l)..(def|
|000001f0| 76 61 72 20 72 6d 61 69 | 6c 2d 64 65 6c 65 74 65 |var rmai|l-delete|
|00000200| 64 2d 76 65 63 74 6f 72 | 20 6e 69 6c 29 0a 0a 28 |d-vector| nil)..(|
|00000210| 64 65 66 76 61 72 20 72 | 6d 61 69 6c 2d 73 75 6d |defvar r|mail-sum|
|00000220| 6d 61 72 79 2d 62 75 66 | 66 65 72 20 6e 69 6c 29 |mary-buf|fer nil)|
|00000230| 0a 0a 28 64 65 66 76 61 | 72 20 72 6d 61 69 6c 2d |..(defva|r rmail-|
|00000240| 73 75 6d 6d 61 72 79 2d | 76 65 63 74 6f 72 20 6e |summary-|vector n|
|00000250| 69 6c 29 0a 0a 28 64 65 | 66 76 61 72 20 72 6d 61 |il)..(de|fvar rma|
|00000260| 69 6c 2d 6c 61 73 74 2d | 6c 61 62 65 6c 20 6e 69 |il-last-|label ni|
|00000270| 6c 29 0a 0a 28 64 65 66 | 76 61 72 20 72 6d 61 69 |l)..(def|var rmai|
|00000280| 6c 2d 6c 61 73 74 2d 6d | 75 6c 74 69 2d 6c 61 62 |l-last-m|ulti-lab|
|00000290| 65 6c 73 20 6e 69 6c 29 | 0a 0a 28 64 65 66 76 61 |els nil)|..(defva|
|000002a0| 72 20 72 6d 61 69 6c 2d | 6c 61 73 74 2d 66 69 6c |r rmail-|last-fil|
|000002b0| 65 20 6e 69 6c 29 0a 0a | 28 64 65 66 76 61 72 20 |e nil)..|(defvar |
|000002c0| 72 6d 61 69 6c 2d 6c 61 | 73 74 2d 72 6d 61 69 6c |rmail-la|st-rmail|
|000002d0| 2d 66 69 6c 65 20 6e 69 | 6c 29 0a 0a 28 64 65 66 |-file ni|l)..(def|
|000002e0| 76 61 72 20 72 6d 61 69 | 6c 2d 75 6e 69 78 2d 6d |var rmai|l-unix-m|
|000002f0| 61 69 6c 2d 64 65 6c 69 | 6d 69 74 65 72 20 22 46 |ail-deli|miter "F|
|00000300| 72 6f 6d 20 5c 5c 28 5b | 5e 20 0a 5d 2a 5c 5c 28 |rom \\([|^ .]*\\(|
|00000310| 5c 5c 7c 5c 22 2e 2a 5c | 22 5b 5e 20 0a 5d 2a 5c |\\|\".*\|"[^ .]*\|
|00000320| 5c 29 5c 5c 29 20 20 3f | 5c 5c 28 5b 5e 20 0a 5d |\)\\)  ?|\\([^ .]|
|00000330| 2a 5c 5c 29 20 5c 5c 28 | 5b 5e 20 5d 2a 5c 5c 29 |*\\) \\(|[^ ]*\\)|
|00000340| 20 2a 5c 5c 28 5b 30 2d | 39 5d 2a 5c 5c 29 20 5c | *\\([0-|9]*\\) \|
|00000350| 5c 28 5b 30 2d 39 3a 5d | 2a 5c 5c 29 5c 5c 28 20 |\([0-9:]|*\\)\\( |
|00000360| 3f 5b 41 2d 5a 5d 3f 5b | 41 2d 5a 5d 5b 41 2d 5a |?[A-Z]?[|A-Z][A-Z|
|00000370| 5d 54 5c 5c 28 20 44 53 | 54 5c 5c 29 3f 5c 5c 7c |]T\\( DS|T\\)?\\||
|00000380| 20 3f 5b 2d 2b 5d 3f 5b | 30 2d 39 5d 5b 30 2d 39 | ?[-+]?[|0-9][0-9|
|00000390| 5d 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5c 5c 7c 5c 5c |][0-9][0|-9]\\|\\|
|000003a0| 29 20 31 39 5c 5c 28 5b | 30 2d 39 5d 2a 5c 5c 29 |) 19\\([|0-9]*\\)|
|000003b0| 20 2a 5c 5c 28 72 65 6d | 6f 74 65 20 66 72 6f 6d | *\\(rem|ote from|
|000003c0| 20 5b 5e 0a 5d 2a 5c 5c | 29 3f 0a 22 29 0a 0a 28 | [^.]*\\|)?.")..(|
|000003d0| 64 65 66 75 6e 20 72 6d | 61 69 6c 20 28 26 6f 70 |defun rm|ail (&op|
|000003e0| 74 69 6f 6e 61 6c 20 66 | 69 6c 65 2d 6e 61 6d 65 |tional f|ile-name|
|000003f0| 2d 61 72 67 29 20 22 5c | 0a 52 65 61 64 20 61 6e |-arg) "\|.Read an|
|00000400| 64 20 65 64 69 74 20 69 | 6e 63 6f 6d 69 6e 67 20 |d edit i|ncoming |
|00000410| 6d 61 69 6c 2e 0a 4d 6f | 76 65 73 20 6d 65 73 73 |mail..Mo|ves mess|
|00000420| 61 67 65 73 20 69 6e 74 | 6f 20 66 69 6c 65 20 6e |ages int|o file n|
|00000430| 61 6d 65 64 20 62 79 20 | 20 72 6d 61 69 6c 2d 66 |amed by | rmail-f|
|00000440| 69 6c 65 2d 6e 61 6d 65 | 20 20 28 61 20 62 61 62 |ile-name|  (a bab|
|00000450| 79 6c 20 66 6f 72 6d 61 | 74 20 66 69 6c 65 29 0a |yl forma|t file).|
|00000460| 20 61 6e 64 20 65 64 69 | 74 73 20 74 68 61 74 20 | and edi|ts that |
|00000470| 66 69 6c 65 20 69 6e 20 | 52 4d 41 49 4c 20 4d 6f |file in |RMAIL Mo|
|00000480| 64 65 2e 0a 54 79 70 65 | 20 5c 5c 5b 64 65 73 63 |de..Type| \\[desc|
|00000490| 72 69 62 65 2d 6d 6f 64 | 65 5d 20 6f 6e 63 65 20 |ribe-mod|e] once |
|000004a0| 65 64 69 74 69 6e 67 20 | 74 68 61 74 20 66 69 6c |editing |that fil|
|000004b0| 65 2c 20 66 6f 72 20 61 | 20 6c 69 73 74 20 6f 66 |e, for a| list of|
|000004c0| 20 52 4d 41 49 4c 20 63 | 6f 6d 6d 61 6e 64 73 2e | RMAIL c|ommands.|
|000004d0| 0a 0a 4d 61 79 20 62 65 | 20 63 61 6c 6c 65 64 20 |..May be| called |
|000004e0| 77 69 74 68 20 66 69 6c | 65 6e 61 6d 65 20 61 73 |with fil|ename as|
|000004f0| 20 61 72 67 75 6d 65 6e | 74 3b 0a 74 68 65 6e 20 | argumen|t;.then |
|00000500| 70 65 72 66 6f 72 6d 73 | 20 72 6d 61 69 6c 20 65 |performs| rmail e|
|00000510| 64 69 74 69 6e 67 20 6f | 6e 20 74 68 61 74 20 66 |diting o|n that f|
|00000520| 69 6c 65 2c 0a 62 75 74 | 20 64 6f 65 73 20 6e 6f |ile,.but| does no|
|00000530| 74 20 63 6f 70 79 20 61 | 6e 79 20 6e 65 77 20 6d |t copy a|ny new m|
|00000540| 61 69 6c 20 69 6e 74 6f | 20 74 68 65 20 66 69 6c |ail into| the fil|
|00000550| 65 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |e." (int|eractive|
|00000560| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 85 0b | (byte-c|ode "...|
|00000570| 00 c3 c4 c1 c1 c2 24 43 | 87 22 20 5b 63 75 72 72 |......$C|." [curr|
|00000580| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 6e |ent-pref|ix-arg n|
|00000590| 69 6c 20 74 20 72 65 61 | 64 2d 66 69 6c 65 2d 6e |il t rea|d-file-n|
|000005a0| 61 6d 65 20 22 52 75 6e | 20 72 6d 61 69 6c 20 6f |ame "Run| rmail o|
|000005b0| 6e 20 52 4d 41 49 4c 20 | 66 69 6c 65 3a 20 22 5d |n RMAIL |file: "]|
|000005c0| 20 35 29 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | 5)) (by|te-code |
|000005d0| 22 c1 88 0b 86 0b 00 ce | cf 21 89 13 88 0c 86 15 |".......|.!......|
|000005e0| 00 ce d0 21 89 14 88 ce | 0e 06 86 1e 00 0e 07 21 |...!....|.......!|
|000005f0| 1d d1 0d 21 1e 08 c2 1e | 09 0e 08 85 32 00 d2 0e |...!....|....2...|
|00000600| 08 21 3f 83 4f 00 d3 0d | 21 88 d2 0e 08 21 85 44 |.!?.O...|!....!.D|
|00000610| 00 0e 0a d4 3d 85 4c 00 | d5 20 88 d6 20 82 52 00 |....=.L.|. .. .R.|
|00000620| d3 0d 21 88 0e 0a d7 3d | 85 5d 00 d8 d9 21 88 0e |..!....=|.]...!..|
|00000630| 08 85 67 00 0e 0a d4 3d | 83 6e 00 c1 82 aa 00 d4 |..g....=|.n......|
|00000640| 20 88 0e 0b 3f 85 98 00 | 0e 06 3f 85 98 00 0e 0c | ...?...|..?.....|
|00000650| 86 95 00 da 0e 0d db dc | 21 86 93 00 db dd 21 86 |........|!.....!.|
|00000660| 93 00 de 20 50 44 89 16 | 0b 88 df 20 88 64 62 88 |... PD..|... .db.|
|00000670| 0e 0b 3f 85 aa 00 d6 20 | 88 e0 20 88 e1 20 2b 87 |..?.... |.. .. +.|
|00000680| 22 20 5b 63 75 72 72 65 | 6e 74 2d 70 72 65 66 69 |" [curre|nt-prefi|
|00000690| 78 2d 61 72 67 20 6e 69 | 6c 20 74 20 72 6d 61 69 |x-arg ni|l t rmai|
|000006a0| 6c 2d 6c 61 73 74 2d 66 | 69 6c 65 20 72 6d 61 69 |l-last-f|ile rmai|
|000006b0| 6c 2d 6c 61 73 74 2d 72 | 6d 61 69 6c 2d 66 69 6c |l-last-r|mail-fil|
|000006c0| 65 20 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |e file-n|ame file|
|000006d0| 2d 6e 61 6d 65 2d 61 72 | 67 20 72 6d 61 69 6c 2d |-name-ar|g rmail-|
|000006e0| 66 69 6c 65 2d 6e 61 6d | 65 20 65 78 69 73 74 65 |file-nam|e existe|
|000006f0| 64 20 69 6e 68 69 62 69 | 74 2d 6c 6f 63 61 6c 2d |d inhibi|t-local-|
|00000700| 76 61 72 69 61 62 6c 65 | 73 20 6d 61 6a 6f 72 2d |variable|s major-|
|00000710| 6d 6f 64 65 20 72 6d 61 | 69 6c 2d 69 6e 62 6f 78 |mode rma|il-inbox|
|00000720| 2d 6c 69 73 74 20 72 6d | 61 69 6c 2d 70 72 69 6d |-list rm|ail-prim|
|00000730| 61 72 79 2d 69 6e 62 6f | 78 2d 6c 69 73 74 20 72 |ary-inbo|x-list r|
|00000740| 6d 61 69 6c 2d 73 70 6f | 6f 6c 2d 64 69 72 65 63 |mail-spo|ol-direc|
|00000750| 74 6f 72 79 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |tory exp|and-file|
|00000760| 2d 6e 61 6d 65 20 22 7e | 2f 78 6d 61 69 6c 22 20 |-name "~|/xmail" |
|00000770| 22 7e 2f 58 4d 41 49 4c | 22 20 67 65 74 2d 66 69 |"~/XMAIL|" get-fi|
|00000780| 6c 65 2d 62 75 66 66 65 | 72 20 76 65 72 69 66 79 |le-buffe|r verify|
|00000790| 2d 76 69 73 69 74 65 64 | 2d 66 69 6c 65 2d 6d 6f |-visited|-file-mo|
|000007a0| 64 74 69 6d 65 20 66 69 | 6e 64 2d 66 69 6c 65 20 |dtime fi|nd-file |
|000007b0| 72 6d 61 69 6c 2d 6d 6f | 64 65 20 72 6d 61 69 6c |rmail-mo|de rmail|
|000007c0| 2d 66 6f 72 67 65 74 2d | 6d 65 73 73 61 67 65 73 |-forget-|messages|
|000007d0| 20 72 6d 61 69 6c 2d 73 | 65 74 2d 6d 65 73 73 61 | rmail-s|et-messa|
|000007e0| 67 65 2d 63 6f 75 6e 74 | 65 72 73 20 72 6d 61 69 |ge-count|ers rmai|
|000007f0| 6c 2d 65 64 69 74 2d 6d | 6f 64 65 20 65 72 72 6f |l-edit-m|ode erro|
|00000800| 72 20 22 65 78 69 74 20 | 72 6d 61 69 6c 2d 65 64 |r "exit |rmail-ed|
|00000810| 69 74 2d 6d 6f 64 65 20 | 62 65 66 6f 72 65 20 67 |it-mode |before g|
|00000820| 65 74 74 69 6e 67 20 6e | 65 77 20 6d 61 69 6c 22 |etting n|ew mail"|
|00000830| 20 22 7e 2f 6d 62 6f 78 | 22 20 67 65 74 65 6e 76 | "~/mbox|" getenv|
|00000840| 20 22 4c 4f 47 4e 41 4d | 45 22 20 22 55 53 45 52 | "LOGNAM|E" "USER|
|00000850| 22 20 75 73 65 72 2d 6c | 6f 67 69 6e 2d 6e 61 6d |" user-l|ogin-nam|
|00000860| 65 20 72 6d 61 69 6c 2d | 63 6f 6e 76 65 72 74 2d |e rmail-|convert-|
|00000870| 66 69 6c 65 20 72 6d 61 | 69 6c 2d 73 68 6f 77 2d |file rma|il-show-|
|00000880| 6d 65 73 73 61 67 65 20 | 72 6d 61 69 6c 2d 67 65 |message |rmail-ge|
|00000890| 74 2d 6e 65 77 2d 6d 61 | 69 6c 5d 20 32 30 29 29 |t-new-ma|il] 20))|
|000008a0| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 63 |..(defun| rmail-c|
|000008b0| 6f 6e 76 65 72 74 2d 66 | 69 6c 65 20 6e 69 6c 20 |onvert-f|ile nil |
|000008c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 18 c4 20 |(byte-co|de "... |
|000008d0| 88 65 62 88 c5 c6 21 86 | 5c 22 00 c5 c7 21 83 1c |.eb...!.|\"...!..|
|000008e0| 00 c2 19 c8 63 29 82 5c | 22 00 c3 89 10 88 c9 20 |....c).\|"...... |
|000008f0| 88 08 86 35 00 64 62 88 | ca cb 21 88 cc cd 21 88 |...5.db.|..!...!.|
|00000900| c5 ce 21 85 4a 00 c2 19 | cf d0 21 88 d1 60 64 5c |..!.J...|..!..`d\|
|00000910| 22 88 d2 20 88 cf d3 21 | 29 29 87 22 20 5b 63 6f |".. ...!|))." [co|
|00000920| 6e 76 65 72 74 20 62 75 | 66 66 65 72 2d 72 65 61 |nvert bu|ffer-rea|
|00000930| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 74 20 77 69 64 |d-only n|il t wid|
|00000940| 65 6e 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 42 |en looki|ng-at "B|
|00000950| 41 42 59 4c 20 4f 50 54 | 49 4f 4e 53 3a 22 20 22 |ABYL OPT|IONS:" "|
|00000960| 56 65 72 73 69 6f 6e 3a | 20 35 0a 22 20 22 42 41 |Version:| 5." "BA|
|00000970| 42 59 4c 20 4f 50 54 49 | 4f 4e 53 3a 0a 22 20 72 |BYL OPTI|ONS:." r|
|00000980| 6d 61 69 6c 2d 69 6e 73 | 65 72 74 2d 72 6d 61 69 |mail-ins|ert-rmai|
|00000990| 6c 2d 66 69 6c 65 2d 68 | 65 61 64 65 72 20 73 65 |l-file-h|eader se|
|000009a0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 1f |arch-bac|kward ".|
|000009b0| 22 20 66 6f 72 77 61 72 | 64 2d 63 68 61 72 20 31 |" forwar|d-char 1|
|000009c0| 20 22 0a 2a 46 72 6f 6d | 20 22 20 6d 65 73 73 61 | ".*From| " messa|
|000009d0| 67 65 20 22 43 6f 6e 76 | 65 72 74 69 6e 67 20 74 |ge "Conv|erting t|
|000009e0| 6f 20 42 61 62 79 6c 20 | 66 6f 72 6d 61 74 2e 2e |o Babyl |format..|
|000009f0| 2e 22 20 6e 61 72 72 6f | 77 2d 74 6f 2d 72 65 67 |." narro|w-to-reg|
|00000a00| 69 6f 6e 20 72 6d 61 69 | 6c 2d 63 6f 6e 76 65 72 |ion rmai|l-conver|
|00000a10| 74 2d 74 6f 2d 62 61 62 | 79 6c 2d 66 6f 72 6d 61 |t-to-bab|yl-forma|
|00000a20| 74 20 22 43 6f 6e 76 65 | 72 74 69 6e 67 20 74 6f |t "Conve|rting to|
|00000a30| 20 42 61 62 79 6c 20 66 | 6f 72 6d 61 74 2e 2e 2e | Babyl f|ormat...|
|00000a40| 64 6f 6e 65 22 5d 20 31 | 32 29 29 0a 0a 28 64 65 |done"] 1|2))..(de|
|00000a50| 66 75 6e 20 72 6d 61 69 | 6c 2d 69 6e 73 65 72 74 |fun rmai|l-insert|
|00000a60| 2d 72 6d 61 69 6c 2d 66 | 69 6c 65 2d 68 65 61 64 |-rmail-f|ile-head|
|00000a70| 65 72 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |er nil (|byte-cod|
|00000a80| 65 20 22 c1 18 c2 63 29 | 87 22 20 5b 62 75 66 66 |e "...c)|." [buff|
|00000a90| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 69 6c |er-read-|only nil|
|00000aa0| 20 22 42 41 42 59 4c 20 | 4f 50 54 49 4f 4e 53 3a | "BABYL |OPTIONS:|
|00000ab0| 0a 56 65 72 73 69 6f 6e | 3a 20 35 0a 4c 61 62 65 |.Version|: 5.Labe|
|00000ac0| 6c 73 3a 0a 4e 6f 74 65 | 3a 20 20 20 54 68 69 73 |ls:.Note|:   This|
|00000ad0| 20 69 73 20 74 68 65 20 | 68 65 61 64 65 72 20 6f | is the |header o|
|00000ae0| 66 20 61 6e 20 72 6d 61 | 69 6c 20 66 69 6c 65 2e |f an rma|il file.|
|00000af0| 0a 4e 6f 74 65 3a 20 20 | 20 49 66 20 79 6f 75 20 |.Note:  | If you |
|00000b00| 61 72 65 20 73 65 65 69 | 6e 67 20 69 74 20 69 6e |are seei|ng it in|
|00000b10| 20 72 6d 61 69 6c 2c 0a | 4e 6f 74 65 3a 20 20 20 | rmail,.|Note:   |
|00000b20| 20 69 74 20 6d 65 61 6e | 73 20 74 68 65 20 66 69 | it mean|s the fi|
|00000b30| 6c 65 20 68 61 73 20 6e | 6f 20 6d 65 73 73 61 67 |le has n|o messag|
|00000b40| 65 73 20 69 6e 20 69 74 | 2e 0a 1f 22 5d 20 31 29 |es in it|..."] 1)|
|00000b50| 29 0a 0a 28 69 66 20 72 | 6d 61 69 6c 2d 6d 6f 64 |)..(if r|mail-mod|
|00000b60| 65 2d 6d 61 70 20 6e 69 | 6c 20 28 73 65 74 71 20 |e-map ni|l (setq |
|00000b70| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 28 |rmail-mo|de-map (|
|00000b80| 6d 61 6b 65 2d 6b 65 79 | 6d 61 70 29 29 20 28 73 |make-key|map)) (s|
|00000b90| 75 70 70 72 65 73 73 2d | 6b 65 79 6d 61 70 20 72 |uppress-|keymap r|
|00000ba0| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 29 20 28 |mail-mod|e-map) (|
|00000bb0| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000bc0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 2e 22 20 28 71 |-mode-ma|p "." (q|
|00000bd0| 75 6f 74 65 20 72 6d 61 | 69 6c 2d 62 65 67 69 6e |uote rma|il-begin|
|00000be0| 6e 69 6e 67 2d 6f 66 2d | 6d 65 73 73 61 67 65 29 |ning-of-|message)|
|00000bf0| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 72 6d |) (defin|e-key rm|
|00000c00| 61 69 6c 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 20 22 |ail-mode|-map " "|
|00000c10| 20 28 71 75 6f 74 65 20 | 73 63 72 6f 6c 6c 2d 75 | (quote |scroll-u|
|00000c20| 70 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |p)) (def|ine-key |
|00000c30| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |rmail-mo|de-map "|
|00000c40| 7f 22 20 28 71 75 6f 74 | 65 20 73 63 72 6f 6c 6c |." (quot|e scroll|
|00000c50| 2d 64 6f 77 6e 29 29 20 | 28 64 65 66 69 6e 65 2d |-down)) |(define-|
|00000c60| 6b 65 79 20 72 6d 61 69 | 6c 2d 6d 6f 64 65 2d 6d |key rmai|l-mode-m|
|00000c70| 61 70 20 22 6e 22 20 28 | 71 75 6f 74 65 20 72 6d |ap "n" (|quote rm|
|00000c80| 61 69 6c 2d 6e 65 78 74 | 2d 75 6e 64 65 6c 65 74 |ail-next|-undelet|
|00000c90| 65 64 2d 6d 65 73 73 61 | 67 65 29 29 20 28 64 65 |ed-messa|ge)) (de|
|00000ca0| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00000cb0| 6f 64 65 2d 6d 61 70 20 | 22 70 22 20 28 71 75 6f |ode-map |"p" (quo|
|00000cc0| 74 65 20 72 6d 61 69 6c | 2d 70 72 65 76 69 6f 75 |te rmail|-previou|
|00000cd0| 73 2d 75 6e 64 65 6c 65 | 74 65 64 2d 6d 65 73 73 |s-undele|ted-mess|
|00000ce0| 61 67 65 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |age)) (d|efine-ke|
|00000cf0| 79 20 72 6d 61 69 6c 2d | 6d 6f 64 65 2d 6d 61 70 |y rmail-|mode-map|
|00000d00| 20 22 1b 6e 22 20 28 71 | 75 6f 74 65 20 72 6d 61 | ".n" (q|uote rma|
|00000d10| 69 6c 2d 6e 65 78 74 2d | 6d 65 73 73 61 67 65 29 |il-next-|message)|
|00000d20| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 72 6d |) (defin|e-key rm|
|00000d30| 61 69 6c 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 1b 70 |ail-mode|-map ".p|
|00000d40| 22 20 28 71 75 6f 74 65 | 20 72 6d 61 69 6c 2d 70 |" (quote| rmail-p|
|00000d50| 72 65 76 69 6f 75 73 2d | 6d 65 73 73 61 67 65 29 |revious-|message)|
|00000d60| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 72 6d |) (defin|e-key rm|
|00000d70| 61 69 6c 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 1b 0e |ail-mode|-map "..|
|00000d80| 22 20 28 71 75 6f 74 65 | 20 72 6d 61 69 6c 2d 6e |" (quote| rmail-n|
|00000d90| 65 78 74 2d 6c 61 62 65 | 6c 65 64 2d 6d 65 73 73 |ext-labe|led-mess|
|00000da0| 61 67 65 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |age)) (d|efine-ke|
|00000db0| 79 20 72 6d 61 69 6c 2d | 6d 6f 64 65 2d 6d 61 70 |y rmail-|mode-map|
|00000dc0| 20 22 1b 10 22 20 28 71 | 75 6f 74 65 20 72 6d 61 | ".." (q|uote rma|
|00000dd0| 69 6c 2d 70 72 65 76 69 | 6f 75 73 2d 6c 61 62 65 |il-previ|ous-labe|
|00000de0| 6c 65 64 2d 6d 65 73 73 | 61 67 65 29 29 20 28 64 |led-mess|age)) (d|
|00000df0| 65 66 69 6e 65 2d 6b 65 | 79 20 72 6d 61 69 6c 2d |efine-ke|y rmail-|
|00000e00| 6d 6f 64 65 2d 6d 61 70 | 20 22 61 22 20 28 71 75 |mode-map| "a" (qu|
|00000e10| 6f 74 65 20 72 6d 61 69 | 6c 2d 61 64 64 2d 6c 61 |ote rmai|l-add-la|
|00000e20| 62 65 6c 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |bel)) (d|efine-ke|
|00000e30| 79 20 72 6d 61 69 6c 2d | 6d 6f 64 65 2d 6d 61 70 |y rmail-|mode-map|
|00000e40| 20 22 6b 22 20 28 71 75 | 6f 74 65 20 72 6d 61 69 | "k" (qu|ote rmai|
|00000e50| 6c 2d 6b 69 6c 6c 2d 6c | 61 62 65 6c 29 29 20 28 |l-kill-l|abel)) (|
|00000e60| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000e70| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 64 22 20 28 71 |-mode-ma|p "d" (q|
|00000e80| 75 6f 74 65 20 72 6d 61 | 69 6c 2d 64 65 6c 65 74 |uote rma|il-delet|
|00000e90| 65 2d 66 6f 72 77 61 72 | 64 29 29 20 28 64 65 66 |e-forwar|d)) (def|
|00000ea0| 69 6e 65 2d 6b 65 79 20 | 72 6d 61 69 6c 2d 6d 6f |ine-key |rmail-mo|
|00000eb0| 64 65 2d 6d 61 70 20 22 | 75 22 20 28 71 75 6f 74 |de-map "|u" (quot|
|00000ec0| 65 20 72 6d 61 69 6c 2d | 75 6e 64 65 6c 65 74 65 |e rmail-|undelete|
|00000ed0| 2d 70 72 65 76 69 6f 75 | 73 2d 6d 65 73 73 61 67 |-previou|s-messag|
|00000ee0| 65 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |e)) (def|ine-key |
|00000ef0| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |rmail-mo|de-map "|
|00000f00| 65 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |e" (quot|e rmail-|
|00000f10| 65 78 70 75 6e 67 65 29 | 29 20 28 64 65 66 69 6e |expunge)|) (defin|
|00000f20| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00000f30| 2d 6d 61 70 20 22 78 22 | 20 28 71 75 6f 74 65 20 |-map "x"| (quote |
|00000f40| 72 6d 61 69 6c 2d 65 78 | 70 75 6e 67 65 29 29 20 |rmail-ex|punge)) |
|00000f50| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 72 6d 61 69 |(define-|key rmai|
|00000f60| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 22 73 22 20 28 |l-mode-m|ap "s" (|
|00000f70| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 65 78 70 75 |quote rm|ail-expu|
|00000f80| 6e 67 65 2d 61 6e 64 2d | 73 61 76 65 29 29 20 28 |nge-and-|save)) (|
|00000f90| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000fa0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 67 22 20 28 71 |-mode-ma|p "g" (q|
|00000fb0| 75 6f 74 65 20 72 6d 61 | 69 6c 2d 67 65 74 2d 6e |uote rma|il-get-n|
|00000fc0| 65 77 2d 6d 61 69 6c 29 | 29 20 28 64 65 66 69 6e |ew-mail)|) (defin|
|00000fd0| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00000fe0| 2d 6d 61 70 20 22 68 22 | 20 28 71 75 6f 74 65 20 |-map "h"| (quote |
|00000ff0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 29 29 20 |rmail-su|mmary)) |
|00001000| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 72 6d 61 69 |(define-|key rmai|
|00001010| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 22 1b 08 22 20 |l-mode-m|ap ".." |
|00001020| 28 71 75 6f 74 65 20 72 | 6d 61 69 6c 2d 73 75 6d |(quote r|mail-sum|
|00001030| 6d 61 72 79 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |mary)) (|define-k|
|00001040| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|00001050| 70 20 22 6c 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "l" (q|uote rma|
|00001060| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 62 79 2d 6c 61 |il-summa|ry-by-la|
|00001070| 62 65 6c 73 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |bels)) (|define-k|
|00001080| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|00001090| 70 20 22 1b 0c 22 20 28 | 71 75 6f 74 65 20 72 6d |p ".." (|quote rm|
|000010a0| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 62 79 2d 6c |ail-summ|ary-by-l|
|000010b0| 61 62 65 6c 73 29 29 20 | 28 64 65 66 69 6e 65 2d |abels)) |(define-|
|000010c0| 6b 65 79 20 72 6d 61 69 | 6c 2d 6d 6f 64 65 2d 6d |key rmai|l-mode-m|
|000010d0| 61 70 20 22 1b 12 22 20 | 28 71 75 6f 74 65 20 72 |ap ".." |(quote r|
|000010e0| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 62 79 2d |mail-sum|mary-by-|
|000010f0| 72 65 63 69 70 69 65 6e | 74 73 29 29 20 28 64 65 |recipien|ts)) (de|
|00001100| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00001110| 6f 64 65 2d 6d 61 70 20 | 22 74 22 20 28 71 75 6f |ode-map |"t" (quo|
|00001120| 74 65 20 72 6d 61 69 6c | 2d 74 6f 67 67 6c 65 2d |te rmail|-toggle-|
|00001130| 68 65 61 64 65 72 29 29 | 20 28 64 65 66 69 6e 65 |header))| (define|
|00001140| 2d 6b 65 79 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 2d |-key rma|il-mode-|
|00001150| 6d 61 70 20 22 6d 22 20 | 28 71 75 6f 74 65 20 72 |map "m" |(quote r|
|00001160| 6d 61 69 6c 2d 6d 61 69 | 6c 29 29 20 28 64 65 66 |mail-mai|l)) (def|
|00001170| 69 6e 65 2d 6b 65 79 20 | 72 6d 61 69 6c 2d 6d 6f |ine-key |rmail-mo|
|00001180| 64 65 2d 6d 61 70 20 22 | 72 22 20 28 71 75 6f 74 |de-map "|r" (quot|
|00001190| 65 20 72 6d 61 69 6c 2d | 72 65 70 6c 79 29 29 20 |e rmail-|reply)) |
|000011a0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 72 6d 61 69 |(define-|key rmai|
|000011b0| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 22 63 22 20 28 |l-mode-m|ap "c" (|
|000011c0| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 63 6f 6e 74 |quote rm|ail-cont|
|000011d0| 69 6e 75 65 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |inue)) (|define-k|
|000011e0| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|000011f0| 70 20 22 66 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "f" (q|uote rma|
|00001200| 69 6c 2d 66 6f 72 77 61 | 72 64 29 29 20 28 64 65 |il-forwa|rd)) (de|
|00001210| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00001220| 6f 64 65 2d 6d 61 70 20 | 22 1b 73 22 20 28 71 75 |ode-map |".s" (qu|
|00001230| 6f 74 65 20 72 6d 61 69 | 6c 2d 73 65 61 72 63 68 |ote rmai|l-search|
|00001240| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00001250| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 6a |mail-mod|e-map "j|
|00001260| 22 20 28 71 75 6f 74 65 | 20 72 6d 61 69 6c 2d 73 |" (quote| rmail-s|
|00001270| 68 6f 77 2d 6d 65 73 73 | 61 67 65 29 29 20 28 64 |how-mess|age)) (d|
|00001280| 65 66 69 6e 65 2d 6b 65 | 79 20 72 6d 61 69 6c 2d |efine-ke|y rmail-|
|00001290| 6d 6f 64 65 2d 6d 61 70 | 20 22 6f 22 20 28 71 75 |mode-map| "o" (qu|
|000012a0| 6f 74 65 20 72 6d 61 69 | 6c 2d 6f 75 74 70 75 74 |ote rmai|l-output|
|000012b0| 2d 74 6f 2d 72 6d 61 69 | 6c 2d 66 69 6c 65 29 29 |-to-rmai|l-file))|
|000012c0| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 72 6d 61 | (define|-key rma|
|000012d0| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 22 0f 22 20 |il-mode-|map "." |
|000012e0| 28 71 75 6f 74 65 20 72 | 6d 61 69 6c 2d 6f 75 74 |(quote r|mail-out|
|000012f0| 70 75 74 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |put)) (d|efine-ke|
|00001300| 79 20 72 6d 61 69 6c 2d | 6d 6f 64 65 2d 6d 61 70 |y rmail-|mode-map|
|00001310| 20 22 69 22 20 28 71 75 | 6f 74 65 20 72 6d 61 69 | "i" (qu|ote rmai|
|00001320| 6c 2d 69 6e 70 75 74 29 | 29 20 28 64 65 66 69 6e |l-input)|) (defin|
|00001330| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00001340| 2d 6d 61 70 20 22 71 22 | 20 28 71 75 6f 74 65 20 |-map "q"| (quote |
|00001350| 72 6d 61 69 6c 2d 71 75 | 69 74 29 29 20 28 64 65 |rmail-qu|it)) (de|
|00001360| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00001370| 6f 64 65 2d 6d 61 70 20 | 22 3e 22 20 28 71 75 6f |ode-map |">" (quo|
|00001380| 74 65 20 72 6d 61 69 6c | 2d 6c 61 73 74 2d 6d 65 |te rmail|-last-me|
|00001390| 73 73 61 67 65 29 29 20 | 28 64 65 66 69 6e 65 2d |ssage)) |(define-|
|000013a0| 6b 65 79 20 72 6d 61 69 | 6c 2d 6d 6f 64 65 2d 6d |key rmai|l-mode-m|
|000013b0| 61 70 20 22 3f 22 20 28 | 71 75 6f 74 65 20 64 65 |ap "?" (|quote de|
|000013c0| 73 63 72 69 62 65 2d 6d | 6f 64 65 29 29 20 28 64 |scribe-m|ode)) (d|
|000013d0| 65 66 69 6e 65 2d 6b 65 | 79 20 72 6d 61 69 6c 2d |efine-ke|y rmail-|
|000013e0| 6d 6f 64 65 2d 6d 61 70 | 20 22 77 22 20 28 71 75 |mode-map| "w" (qu|
|000013f0| 6f 74 65 20 72 6d 61 69 | 6c 2d 65 64 69 74 2d 63 |ote rmai|l-edit-c|
|00001400| 75 72 72 65 6e 74 2d 6d | 65 73 73 61 67 65 29 29 |urrent-m|essage))|
|00001410| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 72 6d 61 | (define|-key rma|
|00001420| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 22 04 22 20 |il-mode-|map "." |
|00001430| 28 71 75 6f 74 65 20 72 | 6d 61 69 6c 2d 64 65 6c |(quote r|mail-del|
|00001440| 65 74 65 2d 62 61 63 6b | 77 61 72 64 29 29 29 0a |ete-back|ward))).|
|00001450| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 72 6d 61 |.(put (q|uote rma|
|00001460| 69 6c 2d 6d 6f 64 65 29 | 20 28 71 75 6f 74 65 20 |il-mode)| (quote |
|00001470| 6d 6f 64 65 2d 63 6c 61 | 73 73 29 20 28 71 75 6f |mode-cla|ss) (quo|
|00001480| 74 65 20 73 70 65 63 69 | 61 6c 29 29 0a 0a 28 64 |te speci|al))..(d|
|00001490| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 20 |efun rma|il-mode |
|000014a0| 6e 69 6c 20 22 5c 0a 52 | 6d 61 69 6c 20 4d 6f 64 |nil "\.R|mail Mod|
|000014b0| 65 20 69 73 20 75 73 65 | 64 20 62 79 20 5c 5c 5b |e is use|d by \\[|
|000014c0| 72 6d 61 69 6c 5d 20 66 | 6f 72 20 65 64 69 74 69 |rmail] f|or editi|
|000014d0| 6e 67 20 52 6d 61 69 6c | 20 66 69 6c 65 73 2e 0a |ng Rmail| files..|
|000014e0| 41 6c 6c 20 6e 6f 72 6d | 61 6c 20 65 64 69 74 69 |All norm|al editi|
|000014f0| 6e 67 20 63 6f 6d 6d 61 | 6e 64 73 20 61 72 65 20 |ng comma|nds are |
|00001500| 74 75 72 6e 65 64 20 6f | 66 66 2e 0a 49 6e 73 74 |turned o|ff..Inst|
|00001510| 65 61 64 2c 20 74 68 65 | 73 65 20 63 6f 6d 6d 61 |ead, the|se comma|
|00001520| 6e 64 73 20 61 72 65 20 | 61 76 61 69 6c 61 62 6c |nds are |availabl|
|00001530| 65 3a 0a 0a 2e 09 4d 6f | 76 65 20 70 6f 69 6e 74 |e:....Mo|ve point|
|00001540| 20 74 6f 20 66 72 6f 6e | 74 20 6f 66 20 74 68 69 | to fron|t of thi|
|00001550| 73 20 6d 65 73 73 61 67 | 65 20 28 73 61 6d 65 20 |s messag|e (same |
|00001560| 61 73 20 5c 5c 5b 62 65 | 67 69 6e 6e 69 6e 67 2d |as \\[be|ginning-|
|00001570| 6f 66 2d 62 75 66 66 65 | 72 5d 29 2e 0a 53 50 43 |of-buffe|r])..SPC|
|00001580| 09 53 63 72 6f 6c 6c 20 | 74 6f 20 6e 65 78 74 20 |.Scroll |to next |
|00001590| 73 63 72 65 65 6e 20 6f | 66 20 74 68 69 73 20 6d |screen o|f this m|
|000015a0| 65 73 73 61 67 65 2e 0a | 44 45 4c 09 53 63 72 6f |essage..|DEL.Scro|
|000015b0| 6c 6c 20 74 6f 20 70 72 | 65 76 69 6f 75 73 20 73 |ll to pr|evious s|
|000015c0| 63 72 65 65 6e 20 6f 66 | 20 74 68 69 73 20 6d 65 |creen of| this me|
|000015d0| 73 73 61 67 65 2e 0a 6e | 09 4d 6f 76 65 20 74 6f |ssage..n|.Move to|
|000015e0| 20 4e 65 78 74 20 6e 6f | 6e 2d 64 65 6c 65 74 65 | Next no|n-delete|
|000015f0| 64 20 6d 65 73 73 61 67 | 65 2e 0a 70 09 4d 6f 76 |d messag|e..p.Mov|
|00001600| 65 20 74 6f 20 50 72 65 | 76 69 6f 75 73 20 6e 6f |e to Pre|vious no|
|00001610| 6e 2d 64 65 6c 65 74 65 | 64 20 6d 65 73 73 61 67 |n-delete|d messag|
|00001620| 65 2e 0a 4d 2d 6e 09 4d | 6f 76 65 20 74 6f 20 4e |e..M-n.M|ove to N|
|00001630| 65 78 74 20 6d 65 73 73 | 61 67 65 20 77 68 65 74 |ext mess|age whet|
|00001640| 68 65 72 20 64 65 6c 65 | 74 65 64 20 6f 72 20 6e |her dele|ted or n|
|00001650| 6f 74 2e 0a 4d 2d 70 09 | 4d 6f 76 65 20 74 6f 20 |ot..M-p.|Move to |
|00001660| 50 72 65 76 69 6f 75 73 | 20 6d 65 73 73 61 67 65 |Previous| message|
|00001670| 20 77 68 65 74 68 65 72 | 20 64 65 6c 65 74 65 64 | whether| deleted|
|00001680| 20 6f 72 20 6e 6f 74 2e | 0a 3e 09 4d 6f 76 65 20 | or not.|.>.Move |
|00001690| 74 6f 20 74 68 65 20 6c | 61 73 74 20 6d 65 73 73 |to the l|ast mess|
|000016a0| 61 67 65 20 69 6e 20 52 | 6d 61 69 6c 20 66 69 6c |age in R|mail fil|
|000016b0| 65 2e 0a 6a 09 4a 75 6d | 70 20 74 6f 20 6d 65 73 |e..j.Jum|p to mes|
|000016c0| 73 61 67 65 20 73 70 65 | 63 69 66 69 65 64 20 62 |sage spe|cified b|
|000016d0| 79 20 6e 75 6d 65 72 69 | 63 20 70 6f 73 69 74 69 |y numeri|c positi|
|000016e0| 6f 6e 20 69 6e 20 66 69 | 6c 65 2e 0a 4d 2d 73 09 |on in fi|le..M-s.|
|000016f0| 53 65 61 72 63 68 20 66 | 6f 72 20 73 74 72 69 6e |Search f|or strin|
|00001700| 67 20 61 6e 64 20 73 68 | 6f 77 20 6d 65 73 73 61 |g and sh|ow messa|
|00001710| 67 65 20 69 74 20 69 73 | 20 66 6f 75 6e 64 20 69 |ge it is| found i|
|00001720| 6e 2e 0a 64 09 44 65 6c | 65 74 65 20 74 68 69 73 |n..d.Del|ete this|
|00001730| 20 6d 65 73 73 61 67 65 | 2c 20 6d 6f 76 65 20 74 | message|, move t|
|00001740| 6f 20 6e 65 78 74 20 6e | 6f 6e 64 65 6c 65 74 65 |o next n|ondelete|
|00001750| 64 2e 0a 43 2d 64 09 44 | 65 6c 65 74 65 20 74 68 |d..C-d.D|elete th|
|00001760| 69 73 20 6d 65 73 73 61 | 67 65 2c 20 6d 6f 76 65 |is messa|ge, move|
|00001770| 20 74 6f 20 70 72 65 76 | 69 6f 75 73 20 6e 6f 6e | to prev|ious non|
|00001780| 64 65 6c 65 74 65 64 2e | 0a 75 09 55 6e 64 65 6c |deleted.|.u.Undel|
|00001790| 65 74 65 20 6d 65 73 73 | 61 67 65 2e 20 20 54 72 |ete mess|age.  Tr|
|000017a0| 69 65 73 20 63 75 72 72 | 65 6e 74 20 6d 65 73 73 |ies curr|ent mess|
|000017b0| 61 67 65 2c 20 74 68 65 | 6e 20 65 61 72 6c 69 65 |age, the|n earlie|
|000017c0| 72 20 6d 65 73 73 61 67 | 65 73 0a 09 74 69 6c 6c |r messag|es..till|
|000017d0| 20 61 20 64 65 6c 65 74 | 65 64 20 6d 65 73 73 61 | a delet|ed messa|
|000017e0| 67 65 20 69 73 20 66 6f | 75 6e 64 2e 0a 65 09 45 |ge is fo|und..e.E|
|000017f0| 78 70 75 6e 67 65 20 64 | 65 6c 65 74 65 64 20 6d |xpunge d|eleted m|
|00001800| 65 73 73 61 67 65 73 2e | 0a 73 09 45 78 70 75 6e |essages.|.s.Expun|
|00001810| 67 65 20 61 6e 64 20 73 | 61 76 65 20 74 68 65 20 |ge and s|ave the |
|00001820| 66 69 6c 65 2e 0a 71 20 | 20 20 20 20 20 20 51 75 |file..q |      Qu|
|00001830| 69 74 20 52 6d 61 69 6c | 3a 20 65 78 70 75 6e 67 |it Rmail|: expung|
|00001840| 65 2c 20 73 61 76 65 2c | 20 74 68 65 6e 20 73 77 |e, save,| then sw|
|00001850| 69 74 63 68 20 74 6f 20 | 61 6e 6f 74 68 65 72 20 |itch to |another |
|00001860| 62 75 66 66 65 72 2e 0a | 43 2d 78 20 43 2d 73 20 |buffer..|C-x C-s |
|00001870| 53 61 76 65 20 77 69 74 | 68 6f 75 74 20 65 78 70 |Save wit|hout exp|
|00001880| 75 6e 67 69 6e 67 2e 0a | 67 09 4d 6f 76 65 20 6e |unging..|g.Move n|
|00001890| 65 77 20 6d 61 69 6c 20 | 66 72 6f 6d 20 73 79 73 |ew mail |from sys|
|000018a0| 74 65 6d 20 73 70 6f 6f | 6c 20 64 69 72 65 63 74 |tem spoo|l direct|
|000018b0| 6f 72 79 20 6f 72 20 6d | 62 6f 78 20 69 6e 74 6f |ory or m|box into|
|000018c0| 20 74 68 69 73 20 66 69 | 6c 65 2e 0a 6d 09 4d 61 | this fi|le..m.Ma|
|000018d0| 69 6c 20 61 20 6d 65 73 | 73 61 67 65 20 28 73 61 |il a mes|sage (sa|
|000018e0| 6d 65 20 61 73 20 5c 5c | 5b 6d 61 69 6c 2d 6f 74 |me as \\|[mail-ot|
|000018f0| 68 65 72 2d 77 69 6e 64 | 6f 77 5d 29 2e 0a 63 09 |her-wind|ow])..c.|
|00001900| 43 6f 6e 74 69 6e 75 65 | 20 63 6f 6d 70 6f 73 69 |Continue| composi|
|00001910| 6e 67 20 6f 75 74 67 6f | 69 6e 67 20 6d 65 73 73 |ng outgo|ing mess|
|00001920| 61 67 65 20 73 74 61 72 | 74 65 64 20 62 65 66 6f |age star|ted befo|
|00001930| 72 65 2e 0a 72 09 52 65 | 70 6c 79 20 74 6f 20 74 |re..r.Re|ply to t|
|00001940| 68 69 73 20 6d 65 73 73 | 61 67 65 2e 20 20 4c 69 |his mess|age.  Li|
|00001950| 6b 65 20 6d 20 62 75 74 | 20 69 6e 69 74 69 61 6c |ke m but| initial|
|00001960| 69 7a 65 73 20 73 6f 6d | 65 20 66 69 65 6c 64 73 |izes som|e fields|
|00001970| 2e 0a 66 09 46 6f 72 77 | 61 72 64 20 74 68 69 73 |..f.Forw|ard this|
|00001980| 20 6d 65 73 73 61 67 65 | 20 74 6f 20 61 6e 6f 74 | message| to anot|
|00001990| 68 65 72 20 75 73 65 72 | 2e 0a 6f 20 20 20 20 20 |her user|..o     |
|000019a0| 20 20 4f 75 74 70 75 74 | 20 74 68 69 73 20 6d 65 |  Output| this me|
|000019b0| 73 73 61 67 65 20 74 6f | 20 61 6e 20 52 6d 61 69 |ssage to| an Rmai|
|000019c0| 6c 20 66 69 6c 65 20 28 | 61 70 70 65 6e 64 20 69 |l file (|append i|
|000019d0| 74 29 2e 0a 43 2d 6f 09 | 4f 75 74 70 75 74 20 74 |t)..C-o.|Output t|
|000019e0| 68 69 73 20 6d 65 73 73 | 61 67 65 20 74 6f 20 61 |his mess|age to a|
|000019f0| 20 55 6e 69 78 2d 66 6f | 72 6d 61 74 20 6d 61 69 | Unix-fo|rmat mai|
|00001a00| 6c 20 66 69 6c 65 20 28 | 61 70 70 65 6e 64 20 69 |l file (|append i|
|00001a10| 74 29 2e 0a 69 09 49 6e | 70 75 74 20 52 6d 61 69 |t)..i.In|put Rmai|
|00001a20| 6c 20 66 69 6c 65 2e 20 | 20 52 75 6e 20 52 6d 61 |l file. | Run Rma|
|00001a30| 69 6c 20 6f 6e 20 74 68 | 61 74 20 66 69 6c 65 2e |il on th|at file.|
|00001a40| 0a 61 09 41 64 64 20 6c | 61 62 65 6c 20 74 6f 20 |.a.Add l|abel to |
|00001a50| 6d 65 73 73 61 67 65 2e | 20 20 49 74 20 77 69 6c |message.|  It wil|
|00001a60| 6c 20 62 65 20 64 69 73 | 70 6c 61 79 65 64 20 69 |l be dis|played i|
|00001a70| 6e 20 74 68 65 20 6d 6f | 64 65 20 6c 69 6e 65 2e |n the mo|de line.|
|00001a80| 0a 6b 09 4b 69 6c 6c 20 | 6c 61 62 65 6c 2e 20 20 |.k.Kill |label.  |
|00001a90| 52 65 6d 6f 76 65 20 61 | 20 6c 61 62 65 6c 20 66 |Remove a| label f|
|00001aa0| 72 6f 6d 20 63 75 72 72 | 65 6e 74 20 6d 65 73 73 |rom curr|ent mess|
|00001ab0| 61 67 65 2e 0a 43 2d 4d | 2d 6e 20 20 20 4d 6f 76 |age..C-M|-n   Mov|
|00001ac0| 65 20 74 6f 20 4e 65 78 | 74 20 6d 65 73 73 61 67 |e to Nex|t messag|
|00001ad0| 65 20 77 69 74 68 20 73 | 70 65 63 69 66 69 65 64 |e with s|pecified|
|00001ae0| 20 6c 61 62 65 6c 0a 20 | 20 20 20 20 20 20 20 20 | label. |        |
|00001af0| 20 28 6c 61 62 65 6c 20 | 64 65 66 61 75 6c 74 73 | (label |defaults|
|00001b00| 20 74 6f 20 6c 61 73 74 | 20 6f 6e 65 20 73 70 65 | to last| one spe|
|00001b10| 63 69 66 69 65 64 29 2e | 0a 20 20 20 20 20 20 20 |cified).|.       |
|00001b20| 20 20 20 53 74 61 6e 64 | 61 72 64 20 6c 61 62 65 |   Stand|ard labe|
|00001b30| 6c 73 3a 20 66 69 6c 65 | 64 2c 20 75 6e 73 65 65 |ls: file|d, unsee|
|00001b40| 6e 2c 20 61 6e 73 77 65 | 72 65 64 2c 20 66 6f 72 |n, answe|red, for|
|00001b50| 77 61 72 64 65 64 2c 20 | 64 65 6c 65 74 65 64 2e |warded, |deleted.|
|00001b60| 0a 20 20 20 20 20 20 20 | 20 20 20 41 6e 79 20 6f |.       |   Any o|
|00001b70| 74 68 65 72 20 6c 61 62 | 65 6c 20 69 73 20 70 72 |ther lab|el is pr|
|00001b80| 65 73 65 6e 74 20 6f 6e | 6c 79 20 69 66 20 79 6f |esent on|ly if yo|
|00001b90| 75 20 61 64 64 20 69 74 | 20 77 69 74 68 20 60 61 |u add it| with `a|
|00001ba0| 27 2e 0a 43 2d 4d 2d 70 | 20 20 20 4d 6f 76 65 20 |'..C-M-p|   Move |
|00001bb0| 74 6f 20 50 72 65 76 69 | 6f 75 73 20 6d 65 73 73 |to Previ|ous mess|
|00001bc0| 61 67 65 20 77 69 74 68 | 20 73 70 65 63 69 66 69 |age with| specifi|
|00001bd0| 65 64 20 6c 61 62 65 6c | 0a 43 2d 4d 2d 68 09 53 |ed label|.C-M-h.S|
|00001be0| 68 6f 77 20 68 65 61 64 | 65 72 73 20 62 75 66 66 |how head|ers buff|
|00001bf0| 65 72 2c 20 77 69 74 68 | 20 61 20 6f 6e 65 20 6c |er, with| a one l|
|00001c00| 69 6e 65 20 73 75 6d 6d | 61 72 79 20 6f 66 20 65 |ine summ|ary of e|
|00001c10| 61 63 68 20 6d 65 73 73 | 61 67 65 2e 0a 43 2d 4d |ach mess|age..C-M|
|00001c20| 2d 6c 09 4c 69 6b 65 20 | 68 20 6f 6e 6c 79 20 6a |-l.Like |h only j|
|00001c30| 75 73 74 20 6d 65 73 73 | 61 67 65 73 20 77 69 74 |ust mess|ages wit|
|00001c40| 68 20 70 61 72 74 69 63 | 75 6c 61 72 20 6c 61 62 |h partic|ular lab|
|00001c50| 65 6c 28 73 29 20 61 72 | 65 20 73 75 6d 6d 61 72 |el(s) ar|e summar|
|00001c60| 69 7a 65 64 2e 0a 43 2d | 4d 2d 72 20 20 20 4c 69 |ized..C-|M-r   Li|
|00001c70| 6b 65 20 68 20 6f 6e 6c | 79 20 6a 75 73 74 20 6d |ke h onl|y just m|
|00001c80| 65 73 73 61 67 65 73 20 | 77 69 74 68 20 70 61 72 |essages |with par|
|00001c90| 74 69 63 75 6c 61 72 20 | 72 65 63 69 70 69 65 6e |ticular |recipien|
|00001ca0| 74 28 73 29 20 61 72 65 | 20 73 75 6d 6d 61 72 69 |t(s) are| summari|
|00001cb0| 7a 65 64 2e 0a 74 09 54 | 6f 67 67 6c 65 20 68 65 |zed..t.T|oggle he|
|00001cc0| 61 64 65 72 2c 20 73 68 | 6f 77 20 52 6d 61 69 6c |ader, sh|ow Rmail|
|00001cd0| 20 68 65 61 64 65 72 20 | 69 66 20 75 6e 66 6f 72 | header |if unfor|
|00001ce0| 6d 61 74 74 65 64 20 6f | 72 20 76 69 63 65 20 76 |matted o|r vice v|
|00001cf0| 65 72 73 61 2e 0a 77 09 | 45 64 69 74 20 74 68 65 |ersa..w.|Edit the|
|00001d00| 20 63 75 72 72 65 6e 74 | 20 6d 65 73 73 61 67 65 | current| message|
|00001d10| 2e 20 20 43 2d 63 20 43 | 2d 63 20 74 6f 20 72 65 |.  C-c C|-c to re|
|00001d20| 74 75 72 6e 20 74 6f 20 | 52 6d 61 69 6c 2e 22 20 |turn to |Rmail." |
|00001d30| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00001d40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 20 88 c2 |yte-code| "... ..|
|00001d50| 20 88 c3 20 88 c4 c5 21 | 87 22 20 5b 6e 69 6c 20 | .. ...!|." [nil |
|00001d60| 6b 69 6c 6c 2d 61 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |kill-all|-local-v|
|00001d70| 61 72 69 61 62 6c 65 73 | 20 72 6d 61 69 6c 2d 6d |ariables| rmail-m|
|00001d80| 6f 64 65 2d 31 20 72 6d | 61 69 6c 2d 76 61 72 69 |ode-1 rm|ail-vari|
|00001d90| 61 62 6c 65 73 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |ables ru|n-hooks |
|00001da0| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |rmail-mo|de-hook]|
|00001db0| 20 35 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 5))..(d|efun rma|
|00001dc0| 69 6c 2d 6d 6f 64 65 2d | 31 20 6e 69 6c 20 28 62 |il-mode-|1 nil (b|
|00001dd0| 79 74 65 2d 63 6f 64 65 | 20 22 cc 89 10 88 cd 89 |yte-code| "......|
|00001de0| 11 88 c3 89 12 88 c5 89 | 14 88 ce c6 21 83 1d 00 |........|....!...|
|00001df0| cf 89 16 06 82 26 00 cf | d0 c7 21 41 42 89 16 07 |.....&..|..!AB...|
|00001e00| 88 d1 0e 08 21 88 d2 0e | 09 21 88 0e 0b 89 16 0a |....!...|.!......|
|00001e10| 87 22 20 5b 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 6d |." [majo|r-mode m|
|00001e20| 6f 64 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ode-name| buffer-|
|00001e30| 72 65 61 64 2d 6f 6e 6c | 79 20 74 20 62 75 66 66 |read-onl|y t buff|
|00001e40| 65 72 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |er-auto-|save-fil|
|00001e50| 65 2d 6e 61 6d 65 20 6e | 69 6c 20 6d 6f 64 65 2d |e-name n|il mode-|
|00001e60| 6c 69 6e 65 2d 6d 6f 64 | 69 66 69 65 64 20 6d 6f |line-mod|ified mo|
|00001e70| 64 65 2d 6c 69 6e 65 2d | 66 6f 72 6d 61 74 20 72 |de-line-|format r|
|00001e80| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 74 65 |mail-mod|e-map te|
|00001e90| 78 74 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |xt-mode-|syntax-t|
|00001ea0| 61 62 6c 65 20 6c 6f 63 | 61 6c 2d 61 62 62 72 65 |able loc|al-abbre|
|00001eb0| 76 2d 74 61 62 6c 65 20 | 74 65 78 74 2d 6d 6f 64 |v-table |text-mod|
|00001ec0| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 72 |e-abbrev|-table r|
|00001ed0| 6d 61 69 6c 2d 6d 6f 64 | 65 20 22 52 4d 41 49 4c |mail-mod|e "RMAIL|
|00001ee0| 22 20 62 6f 75 6e 64 70 | 20 22 2d 2d 2d 20 22 20 |" boundp| "--- " |
|00001ef0| 64 65 66 61 75 6c 74 2d | 76 61 6c 75 65 20 75 73 |default-|value us|
|00001f00| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 73 65 74 2d |e-local-|map set-|
|00001f10| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 5d 20 36 29 |syntax-t|able] 6)|
|00001f20| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00001f30| 76 61 72 69 61 62 6c 65 | 73 20 6e 69 6c 20 28 62 |variable|s nil (b|
|00001f40| 79 74 65 2d 63 6f 64 65 | 20 22 c8 c0 21 88 c9 89 |yte-code| "..!...|
|00001f50| 10 88 c8 ca 21 88 c8 cb | 21 88 c8 c7 21 88 c8 cc |....!...|!...!...|
|00001f60| 21 88 c8 cd 21 88 c8 ce | 21 88 c8 cf 21 88 c8 c1 |!...!...|!...!...|
|00001f70| 21 88 c2 89 11 88 c8 c3 | 21 88 d0 89 13 88 c8 c4 |!.......|!.......|
|00001f80| 21 88 c5 89 14 88 c8 d1 | 21 88 c8 d2 21 88 c8 c6 |!.......|!...!...|
|00001f90| 21 88 d3 20 89 16 06 88 | c8 c7 21 88 c2 89 16 07 |!.. ....|..!.....|
|00001fa0| 87 22 20 5b 72 65 76 65 | 72 74 2d 62 75 66 66 65 |." [reve|rt-buffe|
|00001fb0| 72 2d 66 75 6e 63 74 69 | 6f 6e 20 72 65 71 75 69 |r-functi|on requi|
|00001fc0| 72 65 2d 66 69 6e 61 6c | 2d 6e 65 77 6c 69 6e 65 |re-final|-newline|
|00001fd0| 20 6e 69 6c 20 76 65 72 | 73 69 6f 6e 2d 63 6f 6e | nil ver|sion-con|
|00001fe0| 74 72 6f 6c 20 66 69 6c | 65 2d 70 72 65 63 69 6f |trol fil|e-precio|
|00001ff0| 75 73 2d 66 6c 61 67 20 | 74 20 72 6d 61 69 6c 2d |us-flag |t rmail-|
|00002000| 69 6e 62 6f 78 2d 6c 69 | 73 74 20 72 6d 61 69 6c |inbox-li|st rmail|
|00002010| 2d 6b 65 79 77 6f 72 64 | 73 20 6d 61 6b 65 2d 6c |-keyword|s make-l|
|00002020| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 72 6d |ocal-var|iable rm|
|00002030| 61 69 6c 2d 72 65 76 65 | 72 74 20 72 6d 61 69 6c |ail-reve|rt rmail|
|00002040| 2d 6c 61 73 74 2d 6c 61 | 62 65 6c 20 72 6d 61 69 |-last-la|bel rmai|
|00002050| 6c 2d 64 65 6c 65 74 65 | 64 2d 76 65 63 74 6f 72 |l-delete|d-vector|
|00002060| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 62 | rmail-s|ummary-b|
|00002070| 75 66 66 65 72 20 72 6d | 61 69 6c 2d 73 75 6d 6d |uffer rm|ail-summ|
|00002080| 61 72 79 2d 76 65 63 74 | 6f 72 20 72 6d 61 69 6c |ary-vect|or rmail|
|00002090| 2d 63 75 72 72 65 6e 74 | 2d 6d 65 73 73 61 67 65 |-current|-message|
|000020a0| 20 72 6d 61 69 6c 2d 74 | 6f 74 61 6c 2d 6d 65 73 | rmail-t|otal-mes|
|000020b0| 73 61 67 65 73 20 6e 65 | 76 65 72 20 72 6d 61 69 |sages ne|ver rmai|
|000020c0| 6c 2d 6d 65 73 73 61 67 | 65 2d 76 65 63 74 6f 72 |l-messag|e-vector|
|000020d0| 20 72 6d 61 69 6c 2d 6c | 61 73 74 2d 66 69 6c 65 | rmail-l|ast-file|
|000020e0| 20 72 6d 61 69 6c 2d 70 | 61 72 73 65 2d 66 69 6c | rmail-p|arse-fil|
|000020f0| 65 2d 69 6e 62 6f 78 65 | 73 5d 20 31 38 29 29 0a |e-inboxe|s] 18)).|
|00002100| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 72 65 |.(defun |rmail-re|
|00002110| 76 65 72 74 20 28 61 72 | 67 20 6e 6f 63 6f 6e 66 |vert (ar|g noconf|
|00002120| 69 72 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |irm) (by|te-code |
|00002130| 22 c3 18 c4 09 0a 5c 22 | 85 14 00 c5 20 88 64 62 |".....\"|.... .db|
|00002140| 88 c6 20 88 c7 20 29 87 | 22 20 5b 72 65 76 65 72 |.. .. ).|" [rever|
|00002150| 74 2d 62 75 66 66 65 72 | 2d 66 75 6e 63 74 69 6f |t-buffer|-functio|
|00002160| 6e 20 61 72 67 20 6e 6f | 63 6f 6e 66 69 72 6d 20 |n arg no|confirm |
|00002170| 6e 69 6c 20 72 65 76 65 | 72 74 2d 62 75 66 66 65 |nil reve|rt-buffe|
|00002180| 72 20 72 6d 61 69 6c 2d | 63 6f 6e 76 65 72 74 2d |r rmail-|convert-|
|00002190| 66 69 6c 65 20 72 6d 61 | 69 6c 2d 73 65 74 2d 6d |file rma|il-set-m|
|000021a0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 20 |essage-c|ounters |
|000021b0| 72 6d 61 69 6c 2d 73 68 | 6f 77 2d 6d 65 73 73 61 |rmail-sh|ow-messa|
|000021c0| 67 65 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |ge] 5)).|.(defun |
|000021d0| 72 6d 61 69 6c 2d 70 61 | 72 73 65 2d 66 69 6c 65 |rmail-pa|rse-file|
|000021e0| 2d 69 6e 62 6f 78 65 73 | 20 6e 69 6c 20 28 62 79 |-inboxes| nil (by|
|000021f0| 74 65 2d 63 6f 64 65 20 | 22 8a 8c c2 20 88 c3 62 |te-code |"... ..b|
|00002200| 88 c4 c5 21 85 31 00 c6 | c7 c0 c8 23 88 c9 c3 60 |...!.1..|...#...`|
|00002210| 5c 22 88 c3 62 88 c6 ca | c0 c1 23 85 31 00 c9 60 |\"..b...|..#.1..`|
|00002220| cb 20 88 60 5c 22 88 65 | 62 88 cc 20 29 29 87 22 |. .`\".e|b.. ))."|
|00002230| 20 5b 6e 69 6c 20 74 20 | 77 69 64 65 6e 20 31 20 | [nil t |widen 1 |
|00002240| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 42 41 42 59 |looking-|at "BABY|
|00002250| 4c 20 4f 50 54 49 4f 4e | 53 3a 22 20 73 65 61 72 |L OPTION|S:" sear|
|00002260| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 1f 22 20 6d |ch-forwa|rd "." m|
|00002270| 6f 76 65 20 6e 61 72 72 | 6f 77 2d 74 6f 2d 72 65 |ove narr|ow-to-re|
|00002280| 67 69 6f 6e 20 22 0a 4d | 61 69 6c 3a 22 20 65 6e |gion ".M|ail:" en|
|00002290| 64 2d 6f 66 2d 6c 69 6e | 65 20 6d 61 69 6c 2d 70 |d-of-lin|e mail-p|
|000022a0| 61 72 73 65 2d 63 6f 6d | 6d 61 2d 6c 69 73 74 5d |arse-com|ma-list]|
|000022b0| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 9))..(d|efun rma|
|000022c0| 69 6c 2d 65 78 70 75 6e | 67 65 2d 61 6e 64 2d 73 |il-expun|ge-and-s|
|000022d0| 61 76 65 20 6e 69 6c 20 | 22 5c 0a 45 78 70 75 6e |ave nil |"\.Expun|
|000022e0| 67 65 20 61 6e 64 20 73 | 61 76 65 20 52 4d 41 49 |ge and s|ave RMAI|
|000022f0| 4c 20 66 69 6c 65 2e 22 | 20 28 69 6e 74 65 72 61 |L file."| (intera|
|00002300| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00002310| 65 20 22 c0 88 c1 20 88 | c2 20 87 22 20 5b 6e 69 |e "... .|. ." [ni|
|00002320| 6c 20 72 6d 61 69 6c 2d | 65 78 70 75 6e 67 65 20 |l rmail-|expunge |
|00002330| 73 61 76 65 2d 62 75 66 | 66 65 72 5d 20 33 29 29 |save-buf|fer] 3))|
|00002340| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 71 |..(defun| rmail-q|
|00002350| 75 69 74 20 6e 69 6c 20 | 22 5c 0a 51 75 69 74 20 |uit nil |"\.Quit |
|00002360| 6f 75 74 20 6f 66 20 52 | 4d 41 49 4c 2e 22 20 28 |out of R|MAIL." (|
|00002370| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00002380| 74 65 2d 63 6f 64 65 20 | 22 c2 88 c3 20 88 08 85 |te-code |"... ...|
|00002390| 0c 00 c4 08 21 88 70 19 | c5 c6 20 21 88 c4 09 21 |....!.p.|.. !...!|
|000023a0| 29 87 22 20 5b 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 |)." [rma|il-summa|
|000023b0| 72 79 2d 62 75 66 66 65 | 72 20 6f 62 75 66 20 6e |ry-buffe|r obuf n|
|000023c0| 69 6c 20 72 6d 61 69 6c | 2d 65 78 70 75 6e 67 65 |il rmail|-expunge|
|000023d0| 2d 61 6e 64 2d 73 61 76 | 65 20 62 75 72 79 2d 62 |-and-sav|e bury-b|
|000023e0| 75 66 66 65 72 20 73 77 | 69 74 63 68 2d 74 6f 2d |uffer sw|itch-to-|
|000023f0| 62 75 66 66 65 72 20 6f | 74 68 65 72 2d 62 75 66 |buffer o|ther-buf|
|00002400| 66 65 72 5d 20 36 29 29 | 0a 0a 28 64 65 66 75 6e |fer] 6))|..(defun|
|00002410| 20 72 6d 61 69 6c 2d 69 | 6e 70 75 74 20 28 66 69 | rmail-i|nput (fi|
|00002420| 6c 65 6e 61 6d 65 29 20 | 22 5c 0a 52 75 6e 20 52 |lename) |"\.Run R|
|00002430| 4d 41 49 4c 20 6f 6e 20 | 66 69 6c 65 20 46 49 4c |MAIL on |file FIL|
|00002440| 45 4e 41 4d 45 2e 22 20 | 28 69 6e 74 65 72 61 63 |ENAME." |(interac|
|00002450| 74 69 76 65 20 22 46 52 | 75 6e 20 72 6d 61 69 6c |tive "FR|un rmail|
|00002460| 20 6f 6e 20 52 4d 41 49 | 4c 20 66 69 6c 65 3a 20 | on RMAI|L file: |
|00002470| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |") (byte|-code ".|
|00002480| 88 c2 08 21 87 22 20 5b | 66 69 6c 65 6e 61 6d 65 |...!." [|filename|
|00002490| 20 6e 69 6c 20 72 6d 61 | 69 6c 5d 20 32 29 29 0a | nil rma|il] 2)).|
|000024a0| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 67 65 |.(defun |rmail-ge|
|000024b0| 74 2d 6e 65 77 2d 6d 61 | 69 6c 20 28 26 6f 70 74 |t-new-ma|il (&opt|
|000024c0| 69 6f 6e 61 6c 20 66 69 | 6c 65 2d 6e 61 6d 65 29 |ional fi|le-name)|
|000024d0| 20 22 5c 0a 4d 6f 76 65 | 20 61 6e 79 20 6e 65 77 | "\.Move| any new|
|000024e0| 20 6d 61 69 6c 20 66 72 | 6f 6d 20 74 68 69 73 20 | mail fr|om this |
|000024f0| 52 4d 41 49 4c 20 66 69 | 6c 65 27 73 20 69 6e 62 |RMAIL fi|le's inb|
|00002500| 6f 78 20 66 69 6c 65 73 | 2e 0a 54 68 65 20 69 6e |ox files|..The in|
|00002510| 62 6f 78 20 66 69 6c 65 | 73 20 63 61 6e 20 62 65 |box file|s can be|
|00002520| 20 73 70 65 63 69 66 69 | 65 64 20 77 69 74 68 20 | specifi|ed with |
|00002530| 74 68 65 20 66 69 6c 65 | 27 73 20 4d 61 69 6c 3a |the file|'s Mail:|
|00002540| 20 6f 70 74 69 6f 6e 2e | 0a 54 68 65 20 76 61 72 | option.|.The var|
|00002550| 69 61 62 6c 65 20 72 6d | 61 69 6c 2d 70 72 69 6d |iable rm|ail-prim|
|00002560| 61 72 79 2d 69 6e 62 6f | 78 2d 6c 69 73 74 20 73 |ary-inbo|x-list s|
|00002570| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 69 6e 62 |pecifies| the inb|
|00002580| 6f 78 65 73 20 66 6f 72 | 0a 79 6f 75 72 20 70 72 |oxes for|.your pr|
|00002590| 69 6d 61 72 79 20 52 4d | 41 49 4c 20 66 69 6c 65 |imary RM|AIL file|
|000025a0| 20 69 66 20 69 74 20 68 | 61 73 20 6e 6f 20 4d 61 | if it h|as no Ma|
|000025b0| 69 6c 3a 20 6f 70 74 69 | 6f 6e 2e 0a 54 68 65 73 |il: opti|on..Thes|
|000025c0| 65 20 61 72 65 20 6e 6f | 72 6d 61 6c 6c 79 20 79 |e are no|rmally y|
|000025d0| 6f 75 72 20 7e 2f 6d 62 | 6f 78 20 61 6e 64 20 79 |our ~/mb|ox and y|
|000025e0| 6f 75 72 20 2f 75 73 72 | 2f 73 70 6f 6f 6c 2f 6d |our /usr|/spool/m|
|000025f0| 61 69 6c 2f 24 55 53 45 | 52 2e 0a 0a 59 6f 75 20 |ail/$USE|R...You |
|00002600| 63 61 6e 20 61 6c 73 6f | 20 73 70 65 63 69 66 79 |can also| specify|
|00002610| 20 74 68 65 20 66 69 6c | 65 20 74 6f 20 67 65 74 | the fil|e to get|
|00002620| 20 6e 65 77 20 6d 61 69 | 6c 20 66 72 6f 6d 2e 20 | new mai|l from. |
|00002630| 20 49 6e 20 74 68 69 73 | 0a 63 61 73 65 2c 20 74 | In this|.case, t|
|00002640| 68 65 20 66 69 6c 65 20 | 6f 66 20 6e 65 77 20 6d |he file |of new m|
|00002650| 61 69 6c 20 69 73 20 6e | 6f 74 20 63 68 61 6e 67 |ail is n|ot chang|
|00002660| 65 64 20 6f 72 20 64 65 | 6c 65 74 65 64 2e 0a 4e |ed or de|leted..N|
|00002670| 6f 6e 69 6e 74 65 72 61 | 63 74 69 76 65 6c 79 2c |onintera|ctively,|
|00002680| 20 79 6f 75 20 63 61 6e | 20 70 61 73 73 20 74 68 | you can| pass th|
|00002690| 65 20 69 6e 62 6f 78 20 | 66 69 6c 65 20 6e 61 6d |e inbox |file nam|
|000026a0| 65 20 61 73 20 61 6e 20 | 61 72 67 75 6d 65 6e 74 |e as an |argument|
|000026b0| 2e 0a 49 6e 74 65 72 61 | 63 74 69 76 65 6c 79 2c |..Intera|ctively,|
|000026c0| 20 61 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 | a prefi|x argume|
|000026d0| 6e 74 20 63 61 75 73 65 | 73 20 75 73 20 74 6f 20 |nt cause|s us to |
|000026e0| 72 65 61 64 20 61 20 66 | 69 6c 65 20 6e 61 6d 65 |read a f|ile name|
|000026f0| 0a 61 6e 64 20 75 73 65 | 20 74 68 61 74 20 66 69 |.and use| that fi|
|00002700| 6c 65 20 61 73 20 74 68 | 65 20 69 6e 62 6f 78 2e |le as th|e inbox.|
|00002710| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 28 |" (inter|active (|
|00002720| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 85 07 00 c1 |byte-cod|e ".....|
|00002730| c2 21 43 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 70 |.!C." [c|urrent-p|
|00002740| 72 65 66 69 78 2d 61 72 | 67 20 72 65 61 64 2d 66 |refix-ar|g read-f|
|00002750| 69 6c 65 2d 6e 61 6d 65 | 20 22 47 65 74 20 6e 65 |ile-name| "Get ne|
|00002760| 77 20 6d 61 69 6c 20 66 | 72 6f 6d 20 66 69 6c 65 |w mail f|rom file|
|00002770| 3a 20 22 5d 20 32 29 29 | 20 28 62 79 74 65 2d 63 |: "] 2))| (byte-c|
|00002780| 6f 64 65 20 22 c3 88 cc | 70 21 86 15 00 cd ce 20 |ode "...|p!..... |
|00002790| 21 88 cc 70 21 85 15 00 | cf 20 88 d0 20 88 d1 20 |!..p!...|. .. .. |
|000027a0| 88 09 c2 3d 86 25 00 c3 | 89 11 88 d2 8e 60 d3 c3 |...=.%..|.....`..|
|000027b0| 0e 07 85 32 00 d4 20 c3 | c2 19 1e 08 1e 07 1e 06 |...2.. .|........|
|000027c0| 1d 1c 64 62 88 d5 d6 21 | 88 d7 60 64 5c 22 88 8a |..db...!|..`d\"..|
|000027d0| 8c d8 60 60 5c 22 88 0e | 09 83 5e 00 d9 0e 09 43 |..``\"..|..^....C|
|000027e0| c3 5c 22 82 66 00 d9 0e | 0a c2 5c 22 89 16 06 88 |.\".f...|..\"....|
|000027f0| 65 62 88 8a da 20 89 15 | 29 88 db 0d 21 86 90 00 |eb... ..|)...!...|
|00002800| c3 1e 0b d1 20 88 dc dd | 21 88 d8 60 64 5c 22 88 |.... ...|!..`d\".|
|00002810| 65 54 62 88 de 20 88 df | 20 29 88 0e 06 85 a5 00 |eTb.. ..| )......|
|00002820| c3 e0 e1 8f 88 0e 06 41 | 89 16 06 88 82 91 00 29 |.......A|.......)|
|00002830| 29 88 0d d3 55 83 c1 00 | 0c 62 88 0e 09 86 b8 00 |)...U...|.b......|
|00002840| 0e 0a 85 be 00 e2 e3 21 | 82 d0 00 e2 e4 0d e5 0d |.......!|........|
|00002850| 55 83 ce 00 e6 82 cf 00 | e7 23 2e 06 29 87 22 20 |U.......|.#..)." |
|00002860| 5b 63 75 72 72 65 6e 74 | 2d 70 72 65 66 69 78 2d |[current|-prefix-|
|00002870| 61 72 67 20 62 75 66 66 | 65 72 2d 75 6e 64 6f 2d |arg buff|er-undo-|
|00002880| 6c 69 73 74 20 74 20 6e | 69 6c 20 6f 70 6f 69 6e |list t n|il opoin|
|00002890| 74 20 6e 65 77 2d 6d 65 | 73 73 61 67 65 73 20 64 |t new-me|ssages d|
|000028a0| 65 6c 65 74 65 2d 66 69 | 6c 65 73 20 6d 61 6b 65 |elete-fi|les make|
|000028b0| 2d 62 61 63 6b 75 70 2d | 66 69 6c 65 73 20 62 75 |-backup-|files bu|
|000028c0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 66 |ffer-rea|d-only f|
|000028d0| 69 6c 65 2d 6e 61 6d 65 | 20 72 6d 61 69 6c 2d 69 |ile-name| rmail-i|
|000028e0| 6e 62 6f 78 2d 6c 69 73 | 74 20 73 75 63 63 65 73 |nbox-lis|t succes|
|000028f0| 73 20 76 65 72 69 66 79 | 2d 76 69 73 69 74 65 64 |s verify|-visited|
|00002900| 2d 66 69 6c 65 2d 6d 6f | 64 74 69 6d 65 20 66 69 |-file-mo|dtime fi|
|00002910| 6e 64 2d 66 69 6c 65 20 | 62 75 66 66 65 72 2d 66 |nd-file |buffer-f|
|00002920| 69 6c 65 2d 6e 61 6d 65 | 20 72 6d 61 69 6c 2d 66 |ile-name| rmail-f|
|00002930| 6f 72 67 65 74 2d 6d 65 | 73 73 61 67 65 73 20 72 |orget-me|ssages r|
|00002940| 6d 61 69 6c 2d 6d 61 79 | 62 65 2d 73 65 74 2d 6d |mail-may|be-set-m|
|00002950| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 20 |essage-c|ounters |
|00002960| 77 69 64 65 6e 20 28 28 | 62 79 74 65 2d 63 6f 64 |widen ((|byte-cod|
|00002970| 65 20 22 c0 20 87 22 20 | 5b 72 6d 61 69 6c 2d 73 |e ". ." |[rmail-s|
|00002980| 68 6f 77 2d 6d 65 73 73 | 61 67 65 5d 20 32 29 29 |how-mess|age] 2))|
|00002990| 20 30 20 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 | 0 buffe|r-modifi|
|000029a0| 65 64 2d 70 20 73 6b 69 | 70 2d 63 68 61 72 73 2d |ed-p ski|p-chars-|
|000029b0| 62 61 63 6b 77 61 72 64 | 20 22 20 09 0a 22 20 64 |backward| " .." d|
|000029c0| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 6e 61 72 |elete-re|gion nar|
|000029d0| 72 6f 77 2d 74 6f 2d 72 | 65 67 69 6f 6e 20 72 6d |row-to-r|egion rm|
|000029e0| 61 69 6c 2d 69 6e 73 65 | 72 74 2d 69 6e 62 6f 78 |ail-inse|rt-inbox|
|000029f0| 2d 74 65 78 74 20 72 6d | 61 69 6c 2d 63 6f 6e 76 |-text rm|ail-conv|
|00002a00| 65 72 74 2d 74 6f 2d 62 | 61 62 79 6c 2d 66 6f 72 |ert-to-b|abyl-for|
|00002a10| 6d 61 74 20 7a 65 72 6f | 70 20 73 65 61 72 63 68 |mat zero|p search|
|00002a20| 2d 62 61 63 6b 77 61 72 | 64 20 22 1f 22 20 72 6d |-backwar|d "." rm|
|00002a30| 61 69 6c 2d 63 6f 75 6e | 74 2d 6e 65 77 2d 6d 65 |ail-coun|t-new-me|
|00002a40| 73 73 61 67 65 73 20 73 | 61 76 65 2d 62 75 66 66 |ssages s|ave-buff|
|00002a50| 65 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |er (byte|-code ".|
|00002a60| c1 c2 8f 87 22 20 5b 6e | 69 6c 20 28 62 79 74 65 |...." [n|il (byte|
|00002a70| 2d 63 6f 64 65 20 22 c1 | 08 40 21 87 22 20 5b 64 |-code ".|.@!." [d|
|00002a80| 65 6c 65 74 65 2d 66 69 | 6c 65 73 20 64 65 6c 65 |elete-fi|les dele|
|00002a90| 74 65 2d 66 69 6c 65 5d | 20 32 29 20 28 28 66 69 |te-file]| 2) ((fi|
|00002aa0| 6c 65 2d 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 |le-error| (byte-c|
|00002ab0| 6f 64 65 20 22 c1 60 60 | 08 40 23 87 22 20 5b 64 |ode ".``|.@#." [d|
|00002ac0| 65 6c 65 74 65 2d 66 69 | 6c 65 73 20 77 72 69 74 |elete-fi|les writ|
|00002ad0| 65 2d 72 65 67 69 6f 6e | 5d 20 34 29 29 29 5d 20 |e-region|] 4)))] |
|00002ae0| 33 29 20 28 28 66 69 6c | 65 2d 65 72 72 6f 72 20 |3) ((fil|e-error |
|00002af0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 87 22 20 |(byte-co|de ".." |
|00002b00| 5b 6e 69 6c 5d 20 31 29 | 29 29 20 6d 65 73 73 61 |[nil] 1)|)) messa|
|00002b10| 67 65 20 22 28 4e 6f 20 | 6e 65 77 20 6d 61 69 6c |ge "(No |new mail|
|00002b20| 20 68 61 73 20 61 72 72 | 69 76 65 64 29 22 20 22 | has arr|ived)" "|
|00002b30| 25 64 20 6e 65 77 20 6d | 65 73 73 61 67 65 25 73 |%d new m|essage%s|
|00002b40| 20 72 65 61 64 22 20 31 | 20 22 22 20 22 73 22 5d | read" 1| "" "s"]|
|00002b50| 20 32 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 6d | 26))..(|defun rm|
|00002b60| 61 69 6c 2d 69 6e 73 65 | 72 74 2d 69 6e 62 6f 78 |ail-inse|rt-inbox|
|00002b70| 2d 74 65 78 74 20 28 66 | 69 6c 65 73 20 72 65 6e |-text (f|iles ren|
|00002b80| 61 6d 65 70 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |amep) (b|yte-code|
|00002b90| 20 22 ca ca ca ca ca 1c | 1b 1a 19 18 0d 85 59 01 | "......|......Y.|
|00002ba0| cf d0 0d 40 21 21 10 08 | d1 50 89 11 88 d2 d3 08 |...@!!..|.P......|
|00002bb0| 21 0e 06 5c 22 89 13 88 | d4 d5 d6 08 21 5c 22 89 |!..\"...|....!\".|
|00002bc0| 14 88 0c 85 3a 00 d6 08 | 21 10 c8 89 16 07 88 0b |....:...|!.......|
|00002bd0| 85 64 00 cf d7 d3 cf 0e | 09 21 21 5c 22 89 11 88 |.d......|.!!\"...|
|00002be0| d8 08 21 85 64 00 cf d9 | da 21 86 60 00 d9 db 21 |..!.d...|.!.`...!|
|00002bf0| 86 60 00 dc 20 08 5c 22 | 89 10 88 0c 83 6f 00 dd |.`.. .\"|.....o..|
|00002c00| de 21 82 7f 00 df 09 21 | 86 78 00 df 08 21 85 7f |.!.....!|.x...!..|
|00002c10| 00 dd e0 08 5c 22 88 0e | 07 3f 83 8c 00 08 89 11 |....\"..|.?......|
|00002c20| 82 5c 22 01 df 09 21 86 | 9b 00 0c 3f 85 9b 00 df |.\"...!.|...?....|
|00002c30| 08 21 3f 83 a2 00 ca 82 | 5c 22 01 0b 3f 85 a9 00 |.!?.....|\"..?...|
|00002c40| 0c 3f 83 b9 00 e1 08 09 | ca 23 88 ca e2 e3 8f 82 |.?......|.#......|
|00002c50| 5c 22 01 ca 1e 0b e4 8e | 8a e5 e6 21 89 16 0b 88 |\"......|...!....|
|00002c60| e7 0e 0b 21 88 e8 cf e9 | 0e 0c 5c 22 ca 0e 0b ca |...!....|..\"....|
|00002c70| 08 09 26 06 88 ea 0e 0b | 21 3f 83 e6 00 ca 82 1f |..&.....|!?......|
|00002c80| 01 0e 0b 71 88 eb 65 64 | ec ed 24 88 64 62 88 ee |...q..ed|..$.db..|
|00002c90| ef 21 88 f0 60 64 5c 22 | 88 65 62 88 f1 f2 21 85 |.!..`d\"|.eb...!.|
|00002ca0| 0c 01 f0 65 f3 f4 21 5c | 22 88 f5 c8 21 88 dd f2 |...e..!\|"...!...|
|00002cb0| f6 65 64 5c 22 50 21 88 | f7 f8 21 88 ca 29 29 29 |.ed\"P!.|..!..)))|
|00002cc0| 88 df 09 21 85 4c 01 64 | 1e 0d 64 62 88 f9 09 21 |...!.L.d|..db...!|
|00002cd0| 88 64 62 88 68 ec 55 86 | 45 01 0e 0e 64 55 86 45 |.db.h.U.|E...dU.E|
|00002ce0| 01 ec 63 88 09 0a 42 89 | 12 29 88 dd fa 21 88 0d |..c...B.|.)...!..|
|00002cf0| 41 89 15 88 82 0a 00 88 | 0a 2d 87 22 20 5b 66 69 |A.......|.-." [fi|
|00002d00| 6c 65 20 74 6f 66 69 6c | 65 20 64 65 6c 65 74 65 |le tofil|e delete|
|00002d10| 2d 66 69 6c 65 73 20 6d | 6f 76 65 6d 61 69 6c 20 |-files m|ovemail |
|00002d20| 70 6f 70 6d 61 69 6c 20 | 66 69 6c 65 73 20 72 6d |popmail |files rm|
|00002d30| 61 69 6c 2d 73 70 6f 6f | 6c 2d 64 69 72 65 63 74 |ail-spoo|l-direct|
|00002d40| 6f 72 79 20 72 65 6e 61 | 6d 65 70 20 74 20 62 75 |ory rena|mep t bu|
|00002d50| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 6e |ffer-fil|e-name n|
|00002d60| 69 6c 20 65 72 72 6f 72 | 73 20 65 78 65 63 2d 64 |il error|s exec-d|
|00002d70| 69 72 65 63 74 6f 72 79 | 20 6f 6d 61 78 20 6f 70 |irectory| omax op|
|00002d80| 6f 69 6e 74 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |oint exp|and-file|
|00002d90| 2d 6e 61 6d 65 20 73 75 | 62 73 74 69 74 75 74 65 |-name su|bstitute|
|00002da0| 2d 69 6e 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 22 7e |-in-file|-name "~|
|00002db0| 22 20 65 71 75 61 6c 20 | 66 69 6c 65 2d 6e 61 6d |" equal |file-nam|
|00002dc0| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 73 74 72 69 |e-direct|ory stri|
|00002dd0| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 70 6f 3a 22 20 |ng-match| "^po:" |
|00002de0| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|00002df0| 65 63 74 6f 72 79 20 22 | 2e 6e 65 77 6d 61 69 6c |ectory "|.newmail|
|00002e00| 22 20 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |" file-d|irectory|
|00002e10| 2d 70 20 67 65 74 65 6e | 76 20 22 4c 4f 47 4e 41 |-p geten|v "LOGNA|
|00002e20| 4d 45 22 20 22 55 53 45 | 52 22 20 75 73 65 72 2d |ME" "USE|R" user-|
|00002e30| 6c 6f 67 69 6e 2d 6e 61 | 6d 65 20 6d 65 73 73 61 |login-na|me messa|
|00002e40| 67 65 20 22 47 65 74 74 | 69 6e 67 20 6d 61 69 6c |ge "Gett|ing mail|
|00002e50| 20 66 72 6f 6d 20 70 6f | 73 74 20 6f 66 66 69 63 | from po|st offic|
|00002e60| 65 20 2e 2e 2e 22 20 66 | 69 6c 65 2d 65 78 69 73 |e ..." f|ile-exis|
|00002e70| 74 73 2d 70 20 22 47 65 | 74 74 69 6e 67 20 6d 61 |ts-p "Ge|tting ma|
|00002e80| 69 6c 20 66 72 6f 6d 20 | 25 73 2e 2e 2e 22 20 72 |il from |%s..." r|
|00002e90| 65 6e 61 6d 65 2d 66 69 | 6c 65 20 28 62 79 74 65 |ename-fi|le (byte|
|00002ea0| 2d 63 6f 64 65 20 22 c1 | 60 60 08 23 87 22 20 5b |-code ".|``.#." [|
|00002eb0| 66 69 6c 65 20 77 72 69 | 74 65 2d 72 65 67 69 6f |file wri|te-regio|
|00002ec0| 6e 5d 20 34 29 20 28 28 | 66 69 6c 65 2d 65 72 72 |n] 4) ((|file-err|
|00002ed0| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |or (byte|-code ".|
|00002ee0| 87 22 20 5b 6e 69 6c 5d | 20 31 29 29 29 20 28 28 |." [nil]| 1))) ((|
|00002ef0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 85 07 00 c1 |byte-cod|e ".....|
|00002f00| 08 21 87 22 20 5b 65 72 | 72 6f 72 73 20 6b 69 6c |.!." [er|rors kil|
|00002f10| 6c 2d 62 75 66 66 65 72 | 5d 20 32 29 29 20 67 65 |l-buffer|] 2)) ge|
|00002f20| 6e 65 72 61 74 65 2d 6e | 65 77 2d 62 75 66 66 65 |nerate-n|ew-buffe|
|00002f30| 72 20 22 20 2a 72 6d 61 | 69 6c 20 6c 6f 73 73 2a |r " *rma|il loss*|
|00002f40| 22 20 62 75 66 66 65 72 | 2d 66 6c 75 73 68 2d 75 |" buffer|-flush-u|
|00002f50| 6e 64 6f 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ndo call|-process|
|00002f60| 20 22 6d 6f 76 65 6d 61 | 69 6c 22 20 62 75 66 66 | "movema|il" buff|
|00002f70| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 73 75 |er-modif|ied-p su|
|00002f80| 62 73 74 2d 63 68 61 72 | 2d 69 6e 2d 72 65 67 69 |bst-char|-in-regi|
|00002f90| 6f 6e 20 31 30 20 33 32 | 20 73 6b 69 70 2d 63 68 |on 10 32| skip-ch|
|00002fa0| 61 72 73 2d 62 61 63 6b | 77 61 72 64 20 22 20 09 |ars-back|ward " .|
|00002fb0| 22 20 64 65 6c 65 74 65 | 2d 72 65 67 69 6f 6e 20 |" delete|-region |
|00002fc0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 6d 6f 76 65 |looking-|at "move|
|00002fd0| 6d 61 69 6c 3a 20 22 20 | 6d 61 74 63 68 2d 65 6e |mail: " |match-en|
|00002fe0| 64 20 30 20 62 65 65 70 | 20 62 75 66 66 65 72 2d |d 0 beep| buffer-|
|00002ff0| 73 75 62 73 74 72 69 6e | 67 20 73 69 74 2d 66 6f |substrin|g sit-fo|
|00003000| 72 20 33 20 69 6e 73 65 | 72 74 2d 66 69 6c 65 2d |r 3 inse|rt-file-|
|00003010| 63 6f 6e 74 65 6e 74 73 | 20 22 22 5d 20 34 33 29 |contents| ""] 43)|
|00003020| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00003030| 63 6f 6e 76 65 72 74 2d | 74 6f 2d 62 61 62 79 6c |convert-|to-babyl|
|00003040| 2d 66 6f 72 6d 61 74 20 | 6e 69 6c 20 28 62 79 74 |-format |nil (byt|
|00003050| 65 2d 63 6f 64 65 20 22 | cc c3 c3 1a 19 18 65 62 |e-code "|......eb|
|00003060| 88 8c 6d 3f 85 35 01 cd | ce 21 83 20 00 cf d0 21 |..m?.5..|.!. ...!|
|00003070| 88 d1 65 60 5c 22 82 31 | 01 cd d2 21 83 50 00 cf |..e`\".1|...!.P..|
|00003080| d0 c3 c4 23 86 38 00 d3 | d4 21 88 d5 d6 21 88 64 |...#.8..|.!...!.d|
|00003090| 62 88 08 54 89 10 88 d1 | 60 8a d7 d8 21 88 60 29 |b..T....|`...!.`)|
|000030a0| 5c 22 88 d9 60 64 5c 22 | 82 31 01 c4 1a cd 0d 21 |\"..`d\"|.1.....!|
|000030b0| 29 83 98 00 c4 1a da db | 21 88 60 89 11 88 dc 0e |).......|!.`.....|
|000030c0| 06 c3 c4 23 88 da dd 21 | 29 88 8a 8c d9 09 60 53 |...#...!|).....`S|
|000030d0| 5c 22 88 65 62 88 cf d0 | c3 c4 23 85 89 00 da de |\".eb...|..#.....|
|000030e0| 21 88 82 7a 00 29 29 88 | d9 60 64 5c 22 88 08 54 |!..z.)).|.`d\"..T|
|000030f0| 89 10 82 31 01 cd df 21 | 83 2e 01 60 89 11 88 db |...1...!|...`....|
|00003100| 63 88 e0 20 88 8a dc e1 | c3 c4 23 85 b2 00 60 29 |c.. ....|..#...`)|
|00003110| 1e 07 c4 1a 8a e2 e3 21 | 88 cf e4 0e 07 c4 23 85 |.......!|......#.|
|00003120| d7 00 60 e5 20 88 60 1e | 0a 1e 09 e6 e7 0e 09 0e |..`. .`.|........|
|00003130| 0a 5c 22 21 2a 29 1e 08 | 0e 08 85 e5 00 0e 07 0e |.\"!*)..|........|
|00003140| 08 5c 5c 62 2b 88 dc e8 | e9 0e 0b ea 0d ea eb ec |.\\b+...|........|
|00003150| 26 07 c3 c4 23 83 00 01 | ed d6 21 62 82 02 01 64 |&...#...|..!b...d|
|00003160| 62 88 08 54 89 10 88 8a | 8c d9 09 60 5c 22 88 65 |b..T....|...`\".e|
|00003170| 62 88 cf d0 c3 c4 23 85 | 21 01 da de 21 88 82 12 |b.....#.|!...!...|
|00003180| 01 29 29 88 ee 63 88 d9 | 60 64 5c 22 82 31 01 ef |.))..c..|`d\".1..|
|00003190| d6 21 88 82 0a 00 29 88 | 08 2b 87 22 20 5b 63 6f |.!....).|.+." [co|
|000031a0| 75 6e 74 20 73 74 61 72 | 74 20 63 61 73 65 2d 66 |unt star|t case-f|
|000031b0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 20 74 |old-sear|ch nil t|
|000031c0| 20 6d 6d 64 66 2d 64 65 | 6c 69 6d 31 20 6d 6d 64 | mmdf-de|lim1 mmd|
|000031d0| 66 2d 64 65 6c 69 6d 32 | 20 68 65 61 64 65 72 2d |f-delim2| header-|
|000031e0| 65 6e 64 20 73 69 7a 65 | 20 62 65 67 20 65 6f 6c |end size| beg eol|
|000031f0| 20 72 6d 61 69 6c 2d 75 | 6e 69 78 2d 6d 61 69 6c | rmail-u|nix-mail|
|00003200| 2d 64 65 6c 69 6d 69 74 | 65 72 20 30 20 6c 6f 6f |-delimit|er 0 loo|
|00003210| 6b 69 6e 67 2d 61 74 20 | 22 42 41 42 59 4c 20 4f |king-at |"BABYL O|
|00003220| 50 54 49 4f 4e 53 3a 22 | 20 73 65 61 72 63 68 2d |PTIONS:"| search-|
|00003230| 66 6f 72 77 61 72 64 20 | 22 0a 1f 22 20 64 65 6c |forward |".." del|
|00003240| 65 74 65 2d 72 65 67 69 | 6f 6e 20 22 0c 22 20 6d |ete-regi|on "." m|
|00003250| 65 73 73 61 67 65 20 22 | 49 6e 76 61 6c 69 64 20 |essage "|Invalid |
|00003260| 42 61 62 79 6c 20 66 6f | 72 6d 61 74 20 69 6e 20 |Babyl fo|rmat in |
|00003270| 69 6e 62 6f 78 21 22 20 | 73 69 74 2d 66 6f 72 20 |inbox!" |sit-for |
|00003280| 31 20 73 6b 69 70 2d 63 | 68 61 72 73 2d 66 6f 72 |1 skip-c|hars-for|
|00003290| 77 61 72 64 20 22 20 09 | 0a 22 20 6e 61 72 72 6f |ward " .|." narro|
|000032a0| 77 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 72 65 70 6c |w-to-reg|ion repl|
|000032b0| 61 63 65 2d 6d 61 74 63 | 68 20 22 0c 0a 30 2c 20 |ace-matc|h "..0, |
|000032c0| 75 6e 73 65 65 6e 2c 2c | 0a 2a 2a 2a 20 45 4f 4f |unseen,,|.*** EOO|
|000032d0| 48 20 2a 2a 2a 0a 22 20 | 72 65 2d 73 65 61 72 63 |H ***." |re-searc|
|000032e0| 68 2d 66 6f 72 77 61 72 | 64 20 22 1f 22 20 22 0a |h-forwar|d "." ".|
|000032f0| 5e 5f 22 20 22 5e 46 72 | 6f 6d 20 22 20 72 6d 61 |^_" "^Fr|om " rma|
|00003300| 69 6c 2d 6e 75 6b 65 2d | 70 69 6e 68 65 61 64 2d |il-nuke-|pinhead-|
|00003310| 68 65 61 64 65 72 20 22 | 0a 0a 22 20 66 6f 72 77 |header "|.." forw|
|00003320| 61 72 64 2d 63 68 61 72 | 20 2d 31 20 22 0a 63 6f |ard-char| -1 ".co|
|00003330| 6e 74 65 6e 74 2d 6c 65 | 6e 67 74 68 3a 20 22 20 |ntent-le|ngth: " |
|00003340| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 72 65 61 64 |end-of-l|ine read|
|00003350| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00003360| 67 20 63 6f 6e 63 61 74 | 20 22 5e 5b 1f 5d 3f 5c |g concat| "^[.]?\|
|00003370| 5c 28 22 20 22 5c 5c 7c | 22 20 22 5e 42 41 42 59 |\(" "\\||" "^BABY|
|00003380| 4c 20 4f 50 54 49 4f 4e | 53 3a 5c 5c 7c 22 20 22 |L OPTION|S:\\|" "|
|00003390| 0c 0a 5b 30 31 5d 2c 5c | 5c 29 22 20 6d 61 74 63 |..[01],\|\)" matc|
|000033a0| 68 2d 62 65 67 69 6e 6e | 69 6e 67 20 33 31 20 64 |h-beginn|ing 31 d|
|000033b0| 65 6c 65 74 65 2d 63 68 | 61 72 5d 20 33 36 29 29 |elete-ch|ar] 36))|
|000033c0| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 6e |..(defun| rmail-n|
|000033d0| 75 6b 65 2d 70 69 6e 68 | 65 61 64 2d 68 65 61 64 |uke-pinh|ead-head|
|000033e0| 65 72 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |er nil (|byte-cod|
|000033f0| 65 20 22 8a 8c 60 c6 c8 | c9 8f 88 60 c6 c6 1b 1a |e "..`..|...`....|
|00003400| 19 18 ca 08 09 5c 22 88 | c5 1c 08 62 88 cb cc c6 |.....\".|...b....|
|00003410| c5 23 89 12 88 08 62 88 | cb cd c6 c5 23 85 2d 00 |.#....b.|....#.-.|
|00003420| 60 89 13 88 08 62 29 88 | c6 1c ce cf 0e 07 50 c6 |`....b).|......P.|
|00003430| c5 23 85 64 00 d0 0b 83 | 4a 00 d1 82 59 00 d2 d3 |.#.d....|J...Y...|
|00003440| 21 d4 d3 21 55 83 58 00 | d5 82 59 00 d6 0a 83 61 |!..!U.X.|..Y....a|
|00003450| 00 d1 82 62 00 d7 50 21 | 29 2c 29 29 87 22 20 5b |...b..P!|),))." [|
|00003460| 73 74 61 72 74 20 65 6e | 64 20 68 61 73 2d 66 72 |start en|d has-fr|
|00003470| 6f 6d 20 68 61 73 2d 64 | 61 74 65 20 63 61 73 65 |om has-d|ate case|
|00003480| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 74 20 6e |-fold-se|arch t n|
|00003490| 69 6c 20 72 6d 61 69 6c | 2d 75 6e 69 78 2d 6d 61 |il rmail|-unix-ma|
|000034a0| 69 6c 2d 64 65 6c 69 6d | 69 74 65 72 20 28 62 79 |il-delim|iter (by|
|000034b0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 87 22 20 5b |te-code |"..!." [|
|000034c0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|000034d0| 0a 0a 22 5d 20 32 29 20 | 28 28 65 72 72 6f 72 20 |.."] 2) |((error |
|000034e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 64 62 88 c0 |(byte-co|de "db..|
|000034f0| 63 87 22 20 5b 22 0a 0a | 22 5d 20 31 29 29 29 20 |c." ["..|"] 1))) |
|00003500| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|00003510| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00003520| 22 0a 46 72 6f 6d 3a 22 | 20 22 0a 44 61 74 65 3a |".From:"| ".Date:|
|00003530| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |" re-sea|rch-forw|
|00003540| 61 72 64 20 22 5e 22 20 | 72 65 70 6c 61 63 65 2d |ard "^" |replace-|
|00003550| 6d 61 74 63 68 20 22 22 | 20 6d 61 74 63 68 2d 62 |match ""| match-b|
|00003560| 65 67 69 6e 6e 69 6e 67 | 20 37 20 6d 61 74 63 68 |eginning| 7 match|
|00003570| 2d 65 6e 64 20 22 44 61 | 74 65 3a 20 5c 5c 33 2c |-end "Da|te: \\3,|
|00003580| 20 5c 5c 35 20 5c 5c 34 | 20 5c 5c 39 20 5c 5c 36 | \\5 \\4| \\9 \\6|
|00003590| 20 45 53 54 0a 22 20 22 | 44 61 74 65 3a 20 5c 5c | EST." "|Date: \\|
|000035a0| 33 2c 20 5c 5c 35 20 5c | 5c 34 20 5c 5c 39 20 5c |3, \\5 \|\4 \\9 \|
|000035b0| 5c 36 5c 5c 37 0a 22 20 | 22 46 72 6f 6d 3a 20 5c |\6\\7." |"From: \|
|000035c0| 5c 31 0a 22 5d 20 39 29 | 29 0a 0a 28 64 65 66 75 |\1."] 9)|)..(defu|
|000035d0| 6e 20 72 6d 61 69 6c 2d | 72 65 66 6f 72 6d 61 74 |n rmail-|reformat|
|000035e0| 2d 6d 65 73 73 61 67 65 | 20 28 62 65 67 20 65 6e |-message| (beg en|
|000035f0| 64 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |d) (byte|-code ".|
|00003600| 62 88 c8 c9 21 88 ca 67 | cb 5c 22 85 11 00 cc cd |b...!..g|.\".....|
|00003610| 21 88 c2 ce 20 0c 5a 1b | 19 cf c9 21 88 d0 63 88 |!... .Z.|...!..c.|
|00003620| c8 c9 21 88 d1 d2 21 85 | 2d 00 c8 c9 21 88 d1 d3 |..!...!.|-...!...|
|00003630| 21 85 3c 00 d4 60 c8 c9 | 21 88 60 5c 22 88 d5 60 |!.<..`..|!.`\"..`|
|00003640| 8a d6 d7 0c d8 23 88 60 | 29 5c 22 1d d9 0d da 5c |.....#.`|)\"....\|
|00003650| 22 88 db 60 ce 20 0b 5a | 5c 22 29 88 65 62 88 0e |"..`. .Z|\").eb..|
|00003660| 06 85 62 00 dc 20 88 0e | 07 85 6c 00 dd 0e 07 21 |..b.. ..|..l....!|
|00003670| 2a 87 22 20 5b 62 65 67 | 20 62 75 66 66 65 72 2d |*." [beg| buffer-|
|00003680| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 64 65 |read-onl|y nil de|
|00003690| 6c 74 61 20 65 6e 64 20 | 73 74 72 20 72 6d 61 69 |lta end |str rmai|
|000036a0| 6c 2d 69 67 6e 6f 72 65 | 64 2d 68 65 61 64 65 72 |l-ignore|d-header|
|000036b0| 73 20 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d |s rmail-|message-|
|000036c0| 66 69 6c 74 65 72 20 66 | 6f 72 77 61 72 64 2d 6c |filter f|orward-l|
|000036d0| 69 6e 65 20 31 20 2f 3d | 20 34 38 20 65 72 72 6f |ine 1 /=| 48 erro|
|000036e0| 72 20 22 42 61 64 20 66 | 6f 72 6d 61 74 20 69 6e |r "Bad f|ormat in|
|000036f0| 20 52 4d 41 49 4c 20 66 | 69 6c 65 2e 22 20 62 75 | RMAIL f|ile." bu|
|00003700| 66 66 65 72 2d 73 69 7a | 65 20 64 65 6c 65 74 65 |ffer-siz|e delete|
|00003710| 2d 63 68 61 72 20 34 39 | 20 6c 6f 6f 6b 69 6e 67 |-char 49| looking|
|00003720| 2d 61 74 20 22 53 75 6d | 6d 61 72 79 2d 6c 69 6e |-at "Sum|mary-lin|
|00003730| 65 3a 20 22 20 22 5c 5c | 2a 5c 5c 2a 5c 5c 2a 20 |e: " "\\|*\\*\\* |
|00003740| 45 4f 4f 48 20 5c 5c 2a | 5c 5c 2a 5c 5c 2a 0a 22 |EOOH \\*|\\*\\*."|
|00003750| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 62 | delete-|region b|
|00003760| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00003770| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00003780| 0a 0a 22 20 6d 6f 76 65 | 20 69 6e 73 65 72 74 20 |.." move| insert |
|00003790| 22 2a 2a 2a 20 45 4f 4f | 48 20 2a 2a 2a 0a 22 20 |"*** EOO|H ***." |
|000037a0| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|000037b0| 20 72 6d 61 69 6c 2d 63 | 6c 65 61 72 2d 68 65 61 | rmail-c|lear-hea|
|000037c0| 64 65 72 73 20 66 75 6e | 63 61 6c 6c 5d 20 31 39 |ders fun|call] 19|
|000037d0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|000037e0| 2d 63 6c 65 61 72 2d 68 | 65 61 64 65 72 73 20 6e |-clear-h|eaders n|
|000037f0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |il (byte|-code ".|
|00003800| c6 c0 c1 23 85 33 00 8c | c7 65 60 5c 22 88 c0 1a |...#.3..|.e`\"...|
|00003810| c1 1b 65 62 88 c8 0c c0 | c1 23 29 85 31 00 c9 20 |..eb....|.#).1.. |
|00003820| 88 ca 60 c8 cb 21 88 cc | cd 21 88 60 5c 22 88 82 |..`..!..|.!.`\"..|
|00003830| 10 00 29 29 87 22 20 5b | 6e 69 6c 20 74 20 62 75 |..))." [|nil t bu|
|00003840| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 63 |ffer-rea|d-only c|
|00003850| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00003860| 72 6d 61 69 6c 2d 69 67 | 6e 6f 72 65 64 2d 68 65 |rmail-ig|nored-he|
|00003870| 61 64 65 72 73 20 73 65 | 61 72 63 68 2d 66 6f 72 |aders se|arch-for|
|00003880| 77 61 72 64 20 22 0a 0a | 22 20 6e 61 72 72 6f 77 |ward "..|" narrow|
|00003890| 2d 74 6f 2d 72 65 67 69 | 6f 6e 20 72 65 2d 73 65 |-to-regi|on re-se|
|000038a0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 62 65 67 |arch-for|ward beg|
|000038b0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 20 64 |inning-o|f-line d|
|000038c0| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 22 0a 5b |elete-re|gion ".[|
|000038d0| 5e 20 09 5d 22 20 66 6f | 72 77 61 72 64 2d 63 68 |^ .]" fo|rward-ch|
|000038e0| 61 72 20 2d 31 5d 20 31 | 30 29 29 0a 0a 28 64 65 |ar -1] 1|0))..(de|
|000038f0| 66 75 6e 20 72 6d 61 69 | 6c 2d 74 6f 67 67 6c 65 |fun rmai|l-toggle|
|00003900| 2d 68 65 61 64 65 72 20 | 6e 69 6c 20 22 5c 0a 53 |-header |nil "\.S|
|00003910| 68 6f 77 20 6f 72 69 67 | 69 6e 61 6c 20 6d 65 73 |how orig|inal mes|
|00003920| 73 61 67 65 20 68 65 61 | 64 65 72 20 69 66 20 70 |sage hea|der if p|
|00003930| 72 75 6e 65 64 20 68 65 | 61 64 65 72 20 63 75 72 |runed he|ader cur|
|00003940| 72 65 6e 74 6c 79 20 73 | 68 6f 77 6e 2c 20 6f 72 |rently s|hown, or|
|00003950| 20 76 69 63 65 20 76 65 | 72 73 61 2e 22 20 28 69 | vice ve|rsa." (i|
|00003960| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00003970| 65 2d 63 6f 64 65 20 22 | c2 88 c5 20 88 c6 c7 08 |e-code "|... ....|
|00003980| 21 64 5c 22 88 c2 19 65 | 62 88 c8 c9 21 88 67 ca |!d\"...e|b...!.g.|
|00003990| 55 83 5d 00 cb c9 21 88 | cc 63 88 c8 c9 21 88 cd |U.]...!.|.c...!..|
|000039a0| ce 21 85 2f 00 c8 c9 21 | 88 cf 63 88 d0 d1 21 88 |.!./...!|..c...!.|
|000039b0| d2 d3 21 88 c8 d1 21 88 | 60 1b d2 d4 c2 c4 23 85 |..!...!.|`.....#.|
|000039c0| 4d 00 d5 0b 60 5c 22 29 | 88 65 62 88 d2 d3 21 88 |M...`\")|.eb...!.|
|000039d0| c6 60 64 5c 22 82 61 00 | d6 65 64 5c 22 29 87 22 |.`d\".a.|.ed\")."|
|000039e0| 20 5b 72 6d 61 69 6c 2d | 63 75 72 72 65 6e 74 2d | [rmail-|current-|
|000039f0| 6d 65 73 73 61 67 65 20 | 62 75 66 66 65 72 2d 72 |message |buffer-r|
|00003a00| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 74 65 6d |ead-only| nil tem|
|00003a10| 70 20 74 20 72 6d 61 69 | 6c 2d 6d 61 79 62 65 2d |p t rmai|l-maybe-|
|00003a20| 73 65 74 2d 6d 65 73 73 | 61 67 65 2d 63 6f 75 6e |set-mess|age-coun|
|00003a30| 74 65 72 73 20 6e 61 72 | 72 6f 77 2d 74 6f 2d 72 |ters nar|row-to-r|
|00003a40| 65 67 69 6f 6e 20 72 6d | 61 69 6c 2d 6d 73 67 62 |egion rm|ail-msgb|
|00003a50| 65 67 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |eg forwa|rd-line |
|00003a60| 31 20 34 39 20 64 65 6c | 65 74 65 2d 63 68 61 72 |1 49 del|ete-char|
|00003a70| 20 34 38 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 | 48 look|ing-at "|
|00003a80| 53 75 6d 6d 61 72 79 2d | 4c 69 6e 65 3a 22 20 22 |Summary-|Line:" "|
|00003a90| 2a 2a 2a 20 45 4f 4f 48 | 20 2a 2a 2a 0a 22 20 66 |*** EOOH| ***." f|
|00003aa0| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 2d 31 20 73 |orward-c|har -1 s|
|00003ab0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 0a |earch-fo|rward ".|
|00003ac0| 2a 2a 2a 20 45 4f 4f 48 | 20 2a 2a 2a 0a 22 20 22 |*** EOOH| ***." "|
|00003ad0| 0a 0a 22 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |.." dele|te-regio|
|00003ae0| 6e 20 72 6d 61 69 6c 2d | 72 65 66 6f 72 6d 61 74 |n rmail-|reformat|
|00003af0| 2d 6d 65 73 73 61 67 65 | 5d 20 31 38 29 29 0a 0a |-message|] 18))..|
|00003b00| 28 64 65 66 75 6e 20 72 | 6d 61 69 6c 2d 64 69 73 |(defun r|mail-dis|
|00003b10| 70 6c 61 79 2d 6c 61 62 | 65 6c 73 20 6e 69 6c 20 |play-lab|els nil |
|00003b20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c9 ca 20 cb |(byte-co|de ".. .|
|00003b30| 20 1a 19 18 8a cc 8e cd | 20 88 ce 0b 21 62 88 cf | .......| ...!b..|
|00003b40| d0 21 88 d1 d2 21 85 73 | 00 d3 60 d4 20 88 60 5c |.!...!.s|..`. .`\|
|00003b50| 22 88 c5 1c 65 62 88 d5 | d6 c5 c6 23 85 42 00 d1 |"...eb..|...#.B..|
|00003b60| d7 21 86 3e 00 6d 86 3e | 00 d8 63 88 82 2a 00 29 |.!.>.m.>|..c..*.)|
|00003b70| 88 64 62 88 d9 da c5 db | 23 85 73 00 60 65 54 56 |.db.....|#.s.`eTV|
|00003b80| 85 5e 00 dc d0 65 5c 5c | 60 5c 22 89 10 88 64 60 |.^...e\\|`\"...d`|
|00003b90| 5a dd 56 85 73 00 08 de | dc 60 df 5c 5c 64 53 5c |Z.V.s...|.`.\\dS\|
|00003ba0| 22 51 89 10 29 29 88 e0 | e1 08 5c 22 85 91 00 08 |"Q..))..|..\"....|
|00003bb0| e2 e3 e2 21 4f d6 08 e4 | e2 21 c5 4f 51 89 10 88 |...!O...|.!.OQ...|
|00003bc0| 82 76 00 88 e0 e5 08 5c | 22 85 ad 00 08 e2 e3 e2 |.v.....\|".......|
|00003bd0| 21 4f d6 08 e4 e2 21 c5 | 4f 51 89 10 88 82 92 00 |!O....!.|OQ......|
|00003be0| 88 e6 d8 0b e7 0e 08 08 | 25 89 16 07 2b 87 22 20 |........|%...+." |
|00003bf0| 5b 62 6c 75 72 62 20 62 | 65 67 20 65 6e 64 20 72 |[blurb b|eg end r|
|00003c00| 6d 61 69 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 65 73 |mail-cur|rent-mes|
|00003c10| 73 61 67 65 20 62 75 66 | 66 65 72 2d 72 65 61 64 |sage buf|fer-read|
|00003c20| 2d 6f 6e 6c 79 20 6e 69 | 6c 20 74 20 6d 6f 64 65 |-only ni|l t mode|
|00003c30| 2d 6c 69 6e 65 2d 70 72 | 6f 63 65 73 73 20 72 6d |-line-pr|ocess rm|
|00003c40| 61 69 6c 2d 74 6f 74 61 | 6c 2d 6d 65 73 73 61 67 |ail-tota|l-messag|
|00003c50| 65 73 20 22 22 20 70 6f | 69 6e 74 2d 6d 69 6e 2d |es "" po|int-min-|
|00003c60| 6d 61 72 6b 65 72 20 70 | 6f 69 6e 74 2d 6d 61 78 |marker p|oint-max|
|00003c70| 2d 6d 61 72 6b 65 72 20 | 28 28 62 79 74 65 2d 63 |-marker |((byte-c|
|00003c80| 6f 64 65 20 22 c3 08 09 | 5c 22 88 c4 08 c2 5c 22 |ode "...|\"....\"|
|00003c90| 88 c4 09 c2 5c 22 87 22 | 20 5b 62 65 67 20 65 6e |....\"."| [beg en|
|00003ca0| 64 20 6e 69 6c 20 6e 61 | 72 72 6f 77 2d 74 6f 2d |d nil na|rrow-to-|
|00003cb0| 72 65 67 69 6f 6e 20 73 | 65 74 2d 6d 61 72 6b 65 |region s|et-marke|
|00003cc0| 72 5d 20 35 29 29 20 77 | 69 64 65 6e 20 72 6d 61 |r] 5)) w|iden rma|
|00003cd0| 69 6c 2d 6d 73 67 62 65 | 67 20 66 6f 72 77 61 72 |il-msgbe|g forwar|
|00003ce0| 64 2d 6c 69 6e 65 20 31 | 20 6c 6f 6f 6b 69 6e 67 |d-line 1| looking|
|00003cf0| 2d 61 74 20 22 5b 30 31 | 5d 2c 22 20 6e 61 72 72 |-at "[01|]," narr|
|00003d00| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 20 65 6e 64 |ow-to-re|gion end|
|00003d10| 2d 6f 66 2d 6c 69 6e 65 | 20 73 65 61 72 63 68 2d |-of-line| search-|
|00003d20| 66 6f 72 77 61 72 64 20 | 22 2c 22 20 22 5b 20 2c |forward |"," "[ ,|
|00003d30| 5d 22 20 22 20 22 20 73 | 65 61 72 63 68 2d 62 61 |]" " " s|earch-ba|
|00003d40| 63 6b 77 61 72 64 20 22 | 2c 2c 22 20 6d 6f 76 65 |ckward "|,," move|
|00003d50| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00003d60| 67 20 32 20 22 3b 22 20 | 33 20 73 74 72 69 6e 67 |g 2 ";" |3 string|
|00003d70| 2d 6d 61 74 63 68 20 22 | 20 2b 2c 22 20 30 20 6d |-match "| +," 0 m|
|00003d80| 61 74 63 68 2d 62 65 67 | 69 6e 6e 69 6e 67 20 6d |atch-beg|inning m|
|00003d90| 61 74 63 68 2d 65 6e 64 | 20 22 2c 20 2b 22 20 63 |atch-end| ", +" c|
|00003da0| 6f 6e 63 61 74 20 22 2f | 22 5d 20 32 35 29 29 0a |oncat "/|"] 25)).|
|00003db0| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 73 65 |.(defun |rmail-se|
|00003dc0| 74 2d 61 74 74 72 69 62 | 75 74 65 20 28 61 74 74 |t-attrib|ute (att|
|00003dd0| 72 20 73 74 61 74 65 29 | 20 28 62 79 74 65 2d 63 |r state)| (byte-c|
|00003de0| 6f 64 65 20 22 c9 20 64 | 5a c9 20 65 5a c3 1a 19 |ode ". d|Z. eZ...|
|00003df0| 18 ca 8e 8a cb 20 88 cc | cd 0c 21 5c 5c 62 88 ce |..... ..|..!\\b..|
|00003e00| cf 0e 06 d0 51 60 d1 20 | 88 c7 23 1d 0d 0e 08 3f |....Q`. |..#....?|
|00003e10| 3f 3d 86 4a 00 0d 83 3d | 00 d2 60 d3 d4 21 53 5c |?=.J...=|..`..!S\|
|00003e20| 22 82 4a 00 d5 20 88 d6 | d7 21 88 d8 d9 0e 06 d0 |".J.. ..|.!......|
|00003e30| 23 29 88 da 0e 06 db 5c | 22 85 59 00 dc 0c 0e 08 |#).....\|".Y.....|
|00003e40| 5c 22 29 29 2b 87 22 20 | 5b 6f 6d 61 78 20 6f 6d |\"))+." |[omax om|
|00003e50| 69 6e 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |in buffe|r-read-o|
|00003e60| 6e 6c 79 20 6e 69 6c 20 | 72 6d 61 69 6c 2d 63 75 |nly nil |rmail-cu|
|00003e70| 72 72 65 6e 74 2d 6d 65 | 73 73 61 67 65 20 63 75 |rrent-me|ssage cu|
|00003e80| 72 73 74 61 74 65 20 61 | 74 74 72 20 74 20 73 74 |rstate a|ttr t st|
|00003e90| 61 74 65 20 62 75 66 66 | 65 72 2d 73 69 7a 65 20 |ate buff|er-size |
|00003ea0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 c4 |((byte-c|ode "...|
|00003eb0| 20 08 5a 5d c4 20 09 5a | 5c 22 88 c5 20 87 22 20 | .Z]. .Z|\".. ." |
|00003ec0| 5b 6f 6d 69 6e 20 6f 6d | 61 78 20 6e 61 72 72 6f |[omin om|ax narro|
|00003ed0| 77 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 31 20 62 75 |w-to-reg|ion 1 bu|
|00003ee0| 66 66 65 72 2d 73 69 7a | 65 20 72 6d 61 69 6c 2d |ffer-siz|e rmail-|
|00003ef0| 64 69 73 70 6c 61 79 2d | 6c 61 62 65 6c 73 5d 20 |display-|labels] |
|00003f00| 36 29 29 20 77 69 64 65 | 6e 20 33 20 72 6d 61 69 |6)) wide|n 3 rmai|
|00003f10| 6c 2d 6d 73 67 62 65 67 | 20 73 65 61 72 63 68 2d |l-msgbeg| search-|
|00003f20| 62 61 63 6b 77 61 72 64 | 20 22 2c 20 22 20 22 2c |backward| ", " ",|
|00003f30| 22 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 20 64 65 |" end-of|-line de|
|00003f40| 6c 65 74 65 2d 72 65 67 | 69 6f 6e 20 6d 61 74 63 |lete-reg|ion matc|
|00003f50| 68 2d 65 6e 64 20 30 20 | 62 65 67 69 6e 6e 69 6e |h-end 0 |beginnin|
|00003f60| 67 2d 6f 66 2d 6c 69 6e | 65 20 66 6f 72 77 61 72 |g-of-lin|e forwar|
|00003f70| 64 2d 63 68 61 72 20 32 | 20 69 6e 73 65 72 74 20 |d-char 2| insert |
|00003f80| 22 20 22 20 73 74 72 69 | 6e 67 3d 20 22 64 65 6c |" " stri|ng= "del|
|00003f90| 65 74 65 64 22 20 72 6d | 61 69 6c 2d 73 65 74 2d |eted" rm|ail-set-|
|00003fa0| 6d 65 73 73 61 67 65 2d | 64 65 6c 65 74 65 64 2d |message-|deleted-|
|00003fb0| 70 5d 20 31 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |p] 15)).|.(defun |
|00003fc0| 72 6d 61 69 6c 2d 6d 65 | 73 73 61 67 65 2d 6c 61 |rmail-me|ssage-la|
|00003fd0| 62 65 6c 73 2d 70 20 28 | 6d 73 67 20 6c 61 62 65 |bels-p (|msg labe|
|00003fe0| 6c 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ls) (byt|e-code "|
|00003ff0| c3 08 21 62 88 c4 c5 21 | 88 c6 09 60 c7 20 88 c2 |..!b...!|...`. ..|
|00004000| 23 87 22 20 5b 6d 73 67 | 20 6c 61 62 65 6c 73 20 |#." [msg| labels |
|00004010| 74 20 72 6d 61 69 6c 2d | 6d 73 67 62 65 67 20 66 |t rmail-|msgbeg f|
|00004020| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 33 20 72 65 |orward-c|har 3 re|
|00004030| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00004040| 20 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 5d 20 37 29 | end-of-|line] 7)|
|00004050| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00004060| 6d 73 67 65 6e 64 20 28 | 6e 29 20 28 62 79 74 65 |msgend (|n) (byte|
|00004070| 2d 63 6f 64 65 20 22 c2 | 08 09 54 48 21 87 22 20 |-code ".|..TH!." |
|00004080| 5b 72 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 76 |[rmail-m|essage-v|
|00004090| 65 63 74 6f 72 20 6e 20 | 6d 61 72 6b 65 72 2d 70 |ector n |marker-p|
|000040a0| 6f 73 69 74 69 6f 6e 5d | 20 33 29 29 0a 0a 28 64 |osition]| 3))..(d|
|000040b0| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 6d 73 67 62 65 |efun rma|il-msgbe|
|000040c0| 67 20 28 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |g (n) (b|yte-code|
|000040d0| 20 22 c2 08 09 48 21 87 | 22 20 5b 72 6d 61 69 6c | "...H!.|" [rmail|
|000040e0| 2d 6d 65 73 73 61 67 65 | 2d 76 65 63 74 6f 72 20 |-message|-vector |
|000040f0| 6e 20 6d 61 72 6b 65 72 | 2d 70 6f 73 69 74 69 6f |n marker|-positio|
|00004100| 6e 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 72 |n] 3))..|(defun r|
|00004110| 6d 61 69 6c 2d 77 69 64 | 65 6e 2d 74 6f 2d 63 75 |mail-wid|en-to-cu|
|00004120| 72 72 65 6e 74 2d 6d 73 | 67 62 65 67 20 28 66 75 |rrent-ms|gbeg (fu|
|00004130| 6e 63 74 69 6f 6e 29 20 | 22 5c 0a 43 61 6c 6c 20 |nction) |"\.Call |
|00004140| 46 55 4e 43 54 49 4f 4e | 20 77 69 74 68 20 70 6f |FUNCTION| with po|
|00004150| 69 6e 74 20 61 74 20 73 | 74 61 72 74 20 6f 66 20 |int at s|tart of |
|00004160| 69 6e 74 65 72 6e 61 6c | 20 64 61 74 61 20 6f 66 |internal| data of|
|00004170| 20 63 75 72 72 65 6e 74 | 20 6d 65 73 73 61 67 65 | current| message|
|00004180| 2e 0a 41 73 73 75 6d 65 | 73 20 74 68 61 74 20 62 |..Assume|s that b|
|00004190| 6f 75 6e 64 73 20 77 65 | 72 65 20 70 72 65 76 69 |ounds we|re previ|
|000041a0| 6f 75 73 6c 79 20 6e 61 | 72 72 6f 77 65 64 20 74 |ously na|rrowed t|
|000041b0| 6f 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 6d 65 |o displa|y the me|
|000041c0| 73 73 61 67 65 20 69 6e | 20 52 6d 61 69 6c 2e 0a |ssage in| Rmail..|
|000041d0| 54 68 65 20 62 6f 75 6e | 64 73 20 61 72 65 20 77 |The boun|ds are w|
|000041e0| 69 64 65 6e 65 64 20 65 | 6e 6f 75 67 68 20 74 6f |idened e|nough to|
|000041f0| 20 6d 6f 76 65 20 70 6f | 69 6e 74 20 77 68 65 72 | move po|int wher|
|00004200| 65 20 64 65 73 69 72 65 | 64 2c 0a 74 68 65 6e 20 |e desire|d,.then |
|00004210| 6e 61 72 72 6f 77 65 64 | 20 61 67 61 69 6e 20 61 |narrowed| again a|
|00004220| 66 74 65 72 77 61 72 64 | 2e 0a 41 73 73 75 6d 65 |fterward|..Assume|
|00004230| 73 20 74 68 61 74 20 74 | 68 65 20 76 69 73 69 62 |s that t|he visib|
|00004240| 6c 65 20 74 65 78 74 20 | 6f 66 20 74 68 65 20 6d |le text |of the m|
|00004250| 65 73 73 61 67 65 20 69 | 73 20 6e 6f 74 20 63 68 |essage i|s not ch|
|00004260| 61 6e 67 65 64 20 62 79 | 20 46 55 4e 43 54 49 4f |anged by| FUNCTIO|
|00004270| 4e 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |N." (byt|e-code "|
|00004280| 8a 64 65 5a c4 c5 0a 21 | 64 5c 22 88 65 62 88 c6 |.deZ...!|d\".eb..|
|00004290| 0b 21 19 18 c7 2a 29 87 | 22 20 5b 6f 62 65 67 20 |.!...*).|" [obeg |
|000042a0| 75 6e 77 69 6e 64 2d 70 | 72 6f 74 65 63 74 20 72 |unwind-p|rotect r|
|000042b0| 6d 61 69 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 65 73 |mail-cur|rent-mes|
|000042c0| 73 61 67 65 20 66 75 6e | 63 74 69 6f 6e 20 6e 61 |sage fun|ction na|
|000042d0| 72 72 6f 77 2d 74 6f 2d | 72 65 67 69 6f 6e 20 72 |rrow-to-|region r|
|000042e0| 6d 61 69 6c 2d 6d 73 67 | 62 65 67 20 66 75 6e 63 |mail-msg|beg func|
|000042f0| 61 6c 6c 20 6e 69 6c 5d | 20 35 29 29 0a 0a 28 64 |all nil]| 5))..(d|
|00004300| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 66 6f 72 67 65 |efun rma|il-forge|
|00004310| 74 2d 6d 65 73 73 61 67 | 65 73 20 6e 69 6c 20 28 |t-messag|es nil (|
|00004320| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 8e c7 08 21 |byte-cod|e "....!|
|00004330| 85 25 00 c8 19 08 1a 0a | 47 1b 09 0b 57 85 24 00 |.%......|G...W.$.|
|00004340| c9 0a 09 48 c4 5c 22 88 | 09 54 89 11 88 82 0f 00 |...H.\".|.T......|
|00004350| 2b 29 87 22 20 5b 72 6d | 61 69 6c 2d 6d 65 73 73 |+)." [rm|ail-mess|
|00004360| 61 67 65 2d 76 65 63 74 | 6f 72 20 69 20 76 20 6e |age-vect|or i v n|
|00004370| 20 6e 69 6c 20 72 6d 61 | 69 6c 2d 64 65 6c 65 74 | nil rma|il-delet|
|00004380| 65 64 2d 76 65 63 74 6f | 72 20 28 28 62 79 74 65 |ed-vecto|r ((byte|
|00004390| 2d 63 6f 64 65 20 22 c1 | 89 10 88 c1 89 12 87 22 |-code ".|......."|
|000043a0| 20 5b 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d | [rmail-|message-|
|000043b0| 76 65 63 74 6f 72 20 6e | 69 6c 20 72 6d 61 69 6c |vector n|il rmail|
|000043c0| 2d 64 65 6c 65 74 65 64 | 2d 76 65 63 74 6f 72 5d |-deleted|-vector]|
|000043d0| 20 32 29 29 20 76 65 63 | 74 6f 72 70 20 30 20 6d | 2)) vec|torp 0 m|
|000043e0| 6f 76 65 2d 6d 61 72 6b | 65 72 5d 20 35 29 29 0a |ove-mark|er] 5)).|
|000043f0| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 6d 61 |.(defun |rmail-ma|
|00004400| 79 62 65 2d 73 65 74 2d | 6d 65 73 73 61 67 65 2d |ybe-set-|message-|
|00004410| 63 6f 75 6e 74 65 72 73 | 20 6e 69 6c 20 28 62 79 |counters| nil (by|
|00004420| 74 65 2d 63 6f 64 65 20 | 22 08 85 0d 00 09 85 0d |te-code |".......|
|00004430| 00 0a 85 0d 00 0b 3f 85 | 13 00 c4 20 87 22 20 5b |......?.|... ." [|
|00004440| 72 6d 61 69 6c 2d 64 65 | 6c 65 74 65 64 2d 76 65 |rmail-de|leted-ve|
|00004450| 63 74 6f 72 20 72 6d 61 | 69 6c 2d 6d 65 73 73 61 |ctor rma|il-messa|
|00004460| 67 65 2d 76 65 63 74 6f | 72 20 72 6d 61 69 6c 2d |ge-vecto|r rmail-|
|00004470| 63 75 72 72 65 6e 74 2d | 6d 65 73 73 61 67 65 20 |current-|message |
|00004480| 72 6d 61 69 6c 2d 74 6f | 74 61 6c 2d 6d 65 73 73 |rmail-to|tal-mess|
|00004490| 61 67 65 73 20 72 6d 61 | 69 6c 2d 73 65 74 2d 6d |ages rma|il-set-m|
|000044a0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 5d |essage-c|ounters]|
|000044b0| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 2))..(d|efun rma|
|000044c0| 69 6c 2d 63 6f 75 6e 74 | 2d 6e 65 77 2d 6d 65 73 |il-count|-new-mes|
|000044d0| 73 61 67 65 73 20 28 26 | 6f 70 74 69 6f 6e 61 6c |sages (&|optional|
|000044e0| 20 6e 6f 6d 73 67 29 20 | 28 62 79 74 65 2d 63 6f | nomsg) |(byte-co|
|000044f0| 64 65 20 22 c1 18 cb 1a | c1 1b c1 1c 0d 86 0f 00 |de "....|........|
|00004500| cc cd 21 88 64 62 88 ce | cf 21 88 d0 20 43 89 13 |..!.db..|.!.. C..|
|00004510| 88 d1 65 21 88 0e 07 54 | 89 16 06 88 0e 07 0a 5c |..e!...T|.......\|
|00004520| 5c 89 16 07 88 d2 0e 08 | 0b 41 5c 22 89 16 08 88 |\.......|.A\"....|
|00004530| 0e 08 0e 06 0b 40 49 88 | 0e 09 0c 50 89 16 09 88 |.....@I.|...P....|
|00004540| d2 0e 0a d3 0a c1 5c 22 | 5c 22 89 16 0a 88 65 62 |......\"|\"....eb|
|00004550| 88 0d 86 61 00 cc d4 0a | 5c 22 2c 87 22 20 5b 63 |...a....|\",." [c|
|00004560| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00004570| 6e 69 6c 20 74 6f 74 61 | 6c 2d 6d 65 73 73 61 67 |nil tota|l-messag|
|00004580| 65 73 20 6d 65 73 73 61 | 67 65 73 2d 68 65 61 64 |es messa|ges-head|
|00004590| 20 64 65 6c 65 74 65 64 | 2d 68 65 61 64 20 6e 6f | deleted|-head no|
|000045a0| 6d 73 67 20 72 6d 61 69 | 6c 2d 63 75 72 72 65 6e |msg rmai|l-curren|
|000045b0| 74 2d 6d 65 73 73 61 67 | 65 20 72 6d 61 69 6c 2d |t-messag|e rmail-|
|000045c0| 74 6f 74 61 6c 2d 6d 65 | 73 73 61 67 65 73 20 72 |total-me|ssages r|
|000045d0| 6d 61 69 6c 2d 6d 65 73 | 73 61 67 65 2d 76 65 63 |mail-mes|sage-vec|
|000045e0| 74 6f 72 20 72 6d 61 69 | 6c 2d 64 65 6c 65 74 65 |tor rmai|l-delete|
|000045f0| 64 2d 76 65 63 74 6f 72 | 20 72 6d 61 69 6c 2d 73 |d-vector| rmail-s|
|00004600| 75 6d 6d 61 72 79 2d 76 | 65 63 74 6f 72 20 30 20 |ummary-v|ector 0 |
|00004610| 6d 65 73 73 61 67 65 20 | 22 43 6f 75 6e 74 69 6e |message |"Countin|
|00004620| 67 20 6e 65 77 20 6d 65 | 73 73 61 67 65 73 2e 2e |g new me|ssages..|
|00004630| 2e 22 20 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |." searc|h-backwa|
|00004640| 72 64 20 22 1f 22 20 70 | 6f 69 6e 74 2d 6d 61 72 |rd "." p|oint-mar|
|00004650| 6b 65 72 20 72 6d 61 69 | 6c 2d 73 65 74 2d 6d 65 |ker rmai|l-set-me|
|00004660| 73 73 61 67 65 2d 63 6f | 75 6e 74 65 72 73 2d 63 |ssage-co|unters-c|
|00004670| 6f 75 6e 74 65 72 20 76 | 63 6f 6e 63 61 74 20 6d |ounter v|concat m|
|00004680| 61 6b 65 2d 76 65 63 74 | 6f 72 20 22 43 6f 75 6e |ake-vect|or "Coun|
|00004690| 74 69 6e 67 20 6e 65 77 | 20 6d 65 73 73 61 67 65 |ting new| message|
|000046a0| 73 2e 2e 2e 64 6f 6e 65 | 20 28 25 64 29 22 5d 20 |s...done| (%d)"] |
|000046b0| 31 30 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 |10))..(d|efun rma|
|000046c0| 69 6c 2d 73 65 74 2d 6d | 65 73 73 61 67 65 2d 63 |il-set-m|essage-c|
|000046d0| 6f 75 6e 74 65 72 73 20 | 6e 69 6c 20 28 62 79 74 |ounters |nil (byt|
|000046e0| 65 2d 63 6f 64 65 20 22 | cc 20 88 8a 8c cd 20 88 |e-code "|. .... .|
|000046f0| 60 18 ce 19 c3 1a c3 1c | c3 1d c3 1e 06 cf d0 21 |`.......|.......!|
|00004700| 88 64 62 88 d1 d2 21 88 | d3 20 43 89 15 88 d4 60 |.db...!.|. C....`|
|00004710| 08 5e 21 88 09 89 12 88 | d4 20 88 09 89 16 07 88 |.^!.....|. ......|
|00004720| 09 d5 09 0a 5a 5d 5e 89 | 16 08 88 d6 d7 d8 20 0d |....Z]^.|...... .|
|00004730| 42 5c 22 16 09 d9 0e 06 | 50 16 0a da 0e 07 c3 5c |B\".....|P......\|
|00004740| 22 89 16 0b 88 cf db 21 | 2e 06 29 29 87 22 20 5b |"......!|..))." [|
|00004750| 70 6f 69 6e 74 2d 73 61 | 76 65 20 74 6f 74 61 6c |point-sa|ve total|
|00004760| 2d 6d 65 73 73 61 67 65 | 73 20 6d 65 73 73 61 67 |-message|s messag|
|00004770| 65 73 2d 61 66 74 65 72 | 2d 70 6f 69 6e 74 20 6e |es-after|-point n|
|00004780| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|00004790| 72 63 68 20 6d 65 73 73 | 61 67 65 73 2d 68 65 61 |rch mess|ages-hea|
|000047a0| 64 20 64 65 6c 65 74 65 | 64 2d 68 65 61 64 20 72 |d delete|d-head r|
|000047b0| 6d 61 69 6c 2d 74 6f 74 | 61 6c 2d 6d 65 73 73 61 |mail-tot|al-messa|
|000047c0| 67 65 73 20 72 6d 61 69 | 6c 2d 63 75 72 72 65 6e |ges rmai|l-curren|
|000047d0| 74 2d 6d 65 73 73 61 67 | 65 20 72 6d 61 69 6c 2d |t-messag|e rmail-|
|000047e0| 6d 65 73 73 61 67 65 2d | 76 65 63 74 6f 72 20 72 |message-|vector r|
|000047f0| 6d 61 69 6c 2d 64 65 6c | 65 74 65 64 2d 76 65 63 |mail-del|eted-vec|
|00004800| 74 6f 72 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |tor rmai|l-summar|
|00004810| 79 2d 76 65 63 74 6f 72 | 20 72 6d 61 69 6c 2d 66 |y-vector| rmail-f|
|00004820| 6f 72 67 65 74 2d 6d 65 | 73 73 61 67 65 73 20 77 |orget-me|ssages w|
|00004830| 69 64 65 6e 20 30 20 6d | 65 73 73 61 67 65 20 22 |iden 0 m|essage "|
|00004840| 43 6f 75 6e 74 69 6e 67 | 20 6d 65 73 73 61 67 65 |Counting| message|
|00004850| 73 2e 2e 2e 22 20 73 65 | 61 72 63 68 2d 62 61 63 |s..." se|arch-bac|
|00004860| 6b 77 61 72 64 20 22 1f | 22 20 70 6f 69 6e 74 2d |kward ".|" point-|
|00004870| 6d 61 72 6b 65 72 20 72 | 6d 61 69 6c 2d 73 65 74 |marker r|mail-set|
|00004880| 2d 6d 65 73 73 61 67 65 | 2d 63 6f 75 6e 74 65 72 |-message|-counter|
|00004890| 73 2d 63 6f 75 6e 74 65 | 72 20 31 20 61 70 70 6c |s-counte|r 1 appl|
|000048a0| 79 20 76 65 63 74 6f 72 | 20 70 6f 69 6e 74 2d 6d |y vector| point-m|
|000048b0| 69 6e 2d 6d 61 72 6b 65 | 72 20 22 44 22 20 6d 61 |in-marke|r "D" ma|
|000048c0| 6b 65 2d 76 65 63 74 6f | 72 20 22 43 6f 75 6e 74 |ke-vecto|r "Count|
|000048d0| 69 6e 67 20 6d 65 73 73 | 61 67 65 73 2e 2e 2e 64 |ing mess|ages...d|
|000048e0| 6f 6e 65 22 5d 20 31 32 | 29 29 0a 0a 28 64 65 66 |one"] 12|))..(def|
|000048f0| 75 6e 20 72 6d 61 69 6c | 2d 73 65 74 2d 6d 65 73 |un rmail|-set-mes|
|00004900| 73 61 67 65 2d 63 6f 75 | 6e 74 65 72 73 2d 63 6f |sage-cou|nters-co|
|00004910| 75 6e 74 65 72 20 28 26 | 6f 70 74 69 6f 6e 61 6c |unter (&|optional|
|00004920| 20 73 74 6f 70 29 20 28 | 62 79 74 65 2d 63 6f 64 | stop) (|byte-cod|
|00004930| 65 20 22 c5 c6 08 c1 23 | 85 3b 00 c7 20 0a 42 89 |e "....#|.;.. .B.|
|00004940| 12 88 8a c5 c8 60 c9 ca | 21 88 c1 23 83 20 00 cb |.....`..|!..#. ..|
|00004950| 82 21 00 cc 0b 42 89 13 | 29 88 cd ce 0c 54 89 14 |.!...B..|)....T..|
|00004960| cf 5c 22 21 85 37 00 d0 | d1 0c 5c 22 88 82 00 00 |.\"!.7..|..\"....|
|00004970| 87 22 20 5b 73 74 6f 70 | 20 74 20 6d 65 73 73 61 |." [stop| t messa|
|00004980| 67 65 73 2d 68 65 61 64 | 20 64 65 6c 65 74 65 64 |ges-head| deleted|
|00004990| 2d 68 65 61 64 20 74 6f | 74 61 6c 2d 6d 65 73 73 |-head to|tal-mess|
|000049a0| 61 67 65 73 20 73 65 61 | 72 63 68 2d 62 61 63 6b |ages sea|rch-back|
|000049b0| 77 61 72 64 20 22 1f 0c | 0a 22 20 70 6f 69 6e 74 |ward "..|." point|
|000049c0| 2d 6d 61 72 6b 65 72 20 | 22 2c 20 64 65 6c 65 74 |-marker |", delet|
|000049d0| 65 64 2c 22 20 66 6f 72 | 77 61 72 64 2d 6c 69 6e |ed," for|ward-lin|
|000049e0| 65 20 32 20 36 38 20 33 | 32 20 7a 65 72 6f 70 20 |e 2 68 3|2 zerop |
|000049f0| 25 20 32 30 20 6d 65 73 | 73 61 67 65 20 22 43 6f |% 20 mes|sage "Co|
|00004a00| 75 6e 74 69 6e 67 20 6d | 65 73 73 61 67 65 73 2e |unting m|essages.|
|00004a10| 2e 2e 25 64 22 5d 20 31 | 30 29 29 0a 0a 28 64 65 |..%d"] 1|0))..(de|
|00004a20| 66 75 6e 20 72 6d 61 69 | 6c 2d 62 65 67 69 6e 6e |fun rmai|l-beginn|
|00004a30| 69 6e 67 2d 6f 66 2d 6d | 65 73 73 61 67 65 20 6e |ing-of-m|essage n|
|00004a40| 69 6c 20 22 5c 0a 53 68 | 6f 77 20 63 75 72 72 65 |il "\.Sh|ow curre|
|00004a50| 6e 74 20 6d 65 73 73 61 | 67 65 20 73 74 61 72 74 |nt messa|ge start|
|00004a60| 69 6e 67 20 66 72 6f 6d | 20 74 68 65 20 62 65 67 |ing from| the beg|
|00004a70| 69 6e 6e 69 6e 67 2e 22 | 20 28 69 6e 74 65 72 61 |inning."| (intera|
|00004a80| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00004a90| 65 20 22 c1 88 c2 08 21 | 87 22 20 5b 72 6d 61 69 |e "....!|." [rmai|
|00004aa0| 6c 2d 63 75 72 72 65 6e | 74 2d 6d 65 73 73 61 67 |l-curren|t-messag|
|00004ab0| 65 20 6e 69 6c 20 72 6d | 61 69 6c 2d 73 68 6f 77 |e nil rm|ail-show|
|00004ac0| 2d 6d 65 73 73 61 67 65 | 5d 20 32 29 29 0a 0a 28 |-message|] 2))..(|
|00004ad0| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 73 68 6f 77 |defun rm|ail-show|
|00004ae0| 2d 6d 65 73 73 61 67 65 | 20 28 26 6f 70 74 69 6f |-message| (&optio|
|00004af0| 6e 61 6c 20 6e 29 20 22 | 5c 0a 53 68 6f 77 20 6d |nal n) "|\.Show m|
|00004b00| 65 73 73 61 67 65 20 6e | 75 6d 62 65 72 20 4e 20 |essage n|umber N |
|00004b10| 28 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 |(prefix |argument|
|00004b20| 29 2c 20 63 6f 75 6e 74 | 69 6e 67 20 66 72 6f 6d |), count|ing from|
|00004b30| 20 73 74 61 72 74 20 6f | 66 20 66 69 6c 65 2e 22 | start o|f file."|
|00004b40| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 70 | (intera|ctive "p|
|00004b50| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|00004b60| 88 c9 20 88 ca 20 88 cb | 08 21 83 1d 00 cc 65 64 |.. .. ..|.!....ed|
|00004b70| 53 5c 22 88 65 62 88 c2 | 89 11 82 94 00 c2 1b 0c |S\".eb..|........|
|00004b80| 3f 83 2a 00 0d 89 14 82 | 4d 00 0c cd 58 83 3a 00 |?.*.....|M...X.:.|
|00004b90| ce 14 ce 15 cf 89 13 82 | 4d 00 0c 08 56 83 4a 00 |........|M...V.J.|
|00004ba0| 08 14 08 15 d0 89 13 82 | 4d 00 0c 89 15 88 d1 0c |........|M.......|
|00004bb0| 21 d2 0c 21 1e 08 1e 07 | 0e 07 62 88 d3 ce 21 88 |!..!....|..b...!.|
|00004bc0| 67 d4 55 83 74 00 d5 0e | 07 0e 08 5c 22 88 d6 d7 |g.U.t...|...\"...|
|00004bd0| c2 5c 22 82 80 00 d8 d9 | 0e 08 c6 23 88 cc 60 0e |.\".....|...#..`.|
|00004be0| 08 5c 22 88 65 62 88 da | 20 88 db dc 21 88 0b 85 |.\".eb..| ...!...|
|00004bf0| 92 00 dd 0b 21 2a 29 87 | 22 20 5b 72 6d 61 69 6c |....!*).|" [rmail|
|00004c00| 2d 74 6f 74 61 6c 2d 6d | 65 73 73 61 67 65 73 20 |-total-m|essages |
|00004c10| 6d 6f 64 65 2d 6c 69 6e | 65 2d 70 72 6f 63 65 73 |mode-lin|e-proces|
|00004c20| 73 20 6e 69 6c 20 62 6c | 75 72 62 20 6e 20 72 6d |s nil bl|urb n rm|
|00004c30| 61 69 6c 2d 63 75 72 72 | 65 6e 74 2d 6d 65 73 73 |ail-curr|ent-mess|
|00004c40| 61 67 65 20 74 20 62 65 | 67 20 65 6e 64 20 72 6d |age t be|g end rm|
|00004c50| 61 69 6c 2d 6d 61 79 62 | 65 2d 73 65 74 2d 6d 65 |ail-mayb|e-set-me|
|00004c60| 73 73 61 67 65 2d 63 6f | 75 6e 74 65 72 73 20 77 |ssage-co|unters w|
|00004c70| 69 64 65 6e 20 7a 65 72 | 6f 70 20 6e 61 72 72 6f |iden zer|op narro|
|00004c80| 77 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 30 20 31 20 |w-to-reg|ion 0 1 |
|00004c90| 22 4e 6f 20 70 72 65 76 | 69 6f 75 73 20 6d 65 73 |"No prev|ious mes|
|00004ca0| 73 61 67 65 22 20 22 4e | 6f 20 66 6f 6c 6c 6f 77 |sage" "N|o follow|
|00004cb0| 69 6e 67 20 6d 65 73 73 | 61 67 65 22 20 72 6d 61 |ing mess|age" rma|
|00004cc0| 69 6c 2d 6d 73 67 62 65 | 67 20 72 6d 61 69 6c 2d |il-msgbe|g rmail-|
|00004cd0| 6d 73 67 65 6e 64 20 66 | 6f 72 77 61 72 64 2d 6c |msgend f|orward-l|
|00004ce0| 69 6e 65 20 34 38 20 72 | 6d 61 69 6c 2d 72 65 66 |ine 48 r|mail-ref|
|00004cf0| 6f 72 6d 61 74 2d 6d 65 | 73 73 61 67 65 20 72 6d |ormat-me|ssage rm|
|00004d00| 61 69 6c 2d 73 65 74 2d | 61 74 74 72 69 62 75 74 |ail-set-|attribut|
|00004d10| 65 20 22 75 6e 73 65 65 | 6e 22 20 73 65 61 72 63 |e "unsee|n" searc|
|00004d20| 68 2d 66 6f 72 77 61 72 | 64 20 22 0a 2a 2a 2a 20 |h-forwar|d ".*** |
|00004d30| 45 4f 4f 48 20 2a 2a 2a | 0a 22 20 72 6d 61 69 6c |EOOH ***|." rmail|
|00004d40| 2d 64 69 73 70 6c 61 79 | 2d 6c 61 62 65 6c 73 20 |-display|-labels |
|00004d50| 72 75 6e 2d 68 6f 6f 6b | 73 20 72 6d 61 69 6c 2d |run-hook|s rmail-|
|00004d60| 73 68 6f 77 2d 6d 65 73 | 73 61 67 65 2d 68 6f 6f |show-mes|sage-hoo|
|00004d70| 6b 20 6d 65 73 73 61 67 | 65 5d 20 31 35 29 29 0a |k messag|e] 15)).|
|00004d80| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 6e 65 |.(defun |rmail-ne|
|00004d90| 78 74 2d 6d 65 73 73 61 | 67 65 20 28 6e 29 20 22 |xt-messa|ge (n) "|
|00004da0| 5c 0a 53 68 6f 77 20 66 | 6f 6c 6c 6f 77 69 6e 67 |\.Show f|ollowing|
|00004db0| 20 6d 65 73 73 61 67 65 | 20 77 68 65 74 68 65 72 | message| whether|
|00004dc0| 20 64 65 6c 65 74 65 64 | 20 6f 72 20 6e 6f 74 2e | deleted| or not.|
|00004dd0| 0a 57 69 74 68 20 70 72 | 65 66 69 78 20 61 72 67 |.With pr|efix arg|
|00004de0| 75 6d 65 6e 74 20 4e 2c | 20 6d 6f 76 65 73 20 66 |ument N,| moves f|
|00004df0| 6f 72 77 61 72 64 20 4e | 20 6d 65 73 73 61 67 65 |orward N| message|
|00004e00| 73 2c 0a 6f 72 20 62 61 | 63 6b 77 61 72 64 20 69 |s,.or ba|ckward i|
|00004e10| 66 20 4e 20 69 73 20 6e | 65 67 61 74 69 76 65 2e |f N is n|egative.|
|00004e20| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |" (inter|active "|
|00004e30| 70 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |p") (byt|e-code "|
|00004e40| c2 88 c3 20 88 c4 08 09 | 5c 5c 21 87 22 20 5b 72 |... ....|\\!." [r|
|00004e50| 6d 61 69 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 65 73 |mail-cur|rent-mes|
|00004e60| 73 61 67 65 20 6e 20 6e | 69 6c 20 72 6d 61 69 6c |sage n n|il rmail|
|00004e70| 2d 6d 61 79 62 65 2d 73 | 65 74 2d 6d 65 73 73 61 |-maybe-s|et-messa|
|00004e80| 67 65 2d 63 6f 75 6e 74 | 65 72 73 20 72 6d 61 69 |ge-count|ers rmai|
|00004e90| 6c 2d 73 68 6f 77 2d 6d | 65 73 73 61 67 65 5d 20 |l-show-m|essage] |
|00004ea0| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |4))..(de|fun rmai|
|00004eb0| 6c 2d 70 72 65 76 69 6f | 75 73 2d 6d 65 73 73 61 |l-previo|us-messa|
|00004ec0| 67 65 20 28 6e 29 20 22 | 5c 0a 53 68 6f 77 20 70 |ge (n) "|\.Show p|
|00004ed0| 72 65 76 69 6f 75 73 20 | 6d 65 73 73 61 67 65 20 |revious |message |
|00004ee0| 77 68 65 74 68 65 72 20 | 64 65 6c 65 74 65 64 20 |whether |deleted |
|00004ef0| 6f 72 20 6e 6f 74 2e 0a | 57 69 74 68 20 70 72 65 |or not..|With pre|
|00004f00| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 20 4e 2c 20 |fix argu|ment N, |
|00004f10| 6d 6f 76 65 73 20 62 61 | 63 6b 77 61 72 64 20 4e |moves ba|ckward N|
|00004f20| 20 6d 65 73 73 61 67 65 | 73 2c 0a 6f 72 20 66 6f | message|s,.or fo|
|00004f30| 72 77 61 72 64 20 69 66 | 20 4e 20 69 73 20 6e 65 |rward if| N is ne|
|00004f40| 67 61 74 69 76 65 2e 22 | 20 28 69 6e 74 65 72 61 |gative."| (intera|
|00004f50| 63 74 69 76 65 20 22 70 | 22 29 20 28 62 79 74 65 |ctive "p|") (byte|
|00004f60| 2d 63 6f 64 65 20 22 c1 | 88 c2 08 5b 21 87 22 20 |-code ".|...[!." |
|00004f70| 5b 6e 20 6e 69 6c 20 72 | 6d 61 69 6c 2d 6e 65 78 |[n nil r|mail-nex|
|00004f80| 74 2d 6d 65 73 73 61 67 | 65 5d 20 32 29 29 0a 0a |t-messag|e] 2))..|
|00004f90| 28 64 65 66 75 6e 20 72 | 6d 61 69 6c 2d 6e 65 78 |(defun r|mail-nex|
|00004fa0| 74 2d 75 6e 64 65 6c 65 | 74 65 64 2d 6d 65 73 73 |t-undele|ted-mess|
|00004fb0| 61 67 65 20 28 6e 29 20 | 22 5c 0a 53 68 6f 77 20 |age (n) |"\.Show |
|00004fc0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6e 6f 6e 2d 64 65 |followin|g non-de|
|00004fd0| 6c 65 74 65 64 20 6d 65 | 73 73 61 67 65 2e 0a 57 |leted me|ssage..W|
|00004fe0| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00004ff0| 65 6e 74 20 4e 2c 20 6d | 6f 76 65 73 20 66 6f 72 |ent N, m|oves for|
|00005000| 77 61 72 64 20 4e 20 6e | 6f 6e 2d 64 65 6c 65 74 |ward N n|on-delet|
|00005010| 65 64 20 6d 65 73 73 61 | 67 65 73 2c 0a 6f 72 20 |ed messa|ges,.or |
|00005020| 62 61 63 6b 77 61 72 64 | 20 69 66 20 4e 20 69 73 |backward| if N is|
|00005030| 20 6e 65 67 61 74 69 76 | 65 2e 22 20 28 69 6e 74 | negativ|e." (int|
|00005040| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 62 |eractive| "p") (b|
|00005050| 79 74 65 2d 63 6f 64 65 | 20 22 c5 88 c6 20 88 09 |yte-code| "... ..|
|00005060| 09 1a 18 0b c7 56 85 12 | 00 0a 0c 57 85 2b 00 0a |.....V..|...W.+..|
|00005070| 54 89 12 88 c8 0a 21 3f | 85 27 00 0a 10 0b 53 89 |T.....!?|.'....S.|
|00005080| 13 88 82 09 00 88 0b c7 | 57 85 35 00 0a c9 56 85 |........|W.5...V.|
|00005090| 4e 00 0a 53 89 12 88 c8 | 0a 21 3f 85 4a 00 0a 10 |N..S....|.!?.J...|
|000050a0| 0b 54 89 13 88 82 2c 00 | 88 ca 08 09 5c 22 85 59 |.T....,.|....\".Y|
|000050b0| 00 cb 08 21 88 0b c7 57 | 85 63 00 cc cd 21 88 0b |...!...W|.c...!..|
|000050c0| c7 56 85 6d 00 cc ce 21 | 2a 87 22 20 5b 6c 61 73 |.V.m...!|*." [las|
|000050d0| 74 77 69 6e 20 72 6d 61 | 69 6c 2d 63 75 72 72 65 |twin rma|il-curre|
|000050e0| 6e 74 2d 6d 65 73 73 61 | 67 65 20 63 75 72 72 65 |nt-messa|ge curre|
|000050f0| 6e 74 20 6e 20 72 6d 61 | 69 6c 2d 74 6f 74 61 6c |nt n rma|il-total|
|00005100| 2d 6d 65 73 73 61 67 65 | 73 20 6e 69 6c 20 72 6d |-message|s nil rm|
|00005110| 61 69 6c 2d 6d 61 79 62 | 65 2d 73 65 74 2d 6d 65 |ail-mayb|e-set-me|
|00005120| 73 73 61 67 65 2d 63 6f | 75 6e 74 65 72 73 20 30 |ssage-co|unters 0|
|00005130| 20 72 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 64 | rmail-m|essage-d|
|00005140| 65 6c 65 74 65 64 2d 70 | 20 31 20 2f 3d 20 72 6d |eleted-p| 1 /= rm|
|00005150| 61 69 6c 2d 73 68 6f 77 | 2d 6d 65 73 73 61 67 65 |ail-show|-message|
|00005160| 20 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 70 72 65 | message| "No pre|
|00005170| 76 69 6f 75 73 20 6e 6f | 6e 64 65 6c 65 74 65 64 |vious no|ndeleted|
|00005180| 20 6d 65 73 73 61 67 65 | 22 20 22 4e 6f 20 66 6f | message|" "No fo|
|00005190| 6c 6c 6f 77 69 6e 67 20 | 6e 6f 6e 64 65 6c 65 74 |llowing |nondelet|
|000051a0| 65 64 20 6d 65 73 73 61 | 67 65 22 5d 20 38 29 29 |ed messa|ge"] 8))|
|000051b0| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 70 |..(defun| rmail-p|
|000051c0| 72 65 76 69 6f 75 73 2d | 75 6e 64 65 6c 65 74 65 |revious-|undelete|
|000051d0| 64 2d 6d 65 73 73 61 67 | 65 20 28 6e 29 20 22 5c |d-messag|e (n) "\|
|000051e0| 0a 53 68 6f 77 20 70 72 | 65 76 69 6f 75 73 20 6e |.Show pr|evious n|
|000051f0| 6f 6e 2d 64 65 6c 65 74 | 65 64 20 6d 65 73 73 61 |on-delet|ed messa|
|00005200| 67 65 2e 0a 57 69 74 68 | 20 70 72 65 66 69 78 20 |ge..With| prefix |
|00005210| 61 72 67 75 6d 65 6e 74 | 20 4e 2c 20 6d 6f 76 65 |argument| N, move|
|00005220| 73 20 62 61 63 6b 77 61 | 72 64 20 4e 20 6e 6f 6e |s backwa|rd N non|
|00005230| 2d 64 65 6c 65 74 65 64 | 20 6d 65 73 73 61 67 65 |-deleted| message|
|00005240| 73 2c 0a 6f 72 20 66 6f | 72 77 61 72 64 20 69 66 |s,.or fo|rward if|
|00005250| 20 4e 20 69 73 20 6e 65 | 67 61 74 69 76 65 2e 22 | N is ne|gative."|
|00005260| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 70 | (intera|ctive "p|
|00005270| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |") (byte|-code ".|
|00005280| 88 c2 08 5b 21 87 22 20 | 5b 6e 20 6e 69 6c 20 72 |...[!." |[n nil r|
|00005290| 6d 61 69 6c 2d 6e 65 78 | 74 2d 75 6e 64 65 6c 65 |mail-nex|t-undele|
|000052a0| 74 65 64 2d 6d 65 73 73 | 61 67 65 5d 20 32 29 29 |ted-mess|age] 2))|
|000052b0| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 6c |..(defun| rmail-l|
|000052c0| 61 73 74 2d 6d 65 73 73 | 61 67 65 20 6e 69 6c 20 |ast-mess|age nil |
|000052d0| 22 5c 0a 53 68 6f 77 20 | 6c 61 73 74 20 6d 65 73 |"\.Show |last mes|
|000052e0| 73 61 67 65 20 69 6e 20 | 66 69 6c 65 2e 22 20 28 |sage in |file." (|
|000052f0| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00005300| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 20 88 c3 08 |te-code |"... ...|
|00005310| 21 87 22 20 5b 72 6d 61 | 69 6c 2d 74 6f 74 61 6c |!." [rma|il-total|
|00005320| 2d 6d 65 73 73 61 67 65 | 73 20 6e 69 6c 20 72 6d |-message|s nil rm|
|00005330| 61 69 6c 2d 6d 61 79 62 | 65 2d 73 65 74 2d 6d 65 |ail-mayb|e-set-me|
|00005340| 73 73 61 67 65 2d 63 6f | 75 6e 74 65 72 73 20 72 |ssage-co|unters r|
|00005350| 6d 61 69 6c 2d 73 68 6f | 77 2d 6d 65 73 73 61 67 |mail-sho|w-messag|
|00005360| 65 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 72 |e] 3))..|(defun r|
|00005370| 6d 61 69 6c 2d 77 68 61 | 74 2d 6d 65 73 73 61 67 |mail-wha|t-messag|
|00005380| 65 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |e nil (b|yte-code|
|00005390| 20 22 60 c5 0b c6 0b c7 | 5c 22 1c 1a 19 18 0a 09 | "`.....|\"......|
|000053a0| 5a c5 56 85 33 00 08 c8 | 0c 21 59 83 21 00 0c 89 |Z.V.3...|.!Y.!...|
|000053b0| 11 82 24 00 0c 89 12 88 | 09 c6 0a 09 5a c7 5c 22 |..$.....|....Z.\"|
|000053c0| 5c 5c 89 14 88 82 0b 00 | 88 08 c8 0a 21 59 83 40 |\\......|....!Y.@|
|000053d0| 00 0a 82 41 00 09 2c 87 | 22 20 5b 77 68 65 72 65 |...A..,.|" [where|
|000053e0| 20 6c 6f 77 20 68 69 67 | 68 20 72 6d 61 69 6c 2d | low hig|h rmail-|
|000053f0| 74 6f 74 61 6c 2d 6d 65 | 73 73 61 67 65 73 20 6d |total-me|ssages m|
|00005400| 69 64 20 31 20 2f 20 32 | 20 72 6d 61 69 6c 2d 6d |id 1 / 2| rmail-m|
|00005410| 73 67 62 65 67 5d 20 37 | 29 29 0a 0a 28 64 65 66 |sgbeg] 7|))..(def|
|00005420| 76 61 72 20 72 6d 61 69 | 6c 2d 73 65 61 72 63 68 |var rmai|l-search|
|00005430| 2d 6c 61 73 74 2d 72 65 | 67 65 78 70 20 6e 69 6c |-last-re|gexp nil|
|00005440| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00005450| 73 65 61 72 63 68 20 28 | 72 65 67 65 78 70 20 26 |search (|regexp &|
|00005460| 6f 70 74 69 6f 6e 61 6c | 20 72 65 76 65 72 73 65 |optional| reverse|
|00005470| 70 29 20 22 5c 0a 53 68 | 6f 77 20 6d 65 73 73 61 |p) "\.Sh|ow messa|
|00005480| 67 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 6e 65 |ge conta|ining ne|
|00005490| 78 74 20 6d 61 74 63 68 | 20 66 6f 72 20 52 45 47 |xt match| for REG|
|000054a0| 45 58 50 2e 0a 53 65 61 | 72 63 68 20 69 6e 20 72 |EXP..Sea|rch in r|
|000054b0| 65 76 65 72 73 65 20 28 | 65 61 72 6c 69 65 72 20 |everse (|earlier |
|000054c0| 6d 65 73 73 61 67 65 73 | 29 20 77 69 74 68 20 6e |messages|) with n|
|000054d0| 6f 6e 2d 6e 69 6c 20 32 | 6e 64 20 61 72 67 20 52 |on-nil 2|nd arg R|
|000054e0| 45 56 45 52 53 45 50 2e | 0a 49 6e 74 65 72 61 63 |EVERSEP.|.Interac|
|000054f0| 74 69 76 65 6c 79 2c 20 | 65 6d 70 74 79 20 61 72 |tively, |empty ar|
|00005500| 67 75 6d 65 6e 74 20 6d | 65 61 6e 73 20 75 73 65 |gument m|eans use|
|00005510| 20 73 61 6d 65 20 72 65 | 67 65 78 70 20 75 73 65 | same re|gexp use|
|00005520| 64 20 6c 61 73 74 20 74 | 69 6d 65 2c 0a 61 6e 64 |d last t|ime,.and|
|00005530| 20 72 65 76 65 72 73 65 | 20 73 65 61 72 63 68 20 | reverse| search |
|00005540| 69 73 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |is speci|fied by |
|00005550| 61 20 6e 65 67 61 74 69 | 76 65 20 6e 75 6d 65 72 |a negati|ve numer|
|00005560| 69 63 20 61 72 67 2e 22 | 20 28 69 6e 74 65 72 61 |ic arg."| (intera|
|00005570| 63 74 69 76 65 20 28 62 | 79 74 65 2d 63 6f 64 65 |ctive (b|yte-code|
|00005580| 20 22 c5 09 21 c6 57 18 | 08 83 0e 00 c7 82 0f 00 | "..!.W.|........|
|00005590| c8 c9 50 1a ca 1b 0c 85 | 1f 00 0a cb 0c cc 52 89 |..P.....|......R.|
|000055a0| 12 88 cd 0a 21 89 13 88 | ce 0b c8 5c 22 3f 83 34 |....!...|...\"?.4|
|000055b0| 00 0b 89 14 82 3c 00 0c | 3f 85 3c 00 cf d0 21 88 |.....<..|?.<...!.|
|000055c0| 0c 08 44 2b 87 22 20 5b | 72 65 76 65 72 73 65 70 |..D+." [|reversep|
|000055d0| 20 63 75 72 72 65 6e 74 | 2d 70 72 65 66 69 78 2d | current|-prefix-|
|000055e0| 61 72 67 20 70 72 6f 6d | 70 74 20 72 65 67 65 78 |arg prom|pt regex|
|000055f0| 70 20 72 6d 61 69 6c 2d | 73 65 61 72 63 68 2d 6c |p rmail-|search-l|
|00005600| 61 73 74 2d 72 65 67 65 | 78 70 20 70 72 65 66 69 |ast-rege|xp prefi|
|00005610| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00005620| 30 20 22 52 65 76 65 72 | 73 65 20 22 20 22 22 20 |0 "Rever|se " "" |
|00005630| 22 52 6d 61 69 6c 20 73 | 65 61 72 63 68 20 28 72 |"Rmail s|earch (r|
|00005640| 65 67 65 78 70 29 3a 20 | 22 20 6e 69 6c 20 22 28 |egexp): |" nil "(|
|00005650| 64 65 66 61 75 6c 74 20 | 22 20 22 29 20 22 20 72 |default |" ") " r|
|00005660| 65 61 64 2d 73 74 72 69 | 6e 67 20 65 71 75 61 6c |ead-stri|ng equal|
|00005670| 20 65 72 72 6f 72 20 22 | 4e 6f 20 70 72 65 76 69 | error "|No previ|
|00005680| 6f 75 73 20 52 6d 61 69 | 6c 20 73 65 61 72 63 68 |ous Rmai|l search|
|00005690| 20 73 74 72 69 6e 67 22 | 5d 20 36 29 29 20 28 62 | string"|] 6)) (b|
|000056a0| 79 74 65 2d 63 6f 64 65 | 20 22 cd 88 ce cf 08 83 |yte-code| "......|
|000056b0| 0c 00 d0 82 0d 00 d1 0b | 23 88 d2 20 88 65 64 60 |........|#.. .ed`|
|000056c0| cd 0e 0a 1e 09 1e 08 1e | 07 1e 06 1d d3 8e d4 20 |........|....... |
|000056d0| 88 08 83 54 00 0e 08 3f | 85 35 00 0e 09 d5 56 85 |...T...?|.5....V.|
|000056e0| 51 00 d6 0e 09 53 89 16 | 09 21 62 88 d7 0b d8 0e |Q....S..|.!b.....|
|000056f0| 09 21 cb 23 89 16 08 88 | 82 2b 00 82 7b 00 0e 08 |.!.#....|.+..{...|
|00005700| 3f 85 5f 00 0e 09 0e 0c | 57 85 7b 00 d6 0e 09 54 |?._.....|W.{....T|
|00005710| 89 16 09 21 62 88 d7 0b | d8 0e 09 21 cb 23 89 16 |...!b...|...!.#..|
|00005720| 08 88 82 54 00 29 2d 87 | 22 20 5b 72 65 76 65 72 |...T.)-.|" [rever|
|00005730| 73 65 70 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |sep curr|ent-pref|
|00005740| 69 78 2d 61 72 67 20 70 | 72 6f 6d 70 74 20 72 65 |ix-arg p|rompt re|
|00005750| 67 65 78 70 20 72 6d 61 | 69 6c 2d 73 65 61 72 63 |gexp rma|il-searc|
|00005760| 68 2d 6c 61 73 74 2d 72 | 65 67 65 78 70 20 6f 6d |h-last-r|egexp om|
|00005770| 69 6e 20 6f 6d 61 78 20 | 6f 70 6f 69 6e 74 20 77 |in omax |opoint w|
|00005780| 69 6e 20 6d 73 67 20 72 | 6d 61 69 6c 2d 63 75 72 |in msg r|mail-cur|
|00005790| 72 65 6e 74 2d 6d 65 73 | 73 61 67 65 20 74 20 72 |rent-mes|sage t r|
|000057a0| 6d 61 69 6c 2d 74 6f 74 | 61 6c 2d 6d 65 73 73 61 |mail-tot|al-messa|
|000057b0| 67 65 73 20 6e 69 6c 20 | 6d 65 73 73 61 67 65 20 |ges nil |message |
|000057c0| 22 25 73 52 6d 61 69 6c | 20 73 65 61 72 63 68 20 |"%sRmail| search |
|000057d0| 66 6f 72 20 25 73 2e 2e | 2e 22 20 22 52 65 76 65 |for %s..|." "Reve|
|000057e0| 72 73 65 20 22 20 22 22 | 20 72 6d 61 69 6c 2d 6d |rse " ""| rmail-m|
|000057f0| 61 79 62 65 2d 73 65 74 | 2d 6d 65 73 73 61 67 65 |aybe-set|-message|
|00005800| 2d 63 6f 75 6e 74 65 72 | 73 20 28 28 62 79 74 65 |-counter|s ((byte|
|00005810| 2d 63 6f 64 65 20 22 08 | 83 30 00 09 85 14 00 c8 |-code ".|.0......|
|00005820| 0a 21 62 88 c9 0b ca 0a | 21 c4 23 88 60 89 10 88 |.!b.....|!.#.`...|
|00005830| cb 0a 21 88 cc cd 09 83 | 27 00 ce 82 28 00 cf 0b |..!.....|'...(...|
|00005840| 23 88 08 62 82 41 00 0d | 62 88 d0 0e 06 0e 07 5c |#..b.A..|b......\|
|00005850| 22 88 d1 20 88 cc d2 0b | 5c 22 87 22 20 5b 77 69 |".. ....|\"." [wi|
|00005860| 6e 20 72 65 76 65 72 73 | 65 70 20 6d 73 67 20 72 |n revers|ep msg r|
|00005870| 65 67 65 78 70 20 74 20 | 6f 70 6f 69 6e 74 20 6f |egexp t |opoint o|
|00005880| 6d 69 6e 20 6f 6d 61 78 | 20 72 6d 61 69 6c 2d 6d |min omax| rmail-m|
|00005890| 73 67 65 6e 64 20 72 65 | 2d 73 65 61 72 63 68 2d |sgend re|-search-|
|000058a0| 62 61 63 6b 77 61 72 64 | 20 72 6d 61 69 6c 2d 6d |backward| rmail-m|
|000058b0| 73 67 62 65 67 20 72 6d | 61 69 6c 2d 73 68 6f 77 |sgbeg rm|ail-show|
|000058c0| 2d 6d 65 73 73 61 67 65 | 20 6d 65 73 73 61 67 65 |-message| message|
|000058d0| 20 22 25 73 52 6d 61 69 | 6c 20 73 65 61 72 63 68 | "%sRmai|l search|
|000058e0| 20 66 6f 72 20 25 73 2e | 2e 2e 64 6f 6e 65 22 20 | for %s.|..done" |
|000058f0| 22 52 65 76 65 72 73 65 | 20 22 20 22 22 20 6e 61 |"Reverse| " "" na|
|00005900| 72 72 6f 77 2d 74 6f 2d | 72 65 67 69 6f 6e 20 64 |rrow-to-|region d|
|00005910| 69 6e 67 20 22 53 65 61 | 72 63 68 65 64 20 66 61 |ing "Sea|rched fa|
|00005920| 69 6c 65 64 3a 20 25 73 | 22 5d 20 31 30 29 29 20 |iled: %s|"] 10)) |
|00005930| 77 69 64 65 6e 20 31 20 | 72 6d 61 69 6c 2d 6d 73 |widen 1 |rmail-ms|
|00005940| 67 62 65 67 20 72 65 2d | 73 65 61 72 63 68 2d 66 |gbeg re-|search-f|
|00005950| 6f 72 77 61 72 64 20 72 | 6d 61 69 6c 2d 6d 73 67 |orward r|mail-msg|
|00005960| 65 6e 64 5d 20 31 33 29 | 29 0a 0a 28 64 65 66 75 |end] 13)|)..(defu|
|00005970| 6e 20 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d |n rmail-|message-|
|00005980| 64 65 6c 65 74 65 64 2d | 70 20 28 6e 29 20 28 62 |deleted-|p (n) (b|
|00005990| 79 74 65 2d 63 6f 64 65 | 20 22 08 09 48 c2 55 87 |yte-code| "..H.U.|
|000059a0| 22 20 5b 72 6d 61 69 6c | 2d 64 65 6c 65 74 65 64 |" [rmail|-deleted|
|000059b0| 2d 76 65 63 74 6f 72 20 | 6e 20 36 38 5d 20 32 29 |-vector |n 68] 2)|
|000059c0| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|000059d0| 73 65 74 2d 6d 65 73 73 | 61 67 65 2d 64 65 6c 65 |set-mess|age-dele|
|000059e0| 74 65 64 2d 70 20 28 6e | 20 73 74 61 74 65 29 20 |ted-p (n| state) |
|000059f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 09 0a 83 |(byte-co|de "....|
|00005a00| 0a 00 c3 82 0b 00 c4 49 | 87 22 20 5b 72 6d 61 69 |.......I|." [rmai|
|00005a10| 6c 2d 64 65 6c 65 74 65 | 64 2d 76 65 63 74 6f 72 |l-delete|d-vector|
|00005a20| 20 6e 20 73 74 61 74 65 | 20 36 38 20 33 32 5d 20 | n state| 68 32] |
|00005a30| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |3))..(de|fun rmai|
|00005a40| 6c 2d 64 65 6c 65 74 65 | 2d 6d 65 73 73 61 67 65 |l-delete|-message|
|00005a50| 20 6e 69 6c 20 22 5c 0a | 44 65 6c 65 74 65 20 74 | nil "\.|Delete t|
|00005a60| 68 69 73 20 6d 65 73 73 | 61 67 65 20 61 6e 64 20 |his mess|age and |
|00005a70| 73 74 61 79 20 6f 6e 20 | 69 74 2e 22 20 28 69 6e |stay on |it." (in|
|00005a80| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00005a90| 2d 63 6f 64 65 20 22 c1 | 88 c2 c3 c0 5c 22 87 22 |-code ".|....\"."|
|00005aa0| 20 5b 74 20 6e 69 6c 20 | 72 6d 61 69 6c 2d 73 65 | [t nil |rmail-se|
|00005ab0| 74 2d 61 74 74 72 69 62 | 75 74 65 20 22 64 65 6c |t-attrib|ute "del|
|00005ac0| 65 74 65 64 22 5d 20 33 | 29 29 0a 0a 28 64 65 66 |eted"] 3|))..(def|
|00005ad0| 75 6e 20 72 6d 61 69 6c | 2d 75 6e 64 65 6c 65 74 |un rmail|-undelet|
|00005ae0| 65 2d 70 72 65 76 69 6f | 75 73 2d 6d 65 73 73 61 |e-previo|us-messa|
|00005af0| 67 65 20 6e 69 6c 20 22 | 5c 0a 42 61 63 6b 20 75 |ge nil "|\.Back u|
|00005b00| 70 20 74 6f 20 64 65 6c | 65 74 65 64 20 6d 65 73 |p to del|eted mes|
|00005b10| 73 61 67 65 2c 20 73 65 | 6c 65 63 74 20 69 74 2c |sage, se|lect it,|
|00005b20| 20 61 6e 64 20 75 6e 64 | 65 6c 65 74 65 20 69 74 | and und|elete it|
|00005b30| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|00005b40| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 88 09 | (byte-c|ode "...|
|00005b50| 18 08 c3 56 85 0e 00 c4 | 08 21 3f 85 19 00 08 53 |...V....|.!?....S|
|00005b60| 89 10 88 82 04 00 88 08 | c3 55 83 26 00 c5 c6 21 |........|.U.&...!|
|00005b70| 82 35 00 c7 08 09 5c 22 | 85 30 00 c8 08 21 88 c9 |.5....\"|.0...!..|
|00005b80| ca c2 5c 22 29 87 22 20 | 5b 6d 73 67 20 72 6d 61 |..\")." |[msg rma|
|00005b90| 69 6c 2d 63 75 72 72 65 | 6e 74 2d 6d 65 73 73 61 |il-curre|nt-messa|
|00005ba0| 67 65 20 6e 69 6c 20 30 | 20 72 6d 61 69 6c 2d 6d |ge nil 0| rmail-m|
|00005bb0| 65 73 73 61 67 65 2d 64 | 65 6c 65 74 65 64 2d 70 |essage-d|eleted-p|
|00005bc0| 20 65 72 72 6f 72 20 22 | 4e 6f 20 70 72 65 76 69 | error "|No previ|
|00005bd0| 6f 75 73 20 64 65 6c 65 | 74 65 64 20 6d 65 73 73 |ous dele|ted mess|
|00005be0| 61 67 65 22 20 2f 3d 20 | 72 6d 61 69 6c 2d 73 68 |age" /= |rmail-sh|
|00005bf0| 6f 77 2d 6d 65 73 73 61 | 67 65 20 72 6d 61 69 6c |ow-messa|ge rmail|
|00005c00| 2d 73 65 74 2d 61 74 74 | 72 69 62 75 74 65 20 22 |-set-att|ribute "|
|00005c10| 64 65 6c 65 74 65 64 22 | 5d 20 37 29 29 0a 0a 28 |deleted"|] 7))..(|
|00005c20| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 64 65 6c 65 |defun rm|ail-dele|
|00005c30| 74 65 2d 66 6f 72 77 61 | 72 64 20 28 26 6f 70 74 |te-forwa|rd (&opt|
|00005c40| 69 6f 6e 61 6c 20 62 61 | 63 6b 77 61 72 64 29 20 |ional ba|ckward) |
|00005c50| 22 5c 0a 44 65 6c 65 74 | 65 20 74 68 69 73 20 6d |"\.Delet|e this m|
|00005c60| 65 73 73 61 67 65 20 61 | 6e 64 20 6d 6f 76 65 20 |essage a|nd move |
|00005c70| 74 6f 20 6e 65 78 74 20 | 6e 6f 6e 64 65 6c 65 74 |to next |nondelet|
|00005c80| 65 64 20 6f 6e 65 2e 0a | 44 65 6c 65 74 65 64 20 |ed one..|Deleted |
|00005c90| 6d 65 73 73 61 67 65 73 | 20 73 74 61 79 20 69 6e |messages| stay in|
|00005ca0| 20 74 68 65 20 66 69 6c | 65 20 75 6e 74 69 6c 20 | the fil|e until |
|00005cb0| 74 68 65 20 5c 5c 5b 72 | 6d 61 69 6c 2d 65 78 70 |the \\[r|mail-exp|
|00005cc0| 75 6e 67 65 5d 20 63 6f | 6d 6d 61 6e 64 20 69 73 |unge] co|mmand is|
|00005cd0| 20 67 69 76 65 6e 2e 0a | 57 69 74 68 20 70 72 65 | given..|With pre|
|00005ce0| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 2c 20 64 65 |fix argu|ment, de|
|00005cf0| 6c 65 74 65 20 61 6e 64 | 20 6d 6f 76 65 20 62 61 |lete and| move ba|
|00005d00| 63 6b 77 61 72 64 2e 22 | 20 28 69 6e 74 65 72 61 |ckward."| (intera|
|00005d10| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00005d20| 2d 63 6f 64 65 20 22 c2 | 88 c3 c4 c0 5c 22 88 c5 |-code ".|....\"..|
|00005d30| 09 83 10 00 c6 82 11 00 | c7 21 87 22 20 5b 74 20 |........|.!." [t |
|00005d40| 62 61 63 6b 77 61 72 64 | 20 6e 69 6c 20 72 6d 61 |backward| nil rma|
|00005d50| 69 6c 2d 73 65 74 2d 61 | 74 74 72 69 62 75 74 65 |il-set-a|ttribute|
|00005d60| 20 22 64 65 6c 65 74 65 | 64 22 20 72 6d 61 69 6c | "delete|d" rmail|
|00005d70| 2d 6e 65 78 74 2d 75 6e | 64 65 6c 65 74 65 64 2d |-next-un|deleted-|
|00005d80| 6d 65 73 73 61 67 65 20 | 2d 31 20 31 5d 20 33 29 |message |-1 1] 3)|
|00005d90| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00005da0| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 20 |delete-b|ackward |
|00005db0| 6e 69 6c 20 22 5c 0a 44 | 65 6c 65 74 65 20 74 68 |nil "\.D|elete th|
|00005dc0| 69 73 20 6d 65 73 73 61 | 67 65 20 61 6e 64 20 6d |is messa|ge and m|
|00005dd0| 6f 76 65 20 74 6f 20 70 | 72 65 76 69 6f 75 73 20 |ove to p|revious |
|00005de0| 6e 6f 6e 64 65 6c 65 74 | 65 64 20 6f 6e 65 2e 0a |nondelet|ed one..|
|00005df0| 44 65 6c 65 74 65 64 20 | 6d 65 73 73 61 67 65 73 |Deleted |messages|
|00005e00| 20 73 74 61 79 20 69 6e | 20 74 68 65 20 66 69 6c | stay in| the fil|
|00005e10| 65 20 75 6e 74 69 6c 20 | 74 68 65 20 5c 5c 5b 72 |e until |the \\[r|
|00005e20| 6d 61 69 6c 2d 65 78 70 | 75 6e 67 65 5d 20 63 6f |mail-exp|unge] co|
|00005e30| 6d 6d 61 6e 64 20 69 73 | 20 67 69 76 65 6e 2e 22 |mmand is| given."|
|00005e40| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00005e50| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c2 c0 21 |byte-cod|e "....!|
|00005e60| 87 22 20 5b 74 20 6e 69 | 6c 20 72 6d 61 69 6c 2d |." [t ni|l rmail-|
|00005e70| 64 65 6c 65 74 65 2d 66 | 6f 72 77 61 72 64 5d 20 |delete-f|orward] |
|00005e80| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |2))..(de|fun rmai|
|00005e90| 6c 2d 65 78 70 75 6e 67 | 65 20 6e 69 6c 20 22 5c |l-expung|e nil "\|
|00005ea0| 0a 41 63 74 75 61 6c 6c | 79 20 65 72 61 73 65 20 |.Actuall|y erase |
|00005eb0| 61 6c 6c 20 64 65 6c 65 | 74 65 64 20 6d 65 73 73 |all dele|ted mess|
|00005ec0| 61 67 65 73 20 69 6e 20 | 74 68 65 20 66 69 6c 65 |ages in |the file|
|00005ed0| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|00005ee0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 88 d7 | (byte-c|ode "...|
|00005ef0| d8 21 88 08 c1 3d 86 0f | 00 c2 89 10 88 d9 20 88 |.!...=..|...... .|
|00005f00| da 20 64 5a 1b da 20 65 | 5a 1c 0e 06 db 56 85 2b |. dZ.. e|Z....V.+|
|00005f10| 00 dc 0e 07 0e 06 48 55 | 83 32 00 db 82 35 00 60 |......HU|.2...5.`|
|00005f20| 65 5a 1d 0e 09 db 48 c2 | 42 1e 08 0e 08 1e 0a c1 |eZ....H.|B.......|
|00005f30| 18 c2 1e 0b dd 8e 8a de | 20 88 65 62 88 db df 0e |........| .eb....|
|00005f40| 0f 0e 06 c2 c2 0e 09 0e | 07 0e 16 1e 15 1e 14 1e |........|........|
|00005f50| 13 1e 12 1e 11 1e 10 1e | 0e 1e 0d 1e 0c c2 16 0f |........|........|
|00005f60| c2 16 06 c2 16 09 c2 16 | 07 c2 89 16 16 88 0e 0d |........|........|
|00005f70| 0e 0e 58 85 01 01 0e 14 | 0e 0d 48 dc 55 83 bf 00 |..X.....|..H.U...|
|00005f80| e0 e1 0e 13 0e 0d 48 21 | e1 0e 13 0e 0d 54 48 21 |......H!|.....TH!|
|00005f90| 5c 22 88 e2 0e 13 0e 0d | 48 c2 5c 22 88 0e 10 0e |\"......|H.\"....|
|00005fa0| 0c 56 85 bc 00 0e 10 53 | 89 16 10 82 e9 00 0e 0c |.V.....S|........|
|00005fb0| 54 89 16 0c 88 e3 0e 0a | 0e 13 0e 0d 48 c2 42 5c |T.......|....H.B\|
|00005fc0| 22 89 16 0a 88 0e 0c 0e | 0d 55 85 e3 00 0e 15 0e |".......|.U......|
|00005fd0| 0d 53 48 0e 11 42 89 16 | 11 88 e4 e5 0e 0d 54 89 |.SH..B..|......T.|
|00005fe0| 16 0d e6 5c 22 21 85 fd | 00 d7 e7 0e 0d 5c 22 88 |...\"!..|.....\".|
|00005ff0| 82 81 00 88 e3 0e 0a 0e | 13 0e 0d 48 c2 42 5c 22 |........|...H.B\"|
|00006000| 89 16 0a 88 0e 10 16 06 | 0e 0c 16 0f e8 e9 0e 08 |........|........|
|00006010| 5c 22 16 09 ea 0e 0c 54 | eb 5c 22 16 07 ec ed 0e |\".....T|.\".....|
|00006020| 11 21 21 16 16 c1 89 16 | 0b 2e 09 29 29 2e 07 87 |.!!.....|...))...|
|00006030| 22 20 5b 62 75 66 66 65 | 72 2d 75 6e 64 6f 2d 6c |" [buffe|r-undo-l|
|00006040| 69 73 74 20 74 20 6e 69 | 6c 20 6f 6d 61 78 20 6f |ist t ni|l omax o|
|00006050| 6d 69 6e 20 6f 70 6f 69 | 6e 74 20 72 6d 61 69 6c |min opoi|nt rmail|
|00006060| 2d 63 75 72 72 65 6e 74 | 2d 6d 65 73 73 61 67 65 |-current|-message|
|00006070| 20 72 6d 61 69 6c 2d 64 | 65 6c 65 74 65 64 2d 76 | rmail-d|eleted-v|
|00006080| 65 63 74 6f 72 20 6d 65 | 73 73 61 67 65 73 2d 68 |ector me|ssages-h|
|00006090| 65 61 64 20 72 6d 61 69 | 6c 2d 6d 65 73 73 61 67 |ead rmai|l-messag|
|000060a0| 65 2d 76 65 63 74 6f 72 | 20 6d 65 73 73 61 67 65 |e-vector| message|
|000060b0| 73 2d 74 61 69 6c 20 77 | 69 6e 20 63 6f 75 6e 74 |s-tail w|in count|
|000060c0| 65 72 20 6e 75 6d 62 65 | 72 20 74 6f 74 61 6c 20 |er numbe|r total |
|000060d0| 72 6d 61 69 6c 2d 74 6f | 74 61 6c 2d 6d 65 73 73 |rmail-to|tal-mess|
|000060e0| 61 67 65 73 20 6e 65 77 | 2d 6d 65 73 73 61 67 65 |ages new|-message|
|000060f0| 2d 6e 75 6d 62 65 72 20 | 6e 65 77 2d 73 75 6d 6d |-number |new-summ|
|00006100| 61 72 79 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |ary buff|er-read-|
|00006110| 6f 6e 6c 79 20 6d 65 73 | 73 61 67 65 73 20 64 65 |only mes|sages de|
|00006120| 6c 65 74 65 64 20 73 75 | 6d 6d 61 72 79 20 72 6d |leted su|mmary rm|
|00006130| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 76 65 63 74 |ail-summ|ary-vect|
|00006140| 6f 72 20 6d 65 73 73 61 | 67 65 20 22 45 78 70 75 |or messa|ge "Expu|
|00006150| 6e 67 69 6e 67 20 64 65 | 6c 65 74 65 64 20 6d 65 |nging de|leted me|
|00006160| 73 73 61 67 65 73 2e 2e | 2e 22 20 72 6d 61 69 6c |ssages..|." rmail|
|00006170| 2d 6d 61 79 62 65 2d 73 | 65 74 2d 6d 65 73 73 61 |-maybe-s|et-messa|
|00006180| 67 65 2d 63 6f 75 6e 74 | 65 72 73 20 62 75 66 66 |ge-count|ers buff|
|00006190| 65 72 2d 73 69 7a 65 20 | 30 20 36 38 20 28 28 62 |er-size |0 68 ((b|
|000061a0| 79 74 65 2d 63 6f 64 65 | 20 22 c6 c7 21 88 08 3f |yte-code| "..!..?|
|000061b0| 85 13 00 c8 c9 20 09 5a | c9 20 0a 5a 5c 22 88 ca |..... .Z|. .Z\"..|
|000061c0| cb 0b 21 83 1f 00 cc 82 | 20 00 c4 21 88 cd 0d 21 |..!.....| ..!...!|
|000061d0| 87 22 20 5b 77 69 6e 20 | 6f 6d 69 6e 20 6f 6d 61 |." [win |omin oma|
|000061e0| 78 20 72 6d 61 69 6c 2d | 63 75 72 72 65 6e 74 2d |x rmail-|current-|
|000061f0| 6d 65 73 73 61 67 65 20 | 6e 69 6c 20 6f 70 6f 69 |message |nil opoi|
|00006200| 6e 74 20 6d 65 73 73 61 | 67 65 20 22 45 78 70 75 |nt messa|ge "Expu|
|00006210| 6e 67 69 6e 67 20 64 65 | 6c 65 74 65 64 20 6d 65 |nging de|leted me|
|00006220| 73 73 61 67 65 73 2e 2e | 2e 64 6f 6e 65 22 20 6e |ssages..|.done" n|
|00006230| 61 72 72 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |arrow-to|-region |
|00006240| 62 75 66 66 65 72 2d 73 | 69 7a 65 20 72 6d 61 69 |buffer-s|ize rmai|
|00006250| 6c 2d 73 68 6f 77 2d 6d | 65 73 73 61 67 65 20 7a |l-show-m|essage z|
|00006260| 65 72 6f 70 20 31 20 66 | 6f 72 77 61 72 64 2d 63 |erop 1 f|orward-c|
|00006270| 68 61 72 5d 20 38 29 29 | 20 77 69 64 65 6e 20 31 |har] 8))| widen 1|
|00006280| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 6d | delete-|region m|
|00006290| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 6d |arker-po|sition m|
|000062a0| 6f 76 65 2d 6d 61 72 6b | 65 72 20 73 65 74 63 64 |ove-mark|er setcd|
|000062b0| 72 20 7a 65 72 6f 70 20 | 25 20 32 30 20 22 45 78 |r zerop |% 20 "Ex|
|000062c0| 70 75 6e 67 69 6e 67 20 | 64 65 6c 65 74 65 64 20 |punging |deleted |
|000062d0| 6d 65 73 73 61 67 65 73 | 2e 2e 2e 25 64 22 20 61 |messages|...%d" a|
|000062e0| 70 70 6c 79 20 76 65 63 | 74 6f 72 20 6d 61 6b 65 |pply vec|tor make|
|000062f0| 2d 73 74 72 69 6e 67 20 | 33 32 20 76 63 6f 6e 63 |-string |32 vconc|
|00006300| 61 74 20 6e 72 65 76 65 | 72 73 65 5d 20 32 30 29 |at nreve|rse] 20)|
|00006310| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00006320| 6d 61 69 6c 20 6e 69 6c | 20 22 5c 0a 53 65 6e 64 |mail nil| "\.Send|
|00006330| 20 6d 61 69 6c 20 69 6e | 20 61 6e 6f 74 68 65 72 | mail in| another|
|00006340| 20 77 69 6e 64 6f 77 2e | 0a 57 68 69 6c 65 20 63 | window.|.While c|
|00006350| 6f 6d 70 6f 73 69 6e 67 | 20 74 68 65 20 6d 65 73 |omposing| the mes|
|00006360| 73 61 67 65 2c 20 75 73 | 65 20 5c 5c 5b 6d 61 69 |sage, us|e \\[mai|
|00006370| 6c 2d 79 61 6e 6b 2d 6f | 72 69 67 69 6e 61 6c 5d |l-yank-o|riginal]|
|00006380| 20 74 6f 20 79 61 6e 6b | 20 74 68 65 0a 6f 72 69 | to yank| the.ori|
|00006390| 67 69 6e 61 6c 20 6d 65 | 73 73 61 67 65 20 69 6e |ginal me|ssage in|
|000063a0| 74 6f 20 69 74 2e 22 20 | 28 69 6e 74 65 72 61 63 |to it." |(interac|
|000063b0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000063c0| 20 22 c0 88 c1 c0 c0 c0 | c0 c0 70 26 06 87 22 20 | "......|..p&.." |
|000063d0| 5b 6e 69 6c 20 6d 61 69 | 6c 2d 6f 74 68 65 72 2d |[nil mai|l-other-|
|000063e0| 77 69 6e 64 6f 77 5d 20 | 37 29 29 0a 0a 28 64 65 |window] |7))..(de|
|000063f0| 66 75 6e 20 72 6d 61 69 | 6c 2d 63 6f 6e 74 69 6e |fun rmai|l-contin|
+--------+-------------------------+-------------------------+--------+--------+