/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / 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| 75 6e 20 72 6d 61 69 6c | 20 28 26 6f 70 74 69 6f |un rmail| (&optio|
|000002f0| 6e 61 6c 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 61 72 |nal file|-name-ar|
|00000300| 67 29 20 22 5c 0a 52 65 | 61 64 20 61 6e 64 20 65 |g) "\.Re|ad and e|
|00000310| 64 69 74 20 69 6e 63 6f | 6d 69 6e 67 20 6d 61 69 |dit inco|ming mai|
|00000320| 6c 2e 0a 4d 6f 76 65 73 | 20 6d 65 73 73 61 67 65 |l..Moves| message|
|00000330| 73 20 69 6e 74 6f 20 66 | 69 6c 65 20 6e 61 6d 65 |s into f|ile name|
|00000340| 64 20 62 79 20 20 72 6d | 61 69 6c 2d 66 69 6c 65 |d by  rm|ail-file|
|00000350| 2d 6e 61 6d 65 20 20 28 | 61 20 62 61 62 79 6c 20 |-name  (|a babyl |
|00000360| 66 6f 72 6d 61 74 20 66 | 69 6c 65 29 0a 20 61 6e |format f|ile). an|
|00000370| 64 20 65 64 69 74 73 20 | 74 68 61 74 20 66 69 6c |d edits |that fil|
|00000380| 65 20 69 6e 20 52 4d 41 | 49 4c 20 4d 6f 64 65 2e |e in RMA|IL Mode.|
|00000390| 0a 54 79 70 65 20 5c 5c | 5b 64 65 73 63 72 69 62 |.Type \\|[describ|
|000003a0| 65 2d 6d 6f 64 65 5d 20 | 6f 6e 63 65 20 65 64 69 |e-mode] |once edi|
|000003b0| 74 69 6e 67 20 74 68 61 | 74 20 66 69 6c 65 2c 20 |ting tha|t file, |
|000003c0| 66 6f 72 20 61 20 6c 69 | 73 74 20 6f 66 20 52 4d |for a li|st of RM|
|000003d0| 41 49 4c 20 63 6f 6d 6d | 61 6e 64 73 2e 0a 0a 4d |AIL comm|ands...M|
|000003e0| 61 79 20 62 65 20 63 61 | 6c 6c 65 64 20 77 69 74 |ay be ca|lled wit|
|000003f0| 68 20 66 69 6c 65 6e 61 | 6d 65 20 61 73 20 61 72 |h filena|me as ar|
|00000400| 67 75 6d 65 6e 74 3b 0a | 74 68 65 6e 20 70 65 72 |gument;.|then per|
|00000410| 66 6f 72 6d 73 20 72 6d | 61 69 6c 20 65 64 69 74 |forms rm|ail edit|
|00000420| 69 6e 67 20 6f 6e 20 74 | 68 61 74 20 66 69 6c 65 |ing on t|hat file|
|00000430| 2c 0a 62 75 74 20 64 6f | 65 73 20 6e 6f 74 20 63 |,.but do|es not c|
|00000440| 6f 70 79 20 61 6e 79 20 | 6e 65 77 20 6d 61 69 6c |opy any |new mail|
|00000450| 20 69 6e 74 6f 20 74 68 | 65 20 66 69 6c 65 2e 22 | into th|e file."|
|00000460| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 28 62 | (intera|ctive (b|
|00000470| 79 74 65 2d 63 6f 64 65 | 20 22 08 85 0b 00 c3 c4 |yte-code| "......|
|00000480| c1 c1 c2 24 43 87 22 20 | 5b 63 75 72 72 65 6e 74 |...$C." |[current|
|00000490| 2d 70 72 65 66 69 78 2d | 61 72 67 20 6e 69 6c 20 |-prefix-|arg nil |
|000004a0| 74 20 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |t read-f|ile-name|
|000004b0| 20 22 52 75 6e 20 72 6d | 61 69 6c 20 6f 6e 20 52 | "Run rm|ail on R|
|000004c0| 4d 41 49 4c 20 66 69 6c | 65 3a 20 22 5d 20 35 29 |MAIL fil|e: "] 5)|
|000004d0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|000004e0| 0b 86 0b 00 ce cf 21 89 | 13 88 0c 86 15 00 ce d0 |......!.|........|
|000004f0| 21 89 14 88 ce 0e 06 86 | 1e 00 0e 07 21 1d d1 0d |!.......|....!...|
|00000500| 21 1e 08 c2 1e 09 0e 08 | 85 32 00 d2 0e 08 21 3f |!.......|.2....!?|
|00000510| 83 4f 00 d3 0d 21 88 d2 | 0e 08 21 85 44 00 0e 0a |.O...!..|..!.D...|
|00000520| d4 3d 85 4c 00 d5 20 88 | d6 20 82 52 00 d3 0d 21 |.=.L.. .|. .R...!|
|00000530| 88 0e 0a d7 3d 85 5d 00 | d8 d9 21 88 0e 08 85 67 |....=.].|..!....g|
|00000540| 00 0e 0a d4 3d 83 6e 00 | c1 82 aa 00 d4 20 88 0e |....=.n.|..... ..|
|00000550| 0b 3f 85 98 00 0e 06 3f | 85 98 00 0e 0c 86 95 00 |.?.....?|........|
|00000560| da 0e 0d db dc 21 86 93 | 00 db dd 21 86 93 00 de |.....!..|...!....|
|00000570| 20 50 44 89 16 0b 88 df | 20 88 64 62 88 0e 0b 3f | PD.....| .db...?|
|00000580| 85 aa 00 d6 20 88 e0 20 | 88 e1 20 2b 87 22 20 5b |.... .. |.. +." [|
|00000590| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|000005a0| 72 67 20 6e 69 6c 20 74 | 20 72 6d 61 69 6c 2d 6c |rg nil t| rmail-l|
|000005b0| 61 73 74 2d 66 69 6c 65 | 20 72 6d 61 69 6c 2d 6c |ast-file| rmail-l|
|000005c0| 61 73 74 2d 72 6d 61 69 | 6c 2d 66 69 6c 65 20 66 |ast-rmai|l-file f|
|000005d0| 69 6c 65 2d 6e 61 6d 65 | 20 66 69 6c 65 2d 6e 61 |ile-name| file-na|
|000005e0| 6d 65 2d 61 72 67 20 72 | 6d 61 69 6c 2d 66 69 6c |me-arg r|mail-fil|
|000005f0| 65 2d 6e 61 6d 65 20 65 | 78 69 73 74 65 64 20 69 |e-name e|xisted i|
|00000600| 6e 68 69 62 69 74 2d 6c | 6f 63 61 6c 2d 76 61 72 |nhibit-l|ocal-var|
|00000610| 69 61 62 6c 65 73 20 6d | 61 6a 6f 72 2d 6d 6f 64 |iables m|ajor-mod|
|00000620| 65 20 72 6d 61 69 6c 2d | 69 6e 62 6f 78 2d 6c 69 |e rmail-|inbox-li|
|00000630| 73 74 20 72 6d 61 69 6c | 2d 70 72 69 6d 61 72 79 |st rmail|-primary|
|00000640| 2d 69 6e 62 6f 78 2d 6c | 69 73 74 20 72 6d 61 69 |-inbox-l|ist rmai|
|00000650| 6c 2d 73 70 6f 6f 6c 2d | 64 69 72 65 63 74 6f 72 |l-spool-|director|
|00000660| 79 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |y expand|-file-na|
|00000670| 6d 65 20 22 7e 2f 78 6d | 61 69 6c 22 20 22 7e 2f |me "~/xm|ail" "~/|
|00000680| 58 4d 41 49 4c 22 20 67 | 65 74 2d 66 69 6c 65 2d |XMAIL" g|et-file-|
|00000690| 62 75 66 66 65 72 20 76 | 65 72 69 66 79 2d 76 69 |buffer v|erify-vi|
|000006a0| 73 69 74 65 64 2d 66 69 | 6c 65 2d 6d 6f 64 74 69 |sited-fi|le-modti|
|000006b0| 6d 65 20 66 69 6e 64 2d | 66 69 6c 65 20 72 6d 61 |me find-|file rma|
|000006c0| 69 6c 2d 6d 6f 64 65 20 | 72 6d 61 69 6c 2d 66 6f |il-mode |rmail-fo|
|000006d0| 72 67 65 74 2d 6d 65 73 | 73 61 67 65 73 20 72 6d |rget-mes|sages rm|
|000006e0| 61 69 6c 2d 73 65 74 2d | 6d 65 73 73 61 67 65 2d |ail-set-|message-|
|000006f0| 63 6f 75 6e 74 65 72 73 | 20 72 6d 61 69 6c 2d 65 |counters| rmail-e|
|00000700| 64 69 74 2d 6d 6f 64 65 | 20 65 72 72 6f 72 20 22 |dit-mode| error "|
|00000710| 65 78 69 74 20 72 6d 61 | 69 6c 2d 65 64 69 74 2d |exit rma|il-edit-|
|00000720| 6d 6f 64 65 20 62 65 66 | 6f 72 65 20 67 65 74 74 |mode bef|ore gett|
|00000730| 69 6e 67 20 6e 65 77 20 | 6d 61 69 6c 22 20 22 7e |ing new |mail" "~|
|00000740| 2f 6d 62 6f 78 22 20 67 | 65 74 65 6e 76 20 22 4c |/mbox" g|etenv "L|
|00000750| 4f 47 4e 41 4d 45 22 20 | 22 55 53 45 52 22 20 75 |OGNAME" |"USER" u|
|00000760| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 72 |ser-logi|n-name r|
|00000770| 6d 61 69 6c 2d 63 6f 6e | 76 65 72 74 2d 66 69 6c |mail-con|vert-fil|
|00000780| 65 20 72 6d 61 69 6c 2d | 73 68 6f 77 2d 6d 65 73 |e rmail-|show-mes|
|00000790| 73 61 67 65 20 72 6d 61 | 69 6c 2d 67 65 74 2d 6e |sage rma|il-get-n|
|000007a0| 65 77 2d 6d 61 69 6c 5d | 20 32 30 29 29 0a 0a 28 |ew-mail]| 20))..(|
|000007b0| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 63 6f 6e 76 |defun rm|ail-conv|
|000007c0| 65 72 74 2d 66 69 6c 65 | 20 6e 69 6c 20 28 62 79 |ert-file| nil (by|
|000007d0| 74 65 2d 63 6f 64 65 20 | 22 c2 18 c4 20 88 65 62 |te-code |"... .eb|
|000007e0| 88 c5 c6 21 86 5c 22 00 | c5 c7 21 83 1c 00 c2 19 |...!.\".|..!.....|
|000007f0| c8 63 29 82 5c 22 00 c3 | 89 10 88 c9 20 88 08 86 |.c).\"..|.... ...|
|00000800| 35 00 64 62 88 ca cb 21 | 88 cc cd 21 88 c5 ce 21 |5.db...!|...!...!|
|00000810| 85 4a 00 c2 19 cf d0 21 | 88 d1 60 64 5c 22 88 d2 |.J.....!|..`d\"..|
|00000820| 20 88 cf d3 21 29 29 87 | 22 20 5b 63 6f 6e 76 65 | ...!)).|" [conve|
|00000830| 72 74 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |rt buffe|r-read-o|
|00000840| 6e 6c 79 20 6e 69 6c 20 | 74 20 77 69 64 65 6e 20 |nly nil |t widen |
|00000850| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 42 41 42 59 |looking-|at "BABY|
|00000860| 4c 20 4f 50 54 49 4f 4e | 53 3a 22 20 22 56 65 72 |L OPTION|S:" "Ver|
|00000870| 73 69 6f 6e 3a 20 35 0a | 22 20 22 42 41 42 59 4c |sion: 5.|" "BABYL|
|00000880| 20 4f 50 54 49 4f 4e 53 | 3a 0a 22 20 72 6d 61 69 | OPTIONS|:." rmai|
|00000890| 6c 2d 69 6e 73 65 72 74 | 2d 72 6d 61 69 6c 2d 66 |l-insert|-rmail-f|
|000008a0| 69 6c 65 2d 68 65 61 64 | 65 72 20 73 65 61 72 63 |ile-head|er searc|
|000008b0| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 1f 22 20 66 |h-backwa|rd "." f|
|000008c0| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 31 20 22 0a |orward-c|har 1 ".|
|000008d0| 2a 46 72 6f 6d 20 22 20 | 6d 65 73 73 61 67 65 20 |*From " |message |
|000008e0| 22 43 6f 6e 76 65 72 74 | 69 6e 67 20 74 6f 20 42 |"Convert|ing to B|
|000008f0| 61 62 79 6c 20 66 6f 72 | 6d 61 74 2e 2e 2e 22 20 |abyl for|mat..." |
|00000900| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|00000910| 20 72 6d 61 69 6c 2d 63 | 6f 6e 76 65 72 74 2d 74 | rmail-c|onvert-t|
|00000920| 6f 2d 62 61 62 79 6c 2d | 66 6f 72 6d 61 74 20 22 |o-babyl-|format "|
|00000930| 43 6f 6e 76 65 72 74 69 | 6e 67 20 74 6f 20 42 61 |Converti|ng to Ba|
|00000940| 62 79 6c 20 66 6f 72 6d | 61 74 2e 2e 2e 64 6f 6e |byl form|at...don|
|00000950| 65 22 5d 20 31 32 29 29 | 0a 0a 28 64 65 66 75 6e |e"] 12))|..(defun|
|00000960| 20 72 6d 61 69 6c 2d 69 | 6e 73 65 72 74 2d 72 6d | rmail-i|nsert-rm|
|00000970| 61 69 6c 2d 66 69 6c 65 | 2d 68 65 61 64 65 72 20 |ail-file|-header |
|00000980| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00000990| c1 18 c2 63 29 87 22 20 | 5b 62 75 66 66 65 72 2d |...c)." |[buffer-|
|000009a0| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 22 42 |read-onl|y nil "B|
|000009b0| 41 42 59 4c 20 4f 50 54 | 49 4f 4e 53 3a 0a 56 65 |ABYL OPT|IONS:.Ve|
|000009c0| 72 73 69 6f 6e 3a 20 35 | 0a 4c 61 62 65 6c 73 3a |rsion: 5|.Labels:|
|000009d0| 0a 4e 6f 74 65 3a 20 20 | 20 54 68 69 73 20 69 73 |.Note:  | This is|
|000009e0| 20 74 68 65 20 68 65 61 | 64 65 72 20 6f 66 20 61 | the hea|der of a|
|000009f0| 6e 20 72 6d 61 69 6c 20 | 66 69 6c 65 2e 0a 4e 6f |n rmail |file..No|
|00000a00| 74 65 3a 20 20 20 49 66 | 20 79 6f 75 20 61 72 65 |te:   If| you are|
|00000a10| 20 73 65 65 69 6e 67 20 | 69 74 20 69 6e 20 72 6d | seeing |it in rm|
|00000a20| 61 69 6c 2c 0a 4e 6f 74 | 65 3a 20 20 20 20 69 74 |ail,.Not|e:    it|
|00000a30| 20 6d 65 61 6e 73 20 74 | 68 65 20 66 69 6c 65 20 | means t|he file |
|00000a40| 68 61 73 20 6e 6f 20 6d | 65 73 73 61 67 65 73 20 |has no m|essages |
|00000a50| 69 6e 20 69 74 2e 0a 1f | 22 5d 20 31 29 29 0a 0a |in it...|"] 1))..|
|00000a60| 28 69 66 20 72 6d 61 69 | 6c 2d 6d 6f 64 65 2d 6d |(if rmai|l-mode-m|
|00000a70| 61 70 20 6e 69 6c 20 28 | 73 65 74 71 20 72 6d 61 |ap nil (|setq rma|
|00000a80| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 28 6d 61 6b |il-mode-|map (mak|
|00000a90| 65 2d 6b 65 79 6d 61 70 | 29 29 20 28 73 75 70 70 |e-keymap|)) (supp|
|00000aa0| 72 65 73 73 2d 6b 65 79 | 6d 61 70 20 72 6d 61 69 |ress-key|map rmai|
|00000ab0| 6c 2d 6d 6f 64 65 2d 6d | 61 70 29 20 28 64 65 66 |l-mode-m|ap) (def|
|00000ac0| 69 6e 65 2d 6b 65 79 20 | 72 6d 61 69 6c 2d 6d 6f |ine-key |rmail-mo|
|00000ad0| 64 65 2d 6d 61 70 20 22 | 2e 22 20 28 71 75 6f 74 |de-map "|." (quot|
|00000ae0| 65 20 72 6d 61 69 6c 2d | 62 65 67 69 6e 6e 69 6e |e rmail-|beginnin|
|00000af0| 67 2d 6f 66 2d 6d 65 73 | 73 61 67 65 29 29 20 28 |g-of-mes|sage)) (|
|00000b00| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000b10| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 20 22 20 28 71 |-mode-ma|p " " (q|
|00000b20| 75 6f 74 65 20 73 63 72 | 6f 6c 6c 2d 75 70 29 29 |uote scr|oll-up))|
|00000b30| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 72 6d 61 | (define|-key rma|
|00000b40| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 22 7f 22 20 |il-mode-|map "." |
|00000b50| 28 71 75 6f 74 65 20 73 | 63 72 6f 6c 6c 2d 64 6f |(quote s|croll-do|
|00000b60| 77 6e 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |wn)) (de|fine-key|
|00000b70| 20 72 6d 61 69 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | rmail-m|ode-map |
|00000b80| 22 6e 22 20 28 71 75 6f | 74 65 20 72 6d 61 69 6c |"n" (quo|te rmail|
|00000b90| 2d 6e 65 78 74 2d 75 6e | 64 65 6c 65 74 65 64 2d |-next-un|deleted-|
|00000ba0| 6d 65 73 73 61 67 65 29 | 29 20 28 64 65 66 69 6e |message)|) (defin|
|00000bb0| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00000bc0| 2d 6d 61 70 20 22 70 22 | 20 28 71 75 6f 74 65 20 |-map "p"| (quote |
|00000bd0| 72 6d 61 69 6c 2d 70 72 | 65 76 69 6f 75 73 2d 75 |rmail-pr|evious-u|
|00000be0| 6e 64 65 6c 65 74 65 64 | 2d 6d 65 73 73 61 67 65 |ndeleted|-message|
|00000bf0| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00000c00| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 1b |mail-mod|e-map ".|
|00000c10| 6e 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |n" (quot|e rmail-|
|00000c20| 6e 65 78 74 2d 6d 65 73 | 73 61 67 65 29 29 20 28 |next-mes|sage)) (|
|00000c30| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000c40| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 1b 70 22 20 28 |-mode-ma|p ".p" (|
|00000c50| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 70 72 65 76 |quote rm|ail-prev|
|00000c60| 69 6f 75 73 2d 6d 65 73 | 73 61 67 65 29 29 20 28 |ious-mes|sage)) (|
|00000c70| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00000c80| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 1b 0e 22 20 28 |-mode-ma|p ".." (|
|00000c90| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 6e 65 78 74 |quote rm|ail-next|
|00000ca0| 2d 6c 61 62 65 6c 65 64 | 2d 6d 65 73 73 61 67 65 |-labeled|-message|
|00000cb0| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00000cc0| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 1b |mail-mod|e-map ".|
|00000cd0| 10 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |." (quot|e rmail-|
|00000ce0| 70 72 65 76 69 6f 75 73 | 2d 6c 61 62 65 6c 65 64 |previous|-labeled|
|00000cf0| 2d 6d 65 73 73 61 67 65 | 29 29 20 28 64 65 66 69 |-message|)) (defi|
|00000d00| 6e 65 2d 6b 65 79 20 72 | 6d 61 69 6c 2d 6d 6f 64 |ne-key r|mail-mod|
|00000d10| 65 2d 6d 61 70 20 22 61 | 22 20 28 71 75 6f 74 65 |e-map "a|" (quote|
|00000d20| 20 72 6d 61 69 6c 2d 61 | 64 64 2d 6c 61 62 65 6c | rmail-a|dd-label|
|00000d30| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00000d40| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 6b |mail-mod|e-map "k|
|00000d50| 22 20 28 71 75 6f 74 65 | 20 72 6d 61 69 6c 2d 6b |" (quote| rmail-k|
|00000d60| 69 6c 6c 2d 6c 61 62 65 | 6c 29 29 20 28 64 65 66 |ill-labe|l)) (def|
|00000d70| 69 6e 65 2d 6b 65 79 20 | 72 6d 61 69 6c 2d 6d 6f |ine-key |rmail-mo|
|00000d80| 64 65 2d 6d 61 70 20 22 | 64 22 20 28 71 75 6f 74 |de-map "|d" (quot|
|00000d90| 65 20 72 6d 61 69 6c 2d | 64 65 6c 65 74 65 2d 66 |e rmail-|delete-f|
|00000da0| 6f 72 77 61 72 64 29 29 | 20 28 64 65 66 69 6e 65 |orward))| (define|
|00000db0| 2d 6b 65 79 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 2d |-key rma|il-mode-|
|00000dc0| 6d 61 70 20 22 75 22 20 | 28 71 75 6f 74 65 20 72 |map "u" |(quote r|
|00000dd0| 6d 61 69 6c 2d 75 6e 64 | 65 6c 65 74 65 2d 70 72 |mail-und|elete-pr|
|00000de0| 65 76 69 6f 75 73 2d 6d | 65 73 73 61 67 65 29 29 |evious-m|essage))|
|00000df0| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 72 6d 61 | (define|-key rma|
|00000e00| 69 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 22 65 22 20 |il-mode-|map "e" |
|00000e10| 28 71 75 6f 74 65 20 72 | 6d 61 69 6c 2d 65 78 70 |(quote r|mail-exp|
|00000e20| 75 6e 67 65 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |unge)) (|define-k|
|00000e30| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|00000e40| 70 20 22 78 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "x" (q|uote rma|
|00000e50| 69 6c 2d 65 78 70 75 6e | 67 65 29 29 20 28 64 65 |il-expun|ge)) (de|
|00000e60| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00000e70| 6f 64 65 2d 6d 61 70 20 | 22 73 22 20 28 71 75 6f |ode-map |"s" (quo|
|00000e80| 74 65 20 72 6d 61 69 6c | 2d 65 78 70 75 6e 67 65 |te rmail|-expunge|
|00000e90| 2d 61 6e 64 2d 73 61 76 | 65 29 29 20 28 64 65 66 |-and-sav|e)) (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 | 67 22 20 28 71 75 6f 74 |de-map "|g" (quot|
|00000ec0| 65 20 72 6d 61 69 6c 2d | 67 65 74 2d 6e 65 77 2d |e rmail-|get-new-|
|00000ed0| 6d 61 69 6c 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |mail)) (|define-k|
|00000ee0| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|00000ef0| 70 20 22 68 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "h" (q|uote rma|
|00000f00| 69 6c 2d 73 75 6d 6d 61 | 72 79 29 29 20 28 64 65 |il-summa|ry)) (de|
|00000f10| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00000f20| 6f 64 65 2d 6d 61 70 20 | 22 1b 08 22 20 28 71 75 |ode-map |".." (qu|
|00000f30| 6f 74 65 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |ote rmai|l-summar|
|00000f40| 79 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |y)) (def|ine-key |
|00000f50| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |rmail-mo|de-map "|
|00000f60| 6c 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |l" (quot|e rmail-|
|00000f70| 73 75 6d 6d 61 72 79 2d | 62 79 2d 6c 61 62 65 6c |summary-|by-label|
|00000f80| 73 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |s)) (def|ine-key |
|00000f90| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |rmail-mo|de-map "|
|00000fa0| 1b 0c 22 20 28 71 75 6f | 74 65 20 72 6d 61 69 6c |.." (quo|te rmail|
|00000fb0| 2d 73 75 6d 6d 61 72 79 | 2d 62 79 2d 6c 61 62 65 |-summary|-by-labe|
|00000fc0| 6c 73 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ls)) (de|fine-key|
|00000fd0| 20 72 6d 61 69 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | rmail-m|ode-map |
|00000fe0| 22 1b 12 22 20 28 71 75 | 6f 74 65 20 72 6d 61 69 |".." (qu|ote rmai|
|00000ff0| 6c 2d 73 75 6d 6d 61 72 | 79 2d 62 79 2d 72 65 63 |l-summar|y-by-rec|
|00001000| 69 70 69 65 6e 74 73 29 | 29 20 28 64 65 66 69 6e |ipients)|) (defin|
|00001010| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00001020| 2d 6d 61 70 20 22 74 22 | 20 28 71 75 6f 74 65 20 |-map "t"| (quote |
|00001030| 72 6d 61 69 6c 2d 74 6f | 67 67 6c 65 2d 68 65 61 |rmail-to|ggle-hea|
|00001040| 64 65 72 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |der)) (d|efine-ke|
|00001050| 79 20 72 6d 61 69 6c 2d | 6d 6f 64 65 2d 6d 61 70 |y rmail-|mode-map|
|00001060| 20 22 6d 22 20 28 71 75 | 6f 74 65 20 72 6d 61 69 | "m" (qu|ote rmai|
|00001070| 6c 2d 6d 61 69 6c 29 29 | 20 28 64 65 66 69 6e 65 |l-mail))| (define|
|00001080| 2d 6b 65 79 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 2d |-key rma|il-mode-|
|00001090| 6d 61 70 20 22 72 22 20 | 28 71 75 6f 74 65 20 72 |map "r" |(quote r|
|000010a0| 6d 61 69 6c 2d 72 65 70 | 6c 79 29 29 20 28 64 65 |mail-rep|ly)) (de|
|000010b0| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|000010c0| 6f 64 65 2d 6d 61 70 20 | 22 63 22 20 28 71 75 6f |ode-map |"c" (quo|
|000010d0| 74 65 20 72 6d 61 69 6c | 2d 63 6f 6e 74 69 6e 75 |te rmail|-continu|
|000010e0| 65 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |e)) (def|ine-key |
|000010f0| 72 6d 61 69 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |rmail-mo|de-map "|
|00001100| 66 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |f" (quot|e rmail-|
|00001110| 66 6f 72 77 61 72 64 29 | 29 20 28 64 65 66 69 6e |forward)|) (defin|
|00001120| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00001130| 2d 6d 61 70 20 22 1b 73 | 22 20 28 71 75 6f 74 65 |-map ".s|" (quote|
|00001140| 20 72 6d 61 69 6c 2d 73 | 65 61 72 63 68 29 29 20 | rmail-s|earch)) |
|00001150| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 72 6d 61 69 |(define-|key rmai|
|00001160| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 22 6a 22 20 28 |l-mode-m|ap "j" (|
|00001170| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 73 68 6f 77 |quote rm|ail-show|
|00001180| 2d 6d 65 73 73 61 67 65 | 29 29 20 28 64 65 66 69 |-message|)) (defi|
|00001190| 6e 65 2d 6b 65 79 20 72 | 6d 61 69 6c 2d 6d 6f 64 |ne-key r|mail-mod|
|000011a0| 65 2d 6d 61 70 20 22 6f | 22 20 28 71 75 6f 74 65 |e-map "o|" (quote|
|000011b0| 20 72 6d 61 69 6c 2d 6f | 75 74 70 75 74 2d 74 6f | rmail-o|utput-to|
|000011c0| 2d 72 6d 61 69 6c 2d 66 | 69 6c 65 29 29 20 28 64 |-rmail-f|ile)) (d|
|000011d0| 65 66 69 6e 65 2d 6b 65 | 79 20 72 6d 61 69 6c 2d |efine-ke|y rmail-|
|000011e0| 6d 6f 64 65 2d 6d 61 70 | 20 22 0f 22 20 28 71 75 |mode-map| "." (qu|
|000011f0| 6f 74 65 20 72 6d 61 69 | 6c 2d 6f 75 74 70 75 74 |ote rmai|l-output|
|00001200| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00001210| 6d 61 69 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 69 |mail-mod|e-map "i|
|00001220| 22 20 28 71 75 6f 74 65 | 20 72 6d 61 69 6c 2d 69 |" (quote| rmail-i|
|00001230| 6e 70 75 74 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |nput)) (|define-k|
|00001240| 65 79 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 6d 61 |ey rmail|-mode-ma|
|00001250| 70 20 22 71 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "q" (q|uote rma|
|00001260| 69 6c 2d 71 75 69 74 29 | 29 20 28 64 65 66 69 6e |il-quit)|) (defin|
|00001270| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |e-key rm|ail-mode|
|00001280| 2d 6d 61 70 20 22 3e 22 | 20 28 71 75 6f 74 65 20 |-map ">"| (quote |
|00001290| 72 6d 61 69 6c 2d 6c 61 | 73 74 2d 6d 65 73 73 61 |rmail-la|st-messa|
|000012a0| 67 65 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ge)) (de|fine-key|
|000012b0| 20 72 6d 61 69 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | rmail-m|ode-map |
|000012c0| 22 3f 22 20 28 71 75 6f | 74 65 20 64 65 73 63 72 |"?" (quo|te descr|
|000012d0| 69 62 65 2d 6d 6f 64 65 | 29 29 20 28 64 65 66 69 |ibe-mode|)) (defi|
|000012e0| 6e 65 2d 6b 65 79 20 72 | 6d 61 69 6c 2d 6d 6f 64 |ne-key r|mail-mod|
|000012f0| 65 2d 6d 61 70 20 22 77 | 22 20 28 71 75 6f 74 65 |e-map "w|" (quote|
|00001300| 20 72 6d 61 69 6c 2d 65 | 64 69 74 2d 63 75 72 72 | rmail-e|dit-curr|
|00001310| 65 6e 74 2d 6d 65 73 73 | 61 67 65 29 29 20 28 64 |ent-mess|age)) (d|
|00001320| 65 66 69 6e 65 2d 6b 65 | 79 20 72 6d 61 69 6c 2d |efine-ke|y rmail-|
|00001330| 6d 6f 64 65 2d 6d 61 70 | 20 22 04 22 20 28 71 75 |mode-map| "." (qu|
|00001340| 6f 74 65 20 72 6d 61 69 | 6c 2d 64 65 6c 65 74 65 |ote rmai|l-delete|
|00001350| 2d 62 61 63 6b 77 61 72 | 64 29 29 29 0a 0a 28 70 |-backwar|d)))..(p|
|00001360| 75 74 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |ut (quot|e rmail-|
|00001370| 6d 6f 64 65 29 20 28 71 | 75 6f 74 65 20 6d 6f 64 |mode) (q|uote mod|
|00001380| 65 2d 63 6c 61 73 73 29 | 20 28 71 75 6f 74 65 20 |e-class)| (quote |
|00001390| 73 70 65 63 69 61 6c 29 | 29 0a 0a 28 64 65 66 75 |special)|)..(defu|
|000013a0| 6e 20 72 6d 61 69 6c 2d | 6d 6f 64 65 20 6e 69 6c |n rmail-|mode nil|
|000013b0| 20 22 5c 0a 52 6d 61 69 | 6c 20 4d 6f 64 65 20 69 | "\.Rmai|l Mode i|
|000013c0| 73 20 75 73 65 64 20 62 | 79 20 5c 5c 5b 72 6d 61 |s used b|y \\[rma|
|000013d0| 69 6c 5d 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |il] for |editing |
|000013e0| 52 6d 61 69 6c 20 66 69 | 6c 65 73 2e 0a 41 6c 6c |Rmail fi|les..All|
|000013f0| 20 6e 6f 72 6d 61 6c 20 | 65 64 69 74 69 6e 67 20 | normal |editing |
|00001400| 63 6f 6d 6d 61 6e 64 73 | 20 61 72 65 20 74 75 72 |commands| are tur|
|00001410| 6e 65 64 20 6f 66 66 2e | 0a 49 6e 73 74 65 61 64 |ned off.|.Instead|
|00001420| 2c 20 74 68 65 73 65 20 | 63 6f 6d 6d 61 6e 64 73 |, these |commands|
|00001430| 20 61 72 65 20 61 76 61 | 69 6c 61 62 6c 65 3a 0a | are ava|ilable:.|
|00001440| 0a 2e 09 4d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |...Move |point to|
|00001450| 20 66 72 6f 6e 74 20 6f | 66 20 74 68 69 73 20 6d | front o|f this m|
|00001460| 65 73 73 61 67 65 20 28 | 73 61 6d 65 20 61 73 20 |essage (|same as |
|00001470| 5c 5c 5b 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |\\[begin|ning-of-|
|00001480| 62 75 66 66 65 72 5d 29 | 2e 0a 53 50 43 09 53 63 |buffer])|..SPC.Sc|
|00001490| 72 6f 6c 6c 20 74 6f 20 | 6e 65 78 74 20 73 63 72 |roll to |next scr|
|000014a0| 65 65 6e 20 6f 66 20 74 | 68 69 73 20 6d 65 73 73 |een of t|his mess|
|000014b0| 61 67 65 2e 0a 44 45 4c | 09 53 63 72 6f 6c 6c 20 |age..DEL|.Scroll |
|000014c0| 74 6f 20 70 72 65 76 69 | 6f 75 73 20 73 63 72 65 |to previ|ous scre|
|000014d0| 65 6e 20 6f 66 20 74 68 | 69 73 20 6d 65 73 73 61 |en of th|is messa|
|000014e0| 67 65 2e 0a 6e 09 4d 6f | 76 65 20 74 6f 20 4e 65 |ge..n.Mo|ve to Ne|
|000014f0| 78 74 20 6e 6f 6e 2d 64 | 65 6c 65 74 65 64 20 6d |xt non-d|eleted m|
|00001500| 65 73 73 61 67 65 2e 0a | 70 09 4d 6f 76 65 20 74 |essage..|p.Move t|
|00001510| 6f 20 50 72 65 76 69 6f | 75 73 20 6e 6f 6e 2d 64 |o Previo|us non-d|
|00001520| 65 6c 65 74 65 64 20 6d | 65 73 73 61 67 65 2e 0a |eleted m|essage..|
|00001530| 4d 2d 6e 09 4d 6f 76 65 | 20 74 6f 20 4e 65 78 74 |M-n.Move| to Next|
|00001540| 20 6d 65 73 73 61 67 65 | 20 77 68 65 74 68 65 72 | message| whether|
|00001550| 20 64 65 6c 65 74 65 64 | 20 6f 72 20 6e 6f 74 2e | deleted| or not.|
|00001560| 0a 4d 2d 70 09 4d 6f 76 | 65 20 74 6f 20 50 72 65 |.M-p.Mov|e to Pre|
|00001570| 76 69 6f 75 73 20 6d 65 | 73 73 61 67 65 20 77 68 |vious me|ssage wh|
|00001580| 65 74 68 65 72 20 64 65 | 6c 65 74 65 64 20 6f 72 |ether de|leted or|
|00001590| 20 6e 6f 74 2e 0a 3e 09 | 4d 6f 76 65 20 74 6f 20 | not..>.|Move to |
|000015a0| 74 68 65 20 6c 61 73 74 | 20 6d 65 73 73 61 67 65 |the last| message|
|000015b0| 20 69 6e 20 52 6d 61 69 | 6c 20 66 69 6c 65 2e 0a | in Rmai|l file..|
|000015c0| 6a 09 4a 75 6d 70 20 74 | 6f 20 6d 65 73 73 61 67 |j.Jump t|o messag|
|000015d0| 65 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 6e |e specif|ied by n|
|000015e0| 75 6d 65 72 69 63 20 70 | 6f 73 69 74 69 6f 6e 20 |umeric p|osition |
|000015f0| 69 6e 20 66 69 6c 65 2e | 0a 4d 2d 73 09 53 65 61 |in file.|.M-s.Sea|
|00001600| 72 63 68 20 66 6f 72 20 | 73 74 72 69 6e 67 20 61 |rch for |string a|
|00001610| 6e 64 20 73 68 6f 77 20 | 6d 65 73 73 61 67 65 20 |nd show |message |
|00001620| 69 74 20 69 73 20 66 6f | 75 6e 64 20 69 6e 2e 0a |it is fo|und in..|
|00001630| 64 09 44 65 6c 65 74 65 | 20 74 68 69 73 20 6d 65 |d.Delete| this me|
|00001640| 73 73 61 67 65 2c 20 6d | 6f 76 65 20 74 6f 20 6e |ssage, m|ove to n|
|00001650| 65 78 74 20 6e 6f 6e 64 | 65 6c 65 74 65 64 2e 0a |ext nond|eleted..|
|00001660| 43 2d 64 09 44 65 6c 65 | 74 65 20 74 68 69 73 20 |C-d.Dele|te this |
|00001670| 6d 65 73 73 61 67 65 2c | 20 6d 6f 76 65 20 74 6f |message,| move to|
|00001680| 20 70 72 65 76 69 6f 75 | 73 20 6e 6f 6e 64 65 6c | previou|s nondel|
|00001690| 65 74 65 64 2e 0a 75 09 | 55 6e 64 65 6c 65 74 65 |eted..u.|Undelete|
|000016a0| 20 6d 65 73 73 61 67 65 | 2e 20 20 54 72 69 65 73 | message|.  Tries|
|000016b0| 20 63 75 72 72 65 6e 74 | 20 6d 65 73 73 61 67 65 | current| message|
|000016c0| 2c 20 74 68 65 6e 20 65 | 61 72 6c 69 65 72 20 6d |, then e|arlier m|
|000016d0| 65 73 73 61 67 65 73 0a | 09 74 69 6c 6c 20 61 20 |essages.|.till a |
|000016e0| 64 65 6c 65 74 65 64 20 | 6d 65 73 73 61 67 65 20 |deleted |message |
|000016f0| 69 73 20 66 6f 75 6e 64 | 2e 0a 65 09 45 78 70 75 |is found|..e.Expu|
|00001700| 6e 67 65 20 64 65 6c 65 | 74 65 64 20 6d 65 73 73 |nge dele|ted mess|
|00001710| 61 67 65 73 2e 0a 73 09 | 45 78 70 75 6e 67 65 20 |ages..s.|Expunge |
|00001720| 61 6e 64 20 73 61 76 65 | 20 74 68 65 20 66 69 6c |and save| the fil|
|00001730| 65 2e 0a 71 20 20 20 20 | 20 20 20 51 75 69 74 20 |e..q    |   Quit |
|00001740| 52 6d 61 69 6c 3a 20 65 | 78 70 75 6e 67 65 2c 20 |Rmail: e|xpunge, |
|00001750| 73 61 76 65 2c 20 74 68 | 65 6e 20 73 77 69 74 63 |save, th|en switc|
|00001760| 68 20 74 6f 20 61 6e 6f | 74 68 65 72 20 62 75 66 |h to ano|ther buf|
|00001770| 66 65 72 2e 0a 43 2d 78 | 20 43 2d 73 20 53 61 76 |fer..C-x| C-s Sav|
|00001780| 65 20 77 69 74 68 6f 75 | 74 20 65 78 70 75 6e 67 |e withou|t expung|
|00001790| 69 6e 67 2e 0a 67 09 4d | 6f 76 65 20 6e 65 77 20 |ing..g.M|ove new |
|000017a0| 6d 61 69 6c 20 66 72 6f | 6d 20 73 79 73 74 65 6d |mail fro|m system|
|000017b0| 20 73 70 6f 6f 6c 20 64 | 69 72 65 63 74 6f 72 79 | spool d|irectory|
|000017c0| 20 6f 72 20 6d 62 6f 78 | 20 69 6e 74 6f 20 74 68 | or mbox| into th|
|000017d0| 69 73 20 66 69 6c 65 2e | 0a 6d 09 4d 61 69 6c 20 |is file.|.m.Mail |
|000017e0| 61 20 6d 65 73 73 61 67 | 65 20 28 73 61 6d 65 20 |a messag|e (same |
|000017f0| 61 73 20 5c 5c 5b 6d 61 | 69 6c 2d 6f 74 68 65 72 |as \\[ma|il-other|
|00001800| 2d 77 69 6e 64 6f 77 5d | 29 2e 0a 63 09 43 6f 6e |-window]|)..c.Con|
|00001810| 74 69 6e 75 65 20 63 6f | 6d 70 6f 73 69 6e 67 20 |tinue co|mposing |
|00001820| 6f 75 74 67 6f 69 6e 67 | 20 6d 65 73 73 61 67 65 |outgoing| message|
|00001830| 20 73 74 61 72 74 65 64 | 20 62 65 66 6f 72 65 2e | started| before.|
|00001840| 0a 72 09 52 65 70 6c 79 | 20 74 6f 20 74 68 69 73 |.r.Reply| to this|
|00001850| 20 6d 65 73 73 61 67 65 | 2e 20 20 4c 69 6b 65 20 | message|.  Like |
|00001860| 6d 20 62 75 74 20 69 6e | 69 74 69 61 6c 69 7a 65 |m but in|itialize|
|00001870| 73 20 73 6f 6d 65 20 66 | 69 65 6c 64 73 2e 0a 66 |s some f|ields..f|
|00001880| 09 46 6f 72 77 61 72 64 | 20 74 68 69 73 20 6d 65 |.Forward| this me|
|00001890| 73 73 61 67 65 20 74 6f | 20 61 6e 6f 74 68 65 72 |ssage to| another|
|000018a0| 20 75 73 65 72 2e 0a 6f | 20 20 20 20 20 20 20 4f | user..o|       O|
|000018b0| 75 74 70 75 74 20 74 68 | 69 73 20 6d 65 73 73 61 |utput th|is messa|
|000018c0| 67 65 20 74 6f 20 61 6e | 20 52 6d 61 69 6c 20 66 |ge to an| Rmail f|
|000018d0| 69 6c 65 20 28 61 70 70 | 65 6e 64 20 69 74 29 2e |ile (app|end it).|
|000018e0| 0a 43 2d 6f 09 4f 75 74 | 70 75 74 20 74 68 69 73 |.C-o.Out|put this|
|000018f0| 20 6d 65 73 73 61 67 65 | 20 74 6f 20 61 20 55 6e | message| to a Un|
|00001900| 69 78 2d 66 6f 72 6d 61 | 74 20 6d 61 69 6c 20 66 |ix-forma|t mail f|
|00001910| 69 6c 65 20 28 61 70 70 | 65 6e 64 20 69 74 29 2e |ile (app|end it).|
|00001920| 0a 69 09 49 6e 70 75 74 | 20 52 6d 61 69 6c 20 66 |.i.Input| Rmail f|
|00001930| 69 6c 65 2e 20 20 52 75 | 6e 20 52 6d 61 69 6c 20 |ile.  Ru|n Rmail |
|00001940| 6f 6e 20 74 68 61 74 20 | 66 69 6c 65 2e 0a 61 09 |on that |file..a.|
|00001950| 41 64 64 20 6c 61 62 65 | 6c 20 74 6f 20 6d 65 73 |Add labe|l to mes|
|00001960| 73 61 67 65 2e 20 20 49 | 74 20 77 69 6c 6c 20 62 |sage.  I|t will b|
|00001970| 65 20 64 69 73 70 6c 61 | 79 65 64 20 69 6e 20 74 |e displa|yed in t|
|00001980| 68 65 20 6d 6f 64 65 20 | 6c 69 6e 65 2e 0a 6b 09 |he mode |line..k.|
|00001990| 4b 69 6c 6c 20 6c 61 62 | 65 6c 2e 20 20 52 65 6d |Kill lab|el.  Rem|
|000019a0| 6f 76 65 20 61 20 6c 61 | 62 65 6c 20 66 72 6f 6d |ove a la|bel from|
|000019b0| 20 63 75 72 72 65 6e 74 | 20 6d 65 73 73 61 67 65 | current| message|
|000019c0| 2e 0a 43 2d 4d 2d 6e 20 | 20 20 4d 6f 76 65 20 74 |..C-M-n |  Move t|
|000019d0| 6f 20 4e 65 78 74 20 6d | 65 73 73 61 67 65 20 77 |o Next m|essage w|
|000019e0| 69 74 68 20 73 70 65 63 | 69 66 69 65 64 20 6c 61 |ith spec|ified la|
|000019f0| 62 65 6c 0a 20 20 20 20 | 20 20 20 20 20 20 28 6c |bel.    |      (l|
|00001a00| 61 62 65 6c 20 64 65 66 | 61 75 6c 74 73 20 74 6f |abel def|aults to|
|00001a10| 20 6c 61 73 74 20 6f 6e | 65 20 73 70 65 63 69 66 | last on|e specif|
|00001a20| 69 65 64 29 2e 0a 20 20 | 20 20 20 20 20 20 20 20 |ied)..  |        |
|00001a30| 53 74 61 6e 64 61 72 64 | 20 6c 61 62 65 6c 73 3a |Standard| labels:|
|00001a40| 20 66 69 6c 65 64 2c 20 | 75 6e 73 65 65 6e 2c 20 | filed, |unseen, |
|00001a50| 61 6e 73 77 65 72 65 64 | 2c 20 66 6f 72 77 61 72 |answered|, forwar|
|00001a60| 64 65 64 2c 20 64 65 6c | 65 74 65 64 2e 0a 20 20 |ded, del|eted..  |
|00001a70| 20 20 20 20 20 20 20 20 | 41 6e 79 20 6f 74 68 65 |        |Any othe|
|00001a80| 72 20 6c 61 62 65 6c 20 | 69 73 20 70 72 65 73 65 |r label |is prese|
|00001a90| 6e 74 20 6f 6e 6c 79 20 | 69 66 20 79 6f 75 20 61 |nt only |if you a|
|00001aa0| 64 64 20 69 74 20 77 69 | 74 68 20 60 61 27 2e 0a |dd it wi|th `a'..|
|00001ab0| 43 2d 4d 2d 70 20 20 20 | 4d 6f 76 65 20 74 6f 20 |C-M-p   |Move to |
|00001ac0| 50 72 65 76 69 6f 75 73 | 20 6d 65 73 73 61 67 65 |Previous| message|
|00001ad0| 20 77 69 74 68 20 73 70 | 65 63 69 66 69 65 64 20 | with sp|ecified |
|00001ae0| 6c 61 62 65 6c 0a 43 2d | 4d 2d 68 09 53 68 6f 77 |label.C-|M-h.Show|
|00001af0| 20 68 65 61 64 65 72 73 | 20 62 75 66 66 65 72 2c | headers| buffer,|
|00001b00| 20 77 69 74 68 20 61 20 | 6f 6e 65 20 6c 69 6e 65 | with a |one line|
|00001b10| 20 73 75 6d 6d 61 72 79 | 20 6f 66 20 65 61 63 68 | summary| of each|
|00001b20| 20 6d 65 73 73 61 67 65 | 2e 0a 43 2d 4d 2d 6c 09 | message|..C-M-l.|
|00001b30| 4c 69 6b 65 20 68 20 6f | 6e 6c 79 20 6a 75 73 74 |Like h o|nly just|
|00001b40| 20 6d 65 73 73 61 67 65 | 73 20 77 69 74 68 20 70 | message|s with p|
|00001b50| 61 72 74 69 63 75 6c 61 | 72 20 6c 61 62 65 6c 28 |articula|r label(|
|00001b60| 73 29 20 61 72 65 20 73 | 75 6d 6d 61 72 69 7a 65 |s) are s|ummarize|
|00001b70| 64 2e 0a 43 2d 4d 2d 72 | 20 20 20 4c 69 6b 65 20 |d..C-M-r|   Like |
|00001b80| 68 20 6f 6e 6c 79 20 6a | 75 73 74 20 6d 65 73 73 |h only j|ust mess|
|00001b90| 61 67 65 73 20 77 69 74 | 68 20 70 61 72 74 69 63 |ages wit|h partic|
|00001ba0| 75 6c 61 72 20 72 65 63 | 69 70 69 65 6e 74 28 73 |ular rec|ipient(s|
|00001bb0| 29 20 61 72 65 20 73 75 | 6d 6d 61 72 69 7a 65 64 |) are su|mmarized|
|00001bc0| 2e 0a 74 09 54 6f 67 67 | 6c 65 20 68 65 61 64 65 |..t.Togg|le heade|
|00001bd0| 72 2c 20 73 68 6f 77 20 | 52 6d 61 69 6c 20 68 65 |r, show |Rmail he|
|00001be0| 61 64 65 72 20 69 66 20 | 75 6e 66 6f 72 6d 61 74 |ader if |unformat|
|00001bf0| 74 65 64 20 6f 72 20 76 | 69 63 65 20 76 65 72 73 |ted or v|ice vers|
|00001c00| 61 2e 0a 77 09 45 64 69 | 74 20 74 68 65 20 63 75 |a..w.Edi|t the cu|
|00001c10| 72 72 65 6e 74 20 6d 65 | 73 73 61 67 65 2e 20 20 |rrent me|ssage.  |
|00001c20| 43 2d 63 20 43 2d 63 20 | 74 6f 20 72 65 74 75 72 |C-c C-c |to retur|
|00001c30| 6e 20 74 6f 20 52 6d 61 | 69 6c 2e 22 20 28 69 6e |n to Rma|il." (in|
|00001c40| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00001c50| 2d 63 6f 64 65 20 22 c0 | 88 c1 20 88 c2 20 88 c3 |-code ".|.. .. ..|
|00001c60| 20 88 c4 c5 21 87 22 20 | 5b 6e 69 6c 20 6b 69 6c | ...!." |[nil kil|
|00001c70| 6c 2d 61 6c 6c 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |l-all-lo|cal-vari|
|00001c80| 61 62 6c 65 73 20 72 6d | 61 69 6c 2d 6d 6f 64 65 |ables rm|ail-mode|
|00001c90| 2d 31 20 72 6d 61 69 6c | 2d 76 61 72 69 61 62 6c |-1 rmail|-variabl|
|00001ca0| 65 73 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 72 6d 61 |es run-h|ooks rma|
|00001cb0| 69 6c 2d 6d 6f 64 65 2d | 68 6f 6f 6b 5d 20 35 29 |il-mode-|hook] 5)|
|00001cc0| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00001cd0| 6d 6f 64 65 2d 31 20 6e | 69 6c 20 28 62 79 74 65 |mode-1 n|il (byte|
|00001ce0| 2d 63 6f 64 65 20 22 cc | 89 10 88 cd 89 11 88 c3 |-code ".|........|
|00001cf0| 89 12 88 c5 89 14 88 ce | c6 21 83 1d 00 cf 89 16 |........|.!......|
|00001d00| 06 82 26 00 cf d0 c7 21 | 41 42 89 16 07 88 d1 0e |..&....!|AB......|
|00001d10| 08 21 88 d2 0e 09 21 88 | 0e 0b 89 16 0a 87 22 20 |.!....!.|......" |
|00001d20| 5b 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 6d 6f 64 65 |[major-m|ode mode|
|00001d30| 2d 6e 61 6d 65 20 62 75 | 66 66 65 72 2d 72 65 61 |-name bu|ffer-rea|
|00001d40| 64 2d 6f 6e 6c 79 20 74 | 20 62 75 66 66 65 72 2d |d-only t| buffer-|
|00001d50| 61 75 74 6f 2d 73 61 76 | 65 2d 66 69 6c 65 2d 6e |auto-sav|e-file-n|
|00001d60| 61 6d 65 20 6e 69 6c 20 | 6d 6f 64 65 2d 6c 69 6e |ame nil |mode-lin|
|00001d70| 65 2d 6d 6f 64 69 66 69 | 65 64 20 6d 6f 64 65 2d |e-modifi|ed mode-|
|00001d80| 6c 69 6e 65 2d 66 6f 72 | 6d 61 74 20 72 6d 61 69 |line-for|mat rmai|
|00001d90| 6c 2d 6d 6f 64 65 2d 6d | 61 70 20 74 65 78 74 2d |l-mode-m|ap text-|
|00001da0| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00001db0| 65 20 6c 6f 63 61 6c 2d | 61 62 62 72 65 76 2d 74 |e local-|abbrev-t|
|00001dc0| 61 62 6c 65 20 74 65 78 | 74 2d 6d 6f 64 65 2d 61 |able tex|t-mode-a|
|00001dd0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 72 6d 61 69 |bbrev-ta|ble rmai|
|00001de0| 6c 2d 6d 6f 64 65 20 22 | 52 4d 41 49 4c 22 20 62 |l-mode "|RMAIL" b|
|00001df0| 6f 75 6e 64 70 20 22 2d | 2d 2d 20 22 20 64 65 66 |oundp "-|-- " def|
|00001e00| 61 75 6c 74 2d 76 61 6c | 75 65 20 75 73 65 2d 6c |ault-val|ue use-l|
|00001e10| 6f 63 61 6c 2d 6d 61 70 | 20 73 65 74 2d 73 79 6e |ocal-map| set-syn|
|00001e20| 74 61 78 2d 74 61 62 6c | 65 5d 20 36 29 29 0a 0a |tax-tabl|e] 6))..|
|00001e30| 28 64 65 66 75 6e 20 72 | 6d 61 69 6c 2d 76 61 72 |(defun r|mail-var|
|00001e40| 69 61 62 6c 65 73 20 6e | 69 6c 20 28 62 79 74 65 |iables n|il (byte|
|00001e50| 2d 63 6f 64 65 20 22 c8 | c0 21 88 c9 89 10 88 c8 |-code ".|.!......|
|00001e60| ca 21 88 c8 cb 21 88 c8 | c7 21 88 c8 cc 21 88 c8 |.!...!..|.!...!..|
|00001e70| cd 21 88 c8 ce 21 88 c8 | cf 21 88 c8 c1 21 88 c2 |.!...!..|.!...!..|
|00001e80| 89 11 88 c8 c3 21 88 d0 | 89 13 88 c8 c4 21 88 c5 |.....!..|.....!..|
|00001e90| 89 14 88 c8 d1 21 88 c8 | d2 21 88 c8 c6 21 88 d3 |.....!..|.!...!..|
|00001ea0| 20 89 16 06 88 c8 c7 21 | 88 c2 89 16 07 87 22 20 | ......!|......" |
|00001eb0| 5b 72 65 76 65 72 74 2d | 62 75 66 66 65 72 2d 66 |[revert-|buffer-f|
|00001ec0| 75 6e 63 74 69 6f 6e 20 | 72 65 71 75 69 72 65 2d |unction |require-|
|00001ed0| 66 69 6e 61 6c 2d 6e 65 | 77 6c 69 6e 65 20 6e 69 |final-ne|wline ni|
|00001ee0| 6c 20 76 65 72 73 69 6f | 6e 2d 63 6f 6e 74 72 6f |l versio|n-contro|
|00001ef0| 6c 20 66 69 6c 65 2d 70 | 72 65 63 69 6f 75 73 2d |l file-p|recious-|
|00001f00| 66 6c 61 67 20 74 20 72 | 6d 61 69 6c 2d 69 6e 62 |flag t r|mail-inb|
|00001f10| 6f 78 2d 6c 69 73 74 20 | 72 6d 61 69 6c 2d 6b 65 |ox-list |rmail-ke|
|00001f20| 79 77 6f 72 64 73 20 6d | 61 6b 65 2d 6c 6f 63 61 |ywords m|ake-loca|
|00001f30| 6c 2d 76 61 72 69 61 62 | 6c 65 20 72 6d 61 69 6c |l-variab|le rmail|
|00001f40| 2d 72 65 76 65 72 74 20 | 72 6d 61 69 6c 2d 6c 61 |-revert |rmail-la|
|00001f50| 73 74 2d 6c 61 62 65 6c | 20 72 6d 61 69 6c 2d 64 |st-label| rmail-d|
|00001f60| 65 6c 65 74 65 64 2d 76 | 65 63 74 6f 72 20 72 6d |eleted-v|ector rm|
|00001f70| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 62 75 66 66 |ail-summ|ary-buff|
|00001f80| 65 72 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |er rmail|-summary|
|00001f90| 2d 76 65 63 74 6f 72 20 | 72 6d 61 69 6c 2d 63 75 |-vector |rmail-cu|
|00001fa0| 72 72 65 6e 74 2d 6d 65 | 73 73 61 67 65 20 72 6d |rrent-me|ssage rm|
|00001fb0| 61 69 6c 2d 74 6f 74 61 | 6c 2d 6d 65 73 73 61 67 |ail-tota|l-messag|
|00001fc0| 65 73 20 6e 65 76 65 72 | 20 72 6d 61 69 6c 2d 6d |es never| rmail-m|
|00001fd0| 65 73 73 61 67 65 2d 76 | 65 63 74 6f 72 20 72 6d |essage-v|ector rm|
|00001fe0| 61 69 6c 2d 6c 61 73 74 | 2d 66 69 6c 65 20 72 6d |ail-last|-file rm|
|00001ff0| 61 69 6c 2d 70 61 72 73 | 65 2d 66 69 6c 65 2d 69 |ail-pars|e-file-i|
|00002000| 6e 62 6f 78 65 73 5d 20 | 31 38 29 29 0a 0a 28 64 |nboxes] |18))..(d|
|00002010| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 72 65 76 65 72 |efun rma|il-rever|
|00002020| 74 20 28 61 72 67 20 6e | 6f 63 6f 6e 66 69 72 6d |t (arg n|oconfirm|
|00002030| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 18 |) (byte-|code "..|
|00002040| c4 09 0a 5c 22 85 14 00 | c5 20 88 64 62 88 c6 20 |...\"...|. .db.. |
|00002050| 88 c7 20 29 87 22 20 5b | 72 65 76 65 72 74 2d 62 |.. )." [|revert-b|
|00002060| 75 66 66 65 72 2d 66 75 | 6e 63 74 69 6f 6e 20 61 |uffer-fu|nction a|
|00002070| 72 67 20 6e 6f 63 6f 6e | 66 69 72 6d 20 6e 69 6c |rg nocon|firm nil|
|00002080| 20 72 65 76 65 72 74 2d | 62 75 66 66 65 72 20 72 | revert-|buffer r|
|00002090| 6d 61 69 6c 2d 63 6f 6e | 76 65 72 74 2d 66 69 6c |mail-con|vert-fil|
|000020a0| 65 20 72 6d 61 69 6c 2d | 73 65 74 2d 6d 65 73 73 |e rmail-|set-mess|
|000020b0| 61 67 65 2d 63 6f 75 6e | 74 65 72 73 20 72 6d 61 |age-coun|ters rma|
|000020c0| 69 6c 2d 73 68 6f 77 2d | 6d 65 73 73 61 67 65 5d |il-show-|message]|
|000020d0| 20 35 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 5))..(d|efun rma|
|000020e0| 69 6c 2d 70 61 72 73 65 | 2d 66 69 6c 65 2d 69 6e |il-parse|-file-in|
|000020f0| 62 6f 78 65 73 20 6e 69 | 6c 20 28 62 79 74 65 2d |boxes ni|l (byte-|
|00002100| 63 6f 64 65 20 22 8a 8c | c2 20 88 c3 62 88 c4 c5 |code "..|. ..b...|
|00002110| 21 85 31 00 c6 c7 c0 c8 | 23 88 c9 c3 60 5c 22 88 |!.1.....|#...`\".|
|00002120| c3 62 88 c6 ca c0 c1 23 | 85 31 00 c9 60 cb 20 88 |.b.....#|.1..`. .|
|00002130| 60 5c 22 88 65 62 88 cc | 20 29 29 87 22 20 5b 6e |`\".eb..| ))." [n|
|00002140| 69 6c 20 74 20 77 69 64 | 65 6e 20 31 20 6c 6f 6f |il t wid|en 1 loo|
|00002150| 6b 69 6e 67 2d 61 74 20 | 22 42 41 42 59 4c 20 4f |king-at |"BABYL O|
|00002160| 50 54 49 4f 4e 53 3a 22 | 20 73 65 61 72 63 68 2d |PTIONS:"| search-|
|00002170| 66 6f 72 77 61 72 64 20 | 22 1f 22 20 6d 6f 76 65 |forward |"." move|
|00002180| 20 6e 61 72 72 6f 77 2d | 74 6f 2d 72 65 67 69 6f | narrow-|to-regio|
|00002190| 6e 20 22 0a 4d 61 69 6c | 3a 22 20 65 6e 64 2d 6f |n ".Mail|:" end-o|
|000021a0| 66 2d 6c 69 6e 65 20 6d | 61 69 6c 2d 70 61 72 73 |f-line m|ail-pars|
|000021b0| 65 2d 63 6f 6d 6d 61 2d | 6c 69 73 74 5d 20 39 29 |e-comma-|list] 9)|
|000021c0| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|000021d0| 65 78 70 75 6e 67 65 2d | 61 6e 64 2d 73 61 76 65 |expunge-|and-save|
|000021e0| 20 6e 69 6c 20 22 5c 0a | 45 78 70 75 6e 67 65 20 | nil "\.|Expunge |
|000021f0| 61 6e 64 20 73 61 76 65 | 20 52 4d 41 49 4c 20 66 |and save| RMAIL f|
|00002200| 69 6c 65 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ile." (i|nteracti|
|00002210| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00002220| c0 88 c1 20 88 c2 20 87 | 22 20 5b 6e 69 6c 20 72 |... .. .|" [nil r|
|00002230| 6d 61 69 6c 2d 65 78 70 | 75 6e 67 65 20 73 61 76 |mail-exp|unge sav|
|00002240| 65 2d 62 75 66 66 65 72 | 5d 20 33 29 29 0a 0a 28 |e-buffer|] 3))..(|
|00002250| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 71 75 69 74 |defun rm|ail-quit|
|00002260| 20 6e 69 6c 20 22 5c 0a | 51 75 69 74 20 6f 75 74 | nil "\.|Quit out|
|00002270| 20 6f 66 20 52 4d 41 49 | 4c 2e 22 20 28 69 6e 74 | of RMAI|L." (int|
|00002280| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00002290| 63 6f 64 65 20 22 c2 88 | c3 20 88 08 85 0c 00 c4 |code "..|. ......|
|000022a0| 08 21 88 70 19 c5 c6 20 | 21 88 c4 09 21 29 87 22 |.!.p... |!...!)."|
|000022b0| 20 5b 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d | [rmail-|summary-|
|000022c0| 62 75 66 66 65 72 20 6f | 62 75 66 20 6e 69 6c 20 |buffer o|buf nil |
|000022d0| 72 6d 61 69 6c 2d 65 78 | 70 75 6e 67 65 2d 61 6e |rmail-ex|punge-an|
|000022e0| 64 2d 73 61 76 65 20 62 | 75 72 79 2d 62 75 66 66 |d-save b|ury-buff|
|000022f0| 65 72 20 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |er switc|h-to-buf|
|00002300| 66 65 72 20 6f 74 68 65 | 72 2d 62 75 66 66 65 72 |fer othe|r-buffer|
|00002310| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 6d |] 6))..(|defun rm|
|00002320| 61 69 6c 2d 69 6e 70 75 | 74 20 28 66 69 6c 65 6e |ail-inpu|t (filen|
|00002330| 61 6d 65 29 20 22 5c 0a | 52 75 6e 20 52 4d 41 49 |ame) "\.|Run RMAI|
|00002340| 4c 20 6f 6e 20 66 69 6c | 65 20 46 49 4c 45 4e 41 |L on fil|e FILENA|
|00002350| 4d 45 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |ME." (in|teractiv|
|00002360| 65 20 22 46 52 75 6e 20 | 72 6d 61 69 6c 20 6f 6e |e "FRun |rmail on|
|00002370| 20 52 4d 41 49 4c 20 66 | 69 6c 65 3a 20 22 29 20 | RMAIL f|ile: ") |
|00002380| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 08 |(byte-co|de "....|
|00002390| 21 87 22 20 5b 66 69 6c | 65 6e 61 6d 65 20 6e 69 |!." [fil|ename ni|
|000023a0| 6c 20 72 6d 61 69 6c 5d | 20 32 29 29 0a 0a 28 64 |l rmail]| 2))..(d|
|000023b0| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 67 65 74 2d 6e |efun rma|il-get-n|
|000023c0| 65 77 2d 6d 61 69 6c 20 | 28 26 6f 70 74 69 6f 6e |ew-mail |(&option|
|000023d0| 61 6c 20 66 69 6c 65 2d | 6e 61 6d 65 29 20 22 5c |al file-|name) "\|
|000023e0| 0a 4d 6f 76 65 20 61 6e | 79 20 6e 65 77 20 6d 61 |.Move an|y new ma|
|000023f0| 69 6c 20 66 72 6f 6d 20 | 74 68 69 73 20 52 4d 41 |il from |this RMA|
|00002400| 49 4c 20 66 69 6c 65 27 | 73 20 69 6e 62 6f 78 20 |IL file'|s inbox |
|00002410| 66 69 6c 65 73 2e 0a 54 | 68 65 20 69 6e 62 6f 78 |files..T|he inbox|
|00002420| 20 66 69 6c 65 73 20 63 | 61 6e 20 62 65 20 73 70 | files c|an be sp|
|00002430| 65 63 69 66 69 65 64 20 | 77 69 74 68 20 74 68 65 |ecified |with the|
|00002440| 20 66 69 6c 65 27 73 20 | 4d 61 69 6c 3a 20 6f 70 | file's |Mail: op|
|00002450| 74 69 6f 6e 2e 0a 54 68 | 65 20 76 61 72 69 61 62 |tion..Th|e variab|
|00002460| 6c 65 20 72 6d 61 69 6c | 2d 70 72 69 6d 61 72 79 |le rmail|-primary|
|00002470| 2d 69 6e 62 6f 78 2d 6c | 69 73 74 20 73 70 65 63 |-inbox-l|ist spec|
|00002480| 69 66 69 65 73 20 74 68 | 65 20 69 6e 62 6f 78 65 |ifies th|e inboxe|
|00002490| 73 20 66 6f 72 0a 79 6f | 75 72 20 70 72 69 6d 61 |s for.yo|ur prima|
|000024a0| 72 79 20 52 4d 41 49 4c | 20 66 69 6c 65 20 69 66 |ry RMAIL| file if|
|000024b0| 20 69 74 20 68 61 73 20 | 6e 6f 20 4d 61 69 6c 3a | it has |no Mail:|
|000024c0| 20 6f 70 74 69 6f 6e 2e | 0a 54 68 65 73 65 20 61 | option.|.These a|
|000024d0| 72 65 20 6e 6f 72 6d 61 | 6c 6c 79 20 79 6f 75 72 |re norma|lly your|
|000024e0| 20 7e 2f 6d 62 6f 78 20 | 61 6e 64 20 79 6f 75 72 | ~/mbox |and your|
|000024f0| 20 2f 75 73 72 2f 73 70 | 6f 6f 6c 2f 6d 61 69 6c | /usr/sp|ool/mail|
|00002500| 2f 24 55 53 45 52 2e 0a | 0a 59 6f 75 20 63 61 6e |/$USER..|.You can|
|00002510| 20 61 6c 73 6f 20 73 70 | 65 63 69 66 79 20 74 68 | also sp|ecify th|
|00002520| 65 20 66 69 6c 65 20 74 | 6f 20 67 65 74 20 6e 65 |e file t|o get ne|
|00002530| 77 20 6d 61 69 6c 20 66 | 72 6f 6d 2e 20 20 49 6e |w mail f|rom.  In|
|00002540| 20 74 68 69 73 0a 63 61 | 73 65 2c 20 74 68 65 20 | this.ca|se, the |
|00002550| 66 69 6c 65 20 6f 66 20 | 6e 65 77 20 6d 61 69 6c |file of |new mail|
|00002560| 20 69 73 20 6e 6f 74 20 | 63 68 61 6e 67 65 64 20 | is not |changed |
|00002570| 6f 72 20 64 65 6c 65 74 | 65 64 2e 0a 4e 6f 6e 69 |or delet|ed..Noni|
|00002580| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 79 6f |nteracti|vely, yo|
|00002590| 75 20 63 61 6e 20 70 61 | 73 73 20 74 68 65 20 69 |u can pa|ss the i|
|000025a0| 6e 62 6f 78 20 66 69 6c | 65 20 6e 61 6d 65 20 61 |nbox fil|e name a|
|000025b0| 73 20 61 6e 20 61 72 67 | 75 6d 65 6e 74 2e 0a 49 |s an arg|ument..I|
|000025c0| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 61 20 |nteracti|vely, a |
|000025d0| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|000025e0| 63 61 75 73 65 73 20 75 | 73 20 74 6f 20 72 65 61 |causes u|s to rea|
|000025f0| 64 20 61 20 66 69 6c 65 | 20 6e 61 6d 65 0a 61 6e |d a file| name.an|
|00002600| 64 20 75 73 65 20 74 68 | 61 74 20 66 69 6c 65 20 |d use th|at file |
|00002610| 61 73 20 74 68 65 20 69 | 6e 62 6f 78 2e 22 20 28 |as the i|nbox." (|
|00002620| 69 6e 74 65 72 61 63 74 | 69 76 65 20 28 62 79 74 |interact|ive (byt|
|00002630| 65 2d 63 6f 64 65 20 22 | 08 85 07 00 c1 c2 21 43 |e-code "|......!C|
|00002640| 87 22 20 5b 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |." [curr|ent-pref|
|00002650| 69 78 2d 61 72 67 20 72 | 65 61 64 2d 66 69 6c 65 |ix-arg r|ead-file|
|00002660| 2d 6e 61 6d 65 20 22 47 | 65 74 20 6e 65 77 20 6d |-name "G|et new m|
|00002670| 61 69 6c 20 66 72 6f 6d | 20 66 69 6c 65 3a 20 22 |ail from| file: "|
|00002680| 5d 20 32 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |] 2)) (b|yte-code|
|00002690| 20 22 c3 88 cc 70 21 86 | 15 00 cd ce 20 21 88 cc | "...p!.|.... !..|
|000026a0| 70 21 85 15 00 cf 20 88 | d0 20 88 d1 20 88 09 c2 |p!.... .|. .. ...|
|000026b0| 3d 86 25 00 c3 89 11 88 | d2 8e 60 d3 c3 0e 07 85 |=.%.....|..`.....|
|000026c0| 32 00 d4 20 c3 c2 19 1e | 08 1e 07 1e 06 1d 1c 64 |2.. ....|.......d|
|000026d0| 62 88 d5 d6 21 88 d7 60 | 64 5c 22 88 8a 8c d8 60 |b...!..`|d\"....`|
|000026e0| 60 5c 22 88 0e 09 83 5e | 00 d9 0e 09 43 c3 5c 22 |`\"....^|....C.\"|
|000026f0| 82 66 00 d9 0e 0a c2 5c | 22 89 16 06 88 65 62 88 |.f.....\|"....eb.|
|00002700| 8a da 20 89 15 29 88 db | 0d 21 86 90 00 c3 1e 0b |.. ..)..|.!......|
|00002710| d1 20 88 dc dd 21 88 d8 | 60 64 5c 22 88 65 54 62 |. ...!..|`d\".eTb|
|00002720| 88 de 20 88 df 20 29 88 | 0e 06 85 a5 00 c3 e0 e1 |.. .. ).|........|
|00002730| 8f 88 0e 06 41 89 16 06 | 88 82 91 00 29 29 88 0d |....A...|....))..|
|00002740| d3 55 83 c1 00 0c 62 88 | 0e 09 86 b8 00 0e 0a 85 |.U....b.|........|
|00002750| be 00 e2 e3 21 82 d0 00 | e2 e4 0d e5 0d 55 83 ce |....!...|.....U..|
|00002760| 00 e6 82 cf 00 e7 23 2e | 06 29 87 22 20 5b 63 75 |......#.|.)." [cu|
|00002770| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00002780| 20 62 75 66 66 65 72 2d | 75 6e 64 6f 2d 6c 69 73 | buffer-|undo-lis|
|00002790| 74 20 74 20 6e 69 6c 20 | 6f 70 6f 69 6e 74 20 6e |t t nil |opoint n|
|000027a0| 65 77 2d 6d 65 73 73 61 | 67 65 73 20 64 65 6c 65 |ew-messa|ges dele|
|000027b0| 74 65 2d 66 69 6c 65 73 | 20 6d 61 6b 65 2d 62 61 |te-files| make-ba|
|000027c0| 63 6b 75 70 2d 66 69 6c | 65 73 20 62 75 66 66 65 |ckup-fil|es buffe|
|000027d0| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 66 69 6c 65 |r-read-o|nly file|
|000027e0| 2d 6e 61 6d 65 20 72 6d | 61 69 6c 2d 69 6e 62 6f |-name rm|ail-inbo|
|000027f0| 78 2d 6c 69 73 74 20 73 | 75 63 63 65 73 73 20 76 |x-list s|uccess v|
|00002800| 65 72 69 66 79 2d 76 69 | 73 69 74 65 64 2d 66 69 |erify-vi|sited-fi|
|00002810| 6c 65 2d 6d 6f 64 74 69 | 6d 65 20 66 69 6e 64 2d |le-modti|me find-|
|00002820| 66 69 6c 65 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |file buf|fer-file|
|00002830| 2d 6e 61 6d 65 20 72 6d | 61 69 6c 2d 66 6f 72 67 |-name rm|ail-forg|
|00002840| 65 74 2d 6d 65 73 73 61 | 67 65 73 20 72 6d 61 69 |et-messa|ges rmai|
|00002850| 6c 2d 6d 61 79 62 65 2d | 73 65 74 2d 6d 65 73 73 |l-maybe-|set-mess|
|00002860| 61 67 65 2d 63 6f 75 6e | 74 65 72 73 20 77 69 64 |age-coun|ters wid|
|00002870| 65 6e 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |en ((byt|e-code "|
|00002880| c0 20 87 22 20 5b 72 6d | 61 69 6c 2d 73 68 6f 77 |. ." [rm|ail-show|
|00002890| 2d 6d 65 73 73 61 67 65 | 5d 20 32 29 29 20 30 20 |-message|] 2)) 0 |
|000028a0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000028b0| 70 20 73 6b 69 70 2d 63 | 68 61 72 73 2d 62 61 63 |p skip-c|hars-bac|
|000028c0| 6b 77 61 72 64 20 22 20 | 09 0a 22 20 64 65 6c 65 |kward " |.." dele|
|000028d0| 74 65 2d 72 65 67 69 6f | 6e 20 6e 61 72 72 6f 77 |te-regio|n narrow|
|000028e0| 2d 74 6f 2d 72 65 67 69 | 6f 6e 20 72 6d 61 69 6c |-to-regi|on rmail|
|000028f0| 2d 69 6e 73 65 72 74 2d | 69 6e 62 6f 78 2d 74 65 |-insert-|inbox-te|
|00002900| 78 74 20 72 6d 61 69 6c | 2d 63 6f 6e 76 65 72 74 |xt rmail|-convert|
|00002910| 2d 74 6f 2d 62 61 62 79 | 6c 2d 66 6f 72 6d 61 74 |-to-baby|l-format|
|00002920| 20 7a 65 72 6f 70 20 73 | 65 61 72 63 68 2d 62 61 | zerop s|earch-ba|
|00002930| 63 6b 77 61 72 64 20 22 | 1f 22 20 72 6d 61 69 6c |ckward "|." rmail|
|00002940| 2d 63 6f 75 6e 74 2d 6e | 65 77 2d 6d 65 73 73 61 |-count-n|ew-messa|
|00002950| 67 65 73 20 73 61 76 65 | 2d 62 75 66 66 65 72 20 |ges save|-buffer |
|00002960| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 08 40 21 |(byte-co|de "..@!|
|00002970| 87 22 20 5b 64 65 6c 65 | 74 65 2d 66 69 6c 65 73 |." [dele|te-files|
|00002980| 20 64 65 6c 65 74 65 2d | 66 69 6c 65 5d 20 32 29 | delete-|file] 2)|
|00002990| 20 28 28 66 69 6c 65 2d | 65 72 72 6f 72 20 28 62 | ((file-|error (b|
|000029a0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 87 22 20 5b 6e |yte-code| ".." [n|
|000029b0| 69 6c 5d 20 31 29 29 29 | 20 6d 65 73 73 61 67 65 |il] 1)))| message|
|000029c0| 20 22 28 4e 6f 20 6e 65 | 77 20 6d 61 69 6c 20 68 | "(No ne|w mail h|
|000029d0| 61 73 20 61 72 72 69 76 | 65 64 29 22 20 22 25 64 |as arriv|ed)" "%d|
|000029e0| 20 6e 65 77 20 6d 65 73 | 73 61 67 65 25 73 20 72 | new mes|sage%s r|
|000029f0| 65 61 64 22 20 31 20 22 | 22 20 22 73 22 5d 20 32 |ead" 1 "|" "s"] 2|
|00002a00| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |6))..(de|fun rmai|
|00002a10| 6c 2d 69 6e 73 65 72 74 | 2d 69 6e 62 6f 78 2d 74 |l-insert|-inbox-t|
|00002a20| 65 78 74 20 28 66 69 6c | 65 73 20 72 65 6e 61 6d |ext (fil|es renam|
|00002a30| 65 70 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ep) (byt|e-code "|
|00002a40| ca ca ca ca ca 1c 1b 1a | 19 18 0d 85 54 01 cf d0 |........|....T...|
|00002a50| 0d 40 21 21 10 08 d1 50 | 89 11 88 d2 d3 08 21 0e |.@!!...P|......!.|
|00002a60| 06 5c 22 89 13 88 d4 d5 | d6 08 21 5c 22 89 14 88 |.\".....|..!\"...|
|00002a70| 0c 85 3a 00 d6 08 21 10 | c8 89 16 07 88 0b 85 64 |..:...!.|.......d|
|00002a80| 00 cf d7 d3 cf 0e 09 21 | 21 5c 22 89 11 88 d8 08 |.......!|!\".....|
|00002a90| 21 85 64 00 cf d9 da 21 | 86 60 00 d9 db 21 86 60 |!.d....!|.`...!.`|
|00002aa0| 00 dc 20 08 5c 22 89 10 | 88 0c 83 6f 00 dd de 21 |.. .\"..|...o...!|
|00002ab0| 82 7f 00 df 09 21 86 78 | 00 df 08 21 85 7f 00 dd |.....!.x|...!....|
|00002ac0| e0 08 5c 22 88 0e 07 3f | 83 8c 00 08 89 11 82 1d |..\"...?|........|
|00002ad0| 01 df 09 21 86 9b 00 0c | 3f 85 9b 00 df 08 21 3f |...!....|?.....!?|
|00002ae0| 83 a2 00 ca 82 1d 01 0b | 3f 85 a9 00 0c 3f 83 b4 |........|?....?..|
|00002af0| 00 e1 08 09 ca 23 82 1d | 01 ca 1e 0b e2 8e 8a e3 |.....#..|........|
|00002b00| e4 21 89 16 0b 88 e5 0e | 0b 21 88 e6 cf e7 0e 0c |.!......|.!......|
|00002b10| 5c 22 ca 0e 0b ca 08 09 | 26 06 88 e8 0e 0b 21 3f |\"......|&.....!?|
|00002b20| 83 e1 00 ca 82 1a 01 0e | 0b 71 88 e9 65 64 ea eb |........|.q..ed..|
|00002b30| 24 88 64 62 88 ec ed 21 | 88 ee 60 64 5c 22 88 65 |$.db...!|..`d\".e|
|00002b40| 62 88 ef f0 21 85 07 01 | ee 65 f1 f2 21 5c 22 88 |b...!...|.e..!\".|
|00002b50| f3 c8 21 88 dd f0 f4 65 | 64 5c 22 50 21 88 f5 f6 |..!....e|d\"P!...|
|00002b60| 21 88 ca 29 29 29 88 df | 09 21 85 47 01 64 1e 0d |!..)))..|.!.G.d..|
|00002b70| 64 62 88 f7 09 21 88 64 | 62 88 68 ea 55 86 40 01 |db...!.d|b.h.U.@.|
|00002b80| 0e 0e 64 55 86 40 01 ea | 63 88 09 0a 42 89 12 29 |..dU.@..|c...B..)|
|00002b90| 88 dd f8 21 88 0d 41 89 | 15 88 82 0a 00 88 0a 2d |...!..A.|.......-|
|00002ba0| 87 22 20 5b 66 69 6c 65 | 20 74 6f 66 69 6c 65 20 |." [file| tofile |
|00002bb0| 64 65 6c 65 74 65 2d 66 | 69 6c 65 73 20 6d 6f 76 |delete-f|iles mov|
|00002bc0| 65 6d 61 69 6c 20 70 6f | 70 6d 61 69 6c 20 66 69 |email po|pmail fi|
|00002bd0| 6c 65 73 20 72 6d 61 69 | 6c 2d 73 70 6f 6f 6c 2d |les rmai|l-spool-|
|00002be0| 64 69 72 65 63 74 6f 72 | 79 20 72 65 6e 61 6d 65 |director|y rename|
|00002bf0| 70 20 74 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |p t buff|er-file-|
|00002c00| 6e 61 6d 65 20 6e 69 6c | 20 65 72 72 6f 72 73 20 |name nil| errors |
|00002c10| 65 78 65 63 2d 64 69 72 | 65 63 74 6f 72 79 20 6f |exec-dir|ectory o|
|00002c20| 6d 61 78 20 6f 70 6f 69 | 6e 74 20 65 78 70 61 6e |max opoi|nt expan|
|00002c30| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 73 75 62 73 |d-file-n|ame subs|
|00002c40| 74 69 74 75 74 65 2d 69 | 6e 2d 66 69 6c 65 2d 6e |titute-i|n-file-n|
|00002c50| 61 6d 65 20 22 7e 22 20 | 65 71 75 61 6c 20 66 69 |ame "~" |equal fi|
|00002c60| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00002c70| 79 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |y string|-match "|
|00002c80| 5e 70 6f 3a 22 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |^po:" fi|le-name-|
|00002c90| 6e 6f 6e 64 69 72 65 63 | 74 6f 72 79 20 22 2e 6e |nondirec|tory ".n|
|00002ca0| 65 77 6d 61 69 6c 22 20 | 66 69 6c 65 2d 64 69 72 |ewmail" |file-dir|
|00002cb0| 65 63 74 6f 72 79 2d 70 | 20 67 65 74 65 6e 76 20 |ectory-p| getenv |
|00002cc0| 22 4c 4f 47 4e 41 4d 45 | 22 20 22 55 53 45 52 22 |"LOGNAME|" "USER"|
|00002cd0| 20 75 73 65 72 2d 6c 6f | 67 69 6e 2d 6e 61 6d 65 | user-lo|gin-name|
|00002ce0| 20 6d 65 73 73 61 67 65 | 20 22 47 65 74 74 69 6e | message| "Gettin|
|00002cf0| 67 20 6d 61 69 6c 20 66 | 72 6f 6d 20 70 6f 73 74 |g mail f|rom post|
|00002d00| 20 6f 66 66 69 63 65 20 | 2e 2e 2e 22 20 66 69 6c | office |..." fil|
|00002d10| 65 2d 65 78 69 73 74 73 | 2d 70 20 22 47 65 74 74 |e-exists|-p "Gett|
|00002d20| 69 6e 67 20 6d 61 69 6c | 20 66 72 6f 6d 20 25 73 |ing mail| from %s|
|00002d30| 2e 2e 2e 22 20 72 65 6e | 61 6d 65 2d 66 69 6c 65 |..." ren|ame-file|
|00002d40| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 85 | ((byte-|code "..|
|00002d50| 07 00 c1 08 21 87 22 20 | 5b 65 72 72 6f 72 73 20 |....!." |[errors |
|00002d60| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 5d 20 32 29 29 |kill-buf|fer] 2))|
|00002d70| 20 67 65 6e 65 72 61 74 | 65 2d 6e 65 77 2d 62 75 | generat|e-new-bu|
|00002d80| 66 66 65 72 20 22 20 2a | 72 6d 61 69 6c 20 6c 6f |ffer " *|rmail lo|
|00002d90| 73 73 2a 22 20 62 75 66 | 66 65 72 2d 66 6c 75 73 |ss*" buf|fer-flus|
|00002da0| 68 2d 75 6e 64 6f 20 63 | 61 6c 6c 2d 70 72 6f 63 |h-undo c|all-proc|
|00002db0| 65 73 73 20 22 6d 6f 76 | 65 6d 61 69 6c 22 20 62 |ess "mov|email" b|
|00002dc0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00002dd0| 20 73 75 62 73 74 2d 63 | 68 61 72 2d 69 6e 2d 72 | subst-c|har-in-r|
|00002de0| 65 67 69 6f 6e 20 31 30 | 20 33 32 20 73 6b 69 70 |egion 10| 32 skip|
|00002df0| 2d 63 68 61 72 73 2d 62 | 61 63 6b 77 61 72 64 20 |-chars-b|ackward |
|00002e00| 22 20 09 22 20 64 65 6c | 65 74 65 2d 72 65 67 69 |" ." del|ete-regi|
|00002e10| 6f 6e 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 6d |on looki|ng-at "m|
|00002e20| 6f 76 65 6d 61 69 6c 3a | 20 22 20 6d 61 74 63 68 |ovemail:| " match|
|00002e30| 2d 65 6e 64 20 30 20 62 | 65 65 70 20 62 75 66 66 |-end 0 b|eep buff|
|00002e40| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 73 69 74 |er-subst|ring sit|
|00002e50| 2d 66 6f 72 20 33 20 69 | 6e 73 65 72 74 2d 66 69 |-for 3 i|nsert-fi|
|00002e60| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 22 22 5d 20 |le-conte|nts ""] |
|00002e70| 34 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 |43))..(d|efun rma|
|00002e80| 69 6c 2d 63 6f 6e 76 65 | 72 74 2d 74 6f 2d 62 61 |il-conve|rt-to-ba|
|00002e90| 62 79 6c 2d 66 6f 72 6d | 61 74 20 6e 69 6c 20 28 |byl-form|at nil (|
|00002ea0| 62 79 74 65 2d 63 6f 64 | 65 20 22 cb c3 c3 1a 19 |byte-cod|e ".....|
|00002eb0| 18 65 62 88 8c 6d 3f 85 | 35 01 cc cd 21 83 20 00 |.eb..m?.|5...!. .|
|00002ec0| ce cf 21 88 d0 65 60 5c | 22 82 31 01 cc d1 21 83 |..!..e`\|".1...!.|
|00002ed0| 50 00 ce cf c3 c4 23 86 | 38 00 d2 d3 21 88 d4 d5 |P.....#.|8...!...|
|00002ee0| 21 88 64 62 88 08 54 89 | 10 88 d0 60 8a d6 d7 21 |!.db..T.|...`...!|
|00002ef0| 88 60 29 5c 22 88 d8 60 | 64 5c 22 82 31 01 c4 1a |.`)\"..`|d\".1...|
|00002f00| cc 0d 21 29 83 98 00 c4 | 1a d9 da 21 88 60 89 11 |..!)....|...!.`..|
|00002f10| 88 db 0e 06 c3 c4 23 88 | d9 dc 21 29 88 8a 8c d8 |......#.|..!)....|
|00002f20| 09 60 53 5c 22 88 65 62 | 88 ce cf c3 c4 23 85 89 |.`S\".eb|.....#..|
|00002f30| 00 d9 dd 21 88 82 7a 00 | 29 29 88 d8 60 64 5c 22 |...!..z.|))..`d\"|
|00002f40| 88 08 54 89 10 82 31 01 | cc de 21 83 2e 01 60 89 |..T...1.|..!...`.|
|00002f50| 11 88 da 63 88 df 20 88 | 8a db e0 c3 c4 23 85 b2 |...c.. .|.....#..|
|00002f60| 00 60 29 1e 07 c4 1a 8a | e1 e2 21 88 ce e3 0e 07 |.`).....|..!.....|
|00002f70| c4 23 85 d7 00 60 e4 20 | 88 60 1e 0a 1e 09 e5 e6 |.#...`. |.`......|
|00002f80| 0e 09 0e 0a 5c 22 21 2a | 29 1e 08 0e 08 85 e5 00 |....\"!*|).......|
|00002f90| 0e 07 0e 08 5c 5c 62 2b | 88 db e7 e8 e9 ea eb 0d |....\\b+|........|
|00002fa0| ec ed ee 26 08 c3 c4 23 | 83 00 01 ef d5 21 62 82 |...&...#|.....!b.|
|00002fb0| 02 01 64 62 88 08 54 89 | 10 88 8a 8c d8 09 60 5c |..db..T.|......`\|
|00002fc0| 22 88 65 62 88 ce cf c3 | c4 23 85 21 01 d9 dd 21 |".eb....|.#.!...!|
|00002fd0| 88 82 12 01 29 29 88 f0 | 63 88 d8 60 64 5c 22 82 |....))..|c..`d\".|
|00002fe0| 31 01 f1 d5 21 88 82 0a | 00 29 88 08 2b 87 22 20 |1...!...|.)..+." |
|00002ff0| 5b 63 6f 75 6e 74 20 73 | 74 61 72 74 20 63 61 73 |[count s|tart cas|
|00003000| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6e 69 |e-fold-s|earch ni|
|00003010| 6c 20 74 20 6d 6d 64 66 | 2d 64 65 6c 69 6d 31 20 |l t mmdf|-delim1 |
|00003020| 6d 6d 64 66 2d 64 65 6c | 69 6d 32 20 68 65 61 64 |mmdf-del|im2 head|
|00003030| 65 72 2d 65 6e 64 20 73 | 69 7a 65 20 62 65 67 20 |er-end s|ize beg |
|00003040| 65 6f 6c 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |eol 0 lo|oking-at|
|00003050| 20 22 42 41 42 59 4c 20 | 4f 50 54 49 4f 4e 53 3a | "BABYL |OPTIONS:|
|00003060| 22 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |" search|-forward|
|00003070| 20 22 0a 1f 22 20 64 65 | 6c 65 74 65 2d 72 65 67 | ".." de|lete-reg|
|00003080| 69 6f 6e 20 22 0c 22 20 | 6d 65 73 73 61 67 65 20 |ion "." |message |
|00003090| 22 49 6e 76 61 6c 69 64 | 20 42 61 62 79 6c 20 66 |"Invalid| Babyl f|
|000030a0| 6f 72 6d 61 74 20 69 6e | 20 69 6e 62 6f 78 21 22 |ormat in| inbox!"|
|000030b0| 20 73 69 74 2d 66 6f 72 | 20 31 20 73 6b 69 70 2d | sit-for| 1 skip-|
|000030c0| 63 68 61 72 73 2d 66 6f | 72 77 61 72 64 20 22 20 |chars-fo|rward " |
|000030d0| 09 0a 22 20 6e 61 72 72 | 6f 77 2d 74 6f 2d 72 65 |.." narr|ow-to-re|
|000030e0| 67 69 6f 6e 20 72 65 70 | 6c 61 63 65 2d 6d 61 74 |gion rep|lace-mat|
|000030f0| 63 68 20 22 0c 0a 30 2c | 20 75 6e 73 65 65 6e 2c |ch "..0,| unseen,|
|00003100| 2c 0a 2a 2a 2a 20 45 4f | 4f 48 20 2a 2a 2a 0a 22 |,.*** EO|OH ***."|
|00003110| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00003120| 72 64 20 22 1f 22 20 22 | 0a 5e 5f 22 20 22 5e 46 |rd "." "|.^_" "^F|
|00003130| 72 6f 6d 20 22 20 72 6d | 61 69 6c 2d 6e 75 6b 65 |rom " rm|ail-nuke|
|00003140| 2d 70 69 6e 68 65 61 64 | 2d 68 65 61 64 65 72 20 |-pinhead|-header |
|00003150| 22 0a 0a 22 20 66 6f 72 | 77 61 72 64 2d 63 68 61 |".." for|ward-cha|
|00003160| 72 20 2d 31 20 22 0a 63 | 6f 6e 74 65 6e 74 2d 6c |r -1 ".c|ontent-l|
|00003170| 65 6e 67 74 68 3a 20 22 | 20 65 6e 64 2d 6f 66 2d |ength: "| end-of-|
|00003180| 6c 69 6e 65 20 72 65 61 | 64 20 62 75 66 66 65 72 |line rea|d buffer|
|00003190| 2d 73 75 62 73 74 72 69 | 6e 67 20 63 6f 6e 63 61 |-substri|ng conca|
|000031a0| 74 20 22 5e 5b 1f 5d 3f | 5c 5c 28 22 20 22 46 72 |t "^[.]?|\\(" "Fr|
|000031b0| 6f 6d 20 5b 5e 20 0a 5d | 2a 5c 5c 28 5c 5c 7c 5c |om [^ .]|*\\(\\|\|
|000031c0| 22 2e 2a 5c 22 5b 5e 20 | 0a 5d 2a 5c 5c 29 20 20 |".*\"[^ |.]*\\)  |
|000031d0| 3f 5b 5e 20 0a 5d 2a 20 | 5b 5e 20 0a 5d 2a 20 2a |?[^ .]* |[^ .]* *|
|000031e0| 22 20 22 5b 30 2d 39 5d | 2a 20 5b 30 2d 39 3a 5d |" "[0-9]|* [0-9:]|
|000031f0| 2a 5c 5c 28 20 3f 5b 41 | 2d 5a 5d 3f 5b 41 2d 5a |*\\( ?[A|-Z]?[A-Z|
|00003200| 5d 5b 41 2d 5a 5d 54 5c | 5c 7c 20 3f 5b 2d 2b 5d |][A-Z]T\|\| ?[-+]|
|00003210| 3f 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5b 30 2d 39 5d |?[0-9][0|-9][0-9]|
|00003220| 5b 30 2d 39 5d 5c 5c 7c | 5c 5c 29 20 22 20 22 31 |[0-9]\\||\\) " "1|
|00003230| 39 5b 30 2d 39 5d 2a 20 | 2a 5c 5c 28 72 65 6d 6f |9[0-9]* |*\\(remo|
|00003240| 74 65 20 66 72 6f 6d 20 | 2e 2a 5c 5c 29 3f 24 5c |te from |.*\\)?$\|
|00003250| 5c 7c 22 20 22 5c 5c 7c | 22 20 22 5e 42 41 42 59 |\|" "\\||" "^BABY|
|00003260| 4c 20 4f 50 54 49 4f 4e | 53 3a 5c 5c 7c 22 20 22 |L OPTION|S:\\|" "|
|00003270| 0c 0a 5b 30 31 5d 2c 5c | 5c 29 22 20 6d 61 74 63 |..[01],\|\)" matc|
|00003280| 68 2d 62 65 67 69 6e 6e | 69 6e 67 20 33 31 20 64 |h-beginn|ing 31 d|
|00003290| 65 6c 65 74 65 2d 63 68 | 61 72 5d 20 33 37 29 29 |elete-ch|ar] 37))|
|000032a0| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 6e |..(defun| rmail-n|
|000032b0| 75 6b 65 2d 70 69 6e 68 | 65 61 64 2d 68 65 61 64 |uke-pinh|ead-head|
|000032c0| 65 72 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |er nil (|byte-cod|
|000032d0| 65 20 22 8a 8c 60 c6 c7 | c8 8f 88 60 c6 c6 1b 1a |e "..`..|...`....|
|000032e0| 19 18 c9 08 09 5c 22 88 | c5 1c 08 62 88 ca cb c6 |.....\".|...b....|
|000032f0| c5 23 89 12 88 08 62 88 | ca cc c6 c5 23 85 2d 00 |.#....b.|....#.-.|
|00003300| 60 89 13 88 08 62 29 88 | c6 1c cd ce c6 c5 23 85 |`....b).|......#.|
|00003310| 61 00 cf 0b 83 47 00 d0 | 82 56 00 d1 d2 21 d3 d2 |a....G..|.V...!..|
|00003320| 21 55 83 55 00 d4 82 56 | 00 d5 0a 83 5e 00 d0 82 |!U.U...V|....^...|
|00003330| 5f 00 d6 50 21 29 2c 29 | 29 87 22 20 5b 73 74 61 |_..P!),)|)." [sta|
|00003340| 72 74 20 65 6e 64 20 68 | 61 73 2d 66 72 6f 6d 20 |rt end h|as-from |
|00003350| 68 61 73 2d 64 61 74 65 | 20 63 61 73 65 2d 66 6f |has-date| case-fo|
|00003360| 6c 64 2d 73 65 61 72 63 | 68 20 74 20 6e 69 6c 20 |ld-searc|h t nil |
|00003370| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 87 |(byte-co|de "..!.|
|00003380| 22 20 5b 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |" [searc|h-forwar|
|00003390| 64 20 22 0a 0a 22 5d 20 | 32 29 20 28 28 65 72 72 |d ".."] |2) ((err|
|000033a0| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 64 |or (byte|-code "d|
|000033b0| 62 88 c0 63 87 22 20 5b | 22 0a 0a 22 5d 20 31 29 |b..c." [|".."] 1)|
|000033c0| 29 29 20 6e 61 72 72 6f | 77 2d 74 6f 2d 72 65 67 |)) narro|w-to-reg|
|000033d0| 69 6f 6e 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |ion sear|ch-forwa|
|000033e0| 72 64 20 22 0a 46 72 6f | 6d 3a 22 20 22 0a 44 61 |rd ".Fro|m:" ".Da|
|000033f0| 74 65 3a 22 20 72 65 2d | 73 65 61 72 63 68 2d 66 |te:" re-|search-f|
|00003400| 6f 72 77 61 72 64 20 22 | 5e 46 72 6f 6d 20 5c 5c |orward "|^From \\|
|00003410| 28 5b 5e 20 5d 2a 5c 5c | 28 5c 5c 7c 5c 22 2e 2a |([^ ]*\\|(\\|\".*|
|00003420| 5c 22 5b 5e 20 5d 2a 5c | 5c 29 5c 5c 29 20 20 3f |\"[^ ]*\|\)\\)  ?|
|00003430| 5c 5c 28 5b 5e 20 5d 2a | 5c 5c 29 20 5c 5c 28 5b |\\([^ ]*|\\) \\([|
|00003440| 5e 20 5d 2a 5c 5c 29 20 | 2a 5c 5c 28 5b 30 2d 39 |^ ]*\\) |*\\([0-9|
|00003450| 5d 2a 5c 5c 29 20 5c 5c | 28 5b 30 2d 39 3a 5d 2a |]*\\) \\|([0-9:]*|
|00003460| 5c 5c 29 5c 5c 28 20 3f | 5b 41 2d 5a 5d 3f 5b 41 |\\)\\( ?|[A-Z]?[A|
|00003470| 2d 5a 5d 5b 41 2d 5a 5d | 54 5c 5c 7c 20 3f 5b 2d |-Z][A-Z]|T\\| ?[-|
|00003480| 2b 5d 3f 5b 30 2d 39 5d | 5b 30 2d 39 5d 5b 30 2d |+]?[0-9]|[0-9][0-|
|00003490| 39 5d 5b 30 2d 39 5d 5c | 5c 7c 5c 5c 29 20 31 39 |9][0-9]\|\|\\) 19|
|000034a0| 5c 5c 28 5b 30 2d 39 5d | 2a 5c 5c 29 20 2a 5c 5c |\\([0-9]|*\\) *\\|
|000034b0| 28 72 65 6d 6f 74 65 20 | 66 72 6f 6d 20 5b 5e 0a |(remote |from [^.|
|000034c0| 5d 2a 5c 5c 29 3f 0a 22 | 20 72 65 70 6c 61 63 65 |]*\\)?."| replace|
|000034d0| 2d 6d 61 74 63 68 20 22 | 22 20 6d 61 74 63 68 2d |-match "|" match-|
|000034e0| 62 65 67 69 6e 6e 69 6e | 67 20 37 20 6d 61 74 63 |beginnin|g 7 matc|
|000034f0| 68 2d 65 6e 64 20 22 44 | 61 74 65 3a 20 5c 5c 33 |h-end "D|ate: \\3|
|00003500| 2c 20 5c 5c 35 20 5c 5c | 34 20 5c 5c 38 20 5c 5c |, \\5 \\|4 \\8 \\|
|00003510| 36 20 45 53 54 0a 22 20 | 22 44 61 74 65 3a 20 5c |6 EST." |"Date: \|
|00003520| 5c 33 2c 20 5c 5c 35 20 | 5c 5c 34 20 5c 5c 38 20 |\3, \\5 |\\4 \\8 |
|00003530| 5c 5c 36 5c 5c 37 0a 22 | 20 22 46 72 6f 6d 3a 20 |\\6\\7."| "From: |
|00003540| 5c 5c 31 0a 22 5d 20 39 | 29 29 0a 0a 28 64 65 66 |\\1."] 9|))..(def|
|00003550| 75 6e 20 72 6d 61 69 6c | 2d 72 65 66 6f 72 6d 61 |un rmail|-reforma|
|00003560| 74 2d 6d 65 73 73 61 67 | 65 20 28 62 65 67 20 65 |t-messag|e (beg e|
|00003570| 6e 64 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nd) (byt|e-code "|
|00003580| 08 62 88 c8 c9 21 88 ca | 67 cb 5c 22 85 11 00 cc |.b...!..|g.\"....|
|00003590| cd 21 88 c2 ce 20 0c 5a | 1b 19 cf c9 21 88 d0 63 |.!... .Z|....!..c|
|000035a0| 88 c8 c9 21 88 d1 d2 21 | 85 2d 00 c8 c9 21 88 d1 |...!...!|.-...!..|
|000035b0| d3 21 85 3c 00 d4 60 c8 | c9 21 88 60 5c 22 88 d5 |.!.<..`.|.!.`\"..|
|000035c0| 60 8a d6 d7 0c d8 23 88 | 60 29 5c 22 1d d9 0d da |`.....#.|`)\"....|
|000035d0| 5c 22 88 db 60 ce 20 0b | 5a 5c 22 29 88 65 62 88 |\"..`. .|Z\").eb.|
|000035e0| 0e 06 85 62 00 dc 20 88 | 0e 07 85 6c 00 dd 0e 07 |...b.. .|...l....|
|000035f0| 21 2a 87 22 20 5b 62 65 | 67 20 62 75 66 66 65 72 |!*." [be|g buffer|
|00003600| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 69 6c 20 64 |-read-on|ly nil d|
|00003610| 65 6c 74 61 20 65 6e 64 | 20 73 74 72 20 72 6d 61 |elta end| str rma|
|00003620| 69 6c 2d 69 67 6e 6f 72 | 65 64 2d 68 65 61 64 65 |il-ignor|ed-heade|
|00003630| 72 73 20 72 6d 61 69 6c | 2d 6d 65 73 73 61 67 65 |rs rmail|-message|
|00003640| 2d 66 69 6c 74 65 72 20 | 66 6f 72 77 61 72 64 2d |-filter |forward-|
|00003650| 6c 69 6e 65 20 31 20 2f | 3d 20 34 38 20 65 72 72 |line 1 /|= 48 err|
|00003660| 6f 72 20 22 42 61 64 20 | 66 6f 72 6d 61 74 20 69 |or "Bad |format i|
|00003670| 6e 20 52 4d 41 49 4c 20 | 66 69 6c 65 2e 22 20 62 |n RMAIL |file." b|
|00003680| 75 66 66 65 72 2d 73 69 | 7a 65 20 64 65 6c 65 74 |uffer-si|ze delet|
|00003690| 65 2d 63 68 61 72 20 34 | 39 20 6c 6f 6f 6b 69 6e |e-char 4|9 lookin|
|000036a0| 67 2d 61 74 20 22 53 75 | 6d 6d 61 72 79 2d 6c 69 |g-at "Su|mmary-li|
|000036b0| 6e 65 3a 20 22 20 22 5c | 5c 2a 5c 5c 2a 5c 5c 2a |ne: " "\|\*\\*\\*|
|000036c0| 20 45 4f 4f 48 20 5c 5c | 2a 5c 5c 2a 5c 5c 2a 0a | EOOH \\|*\\*\\*.|
|000036d0| 22 20 64 65 6c 65 74 65 | 2d 72 65 67 69 6f 6e 20 |" delete|-region |
|000036e0| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|000036f0| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00003700| 22 0a 0a 22 20 6d 6f 76 | 65 20 69 6e 73 65 72 74 |".." mov|e insert|
|00003710| 20 22 2a 2a 2a 20 45 4f | 4f 48 20 2a 2a 2a 0a 22 | "*** EO|OH ***."|
|00003720| 20 6e 61 72 72 6f 77 2d | 74 6f 2d 72 65 67 69 6f | narrow-|to-regio|
|00003730| 6e 20 72 6d 61 69 6c 2d | 63 6c 65 61 72 2d 68 65 |n rmail-|clear-he|
|00003740| 61 64 65 72 73 20 66 75 | 6e 63 61 6c 6c 5d 20 31 |aders fu|ncall] 1|
|00003750| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |9))..(de|fun rmai|
|00003760| 6c 2d 63 6c 65 61 72 2d | 68 65 61 64 65 72 73 20 |l-clear-|headers |
|00003770| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00003780| c5 c6 c0 c1 23 85 33 00 | 8c c7 65 60 5c 22 88 c0 |....#.3.|..e`\"..|
|00003790| 1a c1 1b 65 62 88 c8 0c | c0 c1 23 29 85 31 00 c9 |...eb...|..#).1..|
|000037a0| 20 88 ca 60 c8 cb 21 88 | cc cd 21 88 60 5c 22 88 | ..`..!.|..!.`\".|
|000037b0| 82 10 00 29 29 87 22 20 | 5b 6e 69 6c 20 74 20 62 |...))." |[nil t b|
|000037c0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000037d0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|000037e0| 20 72 6d 61 69 6c 2d 69 | 67 6e 6f 72 65 64 2d 68 | rmail-i|gnored-h|
|000037f0| 65 61 64 65 72 73 20 73 | 65 61 72 63 68 2d 66 6f |eaders s|earch-fo|
|00003800| 72 77 61 72 64 20 22 0a | 0a 22 20 6e 61 72 72 6f |rward ".|." narro|
|00003810| 77 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 72 65 2d 73 |w-to-reg|ion re-s|
|00003820| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 62 65 |earch-fo|rward be|
|00003830| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00003840| 64 65 6c 65 74 65 2d 72 | 65 67 69 6f 6e 20 22 0a |delete-r|egion ".|
|00003850| 5b 5e 20 09 5d 22 20 66 | 6f 72 77 61 72 64 2d 63 |[^ .]" f|orward-c|
|00003860| 68 61 72 20 2d 31 5d 20 | 31 30 29 29 0a 0a 28 64 |har -1] |10))..(d|
|00003870| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 74 6f 67 67 6c |efun rma|il-toggl|
|00003880| 65 2d 68 65 61 64 65 72 | 20 6e 69 6c 20 22 5c 0a |e-header| nil "\.|
|00003890| 53 68 6f 77 20 6f 72 69 | 67 69 6e 61 6c 20 6d 65 |Show ori|ginal me|
|000038a0| 73 73 61 67 65 20 68 65 | 61 64 65 72 20 69 66 20 |ssage he|ader if |
|000038b0| 70 72 75 6e 65 64 20 68 | 65 61 64 65 72 20 63 75 |pruned h|eader cu|
|000038c0| 72 72 65 6e 74 6c 79 20 | 73 68 6f 77 6e 2c 20 6f |rrently |shown, o|
|000038d0| 72 20 76 69 63 65 20 76 | 65 72 73 61 2e 22 20 28 |r vice v|ersa." (|
|000038e0| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|000038f0| 74 65 2d 63 6f 64 65 20 | 22 c2 88 c5 20 88 c6 c7 |te-code |"... ...|
|00003900| 08 21 64 5c 22 88 c2 19 | 65 62 88 c8 c9 21 88 67 |.!d\"...|eb...!.g|
|00003910| ca 55 83 5d 00 cb c9 21 | 88 cc 63 88 c8 c9 21 88 |.U.]...!|..c...!.|
|00003920| cd ce 21 85 2f 00 c8 c9 | 21 88 cf 63 88 d0 d1 21 |..!./...|!..c...!|
|00003930| 88 d2 d3 21 88 c8 d1 21 | 88 60 1b d2 d4 c2 c4 23 |...!...!|.`.....#|
|00003940| 85 4d 00 d5 0b 60 5c 22 | 29 88 65 62 88 d2 d3 21 |.M...`\"|).eb...!|
|00003950| 88 c6 60 64 5c 22 82 61 | 00 d6 65 64 5c 22 29 87 |..`d\".a|..ed\").|
|00003960| 22 20 5b 72 6d 61 69 6c | 2d 63 75 72 72 65 6e 74 |" [rmail|-current|
|00003970| 2d 6d 65 73 73 61 67 65 | 20 62 75 66 66 65 72 2d |-message| buffer-|
|00003980| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 74 65 |read-onl|y nil te|
|00003990| 6d 70 20 74 20 72 6d 61 | 69 6c 2d 6d 61 79 62 65 |mp t rma|il-maybe|
|000039a0| 2d 73 65 74 2d 6d 65 73 | 73 61 67 65 2d 63 6f 75 |-set-mes|sage-cou|
|000039b0| 6e 74 65 72 73 20 6e 61 | 72 72 6f 77 2d 74 6f 2d |nters na|rrow-to-|
|000039c0| 72 65 67 69 6f 6e 20 72 | 6d 61 69 6c 2d 6d 73 67 |region r|mail-msg|
|000039d0| 62 65 67 20 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |beg forw|ard-line|
|000039e0| 20 31 20 34 39 20 64 65 | 6c 65 74 65 2d 63 68 61 | 1 49 de|lete-cha|
|000039f0| 72 20 34 38 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |r 48 loo|king-at |
|00003a00| 22 53 75 6d 6d 61 72 79 | 2d 4c 69 6e 65 3a 22 20 |"Summary|-Line:" |
|00003a10| 22 2a 2a 2a 20 45 4f 4f | 48 20 2a 2a 2a 0a 22 20 |"*** EOO|H ***." |
|00003a20| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 2d 31 20 |forward-|char -1 |
|00003a30| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00003a40| 0a 2a 2a 2a 20 45 4f 4f | 48 20 2a 2a 2a 0a 22 20 |.*** EOO|H ***." |
|00003a50| 22 0a 0a 22 20 64 65 6c | 65 74 65 2d 72 65 67 69 |".." del|ete-regi|
|00003a60| 6f 6e 20 72 6d 61 69 6c | 2d 72 65 66 6f 72 6d 61 |on rmail|-reforma|
|00003a70| 74 2d 6d 65 73 73 61 67 | 65 5d 20 31 38 29 29 0a |t-messag|e] 18)).|
|00003a80| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 64 69 |.(defun |rmail-di|
|00003a90| 73 70 6c 61 79 2d 6c 61 | 62 65 6c 73 20 6e 69 6c |splay-la|bels nil|
|00003aa0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c9 ca 20 | (byte-c|ode ".. |
|00003ab0| cb 20 1a 19 18 8a cc 8e | cd 20 88 ce 0b 21 62 88 |. ......|. ...!b.|
|00003ac0| cf d0 21 88 d1 d2 21 85 | 73 00 d3 60 d4 20 88 60 |..!...!.|s..`. .`|
|00003ad0| 5c 22 88 c5 1c 65 62 88 | d5 d6 c5 c6 23 85 42 00 |\"...eb.|....#.B.|
|00003ae0| d1 d7 21 86 3e 00 6d 86 | 3e 00 d8 63 88 82 2a 00 |..!.>.m.|>..c..*.|
|00003af0| 29 88 64 62 88 d9 da c5 | db 23 85 73 00 60 65 54 |).db....|.#.s.`eT|
|00003b00| 56 85 5e 00 dc d0 65 5c | 5c 60 5c 22 89 10 88 64 |V.^...e\|\`\"...d|
|00003b10| 60 5a dd 56 85 73 00 08 | de dc 60 df 5c 5c 64 53 |`Z.V.s..|..`.\\dS|
|00003b20| 5c 22 51 89 10 29 29 88 | e0 e1 08 5c 22 85 91 00 |\"Q..)).|...\"...|
|00003b30| 08 e2 e3 e2 21 4f d6 08 | e4 e2 21 c5 4f 51 89 10 |....!O..|..!.OQ..|
|00003b40| 88 82 76 00 88 e0 e5 08 | 5c 22 85 ad 00 08 e2 e3 |..v.....|\"......|
|00003b50| e2 21 4f d6 08 e4 e2 21 | c5 4f 51 89 10 88 82 92 |.!O....!|.OQ.....|
|00003b60| 00 88 e6 d8 0b e7 0e 08 | 08 25 89 16 07 2b 87 22 |........|.%...+."|
|00003b70| 20 5b 62 6c 75 72 62 20 | 62 65 67 20 65 6e 64 20 | [blurb |beg end |
|00003b80| 72 6d 61 69 6c 2d 63 75 | 72 72 65 6e 74 2d 6d 65 |rmail-cu|rrent-me|
|00003b90| 73 73 61 67 65 20 62 75 | 66 66 65 72 2d 72 65 61 |ssage bu|ffer-rea|
|00003ba0| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 74 20 6d 6f 64 |d-only n|il t mod|
|00003bb0| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 20 72 |e-line-p|rocess r|
|00003bc0| 6d 61 69 6c 2d 74 6f 74 | 61 6c 2d 6d 65 73 73 61 |mail-tot|al-messa|
|00003bd0| 67 65 73 20 22 22 20 70 | 6f 69 6e 74 2d 6d 69 6e |ges "" p|oint-min|
|00003be0| 2d 6d 61 72 6b 65 72 20 | 70 6f 69 6e 74 2d 6d 61 |-marker |point-ma|
|00003bf0| 78 2d 6d 61 72 6b 65 72 | 20 28 28 62 79 74 65 2d |x-marker| ((byte-|
|00003c00| 63 6f 64 65 20 22 c3 08 | 09 5c 22 88 c4 08 c2 5c |code "..|.\"....\|
|00003c10| 22 88 c4 09 c2 5c 22 87 | 22 20 5b 62 65 67 20 65 |"....\".|" [beg e|
|00003c20| 6e 64 20 6e 69 6c 20 6e | 61 72 72 6f 77 2d 74 6f |nd nil n|arrow-to|
|00003c30| 2d 72 65 67 69 6f 6e 20 | 73 65 74 2d 6d 61 72 6b |-region |set-mark|
|00003c40| 65 72 5d 20 35 29 29 20 | 77 69 64 65 6e 20 72 6d |er] 5)) |widen rm|
|00003c50| 61 69 6c 2d 6d 73 67 62 | 65 67 20 66 6f 72 77 61 |ail-msgb|eg forwa|
|00003c60| 72 64 2d 6c 69 6e 65 20 | 31 20 6c 6f 6f 6b 69 6e |rd-line |1 lookin|
|00003c70| 67 2d 61 74 20 22 5b 30 | 31 5d 2c 22 20 6e 61 72 |g-at "[0|1]," nar|
|00003c80| 72 6f 77 2d 74 6f 2d 72 | 65 67 69 6f 6e 20 65 6e |row-to-r|egion en|
|00003c90| 64 2d 6f 66 2d 6c 69 6e | 65 20 73 65 61 72 63 68 |d-of-lin|e search|
|00003ca0| 2d 66 6f 72 77 61 72 64 | 20 22 2c 22 20 22 5b 20 |-forward| "," "[ |
|00003cb0| 2c 5d 22 20 22 20 22 20 | 73 65 61 72 63 68 2d 62 |,]" " " |search-b|
|00003cc0| 61 63 6b 77 61 72 64 20 | 22 2c 2c 22 20 6d 6f 76 |ackward |",," mov|
|00003cd0| 65 20 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |e buffer|-substri|
|00003ce0| 6e 67 20 32 20 22 3b 22 | 20 33 20 73 74 72 69 6e |ng 2 ";"| 3 strin|
|00003cf0| 67 2d 6d 61 74 63 68 20 | 22 20 2b 2c 22 20 30 20 |g-match |" +," 0 |
|00003d00| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00003d10| 6d 61 74 63 68 2d 65 6e | 64 20 22 2c 20 2b 22 20 |match-en|d ", +" |
|00003d20| 63 6f 6e 63 61 74 20 22 | 2f 22 5d 20 32 35 29 29 |concat "|/"] 25))|
|00003d30| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 73 |..(defun| rmail-s|
|00003d40| 65 74 2d 61 74 74 72 69 | 62 75 74 65 20 28 61 74 |et-attri|bute (at|
|00003d50| 74 72 20 73 74 61 74 65 | 29 20 28 62 79 74 65 2d |tr state|) (byte-|
|00003d60| 63 6f 64 65 20 22 c9 20 | 64 5a c9 20 65 5a c3 1a |code ". |dZ. eZ..|
|00003d70| 19 18 ca 8e 8a cb 20 88 | cc cd 0c 21 5c 5c 62 88 |...... .|...!\\b.|
|00003d80| ce cf 0e 06 d0 51 60 d1 | 20 88 c7 23 1d 0d 0e 08 |.....Q`.| ..#....|
|00003d90| 3f 3f 3d 86 4a 00 0d 83 | 3d 00 d2 60 d3 d4 21 53 |??=.J...|=..`..!S|
|00003da0| 5c 22 82 4a 00 d5 20 88 | d6 d7 21 88 d8 d9 0e 06 |\".J.. .|..!.....|
|00003db0| d0 23 29 88 da 0e 06 db | 5c 22 85 59 00 dc 0c 0e |.#).....|\".Y....|
|00003dc0| 08 5c 22 29 29 2b 87 22 | 20 5b 6f 6d 61 78 20 6f |.\"))+."| [omax o|
|00003dd0| 6d 69 6e 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |min buff|er-read-|
|00003de0| 6f 6e 6c 79 20 6e 69 6c | 20 72 6d 61 69 6c 2d 63 |only nil| rmail-c|
|00003df0| 75 72 72 65 6e 74 2d 6d | 65 73 73 61 67 65 20 63 |urrent-m|essage c|
|00003e00| 75 72 73 74 61 74 65 20 | 61 74 74 72 20 74 20 73 |urstate |attr t s|
|00003e10| 74 61 74 65 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |tate buf|fer-size|
|00003e20| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 c3 | ((byte-|code "..|
|00003e30| c4 20 08 5a 5d c4 20 09 | 5a 5c 22 88 c5 20 87 22 |. .Z]. .|Z\".. ."|
|00003e40| 20 5b 6f 6d 69 6e 20 6f | 6d 61 78 20 6e 61 72 72 | [omin o|max narr|
|00003e50| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 20 31 20 62 |ow-to-re|gion 1 b|
|00003e60| 75 66 66 65 72 2d 73 69 | 7a 65 20 72 6d 61 69 6c |uffer-si|ze rmail|
|00003e70| 2d 64 69 73 70 6c 61 79 | 2d 6c 61 62 65 6c 73 5d |-display|-labels]|
|00003e80| 20 36 29 29 20 77 69 64 | 65 6e 20 33 20 72 6d 61 | 6)) wid|en 3 rma|
|00003e90| 69 6c 2d 6d 73 67 62 65 | 67 20 73 65 61 72 63 68 |il-msgbe|g search|
|00003ea0| 2d 62 61 63 6b 77 61 72 | 64 20 22 2c 20 22 20 22 |-backwar|d ", " "|
|00003eb0| 2c 22 20 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 64 |," end-o|f-line d|
|00003ec0| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 6d 61 74 |elete-re|gion mat|
|00003ed0| 63 68 2d 65 6e 64 20 30 | 20 62 65 67 69 6e 6e 69 |ch-end 0| beginni|
|00003ee0| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 66 6f 72 77 61 |ng-of-li|ne forwa|
|00003ef0| 72 64 2d 63 68 61 72 20 | 32 20 69 6e 73 65 72 74 |rd-char |2 insert|
|00003f00| 20 22 20 22 20 73 74 72 | 69 6e 67 3d 20 22 64 65 | " " str|ing= "de|
|00003f10| 6c 65 74 65 64 22 20 72 | 6d 61 69 6c 2d 73 65 74 |leted" r|mail-set|
|00003f20| 2d 6d 65 73 73 61 67 65 | 2d 64 65 6c 65 74 65 64 |-message|-deleted|
|00003f30| 2d 70 5d 20 31 35 29 29 | 0a 0a 28 64 65 66 75 6e |-p] 15))|..(defun|
|00003f40| 20 72 6d 61 69 6c 2d 6d | 65 73 73 61 67 65 2d 6c | rmail-m|essage-l|
|00003f50| 61 62 65 6c 73 2d 70 20 | 28 6d 73 67 20 6c 61 62 |abels-p |(msg lab|
|00003f60| 65 6c 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |els) (by|te-code |
|00003f70| 22 c3 08 21 62 88 c4 c5 | 21 88 c6 09 60 c7 20 88 |"..!b...|!...`. .|
|00003f80| c2 23 87 22 20 5b 6d 73 | 67 20 6c 61 62 65 6c 73 |.#." [ms|g labels|
|00003f90| 20 74 20 72 6d 61 69 6c | 2d 6d 73 67 62 65 67 20 | t rmail|-msgbeg |
|00003fa0| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 33 20 72 |forward-|char 3 r|
|00003fb0| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00003fc0| 64 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 5d 20 37 |d end-of|-line] 7|
|00003fd0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|00003fe0| 2d 6d 73 67 65 6e 64 20 | 28 6e 29 20 28 62 79 74 |-msgend |(n) (byt|
|00003ff0| 65 2d 63 6f 64 65 20 22 | c2 08 09 54 48 21 87 22 |e-code "|...TH!."|
|00004000| 20 5b 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d | [rmail-|message-|
|00004010| 76 65 63 74 6f 72 20 6e | 20 6d 61 72 6b 65 72 2d |vector n| marker-|
|00004020| 70 6f 73 69 74 69 6f 6e | 5d 20 33 29 29 0a 0a 28 |position|] 3))..(|
|00004030| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 6d 73 67 62 |defun rm|ail-msgb|
|00004040| 65 67 20 28 6e 29 20 28 | 62 79 74 65 2d 63 6f 64 |eg (n) (|byte-cod|
|00004050| 65 20 22 c2 08 09 48 21 | 87 22 20 5b 72 6d 61 69 |e "...H!|." [rmai|
|00004060| 6c 2d 6d 65 73 73 61 67 | 65 2d 76 65 63 74 6f 72 |l-messag|e-vector|
|00004070| 20 6e 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 | n marke|r-positi|
|00004080| 6f 6e 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |on] 3)).|.(defun |
|00004090| 72 6d 61 69 6c 2d 77 69 | 64 65 6e 2d 74 6f 2d 63 |rmail-wi|den-to-c|
|000040a0| 75 72 72 65 6e 74 2d 6d | 73 67 62 65 67 20 28 66 |urrent-m|sgbeg (f|
|000040b0| 75 6e 63 74 69 6f 6e 29 | 20 22 5c 0a 43 61 6c 6c |unction)| "\.Call|
|000040c0| 20 46 55 4e 43 54 49 4f | 4e 20 77 69 74 68 20 70 | FUNCTIO|N with p|
|000040d0| 6f 69 6e 74 20 61 74 20 | 73 74 61 72 74 20 6f 66 |oint at |start of|
|000040e0| 20 69 6e 74 65 72 6e 61 | 6c 20 64 61 74 61 20 6f | interna|l data o|
|000040f0| 66 20 63 75 72 72 65 6e | 74 20 6d 65 73 73 61 67 |f curren|t messag|
|00004100| 65 2e 0a 41 73 73 75 6d | 65 73 20 74 68 61 74 20 |e..Assum|es that |
|00004110| 62 6f 75 6e 64 73 20 77 | 65 72 65 20 70 72 65 76 |bounds w|ere prev|
|00004120| 69 6f 75 73 6c 79 20 6e | 61 72 72 6f 77 65 64 20 |iously n|arrowed |
|00004130| 74 6f 20 64 69 73 70 6c | 61 79 20 74 68 65 20 6d |to displ|ay the m|
|00004140| 65 73 73 61 67 65 20 69 | 6e 20 52 6d 61 69 6c 2e |essage i|n Rmail.|
|00004150| 0a 54 68 65 20 62 6f 75 | 6e 64 73 20 61 72 65 20 |.The bou|nds are |
|00004160| 77 69 64 65 6e 65 64 20 | 65 6e 6f 75 67 68 20 74 |widened |enough t|
|00004170| 6f 20 6d 6f 76 65 20 70 | 6f 69 6e 74 20 77 68 65 |o move p|oint whe|
|00004180| 72 65 20 64 65 73 69 72 | 65 64 2c 0a 74 68 65 6e |re desir|ed,.then|
|00004190| 20 6e 61 72 72 6f 77 65 | 64 20 61 67 61 69 6e 20 | narrowe|d again |
|000041a0| 61 66 74 65 72 77 61 72 | 64 2e 0a 41 73 73 75 6d |afterwar|d..Assum|
|000041b0| 65 73 20 74 68 61 74 20 | 74 68 65 20 76 69 73 69 |es that |the visi|
|000041c0| 62 6c 65 20 74 65 78 74 | 20 6f 66 20 74 68 65 20 |ble text| of the |
|000041d0| 6d 65 73 73 61 67 65 20 | 69 73 20 6e 6f 74 20 63 |message |is not c|
|000041e0| 68 61 6e 67 65 64 20 62 | 79 20 46 55 4e 43 54 49 |hanged b|y FUNCTI|
|000041f0| 4f 4e 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ON." (by|te-code |
|00004200| 22 8a 64 65 5a c4 c5 0a | 21 64 5c 22 88 65 62 88 |".deZ...|!d\".eb.|
|00004210| c6 0b 21 19 18 c7 2a 29 | 87 22 20 5b 6f 62 65 67 |..!...*)|." [obeg|
|00004220| 20 75 6e 77 69 6e 64 2d | 70 72 6f 74 65 63 74 20 | unwind-|protect |
|00004230| 72 6d 61 69 6c 2d 63 75 | 72 72 65 6e 74 2d 6d 65 |rmail-cu|rrent-me|
|00004240| 73 73 61 67 65 20 66 75 | 6e 63 74 69 6f 6e 20 6e |ssage fu|nction n|
|00004250| 61 72 72 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |arrow-to|-region |
|00004260| 72 6d 61 69 6c 2d 6d 73 | 67 62 65 67 20 66 75 6e |rmail-ms|gbeg fun|
|00004270| 63 61 6c 6c 20 6e 69 6c | 5d 20 35 29 29 0a 0a 28 |call nil|] 5))..(|
|00004280| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 66 6f 72 67 |defun rm|ail-forg|
|00004290| 65 74 2d 6d 65 73 73 61 | 67 65 73 20 6e 69 6c 20 |et-messa|ges nil |
|000042a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c6 8e c7 08 |(byte-co|de "....|
|000042b0| 21 85 25 00 c8 19 08 1a | 0a 47 1b 09 0b 57 85 24 |!.%.....|.G...W.$|
|000042c0| 00 c9 0a 09 48 c4 5c 22 | 88 09 54 89 11 88 82 0f |....H.\"|..T.....|
|000042d0| 00 2b 29 87 22 20 5b 72 | 6d 61 69 6c 2d 6d 65 73 |.+)." [r|mail-mes|
|000042e0| 73 61 67 65 2d 76 65 63 | 74 6f 72 20 69 20 76 20 |sage-vec|tor i v |
|000042f0| 6e 20 6e 69 6c 20 72 6d | 61 69 6c 2d 64 65 6c 65 |n nil rm|ail-dele|
|00004300| 74 65 64 2d 76 65 63 74 | 6f 72 20 28 28 62 79 74 |ted-vect|or ((byt|
|00004310| 65 2d 63 6f 64 65 20 22 | c1 89 10 88 c1 89 12 87 |e-code "|........|
|00004320| 22 20 5b 72 6d 61 69 6c | 2d 6d 65 73 73 61 67 65 |" [rmail|-message|
|00004330| 2d 76 65 63 74 6f 72 20 | 6e 69 6c 20 72 6d 61 69 |-vector |nil rmai|
|00004340| 6c 2d 64 65 6c 65 74 65 | 64 2d 76 65 63 74 6f 72 |l-delete|d-vector|
|00004350| 5d 20 32 29 29 20 76 65 | 63 74 6f 72 70 20 30 20 |] 2)) ve|ctorp 0 |
|00004360| 6d 6f 76 65 2d 6d 61 72 | 6b 65 72 5d 20 35 29 29 |move-mar|ker] 5))|
|00004370| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 6d |..(defun| rmail-m|
|00004380| 61 79 62 65 2d 73 65 74 | 2d 6d 65 73 73 61 67 65 |aybe-set|-message|
|00004390| 2d 63 6f 75 6e 74 65 72 | 73 20 6e 69 6c 20 28 62 |-counter|s nil (b|
|000043a0| 79 74 65 2d 63 6f 64 65 | 20 22 08 85 0d 00 09 85 |yte-code| "......|
|000043b0| 0d 00 0a 85 0d 00 0b 3f | 85 13 00 c4 20 87 22 20 |.......?|.... ." |
|000043c0| 5b 72 6d 61 69 6c 2d 64 | 65 6c 65 74 65 64 2d 76 |[rmail-d|eleted-v|
|000043d0| 65 63 74 6f 72 20 72 6d | 61 69 6c 2d 6d 65 73 73 |ector rm|ail-mess|
|000043e0| 61 67 65 2d 76 65 63 74 | 6f 72 20 72 6d 61 69 6c |age-vect|or rmail|
|000043f0| 2d 63 75 72 72 65 6e 74 | 2d 6d 65 73 73 61 67 65 |-current|-message|
|00004400| 20 72 6d 61 69 6c 2d 74 | 6f 74 61 6c 2d 6d 65 73 | rmail-t|otal-mes|
|00004410| 73 61 67 65 73 20 72 6d | 61 69 6c 2d 73 65 74 2d |sages rm|ail-set-|
|00004420| 6d 65 73 73 61 67 65 2d | 63 6f 75 6e 74 65 72 73 |message-|counters|
|00004430| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 6d |] 2))..(|defun rm|
|00004440| 61 69 6c 2d 63 6f 75 6e | 74 2d 6e 65 77 2d 6d 65 |ail-coun|t-new-me|
|00004450| 73 73 61 67 65 73 20 28 | 26 6f 70 74 69 6f 6e 61 |ssages (|&optiona|
|00004460| 6c 20 6e 6f 6d 73 67 29 | 20 28 62 79 74 65 2d 63 |l nomsg)| (byte-c|
|00004470| 6f 64 65 20 22 c1 18 cb | 1a c1 1b c1 1c 0d 86 0f |ode "...|........|
|00004480| 00 cc cd 21 88 64 62 88 | ce cf 21 88 d0 20 43 89 |...!.db.|..!.. C.|
|00004490| 13 88 d1 65 21 88 0e 07 | 54 89 16 06 88 0e 07 0a |...e!...|T.......|
|000044a0| 5c 5c 89 16 07 88 d2 0e | 08 0b 41 5c 22 89 16 08 |\\......|..A\"...|
|000044b0| 88 0e 08 0e 06 0b 40 49 | 88 0e 09 0c 50 89 16 09 |......@I|....P...|
|000044c0| 88 d2 0e 0a d3 0a c1 5c | 22 5c 22 89 16 0a 88 65 |.......\|"\"....e|
|000044d0| 62 88 0d 86 61 00 cc d4 | 0a 5c 22 2c 87 22 20 5b |b...a...|.\",." [|
|000044e0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|000044f0| 20 6e 69 6c 20 74 6f 74 | 61 6c 2d 6d 65 73 73 61 | nil tot|al-messa|
|00004500| 67 65 73 20 6d 65 73 73 | 61 67 65 73 2d 68 65 61 |ges mess|ages-hea|
|00004510| 64 20 64 65 6c 65 74 65 | 64 2d 68 65 61 64 20 6e |d delete|d-head n|
|00004520| 6f 6d 73 67 20 72 6d 61 | 69 6c 2d 63 75 72 72 65 |omsg rma|il-curre|
|00004530| 6e 74 2d 6d 65 73 73 61 | 67 65 20 72 6d 61 69 6c |nt-messa|ge rmail|
|00004540| 2d 74 6f 74 61 6c 2d 6d | 65 73 73 61 67 65 73 20 |-total-m|essages |
|00004550| 72 6d 61 69 6c 2d 6d 65 | 73 73 61 67 65 2d 76 65 |rmail-me|ssage-ve|
|00004560| 63 74 6f 72 20 72 6d 61 | 69 6c 2d 64 65 6c 65 74 |ctor rma|il-delet|
|00004570| 65 64 2d 76 65 63 74 6f | 72 20 72 6d 61 69 6c 2d |ed-vecto|r rmail-|
|00004580| 73 75 6d 6d 61 72 79 2d | 76 65 63 74 6f 72 20 30 |summary-|vector 0|
|00004590| 20 6d 65 73 73 61 67 65 | 20 22 43 6f 75 6e 74 69 | message| "Counti|
|000045a0| 6e 67 20 6e 65 77 20 6d | 65 73 73 61 67 65 73 2e |ng new m|essages.|
|000045b0| 2e 2e 22 20 73 65 61 72 | 63 68 2d 62 61 63 6b 77 |.." sear|ch-backw|
|000045c0| 61 72 64 20 22 1f 22 20 | 70 6f 69 6e 74 2d 6d 61 |ard "." |point-ma|
|000045d0| 72 6b 65 72 20 72 6d 61 | 69 6c 2d 73 65 74 2d 6d |rker rma|il-set-m|
|000045e0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 2d |essage-c|ounters-|
|000045f0| 63 6f 75 6e 74 65 72 20 | 76 63 6f 6e 63 61 74 20 |counter |vconcat |
|00004600| 6d 61 6b 65 2d 76 65 63 | 74 6f 72 20 22 43 6f 75 |make-vec|tor "Cou|
|00004610| 6e 74 69 6e 67 20 6e 65 | 77 20 6d 65 73 73 61 67 |nting ne|w messag|
|00004620| 65 73 2e 2e 2e 64 6f 6e | 65 20 28 25 64 29 22 5d |es...don|e (%d)"]|
|00004630| 20 31 30 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 6d | 10))..(|defun rm|
|00004640| 61 69 6c 2d 73 65 74 2d | 6d 65 73 73 61 67 65 2d |ail-set-|message-|
|00004650| 63 6f 75 6e 74 65 72 73 | 20 6e 69 6c 20 28 62 79 |counters| nil (by|
|00004660| 74 65 2d 63 6f 64 65 20 | 22 cc 20 88 8a 8c cd 20 |te-code |". .... |
|00004670| 88 60 18 ce 19 c3 1a c3 | 1c c3 1d c3 1e 06 cf d0 |.`......|........|
|00004680| 21 88 64 62 88 d1 d2 21 | 88 d3 20 43 89 15 88 d4 |!.db...!|.. C....|
|00004690| 60 08 5e 21 88 09 89 12 | 88 d4 20 88 09 89 16 07 |`.^!....|.. .....|
|000046a0| 88 09 d5 09 0a 5a 5d 5e | 89 16 08 88 d6 d7 d8 20 |.....Z]^|....... |
|000046b0| 0d 42 5c 22 16 09 d9 0e | 06 50 16 0a da 0e 07 c3 |.B\"....|.P......|
|000046c0| 5c 22 89 16 0b 88 cf db | 21 2e 06 29 29 87 22 20 |\"......|!..))." |
|000046d0| 5b 70 6f 69 6e 74 2d 73 | 61 76 65 20 74 6f 74 61 |[point-s|ave tota|
|000046e0| 6c 2d 6d 65 73 73 61 67 | 65 73 20 6d 65 73 73 61 |l-messag|es messa|
|000046f0| 67 65 73 2d 61 66 74 65 | 72 2d 70 6f 69 6e 74 20 |ges-afte|r-point |
|00004700| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|00004710| 61 72 63 68 20 6d 65 73 | 73 61 67 65 73 2d 68 65 |arch mes|sages-he|
|00004720| 61 64 20 64 65 6c 65 74 | 65 64 2d 68 65 61 64 20 |ad delet|ed-head |
|00004730| 72 6d 61 69 6c 2d 74 6f | 74 61 6c 2d 6d 65 73 73 |rmail-to|tal-mess|
|00004740| 61 67 65 73 20 72 6d 61 | 69 6c 2d 63 75 72 72 65 |ages rma|il-curre|
|00004750| 6e 74 2d 6d 65 73 73 61 | 67 65 20 72 6d 61 69 6c |nt-messa|ge rmail|
|00004760| 2d 6d 65 73 73 61 67 65 | 2d 76 65 63 74 6f 72 20 |-message|-vector |
|00004770| 72 6d 61 69 6c 2d 64 65 | 6c 65 74 65 64 2d 76 65 |rmail-de|leted-ve|
|00004780| 63 74 6f 72 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 |ctor rma|il-summa|
|00004790| 72 79 2d 76 65 63 74 6f | 72 20 72 6d 61 69 6c 2d |ry-vecto|r rmail-|
|000047a0| 66 6f 72 67 65 74 2d 6d | 65 73 73 61 67 65 73 20 |forget-m|essages |
|000047b0| 77 69 64 65 6e 20 30 20 | 6d 65 73 73 61 67 65 20 |widen 0 |message |
|000047c0| 22 43 6f 75 6e 74 69 6e | 67 20 6d 65 73 73 61 67 |"Countin|g messag|
|000047d0| 65 73 2e 2e 2e 22 20 73 | 65 61 72 63 68 2d 62 61 |es..." s|earch-ba|
|000047e0| 63 6b 77 61 72 64 20 22 | 1f 22 20 70 6f 69 6e 74 |ckward "|." point|
|000047f0| 2d 6d 61 72 6b 65 72 20 | 72 6d 61 69 6c 2d 73 65 |-marker |rmail-se|
|00004800| 74 2d 6d 65 73 73 61 67 | 65 2d 63 6f 75 6e 74 65 |t-messag|e-counte|
|00004810| 72 73 2d 63 6f 75 6e 74 | 65 72 20 31 20 61 70 70 |rs-count|er 1 app|
|00004820| 6c 79 20 76 65 63 74 6f | 72 20 70 6f 69 6e 74 2d |ly vecto|r point-|
|00004830| 6d 69 6e 2d 6d 61 72 6b | 65 72 20 22 44 22 20 6d |min-mark|er "D" m|
|00004840| 61 6b 65 2d 76 65 63 74 | 6f 72 20 22 43 6f 75 6e |ake-vect|or "Coun|
|00004850| 74 69 6e 67 20 6d 65 73 | 73 61 67 65 73 2e 2e 2e |ting mes|sages...|
|00004860| 64 6f 6e 65 22 5d 20 31 | 32 29 29 0a 0a 28 64 65 |done"] 1|2))..(de|
|00004870| 66 75 6e 20 72 6d 61 69 | 6c 2d 73 65 74 2d 6d 65 |fun rmai|l-set-me|
|00004880| 73 73 61 67 65 2d 63 6f | 75 6e 74 65 72 73 2d 63 |ssage-co|unters-c|
|00004890| 6f 75 6e 74 65 72 20 28 | 26 6f 70 74 69 6f 6e 61 |ounter (|&optiona|
|000048a0| 6c 20 73 74 6f 70 29 20 | 28 62 79 74 65 2d 63 6f |l stop) |(byte-co|
|000048b0| 64 65 20 22 c5 c6 08 c1 | 23 85 3b 00 c7 20 0a 42 |de "....|#.;.. .B|
|000048c0| 89 12 88 8a c5 c8 60 c9 | ca 21 88 c1 23 83 20 00 |......`.|.!..#. .|
|000048d0| cb 82 21 00 cc 0b 42 89 | 13 29 88 cd ce 0c 54 89 |..!...B.|.)....T.|
|000048e0| 14 cf 5c 22 21 85 37 00 | d0 d1 0c 5c 22 88 82 00 |..\"!.7.|...\"...|
|000048f0| 00 87 22 20 5b 73 74 6f | 70 20 74 20 6d 65 73 73 |.." [sto|p t mess|
|00004900| 61 67 65 73 2d 68 65 61 | 64 20 64 65 6c 65 74 65 |ages-hea|d delete|
|00004910| 64 2d 68 65 61 64 20 74 | 6f 74 61 6c 2d 6d 65 73 |d-head t|otal-mes|
|00004920| 73 61 67 65 73 20 73 65 | 61 72 63 68 2d 62 61 63 |sages se|arch-bac|
|00004930| 6b 77 61 72 64 20 22 1f | 0c 0a 22 20 70 6f 69 6e |kward ".|.." poin|
|00004940| 74 2d 6d 61 72 6b 65 72 | 20 22 2c 20 64 65 6c 65 |t-marker| ", dele|
|00004950| 74 65 64 2c 22 20 66 6f | 72 77 61 72 64 2d 6c 69 |ted," fo|rward-li|
|00004960| 6e 65 20 32 20 36 38 20 | 33 32 20 7a 65 72 6f 70 |ne 2 68 |32 zerop|
|00004970| 20 25 20 32 30 20 6d 65 | 73 73 61 67 65 20 22 43 | % 20 me|ssage "C|
|00004980| 6f 75 6e 74 69 6e 67 20 | 6d 65 73 73 61 67 65 73 |ounting |messages|
|00004990| 2e 2e 2e 25 64 22 5d 20 | 31 30 29 29 0a 0a 28 64 |...%d"] |10))..(d|
|000049a0| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 62 65 67 69 6e |efun rma|il-begin|
|000049b0| 6e 69 6e 67 2d 6f 66 2d | 6d 65 73 73 61 67 65 20 |ning-of-|message |
|000049c0| 6e 69 6c 20 22 5c 0a 53 | 68 6f 77 20 63 75 72 72 |nil "\.S|how curr|
|000049d0| 65 6e 74 20 6d 65 73 73 | 61 67 65 20 73 74 61 72 |ent mess|age star|
|000049e0| 74 69 6e 67 20 66 72 6f | 6d 20 74 68 65 20 62 65 |ting fro|m the be|
|000049f0| 67 69 6e 6e 69 6e 67 2e | 22 20 28 69 6e 74 65 72 |ginning.|" (inter|
|00004a00| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00004a10| 64 65 20 22 c1 88 c2 08 | 21 87 22 20 5b 72 6d 61 |de "....|!." [rma|
|00004a20| 69 6c 2d 63 75 72 72 65 | 6e 74 2d 6d 65 73 73 61 |il-curre|nt-messa|
|00004a30| 67 65 20 6e 69 6c 20 72 | 6d 61 69 6c 2d 73 68 6f |ge nil r|mail-sho|
|00004a40| 77 2d 6d 65 73 73 61 67 | 65 5d 20 32 29 29 0a 0a |w-messag|e] 2))..|
|00004a50| 28 64 65 66 75 6e 20 72 | 6d 61 69 6c 2d 73 68 6f |(defun r|mail-sho|
|00004a60| 77 2d 6d 65 73 73 61 67 | 65 20 28 26 6f 70 74 69 |w-messag|e (&opti|
|00004a70| 6f 6e 61 6c 20 6e 29 20 | 22 5c 0a 53 68 6f 77 20 |onal n) |"\.Show |
|00004a80| 6d 65 73 73 61 67 65 20 | 6e 75 6d 62 65 72 20 4e |message |number N|
|00004a90| 20 28 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e | (prefix| argumen|
|00004aa0| 74 29 2c 20 63 6f 75 6e | 74 69 6e 67 20 66 72 6f |t), coun|ting fro|
|00004ab0| 6d 20 73 74 61 72 74 20 | 6f 66 20 66 69 6c 65 2e |m start |of file.|
|00004ac0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |" (inter|active "|
|00004ad0| 70 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |p") (byt|e-code "|
|00004ae0| c2 88 c9 20 88 ca 20 88 | cb 08 21 83 1d 00 cc 65 |... .. .|..!....e|
|00004af0| 64 53 5c 22 88 65 62 88 | c2 89 11 82 94 00 c2 1b |dS\".eb.|........|
|00004b00| 0c 3f 83 2a 00 0d 89 14 | 82 4d 00 0c cd 58 83 3a |.?.*....|.M...X.:|
|00004b10| 00 ce 14 ce 15 cf 89 13 | 82 4d 00 0c 08 56 83 4a |........|.M...V.J|
|00004b20| 00 08 14 08 15 d0 89 13 | 82 4d 00 0c 89 15 88 d1 |........|.M......|
|00004b30| 0c 21 d2 0c 21 1e 08 1e | 07 0e 07 62 88 d3 ce 21 |.!..!...|...b...!|
|00004b40| 88 67 d4 55 83 74 00 d5 | 0e 07 0e 08 5c 22 88 d6 |.g.U.t..|....\"..|
|00004b50| d7 c2 5c 22 82 80 00 d8 | d9 0e 08 c6 23 88 cc 60 |..\"....|....#..`|
|00004b60| 0e 08 5c 22 88 65 62 88 | da 20 88 db dc 21 88 0b |..\".eb.|. ...!..|
|00004b70| 85 92 00 dd 0b 21 2a 29 | 87 22 20 5b 72 6d 61 69 |.....!*)|." [rmai|
|00004b80| 6c 2d 74 6f 74 61 6c 2d | 6d 65 73 73 61 67 65 73 |l-total-|messages|
|00004b90| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 | mode-li|ne-proce|
|00004ba0| 73 73 20 6e 69 6c 20 62 | 6c 75 72 62 20 6e 20 72 |ss nil b|lurb n r|
|00004bb0| 6d 61 69 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 65 73 |mail-cur|rent-mes|
|00004bc0| 73 61 67 65 20 74 20 62 | 65 67 20 65 6e 64 20 72 |sage t b|eg end r|
|00004bd0| 6d 61 69 6c 2d 6d 61 79 | 62 65 2d 73 65 74 2d 6d |mail-may|be-set-m|
|00004be0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 20 |essage-c|ounters |
|00004bf0| 77 69 64 65 6e 20 7a 65 | 72 6f 70 20 6e 61 72 72 |widen ze|rop narr|
|00004c00| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 20 30 20 31 |ow-to-re|gion 0 1|
|00004c10| 20 22 4e 6f 20 70 72 65 | 76 69 6f 75 73 20 6d 65 | "No pre|vious me|
|00004c20| 73 73 61 67 65 22 20 22 | 4e 6f 20 66 6f 6c 6c 6f |ssage" "|No follo|
|00004c30| 77 69 6e 67 20 6d 65 73 | 73 61 67 65 22 20 72 6d |wing mes|sage" rm|
|00004c40| 61 69 6c 2d 6d 73 67 62 | 65 67 20 72 6d 61 69 6c |ail-msgb|eg rmail|
|00004c50| 2d 6d 73 67 65 6e 64 20 | 66 6f 72 77 61 72 64 2d |-msgend |forward-|
|00004c60| 6c 69 6e 65 20 34 38 20 | 72 6d 61 69 6c 2d 72 65 |line 48 |rmail-re|
|00004c70| 66 6f 72 6d 61 74 2d 6d | 65 73 73 61 67 65 20 72 |format-m|essage r|
|00004c80| 6d 61 69 6c 2d 73 65 74 | 2d 61 74 74 72 69 62 75 |mail-set|-attribu|
|00004c90| 74 65 20 22 75 6e 73 65 | 65 6e 22 20 73 65 61 72 |te "unse|en" sear|
|00004ca0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 0a 2a 2a 2a |ch-forwa|rd ".***|
|00004cb0| 20 45 4f 4f 48 20 2a 2a | 2a 0a 22 20 72 6d 61 69 | EOOH **|*." rmai|
|00004cc0| 6c 2d 64 69 73 70 6c 61 | 79 2d 6c 61 62 65 6c 73 |l-displa|y-labels|
|00004cd0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 72 6d 61 69 6c | run-hoo|ks rmail|
|00004ce0| 2d 73 68 6f 77 2d 6d 65 | 73 73 61 67 65 2d 68 6f |-show-me|ssage-ho|
|00004cf0| 6f 6b 20 6d 65 73 73 61 | 67 65 5d 20 31 35 29 29 |ok messa|ge] 15))|
|00004d00| 0a 0a 28 64 65 66 75 6e | 20 72 6d 61 69 6c 2d 6e |..(defun| rmail-n|
|00004d10| 65 78 74 2d 6d 65 73 73 | 61 67 65 20 28 6e 29 20 |ext-mess|age (n) |
|00004d20| 22 5c 0a 53 68 6f 77 20 | 66 6f 6c 6c 6f 77 69 6e |"\.Show |followin|
|00004d30| 67 20 6d 65 73 73 61 67 | 65 20 77 68 65 74 68 65 |g messag|e whethe|
|00004d40| 72 20 64 65 6c 65 74 65 | 64 20 6f 72 20 6e 6f 74 |r delete|d or not|
|00004d50| 2e 0a 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |..With p|refix ar|
|00004d60| 67 75 6d 65 6e 74 20 4e | 2c 20 6d 6f 76 65 73 20 |gument N|, moves |
|00004d70| 66 6f 72 77 61 72 64 20 | 4e 20 6d 65 73 73 61 67 |forward |N messag|
|00004d80| 65 73 2c 0a 6f 72 20 62 | 61 63 6b 77 61 72 64 20 |es,.or b|ackward |
|00004d90| 69 66 20 4e 20 69 73 20 | 6e 65 67 61 74 69 76 65 |if N is |negative|
|00004da0| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00004db0| 22 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"p") (by|te-code |
|00004dc0| 22 c2 88 c3 20 88 c4 08 | 09 5c 5c 21 87 22 20 5b |"... ...|.\\!." [|
|00004dd0| 72 6d 61 69 6c 2d 63 75 | 72 72 65 6e 74 2d 6d 65 |rmail-cu|rrent-me|
|00004de0| 73 73 61 67 65 20 6e 20 | 6e 69 6c 20 72 6d 61 69 |ssage n |nil rmai|
|00004df0| 6c 2d 6d 61 79 62 65 2d | 73 65 74 2d 6d 65 73 73 |l-maybe-|set-mess|
|00004e00| 61 67 65 2d 63 6f 75 6e | 74 65 72 73 20 72 6d 61 |age-coun|ters rma|
|00004e10| 69 6c 2d 73 68 6f 77 2d | 6d 65 73 73 61 67 65 5d |il-show-|message]|
|00004e20| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 4))..(d|efun rma|
|00004e30| 69 6c 2d 70 72 65 76 69 | 6f 75 73 2d 6d 65 73 73 |il-previ|ous-mess|
|00004e40| 61 67 65 20 28 6e 29 20 | 22 5c 0a 53 68 6f 77 20 |age (n) |"\.Show |
|00004e50| 70 72 65 76 69 6f 75 73 | 20 6d 65 73 73 61 67 65 |previous| message|
|00004e60| 20 77 68 65 74 68 65 72 | 20 64 65 6c 65 74 65 64 | whether| deleted|
|00004e70| 20 6f 72 20 6e 6f 74 2e | 0a 57 69 74 68 20 70 72 | or not.|.With pr|
|00004e80| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 4e 2c |efix arg|ument N,|
|00004e90| 20 6d 6f 76 65 73 20 62 | 61 63 6b 77 61 72 64 20 | moves b|ackward |
|00004ea0| 4e 20 6d 65 73 73 61 67 | 65 73 2c 0a 6f 72 20 66 |N messag|es,.or f|
|00004eb0| 6f 72 77 61 72 64 20 69 | 66 20 4e 20 69 73 20 6e |orward i|f N is n|
|00004ec0| 65 67 61 74 69 76 65 2e | 22 20 28 69 6e 74 65 72 |egative.|" (inter|
|00004ed0| 61 63 74 69 76 65 20 22 | 70 22 29 20 28 62 79 74 |active "|p") (byt|
|00004ee0| 65 2d 63 6f 64 65 20 22 | c1 88 c2 08 5b 21 87 22 |e-code "|....[!."|
|00004ef0| 20 5b 6e 20 6e 69 6c 20 | 72 6d 61 69 6c 2d 6e 65 | [n nil |rmail-ne|
|00004f00| 78 74 2d 6d 65 73 73 61 | 67 65 5d 20 32 29 29 0a |xt-messa|ge] 2)).|
|00004f10| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 6e 65 |.(defun |rmail-ne|
|00004f20| 78 74 2d 75 6e 64 65 6c | 65 74 65 64 2d 6d 65 73 |xt-undel|eted-mes|
|00004f30| 73 61 67 65 20 28 6e 29 | 20 22 5c 0a 53 68 6f 77 |sage (n)| "\.Show|
|00004f40| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6e 6f 6e 2d 64 | followi|ng non-d|
|00004f50| 65 6c 65 74 65 64 20 6d | 65 73 73 61 67 65 2e 0a |eleted m|essage..|
|00004f60| 57 69 74 68 20 70 72 65 | 66 69 78 20 61 72 67 75 |With pre|fix argu|
|00004f70| 6d 65 6e 74 20 4e 2c 20 | 6d 6f 76 65 73 20 66 6f |ment N, |moves fo|
|00004f80| 72 77 61 72 64 20 4e 20 | 6e 6f 6e 2d 64 65 6c 65 |rward N |non-dele|
|00004f90| 74 65 64 20 6d 65 73 73 | 61 67 65 73 2c 0a 6f 72 |ted mess|ages,.or|
|00004fa0| 20 62 61 63 6b 77 61 72 | 64 20 69 66 20 4e 20 69 | backwar|d if N i|
|00004fb0| 73 20 6e 65 67 61 74 69 | 76 65 2e 22 20 28 69 6e |s negati|ve." (in|
|00004fc0| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00004fd0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c5 88 c6 20 88 |byte-cod|e "... .|
|00004fe0| 09 09 1a 18 0b c7 56 85 | 12 00 0a 0c 57 85 2b 00 |......V.|....W.+.|
|00004ff0| 0a 54 89 12 88 c8 0a 21 | 3f 85 27 00 0a 10 0b 53 |.T.....!|?.'....S|
|00005000| 89 13 88 82 09 00 88 0b | c7 57 85 35 00 0a c9 56 |........|.W.5...V|
|00005010| 85 4e 00 0a 53 89 12 88 | c8 0a 21 3f 85 4a 00 0a |.N..S...|..!?.J..|
|00005020| 10 0b 54 89 13 88 82 2c | 00 88 ca 08 09 5c 22 85 |..T....,|.....\".|
|00005030| 59 00 cb 08 21 88 0b c7 | 57 85 63 00 cc cd 21 88 |Y...!...|W.c...!.|
|00005040| 0b c7 56 85 6d 00 cc ce | 21 2a 87 22 20 5b 6c 61 |..V.m...|!*." [la|
|00005050| 73 74 77 69 6e 20 72 6d | 61 69 6c 2d 63 75 72 72 |stwin rm|ail-curr|
|00005060| 65 6e 74 2d 6d 65 73 73 | 61 67 65 20 63 75 72 72 |ent-mess|age curr|
|00005070| 65 6e 74 20 6e 20 72 6d | 61 69 6c 2d 74 6f 74 61 |ent n rm|ail-tota|
|00005080| 6c 2d 6d 65 73 73 61 67 | 65 73 20 6e 69 6c 20 72 |l-messag|es nil r|
|00005090| 6d 61 69 6c 2d 6d 61 79 | 62 65 2d 73 65 74 2d 6d |mail-may|be-set-m|
|000050a0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 20 |essage-c|ounters |
|000050b0| 30 20 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d |0 rmail-|message-|
|000050c0| 64 65 6c 65 74 65 64 2d | 70 20 31 20 2f 3d 20 72 |deleted-|p 1 /= r|
|000050d0| 6d 61 69 6c 2d 73 68 6f | 77 2d 6d 65 73 73 61 67 |mail-sho|w-messag|
|000050e0| 65 20 6d 65 73 73 61 67 | 65 20 22 4e 6f 20 70 72 |e messag|e "No pr|
|000050f0| 65 76 69 6f 75 73 20 6e | 6f 6e 64 65 6c 65 74 65 |evious n|ondelete|
|00005100| 64 20 6d 65 73 73 61 67 | 65 22 20 22 4e 6f 20 66 |d messag|e" "No f|
|00005110| 6f 6c 6c 6f 77 69 6e 67 | 20 6e 6f 6e 64 65 6c 65 |ollowing| nondele|
|00005120| 74 65 64 20 6d 65 73 73 | 61 67 65 22 5d 20 38 29 |ted mess|age"] 8)|
|00005130| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00005140| 70 72 65 76 69 6f 75 73 | 2d 75 6e 64 65 6c 65 74 |previous|-undelet|
|00005150| 65 64 2d 6d 65 73 73 61 | 67 65 20 28 6e 29 20 22 |ed-messa|ge (n) "|
|00005160| 5c 0a 53 68 6f 77 20 70 | 72 65 76 69 6f 75 73 20 |\.Show p|revious |
|00005170| 6e 6f 6e 2d 64 65 6c 65 | 74 65 64 20 6d 65 73 73 |non-dele|ted mess|
|00005180| 61 67 65 2e 0a 57 69 74 | 68 20 70 72 65 66 69 78 |age..Wit|h prefix|
|00005190| 20 61 72 67 75 6d 65 6e | 74 20 4e 2c 20 6d 6f 76 | argumen|t N, mov|
|000051a0| 65 73 20 62 61 63 6b 77 | 61 72 64 20 4e 20 6e 6f |es backw|ard N no|
|000051b0| 6e 2d 64 65 6c 65 74 65 | 64 20 6d 65 73 73 61 67 |n-delete|d messag|
|000051c0| 65 73 2c 0a 6f 72 20 66 | 6f 72 77 61 72 64 20 69 |es,.or f|orward i|
|000051d0| 66 20 4e 20 69 73 20 6e | 65 67 61 74 69 76 65 2e |f N is n|egative.|
|000051e0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |" (inter|active "|
|000051f0| 70 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |p") (byt|e-code "|
|00005200| c1 88 c2 08 5b 21 87 22 | 20 5b 6e 20 6e 69 6c 20 |....[!."| [n nil |
|00005210| 72 6d 61 69 6c 2d 6e 65 | 78 74 2d 75 6e 64 65 6c |rmail-ne|xt-undel|
|00005220| 65 74 65 64 2d 6d 65 73 | 73 61 67 65 5d 20 32 29 |eted-mes|sage] 2)|
|00005230| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00005240| 6c 61 73 74 2d 6d 65 73 | 73 61 67 65 20 6e 69 6c |last-mes|sage nil|
|00005250| 20 22 5c 0a 53 68 6f 77 | 20 6c 61 73 74 20 6d 65 | "\.Show| last me|
|00005260| 73 73 61 67 65 20 69 6e | 20 66 69 6c 65 2e 22 20 |ssage in| file." |
|00005270| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00005280| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 20 88 c3 |yte-code| "... ..|
|00005290| 08 21 87 22 20 5b 72 6d | 61 69 6c 2d 74 6f 74 61 |.!." [rm|ail-tota|
|000052a0| 6c 2d 6d 65 73 73 61 67 | 65 73 20 6e 69 6c 20 72 |l-messag|es nil r|
|000052b0| 6d 61 69 6c 2d 6d 61 79 | 62 65 2d 73 65 74 2d 6d |mail-may|be-set-m|
|000052c0| 65 73 73 61 67 65 2d 63 | 6f 75 6e 74 65 72 73 20 |essage-c|ounters |
|000052d0| 72 6d 61 69 6c 2d 73 68 | 6f 77 2d 6d 65 73 73 61 |rmail-sh|ow-messa|
|000052e0| 67 65 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ge] 3)).|.(defun |
|000052f0| 72 6d 61 69 6c 2d 77 68 | 61 74 2d 6d 65 73 73 61 |rmail-wh|at-messa|
|00005300| 67 65 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |ge nil (|byte-cod|
|00005310| 65 20 22 60 c5 0b c6 0b | c7 5c 22 1c 1a 19 18 0a |e "`....|.\".....|
|00005320| 09 5a c5 56 85 33 00 08 | c8 0c 21 59 83 21 00 0c |.Z.V.3..|..!Y.!..|
|00005330| 89 11 82 24 00 0c 89 12 | 88 09 c6 0a 09 5a c7 5c |...$....|.....Z.\|
|00005340| 22 5c 5c 89 14 88 82 0b | 00 88 08 c8 0a 21 59 83 |"\\.....|.....!Y.|
|00005350| 40 00 0a 82 41 00 09 2c | 87 22 20 5b 77 68 65 72 |@...A..,|." [wher|
|00005360| 65 20 6c 6f 77 20 68 69 | 67 68 20 72 6d 61 69 6c |e low hi|gh rmail|
|00005370| 2d 74 6f 74 61 6c 2d 6d | 65 73 73 61 67 65 73 20 |-total-m|essages |
|00005380| 6d 69 64 20 31 20 2f 20 | 32 20 72 6d 61 69 6c 2d |mid 1 / |2 rmail-|
|00005390| 6d 73 67 62 65 67 5d 20 | 37 29 29 0a 0a 28 64 65 |msgbeg] |7))..(de|
|000053a0| 66 76 61 72 20 72 6d 61 | 69 6c 2d 73 65 61 72 63 |fvar rma|il-searc|
|000053b0| 68 2d 6c 61 73 74 2d 72 | 65 67 65 78 70 20 6e 69 |h-last-r|egexp ni|
|000053c0| 6c 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |l)..(def|un rmail|
|000053d0| 2d 73 65 61 72 63 68 20 | 28 72 65 67 65 78 70 20 |-search |(regexp |
|000053e0| 26 6f 70 74 69 6f 6e 61 | 6c 20 72 65 76 65 72 73 |&optiona|l revers|
|000053f0| 65 70 29 20 22 5c 0a 53 | 68 6f 77 20 6d 65 73 73 |ep) "\.S|how mess|
|00005400| 61 67 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 6e |age cont|aining n|
|00005410| 65 78 74 20 6d 61 74 63 | 68 20 66 6f 72 20 52 45 |ext matc|h for RE|
|00005420| 47 45 58 50 2e 0a 53 65 | 61 72 63 68 20 69 6e 20 |GEXP..Se|arch in |
|00005430| 72 65 76 65 72 73 65 20 | 28 65 61 72 6c 69 65 72 |reverse |(earlier|
|00005440| 20 6d 65 73 73 61 67 65 | 73 29 20 77 69 74 68 20 | message|s) with |
|00005450| 6e 6f 6e 2d 6e 69 6c 20 | 32 6e 64 20 61 72 67 20 |non-nil |2nd arg |
|00005460| 52 45 56 45 52 53 45 50 | 2e 0a 49 6e 74 65 72 61 |REVERSEP|..Intera|
|00005470| 63 74 69 76 65 6c 79 2c | 20 65 6d 70 74 79 20 61 |ctively,| empty a|
|00005480| 72 67 75 6d 65 6e 74 20 | 6d 65 61 6e 73 20 75 73 |rgument |means us|
|00005490| 65 20 73 61 6d 65 20 72 | 65 67 65 78 70 20 75 73 |e same r|egexp us|
|000054a0| 65 64 20 6c 61 73 74 20 | 74 69 6d 65 2c 0a 61 6e |ed last |time,.an|
|000054b0| 64 20 72 65 76 65 72 73 | 65 20 73 65 61 72 63 68 |d revers|e search|
|000054c0| 20 69 73 20 73 70 65 63 | 69 66 69 65 64 20 62 79 | is spec|ified by|
|000054d0| 20 61 20 6e 65 67 61 74 | 69 76 65 20 6e 75 6d 65 | a negat|ive nume|
|000054e0| 72 69 63 20 61 72 67 2e | 22 20 28 69 6e 74 65 72 |ric arg.|" (inter|
|000054f0| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|00005500| 65 20 22 c5 09 21 c6 57 | 18 08 83 0e 00 c7 82 0f |e "..!.W|........|
|00005510| 00 c8 c9 50 1a ca 1b 0c | 85 1f 00 0a cb 0c cc 52 |...P....|.......R|
|00005520| 89 12 88 cd 0a 21 89 13 | 88 ce 0b c8 5c 22 3f 83 |.....!..|....\"?.|
|00005530| 34 00 0b 89 14 82 3c 00 | 0c 3f 85 3c 00 cf d0 21 |4.....<.|.?.<...!|
|00005540| 88 0c 08 44 2b 87 22 20 | 5b 72 65 76 65 72 73 65 |...D+." |[reverse|
|00005550| 70 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |p curren|t-prefix|
|00005560| 2d 61 72 67 20 70 72 6f | 6d 70 74 20 72 65 67 65 |-arg pro|mpt rege|
|00005570| 78 70 20 72 6d 61 69 6c | 2d 73 65 61 72 63 68 2d |xp rmail|-search-|
|00005580| 6c 61 73 74 2d 72 65 67 | 65 78 70 20 70 72 65 66 |last-reg|exp pref|
|00005590| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|000055a0| 20 30 20 22 52 65 76 65 | 72 73 65 20 22 20 22 22 | 0 "Reve|rse " ""|
|000055b0| 20 22 52 6d 61 69 6c 20 | 73 65 61 72 63 68 20 28 | "Rmail |search (|
|000055c0| 72 65 67 65 78 70 29 3a | 20 22 20 6e 69 6c 20 22 |regexp):| " nil "|
|000055d0| 28 64 65 66 61 75 6c 74 | 20 22 20 22 29 20 22 20 |(default| " ") " |
|000055e0| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 65 71 75 61 |read-str|ing equa|
|000055f0| 6c 20 65 72 72 6f 72 20 | 22 4e 6f 20 70 72 65 76 |l error |"No prev|
|00005600| 69 6f 75 73 20 52 6d 61 | 69 6c 20 73 65 61 72 63 |ious Rma|il searc|
|00005610| 68 20 73 74 72 69 6e 67 | 22 5d 20 36 29 29 20 28 |h string|"] 6)) (|
|00005620| 62 79 74 65 2d 63 6f 64 | 65 20 22 cd 88 ce cf 08 |byte-cod|e ".....|
|00005630| 83 0c 00 d0 82 0d 00 d1 | 0b 23 88 d2 20 88 65 64 |........|.#.. .ed|
|00005640| 60 cd 0e 0a 1e 09 1e 08 | 1e 07 1e 06 1d d3 8e d4 |`.......|........|
|00005650| 20 88 08 83 54 00 0e 08 | 3f 85 35 00 0e 09 d5 56 | ...T...|?.5....V|
|00005660| 85 51 00 d6 0e 09 53 89 | 16 09 21 62 88 d7 0b d8 |.Q....S.|..!b....|
|00005670| 0e 09 21 cb 23 89 16 08 | 88 82 2b 00 82 7b 00 0e |..!.#...|..+..{..|
|00005680| 08 3f 85 5f 00 0e 09 0e | 0c 57 85 7b 00 d6 0e 09 |.?._....|.W.{....|
|00005690| 54 89 16 09 21 62 88 d7 | 0b d8 0e 09 21 cb 23 89 |T...!b..|....!.#.|
|000056a0| 16 08 88 82 54 00 29 2d | 87 22 20 5b 72 65 76 65 |....T.)-|." [reve|
|000056b0| 72 73 65 70 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |rsep cur|rent-pre|
|000056c0| 66 69 78 2d 61 72 67 20 | 70 72 6f 6d 70 74 20 72 |fix-arg |prompt r|
|000056d0| 65 67 65 78 70 20 72 6d | 61 69 6c 2d 73 65 61 72 |egexp rm|ail-sear|
|000056e0| 63 68 2d 6c 61 73 74 2d | 72 65 67 65 78 70 20 6f |ch-last-|regexp o|
|000056f0| 6d 69 6e 20 6f 6d 61 78 | 20 6f 70 6f 69 6e 74 20 |min omax| opoint |
|00005700| 77 69 6e 20 6d 73 67 20 | 72 6d 61 69 6c 2d 63 75 |win msg |rmail-cu|
|00005710| 72 72 65 6e 74 2d 6d 65 | 73 73 61 67 65 20 74 20 |rrent-me|ssage t |
|00005720| 72 6d 61 69 6c 2d 74 6f | 74 61 6c 2d 6d 65 73 73 |rmail-to|tal-mess|
|00005730| 61 67 65 73 20 6e 69 6c | 20 6d 65 73 73 61 67 65 |ages nil| message|
|00005740| 20 22 25 73 52 6d 61 69 | 6c 20 73 65 61 72 63 68 | "%sRmai|l search|
|00005750| 20 66 6f 72 20 25 73 2e | 2e 2e 22 20 22 52 65 76 | for %s.|.." "Rev|
|00005760| 65 72 73 65 20 22 20 22 | 22 20 72 6d 61 69 6c 2d |erse " "|" rmail-|
|00005770| 6d 61 79 62 65 2d 73 65 | 74 2d 6d 65 73 73 61 67 |maybe-se|t-messag|
|00005780| 65 2d 63 6f 75 6e 74 65 | 72 73 20 28 28 62 79 74 |e-counte|rs ((byt|
|00005790| 65 2d 63 6f 64 65 20 22 | 08 83 30 00 09 85 14 00 |e-code "|..0.....|
|000057a0| c8 0a 21 62 88 c9 0b ca | 0a 21 c4 23 88 60 89 10 |..!b....|.!.#.`..|
|000057b0| 88 cb 0a 21 88 cc cd 09 | 83 27 00 ce 82 28 00 cf |...!....|.'...(..|
|000057c0| 0b 23 88 08 62 82 41 00 | 0d 62 88 d0 0e 06 0e 07 |.#..b.A.|.b......|
|000057d0| 5c 22 88 d1 20 88 cc d2 | 0b 5c 22 87 22 20 5b 77 |\".. ...|.\"." [w|
|000057e0| 69 6e 20 72 65 76 65 72 | 73 65 70 20 6d 73 67 20 |in rever|sep msg |
|000057f0| 72 65 67 65 78 70 20 74 | 20 6f 70 6f 69 6e 74 20 |regexp t| opoint |
|00005800| 6f 6d 69 6e 20 6f 6d 61 | 78 20 72 6d 61 69 6c 2d |omin oma|x rmail-|
|00005810| 6d 73 67 65 6e 64 20 72 | 65 2d 73 65 61 72 63 68 |msgend r|e-search|
|00005820| 2d 62 61 63 6b 77 61 72 | 64 20 72 6d 61 69 6c 2d |-backwar|d rmail-|
|00005830| 6d 73 67 62 65 67 20 72 | 6d 61 69 6c 2d 73 68 6f |msgbeg r|mail-sho|
|00005840| 77 2d 6d 65 73 73 61 67 | 65 20 6d 65 73 73 61 67 |w-messag|e messag|
|00005850| 65 20 22 25 73 52 6d 61 | 69 6c 20 73 65 61 72 63 |e "%sRma|il searc|
|00005860| 68 20 66 6f 72 20 25 73 | 2e 2e 2e 64 6f 6e 65 22 |h for %s|...done"|
|00005870| 20 22 52 65 76 65 72 73 | 65 20 22 20 22 22 20 6e | "Revers|e " "" n|
|00005880| 61 72 72 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |arrow-to|-region |
|00005890| 64 69 6e 67 20 22 53 65 | 61 72 63 68 65 64 20 66 |ding "Se|arched f|
|000058a0| 61 69 6c 65 64 3a 20 25 | 73 22 5d 20 31 30 29 29 |ailed: %|s"] 10))|
|000058b0| 20 77 69 64 65 6e 20 31 | 20 72 6d 61 69 6c 2d 6d | widen 1| rmail-m|
|000058c0| 73 67 62 65 67 20 72 65 | 2d 73 65 61 72 63 68 2d |sgbeg re|-search-|
|000058d0| 66 6f 72 77 61 72 64 20 | 72 6d 61 69 6c 2d 6d 73 |forward |rmail-ms|
|000058e0| 67 65 6e 64 5d 20 31 33 | 29 29 0a 0a 28 64 65 66 |gend] 13|))..(def|
|000058f0| 75 6e 20 72 6d 61 69 6c | 2d 6d 65 73 73 61 67 65 |un rmail|-message|
|00005900| 2d 64 65 6c 65 74 65 64 | 2d 70 20 28 6e 29 20 28 |-deleted|-p (n) (|
|00005910| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 09 48 c2 55 |byte-cod|e "..H.U|
|00005920| 87 22 20 5b 72 6d 61 69 | 6c 2d 64 65 6c 65 74 65 |." [rmai|l-delete|
|00005930| 64 2d 76 65 63 74 6f 72 | 20 6e 20 36 38 5d 20 32 |d-vector| n 68] 2|
|00005940| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|00005950| 2d 73 65 74 2d 6d 65 73 | 73 61 67 65 2d 64 65 6c |-set-mes|sage-del|
|00005960| 65 74 65 64 2d 70 20 28 | 6e 20 73 74 61 74 65 29 |eted-p (|n state)|
|00005970| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 09 0a | (byte-c|ode "...|
|00005980| 83 0a 00 c3 82 0b 00 c4 | 49 87 22 20 5b 72 6d 61 |........|I." [rma|
|00005990| 69 6c 2d 64 65 6c 65 74 | 65 64 2d 76 65 63 74 6f |il-delet|ed-vecto|
|000059a0| 72 20 6e 20 73 74 61 74 | 65 20 36 38 20 33 32 5d |r n stat|e 68 32]|
|000059b0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 3))..(d|efun rma|
|000059c0| 69 6c 2d 64 65 6c 65 74 | 65 2d 6d 65 73 73 61 67 |il-delet|e-messag|
|000059d0| 65 20 6e 69 6c 20 22 5c | 0a 44 65 6c 65 74 65 20 |e nil "\|.Delete |
|000059e0| 74 68 69 73 20 6d 65 73 | 73 61 67 65 20 61 6e 64 |this mes|sage and|
|000059f0| 20 73 74 61 79 20 6f 6e | 20 69 74 2e 22 20 28 69 | stay on| it." (i|
|00005a00| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00005a10| 65 2d 63 6f 64 65 20 22 | c1 88 c2 c3 c0 5c 22 87 |e-code "|.....\".|
|00005a20| 22 20 5b 74 20 6e 69 6c | 20 72 6d 61 69 6c 2d 73 |" [t nil| rmail-s|
|00005a30| 65 74 2d 61 74 74 72 69 | 62 75 74 65 20 22 64 65 |et-attri|bute "de|
|00005a40| 6c 65 74 65 64 22 5d 20 | 33 29 29 0a 0a 28 64 65 |leted"] |3))..(de|
|00005a50| 66 75 6e 20 72 6d 61 69 | 6c 2d 75 6e 64 65 6c 65 |fun rmai|l-undele|
|00005a60| 74 65 2d 70 72 65 76 69 | 6f 75 73 2d 6d 65 73 73 |te-previ|ous-mess|
|00005a70| 61 67 65 20 6e 69 6c 20 | 22 5c 0a 42 61 63 6b 20 |age nil |"\.Back |
|00005a80| 75 70 20 74 6f 20 64 65 | 6c 65 74 65 64 20 6d 65 |up to de|leted me|
|00005a90| 73 73 61 67 65 2c 20 73 | 65 6c 65 63 74 20 69 74 |ssage, s|elect it|
|00005aa0| 2c 20 61 6e 64 20 75 6e | 64 65 6c 65 74 65 20 69 |, and un|delete i|
|00005ab0| 74 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |t." (int|eractive|
|00005ac0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 88 |) (byte-|code "..|
|00005ad0| 09 18 08 c3 56 85 0e 00 | c4 08 21 3f 85 19 00 08 |....V...|..!?....|
|00005ae0| 53 89 10 88 82 04 00 88 | 08 c3 55 83 26 00 c5 c6 |S.......|..U.&...|
|00005af0| 21 82 35 00 c7 08 09 5c | 22 85 30 00 c8 08 21 88 |!.5....\|".0...!.|
|00005b00| c9 ca c2 5c 22 29 87 22 | 20 5b 6d 73 67 20 72 6d |...\")."| [msg rm|
|00005b10| 61 69 6c 2d 63 75 72 72 | 65 6e 74 2d 6d 65 73 73 |ail-curr|ent-mess|
|00005b20| 61 67 65 20 6e 69 6c 20 | 30 20 72 6d 61 69 6c 2d |age nil |0 rmail-|
|00005b30| 6d 65 73 73 61 67 65 2d | 64 65 6c 65 74 65 64 2d |message-|deleted-|
|00005b40| 70 20 65 72 72 6f 72 20 | 22 4e 6f 20 70 72 65 76 |p error |"No prev|
|00005b50| 69 6f 75 73 20 64 65 6c | 65 74 65 64 20 6d 65 73 |ious del|eted mes|
|00005b60| 73 61 67 65 22 20 2f 3d | 20 72 6d 61 69 6c 2d 73 |sage" /=| rmail-s|
|00005b70| 68 6f 77 2d 6d 65 73 73 | 61 67 65 20 72 6d 61 69 |how-mess|age rmai|
|00005b80| 6c 2d 73 65 74 2d 61 74 | 74 72 69 62 75 74 65 20 |l-set-at|tribute |
|00005b90| 22 64 65 6c 65 74 65 64 | 22 5d 20 37 29 29 0a 0a |"deleted|"] 7))..|
|00005ba0| 28 64 65 66 75 6e 20 72 | 6d 61 69 6c 2d 64 65 6c |(defun r|mail-del|
|00005bb0| 65 74 65 2d 66 6f 72 77 | 61 72 64 20 28 26 6f 70 |ete-forw|ard (&op|
|00005bc0| 74 69 6f 6e 61 6c 20 62 | 61 63 6b 77 61 72 64 29 |tional b|ackward)|
|00005bd0| 20 22 5c 0a 44 65 6c 65 | 74 65 20 74 68 69 73 20 | "\.Dele|te this |
|00005be0| 6d 65 73 73 61 67 65 20 | 61 6e 64 20 6d 6f 76 65 |message |and move|
|00005bf0| 20 74 6f 20 6e 65 78 74 | 20 6e 6f 6e 64 65 6c 65 | to next| nondele|
|00005c00| 74 65 64 20 6f 6e 65 2e | 0a 44 65 6c 65 74 65 64 |ted one.|.Deleted|
|00005c10| 20 6d 65 73 73 61 67 65 | 73 20 73 74 61 79 20 69 | message|s stay i|
|00005c20| 6e 20 74 68 65 20 66 69 | 6c 65 20 75 6e 74 69 6c |n the fi|le until|
|00005c30| 20 74 68 65 20 5c 5c 5b | 72 6d 61 69 6c 2d 65 78 | the \\[|rmail-ex|
|00005c40| 70 75 6e 67 65 5d 20 63 | 6f 6d 6d 61 6e 64 20 69 |punge] c|ommand i|
|00005c50| 73 20 67 69 76 65 6e 2e | 0a 57 69 74 68 20 70 72 |s given.|.With pr|
|00005c60| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 2c 20 64 |efix arg|ument, d|
|00005c70| 65 6c 65 74 65 20 61 6e | 64 20 6d 6f 76 65 20 62 |elete an|d move b|
|00005c80| 61 63 6b 77 61 72 64 2e | 22 20 28 69 6e 74 65 72 |ackward.|" (inter|
|00005c90| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00005ca0| 65 2d 63 6f 64 65 20 22 | c2 88 c3 c4 c0 5c 22 88 |e-code "|.....\".|
|00005cb0| c5 09 83 10 00 c6 82 11 | 00 c7 21 87 22 20 5b 74 |........|..!." [t|
|00005cc0| 20 62 61 63 6b 77 61 72 | 64 20 6e 69 6c 20 72 6d | backwar|d nil rm|
|00005cd0| 61 69 6c 2d 73 65 74 2d | 61 74 74 72 69 62 75 74 |ail-set-|attribut|
|00005ce0| 65 20 22 64 65 6c 65 74 | 65 64 22 20 72 6d 61 69 |e "delet|ed" rmai|
|00005cf0| 6c 2d 6e 65 78 74 2d 75 | 6e 64 65 6c 65 74 65 64 |l-next-u|ndeleted|
|00005d00| 2d 6d 65 73 73 61 67 65 | 20 2d 31 20 31 5d 20 33 |-message| -1 1] 3|
|00005d10| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|00005d20| 2d 64 65 6c 65 74 65 2d | 62 61 63 6b 77 61 72 64 |-delete-|backward|
|00005d30| 20 6e 69 6c 20 22 5c 0a | 44 65 6c 65 74 65 20 74 | nil "\.|Delete t|
|00005d40| 68 69 73 20 6d 65 73 73 | 61 67 65 20 61 6e 64 20 |his mess|age and |
|00005d50| 6d 6f 76 65 20 74 6f 20 | 70 72 65 76 69 6f 75 73 |move to |previous|
|00005d60| 20 6e 6f 6e 64 65 6c 65 | 74 65 64 20 6f 6e 65 2e | nondele|ted one.|
|00005d70| 0a 44 65 6c 65 74 65 64 | 20 6d 65 73 73 61 67 65 |.Deleted| message|
|00005d80| 73 20 73 74 61 79 20 69 | 6e 20 74 68 65 20 66 69 |s stay i|n the fi|
|00005d90| 6c 65 20 75 6e 74 69 6c | 20 74 68 65 20 5c 5c 5b |le until| the \\[|
|00005da0| 72 6d 61 69 6c 2d 65 78 | 70 75 6e 67 65 5d 20 63 |rmail-ex|punge] c|
|00005db0| 6f 6d 6d 61 6e 64 20 69 | 73 20 67 69 76 65 6e 2e |ommand i|s given.|
|00005dc0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |" (inter|active) |
|00005dd0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 c0 |(byte-co|de "....|
|00005de0| 21 87 22 20 5b 74 20 6e | 69 6c 20 72 6d 61 69 6c |!." [t n|il rmail|
|00005df0| 2d 64 65 6c 65 74 65 2d | 66 6f 72 77 61 72 64 5d |-delete-|forward]|
|00005e00| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 2))..(d|efun rma|
|00005e10| 69 6c 2d 65 78 70 75 6e | 67 65 20 6e 69 6c 20 22 |il-expun|ge nil "|
|00005e20| 5c 0a 41 63 74 75 61 6c | 6c 79 20 65 72 61 73 65 |\.Actual|ly erase|
|00005e30| 20 61 6c 6c 20 64 65 6c | 65 74 65 64 20 6d 65 73 | all del|eted mes|
|00005e40| 73 61 67 65 73 20 69 6e | 20 74 68 65 20 66 69 6c |sages in| the fil|
|00005e50| 65 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |e." (int|eractive|
|00005e60| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 88 |) (byte-|code "..|
|00005e70| d7 d8 21 88 08 c1 3d 86 | 0f 00 c2 89 10 88 d9 20 |..!...=.|....... |
|00005e80| 88 da 20 64 5a 1b da 20 | 65 5a 1c 0e 06 db 56 85 |.. dZ.. |eZ....V.|
|00005e90| 2b 00 dc 0e 07 0e 06 48 | 55 83 32 00 db 82 35 00 |+......H|U.2...5.|
|00005ea0| 60 65 5a 1d 0e 09 db 48 | c2 42 1e 08 0e 08 1e 0a |`eZ....H|.B......|
|00005eb0| c1 18 c2 1e 0b dd 8e 8a | de 20 88 65 62 88 db df |........|. .eb...|
|00005ec0| 0e 0f 0e 06 c2 c2 0e 09 | 0e 07 0e 16 1e 15 1e 14 |........|........|
|00005ed0| 1e 13 1e 12 1e 11 1e 10 | 1e 0e 1e 0d 1e 0c c2 16 |........|........|
|00005ee0| 0f c2 16 06 c2 16 09 c2 | 16 07 c2 89 16 16 88 0e |........|........|
|00005ef0| 0d 0e 0e 58 85 01 01 0e | 14 0e 0d 48 dc 55 83 bf |...X....|...H.U..|
|00005f00| 00 e0 e1 0e 13 0e 0d 48 | 21 e1 0e 13 0e 0d 54 48 |.......H|!.....TH|
|00005f10| 21 5c 22 88 e2 0e 13 0e | 0d 48 c2 5c 22 88 0e 10 |!\".....|.H.\"...|
|00005f20| 0e 0c 56 85 bc 00 0e 10 | 53 89 16 10 82 e9 00 0e |..V.....|S.......|
|00005f30| 0c 54 89 16 0c 88 e3 0e | 0a 0e 13 0e 0d 48 c2 42 |.T......|.....H.B|
|00005f40| 5c 22 89 16 0a 88 0e 0c | 0e 0d 55 85 e3 00 0e 15 |\"......|..U.....|
|00005f50| 0e 0d 53 48 0e 11 42 89 | 16 11 88 e4 e5 0e 0d 54 |..SH..B.|.......T|
|00005f60| 89 16 0d e6 5c 22 21 85 | fd 00 d7 e7 0e 0d 5c 22 |....\"!.|......\"|
|00005f70| 88 82 81 00 88 e3 0e 0a | 0e 13 0e 0d 48 c2 42 5c |........|....H.B\|
|00005f80| 22 89 16 0a 88 0e 10 16 | 06 0e 0c 16 0f e8 e9 0e |".......|........|
|00005f90| 08 5c 22 16 09 ea 0e 0c | 54 eb 5c 22 16 07 ec ed |.\".....|T.\"....|
|00005fa0| 0e 11 21 21 16 16 c1 89 | 16 0b 2e 09 29 29 2e 07 |..!!....|....))..|
|00005fb0| 87 22 20 5b 62 75 66 66 | 65 72 2d 75 6e 64 6f 2d |." [buff|er-undo-|
|00005fc0| 6c 69 73 74 20 74 20 6e | 69 6c 20 6f 6d 61 78 20 |list t n|il omax |
|00005fd0| 6f 6d 69 6e 20 6f 70 6f | 69 6e 74 20 72 6d 61 69 |omin opo|int rmai|
|00005fe0| 6c 2d 63 75 72 72 65 6e | 74 2d 6d 65 73 73 61 67 |l-curren|t-messag|
|00005ff0| 65 20 72 6d 61 69 6c 2d | 64 65 6c 65 74 65 64 2d |e rmail-|deleted-|
|00006000| 76 65 63 74 6f 72 20 6d | 65 73 73 61 67 65 73 2d |vector m|essages-|
|00006010| 68 65 61 64 20 72 6d 61 | 69 6c 2d 6d 65 73 73 61 |head rma|il-messa|
|00006020| 67 65 2d 76 65 63 74 6f | 72 20 6d 65 73 73 61 67 |ge-vecto|r messag|
|00006030| 65 73 2d 74 61 69 6c 20 | 77 69 6e 20 63 6f 75 6e |es-tail |win coun|
|00006040| 74 65 72 20 6e 75 6d 62 | 65 72 20 74 6f 74 61 6c |ter numb|er total|
|00006050| 20 72 6d 61 69 6c 2d 74 | 6f 74 61 6c 2d 6d 65 73 | rmail-t|otal-mes|
|00006060| 73 61 67 65 73 20 6e 65 | 77 2d 6d 65 73 73 61 67 |sages ne|w-messag|
|00006070| 65 2d 6e 75 6d 62 65 72 | 20 6e 65 77 2d 73 75 6d |e-number| new-sum|
|00006080| 6d 61 72 79 20 62 75 66 | 66 65 72 2d 72 65 61 64 |mary buf|fer-read|
|00006090| 2d 6f 6e 6c 79 20 6d 65 | 73 73 61 67 65 73 20 64 |-only me|ssages d|
|000060a0| 65 6c 65 74 65 64 20 73 | 75 6d 6d 61 72 79 20 72 |eleted s|ummary r|
|000060b0| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 76 65 63 |mail-sum|mary-vec|
|000060c0| 74 6f 72 20 6d 65 73 73 | 61 67 65 20 22 45 78 70 |tor mess|age "Exp|
|000060d0| 75 6e 67 69 6e 67 20 64 | 65 6c 65 74 65 64 20 6d |unging d|eleted m|
|000060e0| 65 73 73 61 67 65 73 2e | 2e 2e 22 20 72 6d 61 69 |essages.|.." rmai|
|000060f0| 6c 2d 6d 61 79 62 65 2d | 73 65 74 2d 6d 65 73 73 |l-maybe-|set-mess|
|00006100| 61 67 65 2d 63 6f 75 6e | 74 65 72 73 20 62 75 66 |age-coun|ters buf|
|00006110| 66 65 72 2d 73 69 7a 65 | 20 30 20 36 38 20 28 28 |fer-size| 0 68 ((|
|00006120| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 c7 21 88 08 |byte-cod|e "..!..|
|00006130| 3f 85 13 00 c8 c9 20 09 | 5a c9 20 0a 5a 5c 22 88 |?..... .|Z. .Z\".|
|00006140| ca cb 0b 21 83 1f 00 cc | 82 20 00 c4 21 88 cd 0d |...!....|. ..!...|
|00006150| 21 87 22 20 5b 77 69 6e | 20 6f 6d 69 6e 20 6f 6d |!." [win| omin om|
|00006160| 61 78 20 72 6d 61 69 6c | 2d 63 75 72 72 65 6e 74 |ax rmail|-current|
|00006170| 2d 6d 65 73 73 61 67 65 | 20 6e 69 6c 20 6f 70 6f |-message| nil opo|
|00006180| 69 6e 74 20 6d 65 73 73 | 61 67 65 20 22 45 78 70 |int mess|age "Exp|
|00006190| 75 6e 67 69 6e 67 20 64 | 65 6c 65 74 65 64 20 6d |unging d|eleted m|
|000061a0| 65 73 73 61 67 65 73 2e | 2e 2e 64 6f 6e 65 22 20 |essages.|..done" |
|000061b0| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|000061c0| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 72 6d 61 | buffer-|size rma|
|000061d0| 69 6c 2d 73 68 6f 77 2d | 6d 65 73 73 61 67 65 20 |il-show-|message |
|000061e0| 7a 65 72 6f 70 20 31 20 | 66 6f 72 77 61 72 64 2d |zerop 1 |forward-|
|000061f0| 63 68 61 72 5d 20 38 29 | 29 20 77 69 64 65 6e 20 |char] 8)|) widen |
|00006200| 31 20 64 65 6c 65 74 65 | 2d 72 65 67 69 6f 6e 20 |1 delete|-region |
|00006210| 6d 61 72 6b 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |marker-p|osition |
|00006220| 6d 6f 76 65 2d 6d 61 72 | 6b 65 72 20 73 65 74 63 |move-mar|ker setc|
|00006230| 64 72 20 7a 65 72 6f 70 | 20 25 20 32 30 20 22 45 |dr zerop| % 20 "E|
|00006240| 78 70 75 6e 67 69 6e 67 | 20 64 65 6c 65 74 65 64 |xpunging| deleted|
|00006250| 20 6d 65 73 73 61 67 65 | 73 2e 2e 2e 25 64 22 20 | message|s...%d" |
|00006260| 61 70 70 6c 79 20 76 65 | 63 74 6f 72 20 6d 61 6b |apply ve|ctor mak|
|00006270| 65 2d 73 74 72 69 6e 67 | 20 33 32 20 76 63 6f 6e |e-string| 32 vcon|
|00006280| 63 61 74 20 6e 72 65 76 | 65 72 73 65 5d 20 32 30 |cat nrev|erse] 20|
|00006290| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|000062a0| 2d 6d 61 69 6c 20 6e 69 | 6c 20 22 5c 0a 53 65 6e |-mail ni|l "\.Sen|
|000062b0| 64 20 6d 61 69 6c 20 69 | 6e 20 61 6e 6f 74 68 65 |d mail i|n anothe|
|000062c0| 72 20 77 69 6e 64 6f 77 | 2e 0a 57 68 69 6c 65 20 |r window|..While |
|000062d0| 63 6f 6d 70 6f 73 69 6e | 67 20 74 68 65 20 6d 65 |composin|g the me|
|000062e0| 73 73 61 67 65 2c 20 75 | 73 65 20 5c 5c 5b 6d 61 |ssage, u|se \\[ma|
|000062f0| 69 6c 2d 79 61 6e 6b 2d | 6f 72 69 67 69 6e 61 6c |il-yank-|original|
|00006300| 5d 20 74 6f 20 79 61 6e | 6b 20 74 68 65 0a 6f 72 |] to yan|k the.or|
|00006310| 69 67 69 6e 61 6c 20 6d | 65 73 73 61 67 65 20 69 |iginal m|essage i|
|00006320| 6e 74 6f 20 69 74 2e 22 | 20 28 69 6e 74 65 72 61 |nto it."| (intera|
|00006330| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00006340| 65 20 22 c0 88 c1 c0 c0 | c0 c0 c0 70 26 06 87 22 |e ".....|...p&.."|
|00006350| 20 5b 6e 69 6c 20 6d 61 | 69 6c 2d 6f 74 68 65 72 | [nil ma|il-other|
|00006360| 2d 77 69 6e 64 6f 77 5d | 20 37 29 29 0a 0a 28 64 |-window]| 7))..(d|
|00006370| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 63 6f 6e 74 69 |efun rma|il-conti|
|00006380| 6e 75 65 20 6e 69 6c 20 | 22 5c 0a 43 6f 6e 74 69 |nue nil |"\.Conti|
|00006390| 6e 75 65 20 63 6f 6d 70 | 6f 73 69 6e 67 20 6f 75 |nue comp|osing ou|
|000063a0| 74 67 6f 69 6e 67 20 6d | 65 73 73 61 67 65 20 70 |tgoing m|essage p|
|000063b0| 72 65 76 69 6f 75 73 6c | 79 20 62 65 69 6e 67 20 |reviousl|y being |
|000063c0| 63 6f 6d 70 6f 73 65 64 | 2e 22 20 28 69 6e 74 65 |composed|." (inte|
|000063d0| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|000063e0| 6f 64 65 20 22 c1 88 c2 | c0 21 87 22 20 5b 74 20 |ode "...|.!." [t |
|000063f0| 6e 69 6c 20 6d 61 69 6c | 2d 6f 74 68 65 72 2d 77 |nil mail|-other-w|
+--------+-------------------------+-------------------------+--------+--------+