/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / rmailsum.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 72 6d 61 69 6c 2d 73 75 |.(defun |rmail-su|
|00000010| 6d 6d 61 72 79 20 6e 69 | 6c 20 22 5c 0a 44 69 73 |mmary ni|l "\.Dis|
|00000020| 70 6c 61 79 20 61 20 73 | 75 6d 6d 61 72 79 20 6f |play a s|ummary o|
|00000030| 66 20 61 6c 6c 20 6d 65 | 73 73 61 67 65 73 2c 20 |f all me|ssages, |
|00000040| 6f 6e 65 20 6c 69 6e 65 | 20 70 65 72 20 6d 65 73 |one line| per mes|
|00000050| 73 61 67 65 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |sage." (|interact|
|00000060| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000070| 22 c0 88 c1 c2 c0 5c 22 | 87 22 20 5b 6e 69 6c 20 |".....\"|." [nil |
|00000080| 72 6d 61 69 6c 2d 6e 65 | 77 2d 73 75 6d 6d 61 72 |rmail-ne|w-summar|
|00000090| 79 20 22 41 6c 6c 22 5d | 20 33 29 29 0a 0a 28 64 |y "All"]| 3))..(d|
|000000a0| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 |efun rma|il-summa|
|000000b0| 72 79 2d 62 79 2d 6c 61 | 62 65 6c 73 20 28 6c 61 |ry-by-la|bels (la|
|000000c0| 62 65 6c 73 29 20 22 5c | 0a 44 69 73 70 6c 61 79 |bels) "\|.Display|
|000000d0| 20 61 20 73 75 6d 6d 61 | 72 79 20 6f 66 20 61 6c | a summa|ry of al|
|000000e0| 6c 20 6d 65 73 73 61 67 | 65 73 20 77 69 74 68 20 |l messag|es with |
|000000f0| 6f 6e 65 20 6f 72 20 6d | 6f 72 65 20 4c 41 42 45 |one or m|ore LABE|
|00000100| 4c 53 2e 0a 4c 41 42 45 | 4c 53 20 73 68 6f 75 6c |LS..LABE|LS shoul|
|00000110| 64 20 62 65 20 61 20 73 | 74 72 69 6e 67 20 63 6f |d be a s|tring co|
|00000120| 6e 74 61 69 6e 69 6e 67 | 20 74 68 65 20 64 65 73 |ntaining| the des|
|00000130| 69 72 65 64 20 6c 61 62 | 65 6c 73 2c 20 73 65 70 |ired lab|els, sep|
|00000140| 61 72 61 74 65 64 20 62 | 79 20 63 6f 6d 6d 61 73 |arated b|y commas|
|00000150| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00000160| 22 73 4c 61 62 65 6c 73 | 20 74 6f 20 73 75 6d 6d |"sLabels| to summ|
|00000170| 61 72 69 7a 65 20 62 79 | 3a 20 22 29 20 28 62 79 |arize by|: ") (by|
|00000180| 74 65 2d 63 6f 64 65 20 | 22 c2 88 c3 08 c4 5c 22 |te-code |".....\"|
|00000190| 85 12 00 09 86 10 00 c5 | c6 21 89 10 88 08 89 11 |........|.!......|
|000001a0| 88 c7 c8 08 50 c9 ca cb | 08 21 cc 51 23 87 22 20 |....P...|.!.Q#." |
|000001b0| 5b 6c 61 62 65 6c 73 20 | 72 6d 61 69 6c 2d 6c 61 |[labels |rmail-la|
|000001c0| 73 74 2d 6d 75 6c 74 69 | 2d 6c 61 62 65 6c 73 20 |st-multi|-labels |
|000001d0| 6e 69 6c 20 73 74 72 69 | 6e 67 3d 20 22 22 20 65 |nil stri|ng= "" e|
|000001e0| 72 72 6f 72 20 22 4e 6f | 20 6c 61 62 65 6c 20 73 |rror "No| label s|
|000001f0| 70 65 63 69 66 69 65 64 | 22 20 72 6d 61 69 6c 2d |pecified|" rmail-|
|00000200| 6e 65 77 2d 73 75 6d 6d | 61 72 79 20 22 6c 61 62 |new-summ|ary "lab|
|00000210| 65 6c 73 20 22 20 72 6d | 61 69 6c 2d 6d 65 73 73 |els " rm|ail-mess|
|00000220| 61 67 65 2d 6c 61 62 65 | 6c 73 2d 70 20 22 2c 20 |age-labe|ls-p ", |
|00000230| 5c 5c 28 22 20 6d 61 69 | 6c 2d 63 6f 6d 6d 61 2d |\\(" mai|l-comma-|
|00000240| 6c 69 73 74 2d 72 65 67 | 65 78 70 20 22 5c 5c 29 |list-reg|exp "\\)|
|00000250| 2c 22 5d 20 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |,"] 9)).|.(defun |
|00000260| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 62 79 |rmail-su|mmary-by|
|00000270| 2d 72 65 63 69 70 69 65 | 6e 74 73 20 28 72 65 63 |-recipie|nts (rec|
|00000280| 69 70 69 65 6e 74 73 20 | 26 6f 70 74 69 6f 6e 61 |ipients |&optiona|
|00000290| 6c 20 70 72 69 6d 61 72 | 79 2d 6f 6e 6c 79 29 20 |l primar|y-only) |
|000002a0| 22 5c 0a 44 69 73 70 6c | 61 79 20 61 20 73 75 6d |"\.Displ|ay a sum|
|000002b0| 6d 61 72 79 20 6f 66 20 | 61 6c 6c 20 6d 65 73 73 |mary of |all mess|
|000002c0| 61 67 65 73 20 77 69 74 | 68 20 74 68 65 20 67 69 |ages wit|h the gi|
|000002d0| 76 65 6e 20 52 45 43 49 | 50 49 45 4e 54 53 2e 0a |ven RECI|PIENTS..|
|000002e0| 4e 6f 72 6d 61 6c 6c 79 | 20 63 68 65 63 6b 73 20 |Normally| checks |
|000002f0| 74 68 65 20 54 6f 2c 20 | 46 72 6f 6d 20 61 6e 64 |the To, |From and|
|00000300| 20 43 63 20 66 69 65 6c | 64 73 20 6f 66 20 68 65 | Cc fiel|ds of he|
|00000310| 61 64 65 72 73 3b 0a 62 | 75 74 20 69 66 20 50 52 |aders;.b|ut if PR|
|00000320| 49 4d 41 52 59 2d 4f 4e | 4c 59 20 69 73 20 6e 6f |IMARY-ON|LY is no|
|00000330| 6e 2d 6e 69 6c 20 28 70 | 72 65 66 69 78 20 61 72 |n-nil (p|refix ar|
|00000340| 67 20 67 69 76 65 6e 29 | 2c 0a 20 6f 6e 6c 79 20 |g given)|,. only |
|00000350| 6c 6f 6f 6b 20 69 6e 20 | 74 68 65 20 54 6f 20 61 |look in |the To a|
|00000360| 6e 64 20 46 72 6f 6d 20 | 66 69 65 6c 64 73 2e 0a |nd From |fields..|
|00000370| 52 45 43 49 50 49 45 4e | 54 53 20 69 73 20 61 20 |RECIPIEN|TS is a |
|00000380| 73 74 72 69 6e 67 20 6f | 66 20 6e 61 6d 65 73 20 |string o|f names |
|00000390| 73 65 70 61 72 61 74 65 | 64 20 62 79 20 63 6f 6d |separate|d by com|
|000003a0| 6d 61 73 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |mas." (i|nteracti|
|000003b0| 76 65 20 22 73 52 65 63 | 69 70 69 65 6e 74 73 20 |ve "sRec|ipients |
|000003c0| 74 6f 20 73 75 6d 6d 61 | 72 69 7a 65 20 62 79 3a |to summa|rize by:|
|000003d0| 20 0a 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | .P") (b|yte-code|
|000003e0| 20 22 c2 88 c3 c4 08 50 | c5 c6 08 21 09 24 87 22 | ".....P|...!.$."|
|000003f0| 20 5b 72 65 63 69 70 69 | 65 6e 74 73 20 70 72 69 | [recipi|ents pri|
|00000400| 6d 61 72 79 2d 6f 6e 6c | 79 20 6e 69 6c 20 72 6d |mary-onl|y nil rm|
|00000410| 61 69 6c 2d 6e 65 77 2d | 73 75 6d 6d 61 72 79 20 |ail-new-|summary |
|00000420| 22 72 65 63 69 70 69 65 | 6e 74 73 20 22 20 72 6d |"recipie|nts " rm|
|00000430| 61 69 6c 2d 6d 65 73 73 | 61 67 65 2d 72 65 63 69 |ail-mess|age-reci|
|00000440| 70 69 65 6e 74 73 2d 70 | 20 6d 61 69 6c 2d 63 6f |pients-p| mail-co|
|00000450| 6d 6d 61 2d 6c 69 73 74 | 2d 72 65 67 65 78 70 5d |mma-list|-regexp]|
|00000460| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 6))..(d|efun rma|
|00000470| 69 6c 2d 6d 65 73 73 61 | 67 65 2d 72 65 63 69 70 |il-messa|ge-recip|
|00000480| 69 65 6e 74 73 2d 70 20 | 28 6d 73 67 20 72 65 63 |ients-p |(msg rec|
|00000490| 69 70 69 65 6e 74 73 20 | 26 6f 70 74 69 6f 6e 61 |ipients |&optiona|
|000004a0| 6c 20 70 72 69 6d 61 72 | 79 2d 6f 6e 6c 79 29 20 |l primar|y-only) |
|000004b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8c c3 08 21 |(byte-co|de "...!|
|000004c0| 62 88 c4 c5 21 88 c6 60 | c4 c7 21 88 60 5c 22 88 |b...!..`|..!.`\".|
|000004d0| c8 09 c9 ca 21 86 1c 00 | cb 5c 22 86 3c 00 c8 09 |....!...|.\".<...|
|000004e0| c9 cc 21 86 29 00 cb 5c | 22 86 3c 00 0a 3f 85 3c |..!.)..\|".<..?.<|
|000004f0| 00 c8 09 c9 cd 21 86 3b | 00 cb 5c 22 29 87 22 20 |.....!.;|..\")." |
|00000500| 5b 6d 73 67 20 72 65 63 | 69 70 69 65 6e 74 73 20 |[msg rec|ipients |
|00000510| 70 72 69 6d 61 72 79 2d | 6f 6e 6c 79 20 72 6d 61 |primary-|only rma|
|00000520| 69 6c 2d 6d 73 67 62 65 | 67 20 73 65 61 72 63 68 |il-msgbe|g search|
|00000530| 2d 66 6f 72 77 61 72 64 | 20 22 0a 2a 2a 2a 20 45 |-forward| ".*** E|
|00000540| 4f 4f 48 20 2a 2a 2a 0a | 22 20 6e 61 72 72 6f 77 |OOH ***.|" narrow|
|00000550| 2d 74 6f 2d 72 65 67 69 | 6f 6e 20 22 0a 0a 22 20 |-to-regi|on ".." |
|00000560| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 6d 61 69 |string-m|atch mai|
|00000570| 6c 2d 66 65 74 63 68 2d | 66 69 65 6c 64 20 22 54 |l-fetch-|field "T|
|00000580| 6f 22 20 22 22 20 22 46 | 72 6f 6d 22 20 22 43 63 |o" "" "F|rom" "Cc|
|00000590| 22 5d 20 31 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |"] 12)).|.(defun |
|000005a0| 72 6d 61 69 6c 2d 6e 65 | 77 2d 73 75 6d 6d 61 72 |rmail-ne|w-summar|
|000005b0| 79 20 28 64 65 73 63 72 | 69 70 74 69 6f 6e 20 66 |y (descr|iption f|
|000005c0| 75 6e 63 74 69 6f 6e 20 | 26 72 65 73 74 20 61 72 |unction |&rest ar|
|000005d0| 67 73 29 20 22 5c 0a 43 | 72 65 61 74 65 20 61 20 |gs) "\.C|reate a |
|000005e0| 73 75 6d 6d 61 72 79 20 | 6f 66 20 73 65 6c 65 63 |summary |of selec|
|000005f0| 74 65 64 20 6d 65 73 73 | 61 67 65 73 2e 0a 44 45 |ted mess|ages..DE|
|00000600| 53 43 52 49 50 54 49 4f | 4e 20 6d 61 6b 65 73 20 |SCRIPTIO|N makes |
|00000610| 70 61 72 74 20 6f 66 20 | 74 68 65 20 6d 6f 64 65 |part of |the mode|
|00000620| 20 6c 69 6e 65 20 6f 66 | 20 74 68 65 20 73 75 6d | line of| the sum|
|00000630| 6d 61 72 79 20 62 75 66 | 66 65 72 2e 0a 46 6f 72 |mary buf|fer..For|
|00000640| 20 65 61 63 68 20 6d 65 | 73 73 61 67 65 2c 20 46 | each me|ssage, F|
|00000650| 55 4e 43 54 49 4f 4e 20 | 69 73 20 61 70 70 6c 69 |UNCTION |is appli|
|00000660| 65 64 20 74 6f 20 74 68 | 65 20 6d 65 73 73 61 67 |ed to th|e messag|
|00000670| 65 20 6e 75 6d 62 65 72 | 20 61 6e 64 20 41 52 47 |e number| and ARG|
|00000680| 53 2e 2e 2e 0a 61 6e 64 | 20 69 66 20 74 68 65 20 |S....and| if the |
|00000690| 72 65 73 75 6c 74 20 69 | 73 20 6e 6f 6e 2d 6e 69 |result i|s non-ni|
|000006a0| 6c 2c 20 74 68 61 74 20 | 6d 65 73 73 61 67 65 20 |l, that |message |
|000006b0| 69 73 20 69 6e 63 6c 75 | 64 65 64 2e 0a 6e 69 6c |is inclu|ded..nil|
|000006c0| 20 66 6f 72 20 46 55 4e | 43 54 49 4f 4e 20 6d 65 | for FUN|CTION me|
|000006d0| 61 6e 73 20 61 6c 6c 20 | 6d 65 73 73 61 67 65 73 |ans all |messages|
|000006e0| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 d2 |." (byte|-code ".|
|000006f0| d3 21 88 08 85 0b 00 d4 | 08 21 86 16 00 d5 d4 20 |.!......|.!..... |
|00000700| d6 50 21 89 10 88 c2 d7 | 1b 19 d8 c2 1d 1c 8c 8a |.P!.....|........|
|00000710| d9 20 88 65 62 88 0e 06 | 0c 59 85 4f 00 0e 07 3f |. .eb...|.Y.O...?|
|00000720| 86 3c 00 da 0e 07 0c 0e | 08 42 5c 22 85 46 00 db |.<......|.B\".F..|
|00000730| 0c 21 09 42 89 11 88 0c | 54 89 14 88 82 27 00 29 |.!.B....|T....'.)|
|00000740| 29 2a 88 08 70 0e 06 0e | 0d 1e 0c 1e 0b 1e 0a 1e |)*..p...|........|
|00000750| 09 dc 0e 09 21 88 c2 1d | dd 20 88 09 85 81 00 de |....!...|. ......|
|00000760| df 09 21 0e 09 5c 22 88 | e0 e1 21 88 e2 d8 e3 e4 |..!..\".|..!.....|
|00000770| e5 24 29 88 ce 89 15 88 | 65 62 88 e6 20 88 e7 cf |.$).....|eb.. ...|
|00000780| 21 88 e8 0e 10 44 89 16 | 0f 88 0e 0a 16 11 0e 0b |!....D..|........|
|00000790| 89 16 06 88 e9 0e 0c ce | 5c 22 2c 2a 88 d2 ea 21 |........|\",*...!|
|000007a0| 87 22 20 5b 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |." [rmai|l-summar|
|000007b0| 79 2d 62 75 66 66 65 72 | 20 73 75 6d 6d 61 72 79 |y-buffer| summary|
|000007c0| 2d 6d 73 67 73 20 6e 69 | 6c 20 6e 65 77 2d 73 75 |-msgs ni|l new-su|
|000007d0| 6d 6d 61 72 79 2d 6c 69 | 6e 65 2d 63 6f 75 6e 74 |mmary-li|ne-count|
|000007e0| 20 6d 73 67 6e 75 6d 20 | 62 75 66 66 65 72 2d 72 | msgnum |buffer-r|
|000007f0| 65 61 64 2d 6f 6e 6c 79 | 20 72 6d 61 69 6c 2d 74 |ead-only| rmail-t|
|00000800| 6f 74 61 6c 2d 6d 65 73 | 73 61 67 65 73 20 66 75 |otal-mes|sages fu|
|00000810| 6e 63 74 69 6f 6e 20 61 | 72 67 73 20 73 62 75 66 |nction a|rgs sbuf|
|00000820| 20 72 62 75 66 20 74 6f | 74 61 6c 20 6d 65 73 67 | rbuf to|tal mesg|
|00000830| 20 72 6d 61 69 6c 2d 63 | 75 72 72 65 6e 74 2d 6d | rmail-c|urrent-m|
|00000840| 65 73 73 61 67 65 20 74 | 20 6d 69 6e 6f 72 2d 6d |essage t| minor-m|
|00000850| 6f 64 65 2d 61 6c 69 73 | 74 20 64 65 73 63 72 69 |ode-alis|t descri|
|00000860| 70 74 69 6f 6e 20 72 6d | 61 69 6c 2d 62 75 66 66 |ption rm|ail-buff|
|00000870| 65 72 20 6d 65 73 73 61 | 67 65 20 22 43 6f 6d 70 |er messa|ge "Comp|
|00000880| 75 74 69 6e 67 20 73 75 | 6d 6d 61 72 79 20 6c 69 |uting su|mmary li|
|00000890| 6e 65 73 2e 2e 2e 22 20 | 62 75 66 66 65 72 2d 6e |nes..." |buffer-n|
|000008a0| 61 6d 65 20 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |ame gene|rate-new|
|000008b0| 2d 62 75 66 66 65 72 20 | 22 2d 73 75 6d 6d 61 72 |-buffer |"-summar|
|000008c0| 79 22 20 30 20 31 20 77 | 69 64 65 6e 20 61 70 70 |y" 0 1 w|iden app|
|000008d0| 6c 79 20 72 6d 61 69 6c | 2d 6d 61 6b 65 2d 73 75 |ly rmail|-make-su|
|000008e0| 6d 6d 61 72 79 2d 6c 69 | 6e 65 20 70 6f 70 2d 74 |mmary-li|ne pop-t|
|000008f0| 6f 2d 62 75 66 66 65 72 | 20 65 72 61 73 65 2d 62 |o-buffer| erase-b|
|00000900| 75 66 66 65 72 20 70 72 | 69 6e 63 20 6e 72 65 76 |uffer pr|inc nrev|
|00000910| 65 72 73 65 20 64 65 6c | 65 74 65 2d 63 68 61 72 |erse del|ete-char|
|00000920| 20 2d 31 20 73 75 62 73 | 74 2d 63 68 61 72 2d 69 | -1 subs|t-char-i|
|00000930| 6e 2d 72 65 67 69 6f 6e | 20 32 20 34 30 20 33 32 |n-region| 2 40 32|
|00000940| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 6d | rmail-s|ummary-m|
|00000950| 6f 64 65 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ode make|-local-v|
|00000960| 61 72 69 61 62 6c 65 20 | 22 3a 20 22 20 72 6d 61 |ariable |": " rma|
|00000970| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 67 6f 74 6f 2d |il-summa|ry-goto-|
|00000980| 6d 73 67 20 22 43 6f 6d | 70 75 74 69 6e 67 20 73 |msg "Com|puting s|
|00000990| 75 6d 6d 61 72 79 20 6c | 69 6e 65 73 2e 2e 2e 64 |ummary l|ines...d|
|000009a0| 6f 6e 65 22 5d 20 31 38 | 29 29 0a 0a 28 64 65 66 |one"] 18|))..(def|
|000009b0| 75 6e 20 72 6d 61 69 6c | 2d 6d 61 6b 65 2d 73 75 |un rmail|-make-su|
|000009c0| 6d 6d 61 72 79 2d 6c 69 | 6e 65 20 28 6d 73 67 29 |mmary-li|ne (msg)|
|000009d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 09 0a 53 | (byte-c|ode "..S|
|000009e0| 48 86 1d 00 0b 54 89 13 | 88 c4 c5 0b c6 5c 22 21 |H....T..|.....\"!|
|000009f0| 85 19 00 c7 c8 0b 5c 22 | 88 c9 0a 21 18 08 ca cb |......\"|...!....|
|00000a00| 0a 21 83 2a 00 cc 82 3a | 00 cd ce cf 0a 21 5c 5c |.!.*...:|.....!\\|
|00000a10| 66 55 83 39 00 d0 82 3a | 00 d1 49 88 08 29 87 22 |fU.9...:|..I..)."|
|00000a20| 20 5b 6c 69 6e 65 20 72 | 6d 61 69 6c 2d 73 75 6d | [line r|mail-sum|
|00000a30| 6d 61 72 79 2d 76 65 63 | 74 6f 72 20 6d 73 67 20 |mary-vec|tor msg |
|00000a40| 6e 65 77 2d 73 75 6d 6d | 61 72 79 2d 6c 69 6e 65 |new-summ|ary-line|
|00000a50| 2d 63 6f 75 6e 74 20 7a | 65 72 6f 70 20 25 20 31 |-count z|erop % 1|
|00000a60| 30 20 6d 65 73 73 61 67 | 65 20 22 43 6f 6d 70 75 |0 messag|e "Compu|
|00000a70| 74 69 6e 67 20 73 75 6d | 6d 61 72 79 20 6c 69 6e |ting sum|mary lin|
|00000a80| 65 73 2e 2e 2e 25 64 22 | 20 72 6d 61 69 6c 2d 6d |es...%d"| rmail-m|
|00000a90| 61 6b 65 2d 73 75 6d 6d | 61 72 79 2d 6c 69 6e 65 |ake-summ|ary-line|
|00000aa0| 2d 31 20 34 20 72 6d 61 | 69 6c 2d 6d 65 73 73 61 |-1 4 rma|il-messa|
|00000ab0| 67 65 2d 64 65 6c 65 74 | 65 64 2d 70 20 36 38 20 |ge-delet|ed-p 68 |
|00000ac0| 34 38 20 33 20 72 6d 61 | 69 6c 2d 6d 73 67 62 65 |48 3 rma|il-msgbe|
|00000ad0| 67 20 34 35 20 33 32 5d | 20 31 31 29 29 0a 0a 28 |g 45 32]| 11))..(|
|00000ae0| 64 65 66 75 6e 20 72 6d | 61 69 6c 2d 6d 61 6b 65 |defun rm|ail-make|
|00000af0| 2d 73 75 6d 6d 61 72 79 | 2d 6c 69 6e 65 2d 31 20 |-summary|-line-1 |
|00000b00| 28 6d 73 67 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(msg) (b|yte-code|
|00000b10| 20 22 cc 08 21 62 88 8a | cd ce 21 88 60 29 19 c5 | "..!b..|..!.`)..|
|00000b20| 1a cf d0 21 88 d1 d2 d3 | 21 88 6c 83 20 00 d4 82 |...!....|!.l. ...|
|00000b30| 2a 00 d5 d6 60 d7 20 88 | 60 5c 22 d8 51 21 1b cd |*...`. .|`\".Q!..|
|00000b40| d9 21 88 da db 21 85 45 | 00 dc dd 21 62 88 d6 60 |.!...!.E|...!b..`|
|00000b50| cd d9 21 88 60 5c 22 89 | 14 1c 0c 85 5e 00 de df |..!.`\".|....^...|
|00000b60| 0c 5c 22 3f 85 5e 00 e0 | 60 cd e1 21 88 60 5c 22 |.\"?.^..|`..!.`\"|
|00000b70| 88 c5 89 14 88 0c 86 ad | 00 c7 1e 06 e2 08 21 1e |........|......!.|
|00000b80| 08 cc 08 21 62 88 d2 e3 | 0e 08 c7 23 83 7d 00 60 |...!b...|...#.}.`|
|00000b90| 82 82 00 cd d9 21 88 60 | 1e 09 d2 e4 c5 c7 23 88 |.....!.`|......#.|
|00000ba0| 60 1e 0a 8c e5 0e 09 0e | 0a 5c 22 88 0e 09 62 88 |`.......|.\"...b.|
|00000bb0| e6 20 89 14 29 88 cc 08 | 21 62 88 cd ce 21 88 e7 |. ..)...|!b...!..|
|00000bc0| db 0c 5c 22 2c 88 de df | 0c 5c 22 89 12 88 0e 0b |..\",...|.\".....|
|00000bd0| 08 53 e8 e9 08 5c 22 0c | dd 0a 4f 0b 0c 0a 54 c5 |.S...\".|..O...T.|
|00000be0| 4f 52 49 2c 87 22 20 5b | 6d 73 67 20 6c 69 6d 20 |ORI,." [|msg lim |
|00000bf0| 70 6f 73 20 6c 61 62 65 | 6c 73 20 6c 69 6e 65 20 |pos labe|ls line |
|00000c00| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|00000c10| 61 72 63 68 20 74 20 6e | 65 78 74 20 62 65 67 20 |arch t n|ext beg |
|00000c20| 65 6e 64 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |end rmai|l-summar|
|00000c30| 79 2d 76 65 63 74 6f 72 | 20 72 6d 61 69 6c 2d 6d |y-vector| rmail-m|
|00000c40| 73 67 62 65 67 20 66 6f | 72 77 61 72 64 2d 6c 69 |sgbeg fo|rward-li|
|00000c50| 6e 65 20 32 20 66 6f 72 | 77 61 72 64 2d 63 68 61 |ne 2 for|ward-cha|
|00000c60| 72 20 33 20 63 6f 6e 63 | 61 74 20 73 65 61 72 63 |r 3 conc|at searc|
|00000c70| 68 2d 66 6f 72 77 61 72 | 64 20 22 2c 2c 22 20 22 |h-forwar|d ",," "|
|00000c80| 22 20 22 7b 22 20 62 75 | 66 66 65 72 2d 73 75 62 |" "{" bu|ffer-sub|
|00000c90| 73 74 72 69 6e 67 20 65 | 6e 64 2d 6f 66 2d 6c 69 |string e|nd-of-li|
|00000ca0| 6e 65 20 22 7d 20 22 20 | 31 20 6c 6f 6f 6b 69 6e |ne "} " |1 lookin|
|00000cb0| 67 2d 61 74 20 22 53 75 | 6d 6d 61 72 79 2d 6c 69 |g-at "Su|mmary-li|
|00000cc0| 6e 65 3a 20 22 20 6d 61 | 74 63 68 2d 65 6e 64 20 |ne: " ma|tch-end |
|00000cd0| 30 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |0 string|-match "|
|00000ce0| 23 22 20 64 65 6c 65 74 | 65 2d 72 65 67 69 6f 6e |#" delet|e-region|
|00000cf0| 20 2d 31 20 72 6d 61 69 | 6c 2d 6d 73 67 65 6e 64 | -1 rmai|l-msgend|
|00000d00| 20 22 0a 2a 2a 2a 20 45 | 4f 4f 48 20 2a 2a 2a 0a | ".*** E|OOH ***.|
|00000d10| 22 20 22 0a 0a 22 20 6e | 61 72 72 6f 77 2d 74 6f |" ".." n|arrow-to|
|00000d20| 2d 72 65 67 69 6f 6e 20 | 72 6d 61 69 6c 2d 6d 61 |-region |rmail-ma|
|00000d30| 6b 65 2d 62 61 73 69 63 | 2d 73 75 6d 6d 61 72 79 |ke-basic|-summary|
|00000d40| 2d 6c 69 6e 65 20 69 6e | 73 65 72 74 20 66 6f 72 |-line in|sert for|
|00000d50| 6d 61 74 20 22 25 34 64 | 20 20 22 5d 20 33 35 29 |mat "%4d|  "] 35)|
|00000d60| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00000d70| 6d 61 6b 65 2d 62 61 73 | 69 63 2d 73 75 6d 6d 61 |make-bas|ic-summa|
|00000d80| 72 79 2d 6c 69 6e 65 20 | 6e 69 6c 20 28 62 79 74 |ry-line |nil (byt|
|00000d90| 65 2d 63 6f 64 65 20 22 | 65 62 88 c6 8a c7 c8 c0 |e-code "|eb......|
|00000da0| c1 23 3f 83 12 00 c9 82 | 5d 00 c7 ca 8a cb 20 88 |.#?.....|]..... .|
|00000db0| 60 29 c1 23 83 37 00 cc | cd ce cf d0 d1 21 d2 d1 |`).#.7..|.....!..|
|00000dc0| 21 5c 22 21 cf d0 d3 21 | d2 d3 21 5c 22 23 82 5d |!\"!...!|..!\"#.]|
|00000dd0| 00 c7 d4 8a cb 20 88 60 | 29 c1 23 83 5c 5c 00 cc |..... .`|).#.\\..|
|00000de0| cd ce cf d0 d3 21 d2 d3 | 21 5c 22 21 cf d0 d1 21 |.....!..|!\"!...!|
|00000df0| d2 d1 21 5c 22 23 82 5d | 00 d5 29 d6 8a c7 d7 c0 |..!\"#.]|..).....|
|00000e00| c1 23 3f 83 6d 00 d8 82 | ff 00 d9 cf 60 53 cb 20 |.#?.m...|....`S. |
|00000e10| 88 da db 21 88 60 5c 22 | 21 1a c0 1b c0 1c c0 1d |...!.`\"|!.......|
|00000e20| dc dd de df 20 21 e0 51 | 0a 5c 22 85 b2 00 8a 65 |.... !.Q|.\"....e|
|00000e30| 62 88 c7 e1 c0 c1 23 3f | 83 a0 00 c0 82 b1 00 e2 |b.....#?|........|
|00000e40| d9 cf 60 cb 20 88 da db | 21 88 60 5c 22 21 50 89 |..`. ...|!.`\"!P.|
|00000e50| 12 29 88 0a 47 89 13 88 | dc e3 0a 5c 22 89 14 88 |.)..G...|...\"...|
|00000e60| cc e4 0c 3f 86 c9 00 0b | e5 58 83 d7 00 0a e6 0b |...?....|.X......|
|00000e70| e5 5a 5d c0 4f 82 fd 00 | 0a 0c e7 5a e6 57 83 e4 |.Z].O...|...Z.W..|
|00000e80| 00 e6 82 f5 00 0b 0c e8 | 5c 5c 57 83 f2 00 0b e5 |........|\\W.....|
|00000e90| 5a 82 f5 00 0c e7 5a 89 | 15 0b 0d e5 5c 5c 5e 4f |Z.....Z.|....\\^O|
|00000ea0| 5c 22 2c 29 e9 c7 ea c0 | c1 23 83 17 01 eb db 21 |\",)....|.#.....!|
|00000eb0| 88 cf 60 cb 20 88 60 5c | 22 82 24 01 c7 ec c0 c1 |..`. .`\|".$.....|
|00000ec0| 23 88 cf 60 cb 20 88 60 | 5c 22 ed 26 06 87 22 20 |#..`. .`|\".&.." |
|00000ed0| 5b 6e 69 6c 20 74 20 66 | 72 6f 6d 20 6c 65 6e 20 |[nil t f|rom len |
|00000ee0| 6d 63 68 20 6c 6f 20 63 | 6f 6e 63 61 74 20 72 65 |mch lo c|oncat re|
|00000ef0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000f00| 22 5e 44 61 74 65 3a 22 | 20 22 20 20 20 20 20 20 |"^Date:"| "      |
|00000f10| 22 20 22 5c 5c 28 5b 5e | 30 2d 39 3a 5d 5c 5c 29 |" "\\([^|0-9:]\\)|
|00000f20| 5c 5c 28 5b 30 2d 33 5d | 3f 5b 30 2d 39 5d 5c 5c |\\([0-3]|?[0-9]\\|
|00000f30| 29 5c 5c 28 5b 2d 20 09 | 5f 5d 2b 5c 5c 29 5c 5c |)\\([- .|_]+\\)\\|
|00000f40| 28 5b 61 64 66 6a 6d 6e | 6f 73 5d 5b 61 63 65 6f |([adfjmn|os][aceo|
|00000f50| 70 75 5d 5b 62 63 67 6c | 6e 70 72 74 76 79 5d 5c |pu][bcgl|nprtvy]\|
|00000f60| 5c 29 22 20 65 6e 64 2d | 6f 66 2d 6c 69 6e 65 20 |\)" end-|of-line |
|00000f70| 66 6f 72 6d 61 74 20 22 | 25 32 64 2d 25 33 73 22 |format "|%2d-%3s"|
|00000f80| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 62 | string-|to-int b|
|00000f90| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00000fa0| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00000fb0| 32 20 6d 61 74 63 68 2d | 65 6e 64 20 34 20 22 5c |2 match-|end 4 "\|
|00000fc0| 5c 28 5b 5e 61 2d 7a 5d | 5c 5c 29 5c 5c 28 5b 61 |\([^a-z]|\\)\\([a|
|00000fd0| 64 66 6a 6d 6e 6f 73 5d | 5b 61 63 65 70 6f 75 5d |dfjmnos]|[acepou]|
|00000fe0| 5b 62 63 67 6c 6e 70 72 | 74 76 79 5d 5c 5c 29 5c |[bcglnpr|tvy]\\)\|
|00000ff0| 5c 28 5b 2d 61 2d 7a 20 | 09 5f 5d 2a 5c 5c 29 5c |\([-a-z |._]*\\)\|
|00001000| 5c 28 5b 30 2d 39 5d 5b | 30 2d 39 5d 3f 5c 5c 29 |\([0-9][|0-9]?\\)|
|00001010| 22 20 22 3f 3f 3f 3f 3f | 3f 22 20 22 20 20 22 20 |" "?????|?" "  " |
|00001020| 22 5e 46 72 6f 6d 3a 5b | 20 09 5d 2a 22 20 22 20 |"^From:[| .]*" " |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001040| 20 20 20 20 20 20 20 20 | 22 20 6d 61 69 6c 2d 73 |        |" mail-s|
|00001050| 74 72 69 70 2d 71 75 6f | 74 65 64 2d 6e 61 6d 65 |trip-quo|ted-name|
|00001060| 73 20 73 6b 69 70 2d 63 | 68 61 72 73 2d 62 61 63 |s skip-c|hars-bac|
|00001070| 6b 77 61 72 64 20 22 20 | 09 22 20 73 74 72 69 6e |kward " |." strin|
|00001080| 67 2d 6d 61 74 63 68 20 | 22 5e 22 20 72 65 67 65 |g-match |"^" rege|
|00001090| 78 70 2d 71 75 6f 74 65 | 20 75 73 65 72 2d 6c 6f |xp-quote| user-lo|
|000010a0| 67 69 6e 2d 6e 61 6d 65 | 20 22 5c 5c 28 24 5c 5c |gin-name| "\\($\\|
|000010b0| 7c 40 5c 5c 29 22 20 22 | 5e 54 6f 3a 5b 20 09 5d ||@\\)" "|^To:[ .]|
|000010c0| 2a 22 20 22 74 6f 3a 20 | 22 20 22 5b 40 25 5d 22 |*" "to: |" "[@%]"|
|000010d0| 20 22 25 32 35 73 22 20 | 32 35 20 30 20 39 20 31 | "%25s" |25 0 9 1|
|000010e0| 36 20 22 20 20 23 22 20 | 22 5e 53 75 62 6a 65 63 |6 "  #" |"^Subjec|
|000010f0| 74 3a 22 20 73 6b 69 70 | 2d 63 68 61 72 73 2d 66 |t:" skip|-chars-f|
|00001100| 6f 72 77 61 72 64 20 22 | 5b 0a 5d 5b 0a 5d 2b 22 |orward "|[.][.]+"|
|00001110| 20 22 0a 22 5d 20 35 30 | 29 29 0a 0a 28 64 65 66 | "."] 50|))..(def|
|00001120| 75 6e 20 72 6d 61 69 6c | 2d 73 75 6d 6d 61 72 79 |un rmail|-summary|
|00001130| 2d 6e 65 78 74 2d 61 6c | 6c 20 28 26 6f 70 74 69 |-next-al|l (&opti|
|00001140| 6f 6e 61 6c 20 6e 75 6d | 62 65 72 29 20 28 69 6e |onal num|ber) (in|
|00001150| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00001160| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c2 08 83 |byte-cod|e ".....|
|00001170| 0b 00 08 82 0c 00 c3 21 | 88 c4 20 87 22 20 5b 6e |.......!|.. ." [n|
|00001180| 75 6d 62 65 72 20 6e 69 | 6c 20 66 6f 72 77 61 72 |umber ni|l forwar|
|00001190| 64 2d 6c 69 6e 65 20 31 | 20 72 6d 61 69 6c 2d 73 |d-line 1| rmail-s|
|000011a0| 75 6d 6d 61 72 79 2d 67 | 6f 74 6f 2d 6d 73 67 5d |ummary-g|oto-msg]|
|000011b0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 | 3))..(d|efun rma|
|000011c0| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 70 72 65 76 69 |il-summa|ry-previ|
|000011d0| 6f 75 73 2d 61 6c 6c 20 | 28 26 6f 70 74 69 6f 6e |ous-all |(&option|
|000011e0| 61 6c 20 6e 75 6d 62 65 | 72 29 20 28 69 6e 74 65 |al numbe|r) (inte|
|000011f0| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00001200| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 08 83 0b 00 |te-code |".......|
|00001210| 08 82 0c 00 c3 5b 21 88 | c4 20 87 22 20 5b 6e 75 |.....[!.|. ." [nu|
|00001220| 6d 62 65 72 20 6e 69 6c | 20 66 6f 72 77 61 72 64 |mber nil| forward|
|00001230| 2d 6c 69 6e 65 20 31 20 | 72 6d 61 69 6c 2d 73 75 |-line 1 |rmail-su|
|00001240| 6d 6d 61 72 79 2d 67 6f | 74 6f 2d 6d 73 67 5d 20 |mmary-go|to-msg] |
|00001250| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6d 61 69 |3))..(de|fun rmai|
|00001260| 6c 2d 73 75 6d 6d 61 72 | 79 2d 6e 65 78 74 2d 6d |l-summar|y-next-m|
|00001270| 73 67 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 75 |sg (&opt|ional nu|
|00001280| 6d 62 65 72 29 20 28 69 | 6e 74 65 72 61 63 74 69 |mber) (i|nteracti|
|00001290| 76 65 20 22 70 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "p") |(byte-co|
|000012a0| 64 65 20 22 c4 88 c6 c7 | 21 88 08 c7 56 85 0f 00 |de "....|!...V...|
|000012b0| c6 c8 21 88 08 c7 57 83 | 1b 00 08 5b 82 1c 00 08 |..!...W.|...[....|
|000012c0| 08 c7 56 83 26 00 c9 82 | 27 00 ca c4 1b 1a 19 09 |..V.&...|'.......|
|000012d0| c7 56 85 37 00 cb 0a cc | c4 c5 24 85 42 00 09 53 |.V.7....|..$.B..S|
|000012e0| 89 11 88 82 2b 00 88 cd | 20 2b 87 22 20 5b 6e 75 |....+...| +." [nu|
|000012f0| 6d 62 65 72 20 63 6f 75 | 6e 74 20 73 65 61 72 63 |mber cou|nt searc|
|00001300| 68 20 65 6e 64 20 6e 69 | 6c 20 74 20 66 6f 72 77 |h end ni|l t forw|
|00001310| 61 72 64 2d 6c 69 6e 65 | 20 30 20 31 20 72 65 2d |ard-line| 0 1 re-|
|00001320| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 72 |search-f|orward r|
|00001330| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00001340| 64 20 66 75 6e 63 61 6c | 6c 20 22 5e 2e 2e 2e 2e |d funcal|l "^....|
|00001350| 2e 5b 5e 44 5d 22 20 72 | 6d 61 69 6c 2d 73 75 6d |.[^D]" r|mail-sum|
|00001360| 6d 61 72 79 2d 67 6f 74 | 6f 2d 6d 73 67 5d 20 37 |mary-got|o-msg] 7|
|00001370| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|00001380| 2d 73 75 6d 6d 61 72 79 | 2d 70 72 65 76 69 6f 75 |-summary|-previou|
|00001390| 73 2d 6d 73 67 20 28 26 | 6f 70 74 69 6f 6e 61 6c |s-msg (&|optional|
|000013a0| 20 6e 75 6d 62 65 72 29 | 20 28 69 6e 74 65 72 61 | number)| (intera|
|000013b0| 63 74 69 76 65 20 22 70 | 22 29 20 28 62 79 74 65 |ctive "p|") (byte|
|000013c0| 2d 63 6f 64 65 20 22 c1 | 88 c2 08 83 0b 00 08 82 |-code ".|........|
|000013d0| 0c 00 c3 5b 21 87 22 20 | 5b 6e 75 6d 62 65 72 20 |...[!." |[number |
|000013e0| 6e 69 6c 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |nil rmai|l-summar|
|000013f0| 79 2d 6e 65 78 74 2d 6d | 73 67 20 31 5d 20 32 29 |y-next-m|sg 1] 2)|
|00001400| 29 0a 0a 28 64 65 66 75 | 6e 20 72 6d 61 69 6c 2d |)..(defu|n rmail-|
|00001410| 73 75 6d 6d 61 72 79 2d | 64 65 6c 65 74 65 2d 66 |summary-|delete-f|
|00001420| 6f 72 77 61 72 64 20 6e | 69 6c 20 28 69 6e 74 65 |orward n|il (inte|
|00001430| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00001440| 6f 64 65 20 22 c4 88 c4 | 18 c5 20 88 c6 09 21 88 |ode "...|.. ...!.|
|00001450| c7 20 88 c6 0a 21 88 c4 | 1b c8 c9 21 88 c8 ca 21 |. ...!..|...!...!|
|00001460| 88 cb cc 21 88 cd 63 29 | 88 ce cc 21 29 87 22 20 |...!..c)|...!)." |
|00001470| 5b 65 6e 64 20 72 6d 61 | 69 6c 2d 62 75 66 66 65 |[end rma|il-buffe|
|00001480| 72 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |r rmail-|summary-|
|00001490| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 2d 72 65 |buffer b|uffer-re|
|000014a0| 61 64 2d 6f 6e 6c 79 20 | 6e 69 6c 20 72 6d 61 69 |ad-only |nil rmai|
|000014b0| 6c 2d 73 75 6d 6d 61 72 | 79 2d 67 6f 74 6f 2d 6d |l-summar|y-goto-m|
|000014c0| 73 67 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |sg pop-t|o-buffer|
|000014d0| 20 72 6d 61 69 6c 2d 64 | 65 6c 65 74 65 2d 6d 65 | rmail-d|elete-me|
|000014e0| 73 73 61 67 65 20 73 6b | 69 70 2d 63 68 61 72 73 |ssage sk|ip-chars|
|000014f0| 2d 66 6f 72 77 61 72 64 | 20 22 20 22 20 22 5b 30 |-forward| " " "[0|
|00001500| 2d 39 5d 22 20 64 65 6c | 65 74 65 2d 63 68 61 72 |-9]" del|ete-char|
|00001510| 20 31 20 22 44 22 20 72 | 6d 61 69 6c 2d 73 75 6d | 1 "D" r|mail-sum|
|00001520| 6d 61 72 79 2d 6e 65 78 | 74 2d 6d 73 67 5d 20 39 |mary-nex|t-msg] 9|
|00001530| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 6d 61 69 6c |))..(def|un rmail|
|00001540| 2d 73 75 6d 6d 61 72 79 | 2d 75 6e 64 65 6c 65 74 |-summary|-undelet|
|00001550| 65 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |e nil (i|nteracti|
|00001560| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00001570| c1 88 c1 18 c6 20 88 c7 | c8 c1 c2 23 83 29 00 c9 |..... ..|...#.)..|
|00001580| ca 21 88 cb 20 88 cc 0b | 21 88 cd 0c 21 85 5c 22 |.!.. ...|!...!.\"|
|00001590| 00 ce 20 88 cc 0d 21 82 | 2b 00 cb 20 29 87 22 20 |.. ...!.|+.. )." |
|000015a0| 5b 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c |[buffer-|read-onl|
|000015b0| 79 20 6e 69 6c 20 74 20 | 72 6d 61 69 6c 2d 62 75 |y nil t |rmail-bu|
|000015c0| 66 66 65 72 20 72 6d 61 | 69 6c 2d 63 75 72 72 65 |ffer rma|il-curre|
|000015d0| 6e 74 2d 6d 65 73 73 61 | 67 65 20 72 6d 61 69 6c |nt-messa|ge rmail|
|000015e0| 2d 73 75 6d 6d 61 72 79 | 2d 62 75 66 66 65 72 20 |-summary|-buffer |
|000015f0| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 72 65 2d 73 |end-of-l|ine re-s|
|00001600| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00001610| 5c 5c 28 5e 20 2a 5b 30 | 2d 39 5d 2a 5c 5c 29 5c |\\(^ *[0|-9]*\\)\|
|00001620| 5c 28 44 5c 5c 29 22 20 | 72 65 70 6c 61 63 65 2d |\(D\\)" |replace-|
|00001630| 6d 61 74 63 68 20 22 5c | 5c 31 20 22 20 72 6d 61 |match "\|\1 " rma|
|00001640| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 67 6f 74 6f 2d |il-summa|ry-goto-|
|00001650| 6d 73 67 20 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |msg pop-|to-buffe|
|00001660| 72 20 72 6d 61 69 6c 2d | 6d 65 73 73 61 67 65 2d |r rmail-|message-|
|00001670| 64 65 6c 65 74 65 64 2d | 70 20 72 6d 61 69 6c 2d |deleted-|p rmail-|
|00001680| 75 6e 64 65 6c 65 74 65 | 2d 70 72 65 76 69 6f 75 |undelete|-previou|
|00001690| 73 2d 6d 65 73 73 61 67 | 65 5d 20 31 30 29 29 0a |s-messag|e] 10)).|
|000016a0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 72 6d 61 |.(put (q|uote rma|
|000016b0| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6d 6f 64 65 29 |il-summa|ry-mode)|
|000016c0| 20 28 71 75 6f 74 65 20 | 6d 6f 64 65 2d 63 6c 61 | (quote |mode-cla|
|000016d0| 73 73 29 20 28 71 75 6f | 74 65 20 73 70 65 63 69 |ss) (quo|te speci|
|000016e0| 61 6c 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 6d 61 |al))..(d|efun rma|
|000016f0| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6d 6f 64 65 20 |il-summa|ry-mode |
|00001700| 6e 69 6c 20 22 5c 0a 4d | 61 6a 6f 72 20 6d 6f 64 |nil "\.M|ajor mod|
|00001710| 65 20 69 6e 20 65 66 66 | 65 63 74 20 69 6e 20 52 |e in eff|ect in R|
|00001720| 6d 61 69 6c 20 73 75 6d | 6d 61 72 79 20 62 75 66 |mail sum|mary buf|
|00001730| 66 65 72 2e 0a 41 20 73 | 75 62 73 65 74 20 6f 66 |fer..A s|ubset of|
|00001740| 20 74 68 65 20 52 6d 61 | 69 6c 20 6d 6f 64 65 20 | the Rma|il mode |
|00001750| 63 6f 6d 6d 61 6e 64 73 | 20 61 72 65 20 73 75 70 |commands| are sup|
|00001760| 70 6f 72 74 65 64 20 69 | 6e 20 74 68 69 73 20 6d |ported i|n this m|
|00001770| 6f 64 65 2e 20 0a 41 73 | 20 63 6f 6d 6d 61 6e 64 |ode. .As| command|
|00001780| 73 20 61 72 65 20 69 73 | 73 75 65 64 20 69 6e 20 |s are is|sued in |
|00001790| 74 68 65 20 73 75 6d 6d | 61 72 79 20 62 75 66 66 |the summ|ary buff|
|000017a0| 65 72 20 74 68 65 20 63 | 6f 72 72 65 73 70 6f 6e |er the c|orrespon|
|000017b0| 64 69 6e 67 0a 6d 61 69 | 6c 20 6d 65 73 73 61 67 |ding.mai|l messag|
|000017c0| 65 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |e is dis|played i|
|000017d0| 6e 20 74 68 65 20 72 6d | 61 69 6c 20 62 75 66 66 |n the rm|ail buff|
|000017e0| 65 72 2e 0a 0a 6e 20 20 | 20 20 20 20 20 4d 6f 76 |er...n  |     Mov|
|000017f0| 65 20 74 6f 20 6e 65 78 | 74 20 75 6e 64 65 6c 65 |e to nex|t undele|
|00001800| 74 65 64 20 6d 65 73 73 | 61 67 65 2c 20 6f 72 20 |ted mess|age, or |
|00001810| 61 72 67 20 6d 65 73 73 | 61 67 65 73 2e 0a 70 20 |arg mess|ages..p |
|00001820| 20 20 20 20 20 20 4d 6f | 76 65 20 74 6f 20 70 72 |      Mo|ve to pr|
|00001830| 65 76 69 6f 75 73 20 75 | 6e 64 65 6c 65 74 65 64 |evious u|ndeleted|
|00001840| 20 6d 65 73 73 61 67 65 | 2c 20 6f 72 20 61 72 67 | message|, or arg|
|00001850| 20 6d 65 73 73 61 67 65 | 73 2e 0a 43 2d 6e 09 4d | message|s..C-n.M|
|00001860| 6f 76 65 20 74 6f 20 6e | 65 78 74 2c 20 6f 72 20 |ove to n|ext, or |
|00001870| 66 6f 72 77 61 72 64 20 | 61 72 67 20 6d 65 73 73 |forward |arg mess|
|00001880| 61 67 65 73 2e 0a 43 2d | 70 09 4d 6f 76 65 20 74 |ages..C-|p.Move t|
|00001890| 6f 20 70 72 65 76 69 6f | 75 73 2c 20 6f 72 20 70 |o previo|us, or p|
|000018a0| 72 65 76 69 6f 75 73 20 | 61 72 67 20 6d 65 73 73 |revious |arg mess|
|000018b0| 61 67 65 73 2e 0a 6a 20 | 20 20 20 20 20 20 4a 75 |ages..j |      Ju|
|000018c0| 6d 70 20 74 6f 20 74 68 | 65 20 6d 65 73 73 61 67 |mp to th|e messag|
|000018d0| 65 20 61 74 20 74 68 65 | 20 63 75 72 73 6f 72 20 |e at the| cursor |
|000018e0| 6c 6f 63 61 74 69 6f 6e | 2e 0a 64 20 20 20 20 20 |location|..d     |
|000018f0| 20 20 44 65 6c 65 74 65 | 20 74 68 65 20 6d 65 73 |  Delete| the mes|
|00001900| 73 61 67 65 20 61 74 20 | 74 68 65 20 63 75 72 73 |sage at |the curs|
|00001910| 6f 72 20 6c 6f 63 61 74 | 69 6f 6e 20 61 6e 64 20 |or locat|ion and |
|00001920| 6d 6f 76 65 20 74 6f 20 | 6e 65 78 74 20 6d 65 73 |move to |next mes|
|00001930| 73 61 67 65 2e 0a 75 09 | 55 6e 64 65 6c 65 74 65 |sage..u.|Undelete|
|00001940| 20 74 68 69 73 20 6f 72 | 20 70 72 65 76 69 6f 75 | this or| previou|
|00001950| 73 20 64 65 6c 65 74 65 | 64 20 6d 65 73 73 61 67 |s delete|d messag|
|00001960| 65 2e 0a 71 09 51 75 69 | 74 20 52 6d 61 69 6c 2e |e..q.Qui|t Rmail.|
|00001970| 0a 78 09 45 78 69 74 20 | 61 6e 64 20 6b 69 6c 6c |.x.Exit |and kill|
|00001980| 20 74 68 65 20 73 75 6d | 6d 61 72 79 20 77 69 6e | the sum|mary win|
|00001990| 64 6f 77 2e 0a 73 70 61 | 63 65 20 20 20 53 63 72 |dow..spa|ce   Scr|
|000019a0| 6f 6c 6c 20 6d 65 73 73 | 61 67 65 20 69 6e 20 6f |oll mess|age in o|
|000019b0| 74 68 65 72 20 77 69 6e | 64 6f 77 20 66 6f 72 77 |ther win|dow forw|
|000019c0| 61 72 64 2e 0a 64 65 6c | 65 74 65 20 20 53 63 72 |ard..del|ete  Scr|
|000019d0| 6f 6c 6c 20 6d 65 73 73 | 61 67 65 20 62 61 63 6b |oll mess|age back|
|000019e0| 77 61 72 64 2e 0a 0a 45 | 6e 74 65 72 69 6e 67 20 |ward...E|ntering |
|000019f0| 74 68 69 73 20 6d 6f 64 | 65 20 63 61 6c 6c 73 20 |this mod|e calls |
|00001a00| 76 61 6c 75 65 20 6f 66 | 20 68 6f 6f 6b 20 76 61 |value of| hook va|
|00001a10| 72 69 61 62 6c 65 20 72 | 6d 61 69 6c 2d 73 75 6d |riable r|mail-sum|
|00001a20| 6d 61 72 79 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 2e 22 |mary-mod|e-hook."|
|00001a30| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00001a40| 62 79 74 65 2d 63 6f 64 | 65 20 22 c7 88 c8 20 88 |byte-cod|e "... .|
|00001a50| c9 ca 21 88 c9 cb 21 88 | cc 89 10 88 cd 89 11 88 |..!...!.|........|
|00001a60| ce 0a 21 88 c4 89 13 88 | c4 89 15 88 cf 0e 06 21 |..!.....|.......!|
|00001a70| 88 d0 d1 21 87 22 20 5b | 6d 61 6a 6f 72 2d 6d 6f |...!." [|major-mo|
|00001a80| 64 65 20 6d 6f 64 65 2d | 6e 61 6d 65 20 72 6d 61 |de mode-|name rma|
|00001a90| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6d 6f 64 65 2d |il-summa|ry-mode-|
|00001aa0| 6d 61 70 20 74 72 75 6e | 63 61 74 65 2d 6c 69 6e |map trun|cate-lin|
|00001ab0| 65 73 20 74 20 62 75 66 | 66 65 72 2d 72 65 61 64 |es t buf|fer-read|
|00001ac0| 2d 6f 6e 6c 79 20 74 65 | 78 74 2d 6d 6f 64 65 2d |-only te|xt-mode-|
|00001ad0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6e 69 6c |syntax-t|able nil|
|00001ae0| 20 6b 69 6c 6c 2d 61 6c | 6c 2d 6c 6f 63 61 6c 2d | kill-al|l-local-|
|00001af0| 76 61 72 69 61 62 6c 65 | 73 20 6d 61 6b 65 2d 6c |variable|s make-l|
|00001b00| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 72 6d |ocal-var|iable rm|
|00001b10| 61 69 6c 2d 62 75 66 66 | 65 72 20 72 6d 61 69 6c |ail-buff|er rmail|
|00001b20| 2d 74 6f 74 61 6c 2d 6d | 65 73 73 61 67 65 73 20 |-total-m|essages |
|00001b30| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 6d 6f |rmail-su|mmary-mo|
|00001b40| 64 65 20 22 52 4d 41 49 | 4c 20 53 75 6d 6d 61 72 |de "RMAI|L Summar|
|00001b50| 79 22 20 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |y" use-l|ocal-map|
|00001b60| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00001b70| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 72 6d 61 69 |e run-ho|oks rmai|
|00001b80| 6c 2d 73 75 6d 6d 61 72 | 79 2d 6d 6f 64 65 2d 68 |l-summar|y-mode-h|
|00001b90| 6f 6f 6b 5d 20 37 29 29 | 0a 0a 28 64 65 66 75 6e |ook] 7))|..(defun|
|00001ba0| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 67 | rmail-s|ummary-g|
|00001bb0| 6f 74 6f 2d 6d 73 67 20 | 28 26 6f 70 74 69 6f 6e |oto-msg |(&option|
|00001bc0| 61 6c 20 6e 20 6e 6f 77 | 61 72 6e 29 20 28 69 6e |al n now|arn) (in|
|00001bd0| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00001be0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 88 08 3a 85 |byte-cod|e "...:.|
|00001bf0| 0c 00 cb 08 21 89 10 88 | 6d 85 14 00 cc cd 21 88 |....!...|m.....!.|
|00001c00| ce 20 88 0a 60 cf d0 60 | 64 d1 60 5c 5c 5e 5c 22 |. ..`..`|d.`\\^\"|
|00001c10| 21 1c 1b 19 08 3f 83 32 | 00 0c 89 10 82 70 00 08 |!....?.2|.....p..|
|00001c20| d2 57 85 3f 00 d3 d4 21 | 88 d2 89 10 88 08 0d 56 |.W.?...!|.......V|
|00001c30| 85 4f 00 d3 d5 21 88 64 | 62 88 d6 20 88 65 62 88 |.O...!.d|b.. .eb.|
|00001c40| d7 d8 d9 08 21 50 c6 c7 | 23 3f 85 70 00 0e 08 86 |....!P..|#?.p....|
|00001c50| 69 00 d3 da 08 5c 22 88 | 0c 89 10 88 0b 62 88 ce |i....\".|.....b..|
|00001c60| 20 88 db dc 21 88 db dd | 21 88 8a 67 de 55 85 8d | ...!...|!..g.U..|
|00001c70| 00 c6 1e 09 df d2 21 88 | dc 63 29 29 88 ce 20 88 |......!.|.c)).. .|
|00001c80| e0 09 21 88 e1 08 21 88 | e0 0e 0a 21 2b 87 22 20 |..!...!.|...!+." |
|00001c90| 5b 6e 20 62 75 66 20 72 | 6d 61 69 6c 2d 62 75 66 |[n buf r|mail-buf|
|00001ca0| 66 65 72 20 63 75 72 20 | 63 75 72 6d 73 67 20 72 |fer cur |curmsg r|
|00001cb0| 6d 61 69 6c 2d 74 6f 74 | 61 6c 2d 6d 65 73 73 61 |mail-tot|al-messa|
|00001cc0| 67 65 73 20 6e 69 6c 20 | 74 20 6e 6f 77 61 72 6e |ges nil |t nowarn|
|00001cd0| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00001ce0| 79 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |y rmail-|summary-|
|00001cf0| 62 75 66 66 65 72 20 70 | 72 65 66 69 78 2d 6e 75 |buffer p|refix-nu|
|00001d00| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 66 6f 72 77 |meric-va|lue forw|
|00001d10| 61 72 64 2d 6c 69 6e 65 | 20 2d 31 20 62 65 67 69 |ard-line| -1 begi|
|00001d20| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 73 74 |nning-of|-line st|
|00001d30| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 62 75 66 66 |ring-to-|int buff|
|00001d40| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 35 20 31 |er-subst|ring 5 1|
|00001d50| 20 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 70 72 65 | message| "No pre|
|00001d60| 63 65 64 69 6e 67 20 6d | 65 73 73 61 67 65 22 20 |ceding m|essage" |
|00001d70| 22 4e 6f 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |"No foll|owing me|
|00001d80| 73 73 61 67 65 22 20 72 | 6d 61 69 6c 2d 73 75 6d |ssage" r|mail-sum|
|00001d90| 6d 61 72 79 2d 67 6f 74 | 6f 2d 6d 73 67 20 72 65 |mary-got|o-msg re|
|00001da0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001db0| 22 5e 20 2a 22 20 69 6e | 74 2d 74 6f 2d 73 74 72 |"^ *" in|t-to-str|
|00001dc0| 69 6e 67 20 22 4d 65 73 | 73 61 67 65 20 25 64 20 |ing "Mes|sage %d |
|00001dd0| 6e 6f 74 20 66 6f 75 6e | 64 22 20 73 6b 69 70 2d |not foun|d" skip-|
|00001de0| 63 68 61 72 73 2d 66 6f | 72 77 61 72 64 20 22 20 |chars-fo|rward " |
|00001df0| 22 20 22 30 2d 39 22 20 | 34 35 20 64 65 6c 65 74 |" "0-9" |45 delet|
|00001e00| 65 2d 63 68 61 72 20 70 | 6f 70 2d 74 6f 2d 62 75 |e-char p|op-to-bu|
|00001e10| 66 66 65 72 20 72 6d 61 | 69 6c 2d 73 68 6f 77 2d |ffer rma|il-show-|
|00001e20| 6d 65 73 73 61 67 65 5d | 20 32 30 29 29 0a 0a 28 |message]| 20))..(|
|00001e30| 64 65 66 76 61 72 20 72 | 6d 61 69 6c 2d 73 75 6d |defvar r|mail-sum|
|00001e40| 6d 61 72 79 2d 6d 6f 64 | 65 2d 6d 61 70 20 6e 69 |mary-mod|e-map ni|
|00001e50| 6c 29 0a 0a 28 69 66 20 | 72 6d 61 69 6c 2d 73 75 |l)..(if |rmail-su|
|00001e60| 6d 6d 61 72 79 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |mmary-mo|de-map n|
|00001e70| 69 6c 20 28 73 65 74 71 | 20 72 6d 61 69 6c 2d 73 |il (setq| rmail-s|
|00001e80| 75 6d 6d 61 72 79 2d 6d | 6f 64 65 2d 6d 61 70 20 |ummary-m|ode-map |
|00001e90| 28 6d 61 6b 65 2d 6b 65 | 79 6d 61 70 29 29 20 28 |(make-ke|ymap)) (|
|00001ea0| 73 75 70 70 72 65 73 73 | 2d 6b 65 79 6d 61 70 20 |suppress|-keymap |
|00001eb0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 6d 6f |rmail-su|mmary-mo|
|00001ec0| 64 65 2d 6d 61 70 29 20 | 28 64 65 66 69 6e 65 2d |de-map) |(define-|
|00001ed0| 6b 65 79 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |key rmai|l-summar|
|00001ee0| 79 2d 6d 6f 64 65 2d 6d | 61 70 20 22 6a 22 20 28 |y-mode-m|ap "j" (|
|00001ef0| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 73 75 6d 6d |quote rm|ail-summ|
|00001f00| 61 72 79 2d 67 6f 74 6f | 2d 6d 73 67 29 29 20 28 |ary-goto|-msg)) (|
|00001f10| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00001f20| 2d 73 75 6d 6d 61 72 79 | 2d 6d 6f 64 65 2d 6d 61 |-summary|-mode-ma|
|00001f30| 70 20 22 6e 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "n" (q|uote rma|
|00001f40| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6e 65 78 74 2d |il-summa|ry-next-|
|00001f50| 6d 73 67 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |msg)) (d|efine-ke|
|00001f60| 79 20 72 6d 61 69 6c 2d | 73 75 6d 6d 61 72 79 2d |y rmail-|summary-|
|00001f70| 6d 6f 64 65 2d 6d 61 70 | 20 22 70 22 20 28 71 75 |mode-map| "p" (qu|
|00001f80| 6f 74 65 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |ote rmai|l-summar|
|00001f90| 79 2d 70 72 65 76 69 6f | 75 73 2d 6d 73 67 29 29 |y-previo|us-msg))|
|00001fa0| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 72 6d 61 | (define|-key rma|
|00001fb0| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 6d 6f 64 65 2d |il-summa|ry-mode-|
|00001fc0| 6d 61 70 20 22 0e 22 20 | 28 71 75 6f 74 65 20 72 |map "." |(quote r|
|00001fd0| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 6e 65 78 |mail-sum|mary-nex|
|00001fe0| 74 2d 61 6c 6c 29 29 20 | 28 64 65 66 69 6e 65 2d |t-all)) |(define-|
|00001ff0| 6b 65 79 20 72 6d 61 69 | 6c 2d 73 75 6d 6d 61 72 |key rmai|l-summar|
|00002000| 79 2d 6d 6f 64 65 2d 6d | 61 70 20 22 10 22 20 28 |y-mode-m|ap "." (|
|00002010| 71 75 6f 74 65 20 72 6d | 61 69 6c 2d 73 75 6d 6d |quote rm|ail-summ|
|00002020| 61 72 79 2d 70 72 65 76 | 69 6f 75 73 2d 61 6c 6c |ary-prev|ious-all|
|00002030| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 72 |)) (defi|ne-key r|
|00002040| 6d 61 69 6c 2d 73 75 6d | 6d 61 72 79 2d 6d 6f 64 |mail-sum|mary-mod|
|00002050| 65 2d 6d 61 70 20 22 20 | 22 20 28 71 75 6f 74 65 |e-map " |" (quote|
|00002060| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 73 | rmail-s|ummary-s|
|00002070| 63 72 6f 6c 6c 2d 6d 73 | 67 2d 75 70 29 29 20 28 |croll-ms|g-up)) (|
|00002080| 64 65 66 69 6e 65 2d 6b | 65 79 20 72 6d 61 69 6c |define-k|ey rmail|
|00002090| 2d 73 75 6d 6d 61 72 79 | 2d 6d 6f 64 65 2d 6d 61 |-summary|-mode-ma|
|000020a0| 70 20 22 71 22 20 28 71 | 75 6f 74 65 20 72 6d 61 |p "q" (q|uote rma|
|000020b0| 69 6c 2d 73 75 6d 6d 61 | 72 79 2d 71 75 69 74 29 |il-summa|ry-quit)|
|000020c0| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 72 6d |) (defin|e-key rm|
|000020d0| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 6d 6f 64 65 |ail-summ|ary-mode|
|000020e0| 2d 6d 61 70 20 22 75 22 | 20 28 71 75 6f 74 65 20 |-map "u"| (quote |
|000020f0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 75 6e |rmail-su|mmary-un|
|00002100| 64 65 6c 65 74 65 29 29 | 20 28 64 65 66 69 6e 65 |delete))| (define|
|00002110| 2d 6b 65 79 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 |-key rma|il-summa|
|00002120| 72 79 2d 6d 6f 64 65 2d | 6d 61 70 20 22 78 22 20 |ry-mode-|map "x" |
|00002130| 28 71 75 6f 74 65 20 72 | 6d 61 69 6c 2d 73 75 6d |(quote r|mail-sum|
|00002140| 6d 61 72 79 2d 65 78 69 | 74 29 29 20 28 64 65 66 |mary-exi|t)) (def|
|00002150| 69 6e 65 2d 6b 65 79 20 | 72 6d 61 69 6c 2d 73 75 |ine-key |rmail-su|
|00002160| 6d 6d 61 72 79 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |mmary-mo|de-map "|
|00002170| 7f 22 20 28 71 75 6f 74 | 65 20 72 6d 61 69 6c 2d |." (quot|e rmail-|
|00002180| 73 75 6d 6d 61 72 79 2d | 73 63 72 6f 6c 6c 2d 6d |summary-|scroll-m|
|00002190| 73 67 2d 64 6f 77 6e 29 | 29 20 28 64 65 66 69 6e |sg-down)|) (defin|
|000021a0| 65 2d 6b 65 79 20 72 6d | 61 69 6c 2d 73 75 6d 6d |e-key rm|ail-summ|
|000021b0| 61 72 79 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 64 22 |ary-mode|-map "d"|
|000021c0| 20 28 71 75 6f 74 65 20 | 72 6d 61 69 6c 2d 73 75 | (quote |rmail-su|
|000021d0| 6d 6d 61 72 79 2d 64 65 | 6c 65 74 65 2d 66 6f 72 |mmary-de|lete-for|
|000021e0| 77 61 72 64 29 29 29 0a | 0a 28 64 65 66 75 6e 20 |ward))).|.(defun |
|000021f0| 72 6d 61 69 6c 2d 73 75 | 6d 6d 61 72 79 2d 73 63 |rmail-su|mmary-sc|
|00002200| 72 6f 6c 6c 2d 6d 73 67 | 2d 75 70 20 28 26 6f 70 |roll-msg|-up (&op|
|00002210| 74 69 6f 6e 61 6c 20 64 | 69 73 74 29 20 22 5c 0a |tional d|ist) "\.|
|00002220| 53 63 72 6f 6c 6c 20 6f | 74 68 65 72 20 77 69 6e |Scroll o|ther win|
|00002230| 64 6f 77 20 66 6f 72 77 | 61 72 64 2e 22 20 28 69 |dow forw|ard." (i|
|00002240| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00002250| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c4 88 c5 20 |(byte-co|de "... |
|00002260| c6 0a 21 19 18 c7 8e c8 | 09 21 88 c9 0b 21 29 2a |..!.....|.!...!)*|
|00002270| 87 22 20 5b 77 69 6e 64 | 6f 77 20 6e 65 77 2d 77 |." [wind|ow new-w|
|00002280| 69 6e 64 6f 77 20 72 6d | 61 69 6c 2d 62 75 66 66 |indow rm|ail-buff|
|00002290| 65 72 20 64 69 73 74 20 | 6e 69 6c 20 73 65 6c 65 |er dist |nil sele|
|000022a0| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 64 69 73 70 |cted-win|dow disp|
|000022b0| 6c 61 79 2d 62 75 66 66 | 65 72 20 28 28 62 79 74 |lay-buff|er ((byt|
|000022c0| 65 2d 63 6f 64 65 20 22 | c1 08 21 87 22 20 5b 77 |e-code "|..!." [w|
|000022d0| 69 6e 64 6f 77 20 73 65 | 6c 65 63 74 2d 77 69 6e |indow se|lect-win|
|000022e0| 64 6f 77 5d 20 32 29 29 | 20 73 65 6c 65 63 74 2d |dow] 2))| select-|
|000022f0| 77 69 6e 64 6f 77 20 73 | 63 72 6f 6c 6c 2d 75 70 |window s|croll-up|
|00002300| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 6d |] 5))..(|defun rm|
|00002310| 61 69 6c 2d 73 75 6d 6d | 61 72 79 2d 73 63 72 6f |ail-summ|ary-scro|
|00002320| 6c 6c 2d 6d 73 67 2d 64 | 6f 77 6e 20 28 26 6f 70 |ll-msg-d|own (&op|
|00002330| 74 69 6f 6e 61 6c 20 64 | 69 73 74 29 20 22 5c 0a |tional d|ist) "\.|
|00002340| 53 63 72 6f 6c 6c 20 6f | 74 68 65 72 20 77 69 6e |Scroll o|ther win|
|00002350| 64 6f 77 20 62 61 63 6b | 77 61 72 64 2e 22 20 28 |dow back|ward." (|
|00002360| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00002370| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 88 c5 | (byte-c|ode "...|
|00002380| 20 c6 0a 21 19 18 c7 8e | c8 09 21 88 c9 0b 21 29 | ..!....|..!...!)|
|00002390| 2a 87 22 20 5b 77 69 6e | 64 6f 77 20 6e 65 77 2d |*." [win|dow new-|
|000023a0| 77 69 6e 64 6f 77 20 72 | 6d 61 69 6c 2d 62 75 66 |window r|mail-buf|
|000023b0| 66 65 72 20 64 69 73 74 | 20 6e 69 6c 20 73 65 6c |fer dist| nil sel|
|000023c0| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 64 69 73 |ected-wi|ndow dis|
|000023d0| 70 6c 61 79 2d 62 75 66 | 66 65 72 20 28 28 62 79 |play-buf|fer ((by|
|000023e0| 74 65 2d 63 6f 64 65 20 | 22 c1 08 21 87 22 20 5b |te-code |"..!." [|
|000023f0| 77 69 6e 64 6f 77 20 73 | 65 6c 65 63 74 2d 77 69 |window s|elect-wi|
|00002400| 6e 64 6f 77 5d 20 32 29 | 29 20 73 65 6c 65 63 74 |ndow] 2)|) select|
|00002410| 2d 77 69 6e 64 6f 77 20 | 73 63 72 6f 6c 6c 2d 64 |-window |scroll-d|
|00002420| 6f 77 6e 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |own] 5))|..(defun|
|00002430| 20 72 6d 61 69 6c 2d 73 | 75 6d 6d 61 72 79 2d 71 | rmail-s|ummary-q|
|00002440| 75 69 74 20 6e 69 6c 20 | 22 5c 0a 51 75 69 74 20 |uit nil |"\.Quit |
|00002450| 6f 75 74 20 6f 66 20 72 | 6d 61 69 6c 20 61 6e 64 |out of r|mail and|
|00002460| 20 72 6d 61 69 6c 20 73 | 75 6d 6d 61 72 79 2e 22 | rmail s|ummary."|
|00002470| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00002480| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 20 88 |byte-cod|e "... .|
|00002490| c2 20 87 22 20 5b 6e 69 | 6c 20 72 6d 61 69 6c 2d |. ." [ni|l rmail-|
|000024a0| 73 75 6d 6d 61 72 79 2d | 65 78 69 74 20 72 6d 61 |summary-|exit rma|
|000024b0| 69 6c 2d 71 75 69 74 5d | 20 33 29 29 0a 0a 28 64 |il-quit]| 3))..(d|
|000024c0| 65 66 75 6e 20 72 6d 61 | 69 6c 2d 73 75 6d 6d 61 |efun rma|il-summa|
|000024d0| 72 79 2d 65 78 69 74 20 | 6e 69 6c 20 22 5c 0a 45 |ry-exit |nil "\.E|
|000024e0| 78 69 74 20 72 6d 61 69 | 6c 20 73 75 6d 6d 61 72 |xit rmai|l summar|
|000024f0| 79 2c 20 72 65 6d 61 69 | 6e 69 6e 67 20 77 69 74 |y, remai|ning wit|
|00002500| 68 69 6e 20 72 6d 61 69 | 6c 2e 22 20 28 69 6e 74 |hin rmai|l." (int|
|00002510| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00002520| 63 6f 64 65 20 22 c1 88 | c2 70 21 88 c3 08 21 83 |code "..|.p!...!.|
|00002530| 19 00 c4 c3 08 21 c5 c6 | 20 21 88 21 82 1c 00 c7 |.....!..| !.!....|
|00002540| 08 21 87 22 20 5b 72 6d | 61 69 6c 2d 62 75 66 66 |.!." [rm|ail-buff|
|00002550| 65 72 20 6e 69 6c 20 62 | 75 72 79 2d 62 75 66 66 |er nil b|ury-buff|
|00002560| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |er get-b|uffer-wi|
|00002570| 6e 64 6f 77 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |ndow sel|ect-wind|
|00002580| 6f 77 20 64 65 6c 65 74 | 65 2d 77 69 6e 64 6f 77 |ow delet|e-window|
|00002590| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|000025a0| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|000025b0| 72 5d 20 38 29 29 0a    |                         |r] 8)). |        |
+--------+-------------------------+-------------------------+--------+--------+