/ Fresh Fish 8 / FreshFishVol8-CD1.bin / gnu / src / amiga / emacs-19.28-src.lha / emacs-19.28 / site-lisp / vm-digest.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 67 61 6d 69 67 61 | 2e 67 75 65 6c 70 68 6e |t@gamiga|.guelphn|
|00000030| 65 74 2e 64 77 65 6f 6d | 65 72 2e 6f 72 67 20 6f |et.dweom|er.org o|
|00000040| 6e 20 57 65 64 20 44 65 | 63 20 32 38 20 32 31 3a |n Wed De|c 28 21:|
|00000050| 35 38 3a 33 35 20 31 39 | 39 34 0a 3b 3b 3b 20 66 |58:35 19|94.;;; f|
|00000060| 72 6f 6d 20 66 69 6c 65 | 20 66 69 76 65 3a 43 57 |rom file| five:CW|
|00000070| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|00000080| 76 6d 2f 76 6d 2d 64 69 | 67 65 73 74 2e 65 6c 0a |vm/vm-di|gest.el.|
|00000090| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000a0| 6e 20 31 39 2e 32 35 2e | 31 2e 0a 3b 3b 3b 20 62 |n 19.25.|1..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000d0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000e0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000f0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000100| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000110| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000120| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000130| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000140| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000150| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000160| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000170| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000180| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000190| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001a0| 28 65 72 72 6f 72 20 22 | 60 66 69 76 65 3a 43 57 |(error "|`five:CW|
|000001b0| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|000001c0| 76 6d 2f 76 6d 2d 64 69 | 67 65 73 74 2e 65 6c 27 |vm/vm-di|gest.el'|
|000001d0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001e0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001f0| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 6e 6f 2d |defalias| 'vm-no-|
|00000200| 66 72 69 6c 6c 73 2d 65 | 6e 63 61 70 73 75 6c 61 |frills-e|ncapsula|
|00000210| 74 65 2d 6d 65 73 73 61 | 67 65 20 23 5b 28 6d 20 |te-messa|ge #[(m |
|00000220| 6b 65 65 70 2d 6c 69 73 | 74 20 64 69 73 63 61 72 |keep-lis|t discar|
|00000230| 64 2d 72 65 67 65 78 70 | 29 20 22 70 c0 20 c1 1a |d-regexp|) "p. ..|
|00000240| 1b 1c c5 63 88 0e 06 c7 | 48 c8 48 12 8a 5c 6e 71 |...c....|H.H..\nq|
|00000250| 88 8c 7e 88 8a 5c 66 71 | 88 60 1e 09 ca 5c 6e 0e |..~..\fq|.`...\n.|
|00000260| 06 cb 48 c7 48 0e 06 cb | 48 cc 48 23 88 0b 60 c1 |..H.H...|H.H#..`.|
|00000270| 93 88 0e 09 62 88 cd c1 | 89 ce 23 88 cd c1 0e 0f |....b...|..#.....|
|00000280| 0e 10 23 88 2c 0b 62 88 | d1 63 2b 87 22 20 5b 6d |..#.,.b.|.c+." [m|
|00000290| 61 6b 65 2d 6d 61 72 6b | 65 72 20 6e 69 6c 20 73 |ake-mark|er nil s|
|000002a0| 6f 75 72 63 65 2d 62 75 | 66 66 65 72 20 65 6e 64 |ource-bu|ffer end|
|000002b0| 20 74 61 72 67 65 74 2d | 62 75 66 66 65 72 20 22 | target-|buffer "|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 20 | 73 74 61 72 74 20 6f 66 |------- |start of|
|000002d0| 20 66 6f 72 77 61 72 64 | 65 64 20 6d 65 73 73 61 | forward|ed messa|
|000002e0| 67 65 20 2d 2d 2d 2d 2d | 2d 2d 5c 6e 22 20 6d 20 |ge -----|--\n" m |
|000002f0| 31 20 39 20 62 65 67 20 | 69 6e 73 65 72 74 2d 62 |1 9 beg |insert-b|
|00000300| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00000310| 30 20 34 20 76 6d 2d 72 | 65 6f 72 64 65 72 2d 6d |0 4 vm-r|eorder-m|
|00000320| 65 73 73 61 67 65 2d 68 | 65 61 64 65 72 73 20 22 |essage-h|eaders "|
|00000330| 5c 5c 28 58 2d 56 4d 2d | 5c 5c 7c 53 74 61 74 75 |\\(X-VM-|\\|Statu|
|00000340| 73 3a 5c 5c 29 22 20 6b | 65 65 70 2d 6c 69 73 74 |s:\\)" k|eep-list|
|00000350| 20 64 69 73 63 61 72 64 | 2d 72 65 67 65 78 70 20 | discard|-regexp |
|00000360| 22 2d 2d 2d 2d 2d 2d 2d | 20 65 6e 64 20 6f 66 20 |"-------| end of |
|00000370| 66 6f 72 77 61 72 64 65 | 64 20 6d 65 73 73 61 67 |forwarde|d messag|
|00000380| 65 20 2d 2d 2d 2d 2d 2d | 2d 5c 6e 22 5d 20 35 20 |e ------|-\n"] 5 |
|00000390| 22 5c 0a 45 6e 63 61 70 | 73 75 6c 61 74 65 20 61 |"\.Encap|sulate a|
|000003a0| 20 6d 65 73 73 61 67 65 | 20 4d 20 66 6f 72 20 66 | message| M for f|
|000003b0| 6f 72 77 61 72 64 69 6e | 67 2c 20 73 69 6d 70 6c |orwardin|g, simpl|
|000003c0| 79 2e 0a 4e 6f 20 6d 65 | 73 73 61 67 65 20 65 6e |y..No me|ssage en|
|000003d0| 63 61 70 73 75 6c 61 74 | 69 6f 6e 20 73 74 61 6e |capsulat|ion stan|
|000003e0| 64 61 72 64 20 69 73 20 | 75 73 65 64 2e 20 20 54 |dard is |used.  T|
|000003f0| 68 65 20 6d 65 73 73 61 | 67 65 20 69 73 0a 69 6e |he messa|ge is.in|
|00000400| 73 65 72 74 65 64 20 61 | 74 20 70 6f 69 6e 74 20 |serted a|t point |
|00000410| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|00000420| 75 66 66 65 72 2c 20 73 | 75 72 72 6f 75 6e 64 65 |uffer, s|urrounde|
|00000430| 64 20 62 79 20 74 77 6f | 20 64 61 73 68 65 64 0a |d by two| dashed.|
|00000440| 73 74 61 72 74 2f 65 6e | 64 20 73 65 70 61 72 61 |start/en|d separa|
|00000450| 74 6f 72 20 6c 69 6e 65 | 73 2e 20 20 50 6f 69 6e |tor line|s.  Poin|
|00000460| 74 20 69 73 20 6e 6f 74 | 20 6d 6f 76 65 64 2e 0a |t is not| moved..|
|00000470| 0a 4d 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 6d |.M shoul|d be a m|
|00000480| 65 73 73 61 67 65 20 73 | 74 72 75 63 74 20 66 6f |essage s|truct fo|
|00000490| 72 20 61 20 72 65 61 6c | 20 6d 65 73 73 61 67 65 |r a real| message|
|000004a0| 2c 20 6e 6f 74 20 61 20 | 76 69 72 74 75 61 6c 20 |, not a |virtual |
|000004b0| 6d 65 73 73 61 67 65 2e | 0a 54 68 69 73 20 69 73 |message.|.This is|
|000004c0| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 74 68 61 | the mes|sage tha|
|000004d0| 74 20 77 69 6c 6c 20 62 | 65 20 65 6e 63 61 70 73 |t will b|e encaps|
|000004e0| 75 6c 61 74 65 64 2e 0a | 4b 45 45 50 2d 4c 49 53 |ulated..|KEEP-LIS|
|000004f0| 54 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 6c 69 |T should| be a li|
|00000500| 73 74 20 6f 66 20 72 65 | 67 65 78 70 73 20 6d 61 |st of re|gexps ma|
|00000510| 74 63 68 69 6e 67 20 68 | 65 61 64 65 72 73 20 74 |tching h|eaders t|
|00000520| 6f 20 6b 65 65 70 2e 0a | 44 49 53 43 41 52 44 2d |o keep..|DISCARD-|
|00000530| 52 45 47 45 58 50 20 73 | 68 6f 75 6c 64 20 62 65 |REGEXP s|hould be|
|00000540| 20 61 20 72 65 67 65 78 | 70 20 74 68 61 74 20 6d | a regex|p that m|
|00000550| 61 74 63 68 65 73 20 68 | 65 61 64 65 72 73 20 74 |atches h|eaders t|
|00000560| 6f 20 62 65 20 64 69 73 | 63 61 72 64 65 64 2e 0a |o be dis|carded..|
|00000570| 4b 45 45 50 2d 4c 49 53 | 54 20 61 6e 64 20 44 49 |KEEP-LIS|T and DI|
|00000580| 53 43 41 52 44 2d 52 45 | 47 45 58 50 20 61 72 65 |SCARD-RE|GEXP are|
|00000590| 20 75 73 65 64 20 74 6f | 20 6f 72 64 65 72 20 61 | used to| order a|
|000005a0| 6e 64 20 74 72 69 6d 20 | 74 68 65 20 68 65 61 64 |nd trim |the head|
|000005b0| 65 72 73 0a 74 6f 20 62 | 65 20 66 6f 72 77 61 72 |ers.to b|e forwar|
|000005c0| 64 65 64 2e 20 20 53 65 | 65 20 74 68 65 20 64 6f |ded.  Se|e the do|
|000005d0| 63 73 20 66 6f 72 20 76 | 6d 2d 72 65 6f 72 64 65 |cs for v|m-reorde|
|000005e0| 72 2d 6d 65 73 73 61 67 | 65 2d 68 65 61 64 65 72 |r-messag|e-header|
|000005f0| 73 0a 74 6f 20 66 69 6e | 64 20 6f 75 74 20 68 6f |s.to fin|d out ho|
|00000600| 77 20 4b 45 45 50 2d 4c | 49 53 54 20 61 6e 64 20 |w KEEP-L|IST and |
|00000610| 44 49 53 43 41 52 44 2d | 52 45 47 45 58 50 20 61 |DISCARD-|REGEXP a|
|00000620| 72 65 20 75 73 65 64 2e | 22 5d 29 0a 28 64 65 66 |re used.|"]).(def|
|00000630| 61 6c 69 61 73 20 27 76 | 6d 2d 72 66 63 39 33 34 |alias 'v|m-rfc934|
|00000640| 2d 63 68 61 72 2d 73 74 | 75 66 66 2d 72 65 67 69 |-char-st|uff-regi|
|00000650| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 29 |on #[(st|art end)|
|00000660| 20 22 c0 20 09 c2 93 11 | 8a 0b 62 88 60 09 57 83 | ". ....|..b.`.W.|
|00000670| 21 00 c4 c5 09 c6 23 83 | 21 00 c7 c8 c6 89 23 88 |!.....#.|!.....#.|
|00000680| 82 5c 6e 00 29 09 c2 89 | 93 87 22 20 5b 6d 61 6b |.\n.)...|.." [mak|
|00000690| 65 2d 6d 61 72 6b 65 72 | 20 65 6e 64 20 6e 69 6c |e-marker| end nil|
|000006a0| 20 73 74 61 72 74 20 72 | 65 2d 73 65 61 72 63 68 | start r|e-search|
|000006b0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 2d 22 20 74 20 |-forward| "^-" t |
|000006c0| 72 65 70 6c 61 63 65 2d | 6d 61 74 63 68 20 22 2d |replace-|match "-|
|000006d0| 20 2d 22 5d 20 34 20 22 | 5c 0a 51 75 6f 74 65 20 | -"] 4 "|\.Quote |
|000006e0| 52 46 43 20 39 33 34 20 | 6d 65 73 73 61 67 65 20 |RFC 934 |message |
|000006f0| 73 65 70 61 72 61 74 6f | 72 73 20 62 65 74 77 65 |separato|rs betwe|
|00000700| 65 6e 20 53 54 41 52 54 | 20 61 6e 64 20 45 4e 44 |en START| and END|
|00000710| 2e 0a 53 54 41 52 54 20 | 61 6e 64 20 45 4e 44 20 |..START |and END |
|00000720| 61 72 65 20 62 75 66 66 | 65 72 20 70 6f 73 69 74 |are buff|er posit|
|00000730| 69 6f 6e 73 20 69 6e 20 | 74 68 65 20 63 75 72 72 |ions in |the curr|
|00000740| 65 6e 74 20 62 75 66 66 | 65 72 2e 0a 4c 69 6e 65 |ent buff|er..Line|
|00000750| 73 20 62 65 67 69 6e 6e | 69 6e 67 20 77 69 74 68 |s beginn|ing with|
|00000760| 20 60 2d 27 20 69 6e 20 | 74 68 65 20 72 65 67 69 | `-' in |the regi|
|00000770| 6f 6e 20 68 61 76 65 20 | 60 2d 20 27 20 70 72 65 |on have |`- ' pre|
|00000780| 70 65 6e 64 65 64 20 74 | 6f 20 74 68 65 6d 2e 22 |pended t|o them."|
|00000790| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 6d |]).(defa|lias 'vm|
|000007a0| 2d 72 66 63 39 33 34 2d | 63 68 61 72 2d 75 6e 73 |-rfc934-|char-uns|
|000007b0| 74 75 66 66 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |tuff-reg|ion #[(s|
|000007c0| 74 61 72 74 20 65 6e 64 | 29 20 22 c0 20 09 c2 93 |tart end|) ". ...|
|000007d0| 11 8a 0b 62 88 60 09 57 | 83 24 00 c4 c5 09 c6 23 |...b.`.W|.$.....#|
|000007e0| 83 24 00 c7 c8 c6 89 23 | 88 c2 75 88 82 5c 6e 00 |.$.....#|..u..\n.|
|000007f0| 29 09 c2 89 93 87 22 20 | 5b 6d 61 6b 65 2d 6d 61 |)....." |[make-ma|
|00000800| 72 6b 65 72 20 65 6e 64 | 20 6e 69 6c 20 73 74 61 |rker end| nil sta|
|00000810| 72 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |rt re-se|arch-for|
|00000820| 77 61 72 64 20 22 5e 2d | 20 22 20 74 20 72 65 70 |ward "^-| " t rep|
|00000830| 6c 61 63 65 2d 6d 61 74 | 63 68 20 22 22 5d 20 34 |lace-mat|ch ""] 4|
|00000840| 20 22 5c 0a 55 6e 71 75 | 6f 74 65 20 6c 69 6e 65 | "\.Unqu|ote line|
|00000850| 73 20 69 6e 20 62 65 74 | 77 65 65 6e 20 53 54 41 |s in bet|ween STA|
|00000860| 52 54 20 61 6e 64 20 45 | 4e 44 20 61 73 20 70 65 |RT and E|ND as pe|
|00000870| 72 20 52 46 43 20 39 33 | 34 2e 0a 53 54 41 52 54 |r RFC 93|4..START|
|00000880| 20 61 6e 64 20 45 4e 44 | 20 61 72 65 20 62 75 66 | and END| are buf|
|00000890| 66 65 72 20 70 6f 73 69 | 74 69 6f 6e 73 20 69 6e |fer posi|tions in|
|000008a0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|000008b0| 66 65 72 2e 0a 4c 69 6e | 65 73 20 62 65 67 69 6e |fer..Lin|es begin|
|000008c0| 6e 69 6e 67 20 77 69 74 | 68 20 60 2d 20 27 20 69 |ning wit|h `- ' i|
|000008d0| 6e 20 74 68 65 20 72 65 | 67 69 6f 6e 20 68 61 76 |n the re|gion hav|
|000008e0| 65 20 74 68 61 74 20 73 | 74 72 69 6e 67 20 73 74 |e that s|tring st|
|000008f0| 72 69 70 70 65 64 0a 66 | 72 6f 6d 20 74 68 65 6d |ripped.f|rom them|
|00000900| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000910| 76 6d 2d 72 66 63 39 33 | 34 2d 65 6e 63 61 70 73 |vm-rfc93|4-encaps|
|00000920| 75 6c 61 74 65 2d 6d 65 | 73 73 61 67 65 73 20 23 |ulate-me|ssages #|
|00000930| 5b 28 6d 65 73 73 61 67 | 65 2d 6c 69 73 74 20 6b |[(messag|e-list k|
|00000940| 65 65 70 2d 6c 69 73 74 | 20 64 69 73 63 61 72 64 |eep-list| discard|
|00000950| 2d 72 65 67 65 78 70 29 | 20 22 08 85 ba 00 70 08 |-regexp)| "....p.|
|00000960| c1 20 c2 89 89 89 1b 1c | 1d 1e 06 1e 07 1e 08 1e |. ......|........|
|00000970| 09 60 14 0e 08 83 80 00 | ca 63 88 0e 08 40 cb 48 |.`......|.c...@.H|
|00000980| cc 48 4a 89 15 cb 48 cd | 48 16 06 8a 0e 06 71 88 |.HJ...H.|H.....q.|
|00000990| 8c 7e 88 8a 0e 09 71 88 | 60 1e 0e cf 0e 06 0d d0 |.~....q.|`.......|
|000009a0| 48 cb 48 0d d0 48 d1 48 | 23 88 0e 07 60 c2 93 88 |H.H..H.H|#...`...|
|000009b0| 0e 0e 62 88 d2 c2 89 d3 | 23 88 d2 c2 0e 14 0e 15 |..b.....|#.......|
|000009c0| 23 88 d6 0e 0e 0e 07 5c | 22 88 2c 0e 07 62 88 d7 |#......\|".,..b..|
|000009d0| 63 88 0e 08 41 89 16 08 | 84 1e 00 d0 79 88 60 c2 |c...A...|....y.`.|
|000009e0| 7f 88 60 7c 88 d8 63 88 | 5c 66 62 88 60 cb 79 88 |..`|..c.|\fb.`.y.|
|000009f0| 60 7c 88 08 47 13 d9 da | 08 41 83 a5 00 db 82 a6 |`|..G...|.A......|
|00000a00| 00 dc 08 41 83 b2 00 d9 | dd 0b 5c 22 82 b3 00 de |...A....|..\"....|
|00000a10| 23 63 88 5c 66 62 2e 07 | 87 22 20 5b 6d 65 73 73 |#c.\fb..|." [mess|
|00000a20| 61 67 65 2d 6c 69 73 74 | 20 6d 61 6b 65 2d 6d 61 |age-list| make-ma|
|00000a30| 72 6b 65 72 20 6e 69 6c | 20 6e 20 73 74 61 72 74 |rker nil| n start|
|00000a40| 20 6d 20 73 6f 75 72 63 | 65 2d 62 75 66 66 65 72 | m sourc|e-buffer|
|00000a50| 20 65 6e 64 20 6d 6c 69 | 73 74 20 74 61 72 67 65 | end mli|st targe|
|00000a60| 74 2d 62 75 66 66 65 72 | 20 22 2d 2d 2d 2d 2d 2d |t-buffer| "------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 5c 6e 22 20 31 20 35 |--------|-\n" 1 5|
|00000a80| 20 39 20 62 65 67 20 69 | 6e 73 65 72 74 2d 62 75 | 9 beg i|nsert-bu|
|00000a90| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 30 |ffer-sub|string 0|
|00000aa0| 20 34 20 76 6d 2d 72 65 | 6f 72 64 65 72 2d 6d 65 | 4 vm-re|order-me|
|00000ab0| 73 73 61 67 65 2d 68 65 | 61 64 65 72 73 20 22 5c |ssage-he|aders "\|
|00000ac0| 5c 28 58 2d 56 4d 2d 5c | 5c 7c 53 74 61 74 75 73 |\(X-VM-\|\|Status|
|00000ad0| 3a 5c 5c 29 22 20 6b 65 | 65 70 2d 6c 69 73 74 20 |:\\)" ke|ep-list |
|00000ae0| 64 69 73 63 61 72 64 2d | 72 65 67 65 78 70 20 76 |discard-|regexp v|
|00000af0| 6d 2d 72 66 63 39 33 34 | 2d 63 68 61 72 2d 73 74 |m-rfc934|-char-st|
|00000b00| 75 66 66 2d 72 65 67 69 | 6f 6e 20 22 2d 2d 2d 2d |uff-regi|on "----|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 22 20 22 2d 2d |--------|---" "--|
|00000b20| 2d 2d 2d 2d 2d 20 65 6e | 64 20 2d 2d 2d 2d 2d 2d |----- en|d ------|
|00000b30| 2d 5c 6e 22 20 66 6f 72 | 6d 61 74 20 22 2d 2d 2d |-\n" for|mat "---|
|00000b40| 2d 2d 2d 2d 20 73 74 61 | 72 74 20 6f 66 20 25 73 |---- sta|rt of %s|
|00000b50| 25 73 28 52 46 43 20 39 | 33 34 20 65 6e 63 61 70 |%s(RFC 9|34 encap|
|00000b60| 73 75 6c 61 74 69 6f 6e | 29 20 2d 2d 2d 2d 2d 2d |sulation|) ------|
|00000b70| 2d 5c 6e 22 20 22 64 69 | 67 65 73 74 20 22 20 22 |-\n" "di|gest " "|
|00000b80| 66 6f 72 77 61 72 64 65 | 64 20 6d 65 73 73 61 67 |forwarde|d messag|
|00000b90| 65 20 22 20 22 28 25 64 | 20 6d 65 73 73 61 67 65 |e " "(%d| message|
|00000ba0| 73 29 20 22 20 22 22 5d | 20 38 20 22 5c 0a 45 6e |s) " ""]| 8 "\.En|
|00000bb0| 63 61 70 73 75 6c 61 74 | 65 20 74 68 65 20 6d 65 |capsulat|e the me|
|00000bc0| 73 73 61 67 65 73 20 69 | 6e 20 4d 45 53 53 41 47 |ssages i|n MESSAG|
|00000bd0| 45 2d 4c 49 53 54 20 61 | 73 20 70 65 72 20 52 46 |E-LIST a|s per RF|
|00000be0| 43 20 39 33 34 2e 0a 54 | 68 65 20 72 65 73 75 6c |C 934..T|he resul|
|00000bf0| 74 69 6e 67 20 64 69 67 | 65 73 74 20 69 73 20 69 |ting dig|est is i|
|00000c00| 6e 73 65 72 74 65 64 20 | 61 74 20 70 6f 69 6e 74 |nserted |at point|
|00000c10| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|00000c20| 62 75 66 66 65 72 2e 0a | 50 6f 69 6e 74 20 69 73 |buffer..|Point is|
|00000c30| 20 6e 6f 74 20 6d 6f 76 | 65 64 2e 0a 0a 4d 45 53 | not mov|ed...MES|
|00000c40| 53 41 47 45 2d 4c 49 53 | 54 20 73 68 6f 75 6c 64 |SAGE-LIS|T should|
|00000c50| 20 62 65 20 61 20 6c 69 | 73 74 20 6f 66 20 6d 65 | be a li|st of me|
|00000c60| 73 73 61 67 65 20 73 74 | 72 75 63 74 73 20 28 72 |ssage st|ructs (r|
|00000c70| 65 61 6c 20 6f 72 20 76 | 69 72 74 75 61 6c 29 2e |eal or v|irtual).|
|00000c80| 0a 54 68 65 73 65 20 61 | 72 65 20 74 68 65 20 6d |.These a|re the m|
|00000c90| 65 73 73 61 67 65 73 20 | 74 68 61 74 20 77 69 6c |essages |that wil|
|00000ca0| 6c 20 62 65 20 65 6e 63 | 61 70 73 75 6c 61 74 65 |l be enc|apsulate|
|00000cb0| 64 2e 0a 4b 45 45 50 2d | 4c 49 53 54 20 73 68 6f |d..KEEP-|LIST sho|
|00000cc0| 75 6c 64 20 62 65 20 61 | 20 6c 69 73 74 20 6f 66 |uld be a| list of|
|00000cd0| 20 72 65 67 65 78 70 73 | 20 6d 61 74 63 68 69 6e | regexps| matchin|
|00000ce0| 67 20 68 65 61 64 65 72 | 73 20 74 6f 20 6b 65 65 |g header|s to kee|
|00000cf0| 70 2e 0a 44 49 53 43 41 | 52 44 2d 52 45 47 45 58 |p..DISCA|RD-REGEX|
|00000d00| 50 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 72 65 |P should| be a re|
|00000d10| 67 65 78 70 20 74 68 61 | 74 20 6d 61 74 63 68 65 |gexp tha|t matche|
|00000d20| 73 20 68 65 61 64 65 72 | 73 20 74 6f 20 62 65 20 |s header|s to be |
|00000d30| 64 69 73 63 61 72 64 65 | 64 2e 0a 4b 45 45 50 2d |discarde|d..KEEP-|
|00000d40| 4c 49 53 54 20 61 6e 64 | 20 44 49 53 43 41 52 44 |LIST and| DISCARD|
|00000d50| 2d 52 45 47 45 58 50 20 | 61 72 65 20 75 73 65 64 |-REGEXP |are used|
|00000d60| 20 74 6f 20 6f 72 64 65 | 72 20 61 6e 64 20 74 72 | to orde|r and tr|
|00000d70| 69 6d 20 74 68 65 20 68 | 65 61 64 65 72 73 0a 74 |im the h|eaders.t|
|00000d80| 6f 20 62 65 20 66 6f 72 | 77 61 72 64 65 64 2e 20 |o be for|warded. |
|00000d90| 20 53 65 65 20 74 68 65 | 20 64 6f 63 73 20 66 6f | See the| docs fo|
|00000da0| 72 20 76 6d 2d 72 65 6f | 72 64 65 72 2d 6d 65 73 |r vm-reo|rder-mes|
|00000db0| 73 61 67 65 2d 68 65 61 | 64 65 72 73 0a 74 6f 20 |sage-hea|ders.to |
|00000dc0| 66 69 6e 64 20 6f 75 74 | 20 68 6f 77 20 4b 45 45 |find out| how KEE|
|00000dd0| 50 2d 4c 49 53 54 20 61 | 6e 64 20 44 49 53 43 41 |P-LIST a|nd DISCA|
|00000de0| 52 44 2d 52 45 47 45 58 | 50 20 61 72 65 20 75 73 |RD-REGEX|P are us|
|00000df0| 65 64 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ed."]).(|defalias|
|00000e00| 20 27 76 6d 2d 72 66 63 | 31 31 35 33 2d 63 68 61 | 'vm-rfc|1153-cha|
|00000e10| 72 2d 73 74 75 66 66 2d | 72 65 67 69 6f 6e 20 23 |r-stuff-|region #|
|00000e20| 5b 28 73 74 61 72 74 20 | 65 6e 64 29 20 22 c0 20 |[(start |end) ". |
|00000e30| 09 c2 93 11 8a 0b 62 88 | 60 09 57 83 21 00 c4 c5 |......b.|`.W.!...|
|00000e40| 09 c6 23 83 21 00 c7 c8 | c6 89 23 88 82 5c 6e 00 |..#.!...|..#..\n.|
|00000e50| 29 09 c2 89 93 87 22 20 | 5b 6d 61 6b 65 2d 6d 61 |)....." |[make-ma|
|00000e60| 72 6b 65 72 20 65 6e 64 | 20 6e 69 6c 20 73 74 61 |rker end| nil sta|
|00000e70| 72 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |rt re-se|arch-for|
|00000e80| 77 61 72 64 20 22 5e 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ward "^-|--------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 24 22 20 | 74 20 72 65 70 6c 61 63 |-----$" |t replac|
|00000eb0| 65 2d 6d 61 74 63 68 20 | 22 20 2d 2d 2d 2d 2d 2d |e-match |" ------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ed0| 2d 2d 2d 2d 2d 2d 2d 22 | 5d 20 34 20 22 5c 0a 51 |-------"|] 4 "\.Q|
|00000ee0| 75 6f 74 65 20 52 46 43 | 20 31 31 35 33 20 6d 65 |uote RFC| 1153 me|
|00000ef0| 73 73 61 67 65 20 73 65 | 70 61 72 61 74 6f 72 73 |ssage se|parators|
|00000f00| 20 62 65 74 77 65 65 6e | 20 53 54 41 52 54 20 61 | between| START a|
|00000f10| 6e 64 20 45 4e 44 2e 0a | 53 54 41 52 54 20 61 6e |nd END..|START an|
|00000f20| 64 20 45 4e 44 20 61 72 | 65 20 62 75 66 66 65 72 |d END ar|e buffer|
|00000f30| 20 70 6f 73 69 74 69 6f | 6e 73 20 69 6e 20 74 68 | positio|ns in th|
|00000f40| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00000f50| 2e 0a 4c 69 6e 65 73 20 | 63 6f 6e 73 69 73 74 69 |..Lines |consisti|
|00000f60| 6e 67 20 6f 6e 6c 79 20 | 6f 66 20 33 30 20 68 79 |ng only |of 30 hy|
|00000f70| 70 68 65 6e 73 20 68 61 | 76 65 20 74 68 65 20 66 |phens ha|ve the f|
|00000f80| 69 72 73 74 20 68 79 70 | 68 65 6e 0a 63 6f 6e 76 |irst hyp|hen.conv|
|00000f90| 65 72 74 65 64 20 74 6f | 20 61 20 73 70 61 63 65 |erted to| a space|
|00000fa0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000fb0| 76 6d 2d 72 66 63 31 31 | 35 33 2d 63 68 61 72 2d |vm-rfc11|53-char-|
|00000fc0| 75 6e 73 74 75 66 66 2d | 72 65 67 69 6f 6e 20 23 |unstuff-|region #|
|00000fd0| 5b 28 73 74 61 72 74 20 | 65 6e 64 29 20 22 c0 20 |[(start |end) ". |
|00000fe0| 09 c2 93 11 8a 0b 62 88 | 60 09 57 83 21 00 c4 c5 |......b.|`.W.!...|
|00000ff0| 09 c6 23 83 21 00 c7 c8 | c6 89 23 88 82 5c 6e 00 |..#.!...|..#..\n.|
|00001000| 29 09 c2 89 93 87 22 20 | 5b 6d 61 6b 65 2d 6d 61 |)....." |[make-ma|
|00001010| 72 6b 65 72 20 65 6e 64 | 20 6e 69 6c 20 73 74 61 |rker end| nil sta|
|00001020| 72 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |rt re-se|arch-for|
|00001030| 77 61 72 64 20 22 5e 20 | 2d 2d 2d 2d 2d 2d 2d 2d |ward "^ |--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001050| 2d 2d 2d 2d 2d 24 22 20 | 74 20 72 65 70 6c 61 63 |-----$" |t replac|
|00001060| 65 2d 6d 61 74 63 68 20 | 22 2d 2d 2d 2d 2d 2d 2d |e-match |"-------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001080| 2d 2d 2d 2d 2d 2d 2d 22 | 5d 20 34 20 22 5c 0a 55 |-------"|] 4 "\.U|
|00001090| 6e 71 75 6f 74 65 20 6c | 69 6e 65 73 20 69 6e 20 |nquote l|ines in |
|000010a0| 62 65 74 77 65 65 6e 20 | 53 54 41 52 54 20 61 6e |between |START an|
|000010b0| 64 20 45 4e 44 20 61 73 | 20 70 65 72 20 52 46 43 |d END as| per RFC|
|000010c0| 20 31 31 35 33 2e 0a 53 | 54 41 52 54 20 61 6e 64 | 1153..S|TART and|
|000010d0| 20 45 4e 44 20 61 72 65 | 20 62 75 66 66 65 72 20 | END are| buffer |
|000010e0| 70 6f 73 69 74 69 6f 6e | 73 20 69 6e 20 74 68 65 |position|s in the|
|000010f0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|00001100| 0a 4c 69 6e 65 73 20 63 | 6f 6e 73 69 73 74 69 6e |.Lines c|onsistin|
|00001110| 67 20 6f 6e 6c 79 20 6f | 66 20 61 20 73 70 61 63 |g only o|f a spac|
|00001120| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 62 79 20 32 |e follow|ing by 2|
|00001130| 39 20 68 79 70 68 65 6e | 73 20 68 61 76 65 20 74 |9 hyphen|s have t|
|00001140| 68 65 20 73 70 61 63 65 | 0a 63 6f 6e 76 65 72 74 |he space|.convert|
|00001150| 65 64 20 74 6f 20 61 20 | 68 79 70 68 65 6e 2e 22 |ed to a |hyphen."|
|00001160| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 6d |]).(defa|lias 'vm|
|00001170| 2d 72 66 63 31 31 35 33 | 2d 65 6e 63 61 70 73 75 |-rfc1153|-encapsu|
|00001180| 6c 61 74 65 2d 6d 65 73 | 73 61 67 65 73 20 23 5b |late-mes|sages #[|
|00001190| 28 6d 65 73 73 61 67 65 | 2d 6c 69 73 74 20 6b 65 |(message|-list ke|
|000011a0| 65 70 2d 6c 69 73 74 20 | 64 69 73 63 61 72 64 2d |ep-list |discard-|
|000011b0| 72 65 67 65 78 70 29 20 | 22 08 85 9c 00 70 08 c1 |regexp) |"....p..|
|000011c0| 20 c2 89 89 1b 1c 1d 1e | 06 1e 07 1e 08 60 13 0e | .......|.....`..|
|000011d0| 07 83 7a 00 c9 63 88 0e | 07 40 ca 48 cb 48 4a 89 |..z..c..|.@.H.HJ.|
|000011e0| 14 ca 48 cc 48 15 8a 0d | 71 88 8c 7e 88 8a 0e 08 |..H.H...|q..~....|
|000011f0| 71 88 60 1e 0d ce 0d 5c | 66 cf 48 ca 48 5c 66 cf |q.`....\|f.H.H\f.|
|00001200| 48 d0 48 23 88 0e 06 60 | c2 93 88 0e 0d 62 88 d1 |H.H#...`|.....b..|
|00001210| c2 89 d2 23 88 d1 c2 0e | 13 0e 14 23 88 d5 0e 0d |...#....|...#....|
|00001220| 0e 06 5c 22 88 2c 0e 06 | 62 88 d6 63 88 0e 07 41 |..\".,..|b..c...A|
|00001230| 89 16 07 84 1b 00 d7 63 | 88 0b 62 88 60 ca 79 88 |.......c|..b.`.y.|
|00001240| 60 7c 88 d8 d9 08 47 08 | 41 83 94 00 da 82 95 00 |`|....G.|A.......|
|00001250| db 23 63 88 0b 62 2e 06 | 87 22 20 5b 6d 65 73 73 |.#c..b..|." [mess|
|00001260| 61 67 65 2d 6c 69 73 74 | 20 6d 61 6b 65 2d 6d 61 |age-list| make-ma|
|00001270| 72 6b 65 72 20 6e 69 6c | 20 73 74 61 72 74 20 6d |rker nil| start m|
|00001280| 20 73 6f 75 72 63 65 2d | 62 75 66 66 65 72 20 65 | source-|buffer e|
|00001290| 6e 64 20 6d 6c 69 73 74 | 20 74 61 72 67 65 74 2d |nd mlist| target-|
|000012a0| 62 75 66 66 65 72 20 22 | 2d 2d 2d 2d 2d 2d 2d 2d |buffer "|--------|
|000012b0| 2d 2d 2d 2d 2d 2d 2d 5c | 6e 5c 6e 22 20 31 20 35 |-------\|n\n" 1 5|
|000012c0| 20 39 20 62 65 67 20 69 | 6e 73 65 72 74 2d 62 75 | 9 beg i|nsert-bu|
|000012d0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 30 |ffer-sub|string 0|
|000012e0| 20 34 20 76 6d 2d 72 65 | 6f 72 64 65 72 2d 6d 65 | 4 vm-re|order-me|
|000012f0| 73 73 61 67 65 2d 68 65 | 61 64 65 72 73 20 22 5c |ssage-he|aders "\|
|00001300| 5c 28 58 2d 56 4d 2d 5c | 5c 7c 53 74 61 74 75 73 |\(X-VM-\|\|Status|
|00001310| 3a 5c 5c 29 22 20 6b 65 | 65 70 2d 6c 69 73 74 20 |:\\)" ke|ep-list |
|00001320| 64 69 73 63 61 72 64 2d | 72 65 67 65 78 70 20 76 |discard-|regexp v|
|00001330| 6d 2d 72 66 63 31 31 35 | 33 2d 63 68 61 72 2d 73 |m-rfc115|3-char-s|
|00001340| 74 75 66 66 2d 72 65 67 | 69 6f 6e 20 22 5c 6e 2d |tuff-reg|ion "\n-|
|00001350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 22 20 |--------|------" |
|00001360| 22 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"-------|--------|
|00001370| 5c 6e 5c 6e 45 6e 64 20 | 6f 66 20 74 68 69 73 20 |\n\nEnd |of this |
|00001380| 44 69 67 65 73 74 5c 6e | 2a 2a 2a 2a 2a 2a 2a 2a |Digest\n|********|
|00001390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 5c 6e 22 20 66 6f |********|**\n" fo|
|000013a0| 72 6d 61 74 20 22 54 68 | 69 73 20 69 73 20 61 6e |rmat "Th|is is an|
|000013b0| 20 52 46 43 20 31 31 35 | 33 20 64 69 67 65 73 74 | RFC 115|3 digest|
|000013c0| 2e 5c 6e 28 25 64 20 6d | 65 73 73 61 67 65 25 73 |.\n(%d m|essage%s|
|000013d0| 29 5c 6e 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)\n-----|--------|
|000013e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 5c 6e 22 20 22 73 22 |--------|-\n" "s"|
|00001420| 20 22 22 5d 20 37 20 22 | 5c 0a 45 6e 63 61 70 73 | ""] 7 "|\.Encaps|
|00001430| 75 6c 61 74 65 20 74 68 | 65 20 6d 65 73 73 61 67 |ulate th|e messag|
|00001440| 65 73 20 69 6e 20 4d 45 | 53 53 41 47 45 2d 4c 49 |es in ME|SSAGE-LI|
|00001450| 53 54 20 61 73 20 70 65 | 72 20 52 46 43 20 31 31 |ST as pe|r RFC 11|
|00001460| 35 33 2e 0a 54 68 65 20 | 72 65 73 75 6c 74 69 6e |53..The |resultin|
|00001470| 67 20 64 69 67 65 73 74 | 20 69 73 20 69 6e 73 65 |g digest| is inse|
|00001480| 72 74 65 64 20 61 74 20 | 70 6f 69 6e 74 20 69 6e |rted at |point in|
|00001490| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|000014a0| 66 65 72 2e 0a 50 6f 69 | 6e 74 20 69 73 20 6e 6f |fer..Poi|nt is no|
|000014b0| 74 20 6d 6f 76 65 64 2e | 0a 0a 4d 45 53 53 41 47 |t moved.|..MESSAG|
|000014c0| 45 2d 4c 49 53 54 20 73 | 68 6f 75 6c 64 20 62 65 |E-LIST s|hould be|
|000014d0| 20 61 20 6c 69 73 74 20 | 6f 66 20 6d 65 73 73 61 | a list |of messa|
|000014e0| 67 65 20 73 74 72 75 63 | 74 73 20 28 72 65 61 6c |ge struc|ts (real|
|000014f0| 20 6f 72 20 76 69 72 74 | 75 61 6c 29 2e 0a 54 68 | or virt|ual)..Th|
|00001500| 65 73 65 20 61 72 65 20 | 74 68 65 20 6d 65 73 73 |ese are |the mess|
|00001510| 61 67 65 73 20 74 68 61 | 74 20 77 69 6c 6c 20 62 |ages tha|t will b|
|00001520| 65 20 65 6e 63 61 70 73 | 75 6c 61 74 65 64 2e 0a |e encaps|ulated..|
|00001530| 4b 45 45 50 2d 4c 49 53 | 54 20 73 68 6f 75 6c 64 |KEEP-LIS|T should|
|00001540| 20 62 65 20 61 20 6c 69 | 73 74 20 6f 66 20 72 65 | be a li|st of re|
|00001550| 67 65 78 70 73 20 6d 61 | 74 63 68 69 6e 67 20 68 |gexps ma|tching h|
|00001560| 65 61 64 65 72 73 20 74 | 6f 20 6b 65 65 70 2e 0a |eaders t|o keep..|
|00001570| 44 49 53 43 41 52 44 2d | 52 45 47 45 58 50 20 73 |DISCARD-|REGEXP s|
|00001580| 68 6f 75 6c 64 20 62 65 | 20 61 20 72 65 67 65 78 |hould be| a regex|
|00001590| 70 20 74 68 61 74 20 6d | 61 74 63 68 65 73 20 68 |p that m|atches h|
|000015a0| 65 61 64 65 72 73 20 74 | 6f 20 62 65 20 64 69 73 |eaders t|o be dis|
|000015b0| 63 61 72 64 65 64 2e 0a | 4b 45 45 50 2d 4c 49 53 |carded..|KEEP-LIS|
|000015c0| 54 20 61 6e 64 20 44 49 | 53 43 41 52 44 2d 52 45 |T and DI|SCARD-RE|
|000015d0| 47 45 58 50 20 61 72 65 | 20 75 73 65 64 20 74 6f |GEXP are| used to|
|000015e0| 20 6f 72 64 65 72 20 61 | 6e 64 20 74 72 69 6d 20 | order a|nd trim |
|000015f0| 74 68 65 20 68 65 61 64 | 65 72 73 0a 74 6f 20 62 |the head|ers.to b|
|00001600| 65 20 66 6f 72 77 61 72 | 64 65 64 2e 20 20 53 65 |e forwar|ded.  Se|
|00001610| 65 20 74 68 65 20 64 6f | 63 73 20 66 6f 72 20 76 |e the do|cs for v|
|00001620| 6d 2d 72 65 6f 72 64 65 | 72 2d 6d 65 73 73 61 67 |m-reorde|r-messag|
|00001630| 65 2d 68 65 61 64 65 72 | 73 0a 74 6f 20 66 69 6e |e-header|s.to fin|
|00001640| 64 20 6f 75 74 20 68 6f | 77 20 4b 45 45 50 2d 4c |d out ho|w KEEP-L|
|00001650| 49 53 54 20 61 6e 64 20 | 44 49 53 43 41 52 44 2d |IST and |DISCARD-|
|00001660| 52 45 47 45 58 50 20 61 | 72 65 20 75 73 65 64 2e |REGEXP a|re used.|
|00001670| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |"]).(def|alias 'v|
|00001680| 6d 2d 72 66 63 31 31 35 | 33 2d 6f 72 2d 72 66 63 |m-rfc115|3-or-rfc|
|00001690| 39 33 34 2d 62 75 72 73 | 74 2d 6d 65 73 73 61 67 |934-burs|t-messag|
|000016a0| 65 20 23 5b 28 6d 20 72 | 66 63 31 31 35 33 29 20 |e #[(m r|fc1153) |
|000016b0| 22 c0 c1 c0 89 89 89 89 | 5c 6e 1b 1c 1d 1e 06 1e |".......|\n......|
|000016c0| 07 1e 08 1e 09 1e 5c 6e | 0e 0b 83 21 00 cc cb 0e |......\n|...!....|
|000016d0| 0d 5c 22 16 07 0e 0e 83 | 2d 00 cf 15 d0 14 82 31 |.\".....|-......1|
|000016e0| 00 d1 15 d1 14 8a d2 20 | 64 65 5a 56 c0 89 1e 13 |....... |deZV....|
|000016f0| 1e 14 89 1e 15 83 56 00 | d6 20 65 c0 93 89 16 14 |......V.|. e.....|
|00001700| 83 56 00 d6 20 64 c0 93 | 16 13 d7 8e 7e 88 d8 8e |.V.. d..|....~...|
|00001710| d9 da 8d 2e 0e 87 22 20 | 5b 6e 69 6c 20 74 20 76 |......" |[nil t v|
|00001720| 6d 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 66 6f |m-folder|-type fo|
|00001730| 6c 64 65 72 2d 74 79 70 | 65 20 73 65 70 61 72 61 |lder-typ|e separa|
|00001740| 74 6f 72 2d 72 65 67 65 | 78 70 20 70 72 6f 6c 6f |tor-rege|xp prolo|
|00001750| 67 75 65 2d 73 65 70 61 | 72 61 74 6f 72 2d 72 65 |gue-sepa|rator-re|
|00001760| 67 65 78 70 20 61 66 74 | 65 72 2d 70 72 65 76 2d |gexp aft|er-prev-|
|00001770| 73 65 70 20 69 64 65 6e | 74 2d 68 65 61 64 65 72 |sep iden|t-header|
|00001780| 20 70 72 65 76 2d 73 65 | 70 20 6d 61 74 63 68 20 | prev-se|p match |
|00001790| 77 6f 72 6b 2d 62 75 66 | 66 65 72 20 76 6d 2d 64 |work-buf|fer vm-d|
|000017a0| 69 67 65 73 74 2d 69 64 | 65 6e 74 69 66 69 65 72 |igest-id|entifier|
|000017b0| 2d 68 65 61 64 65 72 2d | 66 6f 72 6d 61 74 20 76 |-header-|format v|
|000017c0| 6d 2d 73 70 72 69 6e 74 | 66 20 6d 20 72 66 63 31 |m-sprint|f m rfc1|
|000017d0| 31 35 33 20 22 5e 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |153 "^--|--------|
|000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 5c 6e 22 20 |--------|----\n" |
|00001820| 22 5e 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"^------|--------|
|00001830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001840| 5c 6e 22 20 22 5e 2d 5b | 5e 20 5d 2e 2a 5c 6e 22 |\n" "^-[|^ ].*\n"|
|00001850| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 76 6d 2d | buffer-|size vm-|
|00001860| 73 72 2d 6d 61 78 20 76 | 6d 2d 73 72 2d 6d 69 6e |sr-max v|m-sr-min|
|00001870| 20 76 6d 2d 73 72 2d 63 | 6c 69 70 20 6d 61 6b 65 | vm-sr-c|lip make|
|00001880| 2d 6d 61 72 6b 65 72 20 | 28 28 62 79 74 65 2d 63 |-marker |((byte-c|
|00001890| 6f 64 65 20 22 7e 88 08 | 83 14 00 09 5c 6e 7d 88 |ode "~..|....\n}.|
|000018a0| 09 c3 89 93 88 5c 6e c3 | 89 93 88 c3 87 22 20 5b |.....\n.|....." [|
|000018b0| 76 6d 2d 73 72 2d 63 6c | 69 70 20 76 6d 2d 73 72 |vm-sr-cl|ip vm-sr|
|000018c0| 2d 6d 69 6e 20 76 6d 2d | 73 72 2d 6d 61 78 20 6e |-min vm-|sr-max n|
|000018d0| 69 6c 5d 20 33 29 29 20 | 28 28 62 79 74 65 2d 63 |il] 3)) |((byte-c|
|000018e0| 6f 64 65 20 22 08 83 08 | 00 c1 08 21 88 c1 87 22 |ode "...|...!..."|
|000018f0| 20 5b 77 6f 72 6b 2d 62 | 75 66 66 65 72 20 6b 69 | [work-b|uffer ki|
|00001900| 6c 6c 2d 62 75 66 66 65 | 72 5d 20 32 29 29 20 64 |ll-buffe|r] 2)) d|
|00001910| 6f 6e 65 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |one (byt|e-code "|
|00001920| c0 c1 21 89 12 71 88 c3 | 5c 66 c5 48 c6 48 c7 5c |..!..q..|\f.H.H.\|
|00001930| 66 21 5c 66 c8 48 c9 48 | 23 88 65 62 88 ca 0e 0b |f!\f.H.H|#.eb....|
|00001940| cc cd 23 84 28 00 ce cf | cc 5c 22 88 0e 10 83 94 |..#.(...|.\".....|
|00001950| 00 0e 11 84 3a 00 65 c8 | 95 7c 88 82 5a 00 d2 20 |....:.e.|.|..Z.. |
|00001960| 1e 13 d4 8e d5 0e 16 0e | 17 c8 94 23 88 2a 68 d8 |........|...#.*h.|
|00001970| 55 83 57 00 d9 da 21 88 | 82 4a 00 d8 63 88 0e 11 |U.W...!.|.J..c...|
|00001980| 83 6b 00 c8 94 c8 95 7c | 88 db 0e 16 21 63 88 60 |.k.....||....!c.`|
|00001990| 16 11 dc 0e 16 21 63 88 | 60 16 17 67 d8 55 83 84 |.....!c.|`..g.U..|
|000019a0| 00 d9 c5 21 88 82 77 00 | 0e 1d 63 88 ca 0e 1e cc |...!..w.|..c.....|
|000019b0| cd 23 89 16 10 84 2d 00 | 0e 11 86 9a 00 65 64 7c |.#....-.|.....ed||
|000019c0| 88 0e 16 1e 1f 65 62 88 | e0 20 83 bb 00 e1 20 88 |.....eb.|. .... .|
|000019d0| e2 0e 16 89 5c 22 88 e3 | 20 88 e4 20 88 82 a4 00 |....\"..| .. ....|
|000019e0| 29 e5 20 c8 55 84 f5 00 | 0e 26 83 d0 00 e7 65 64 |). .U...|.&....ed|
|000019f0| 5c 22 88 82 d5 00 e8 65 | 64 5c 22 88 5c 66 c5 48 |\".....e|d\".\f.H|
|00001a00| c6 48 71 88 e9 20 cc cd | 1e 2a 1e 2b 1e 2c 64 62 |.Hq.. ..|.*.+.,db|
|00001a10| 88 c3 5c 6e 21 88 ed 0e | 2c 21 88 2b cd 87 cc 87 |..\n!...|,!.+....|
|00001a20| 22 20 5b 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |" [gener|ate-new-|
|00001a30| 62 75 66 66 65 72 20 22 | 2a 76 6d 2d 77 6f 72 6b |buffer "|*vm-work|
|00001a40| 2a 22 20 77 6f 72 6b 2d | 62 75 66 66 65 72 20 69 |*" work-|buffer i|
|00001a50| 6e 73 65 72 74 2d 62 75 | 66 66 65 72 2d 73 75 62 |nsert-bu|ffer-sub|
|00001a60| 73 74 72 69 6e 67 20 6d | 20 31 20 39 20 76 6d 2d |string m| 1 9 vm-|
|00001a70| 74 65 78 74 2d 6f 66 20 | 30 20 34 20 72 65 2d 73 |text-of |0 4 re-s|
|00001a80| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 70 72 |earch-fo|rward pr|
|00001a90| 6f 6c 6f 67 75 65 2d 73 | 65 70 61 72 61 74 6f 72 |ologue-s|eparator|
|00001aa0| 2d 72 65 67 65 78 70 20 | 6e 69 6c 20 74 20 74 68 |-regexp |nil t th|
|00001ab0| 72 6f 77 20 64 6f 6e 65 | 20 6d 61 74 63 68 20 70 |row done| match p|
|00001ac0| 72 65 76 2d 73 65 70 20 | 6d 61 74 63 68 2d 64 61 |rev-sep |match-da|
|00001ad0| 74 61 20 6d 64 20 28 28 | 73 74 6f 72 65 2d 6d 61 |ta md ((|store-ma|
|00001ae0| 74 63 68 2d 64 61 74 61 | 20 6d 64 29 29 20 76 6d |tch-data| md)) vm|
|00001af0| 2d 6d 75 6e 67 65 2d 6d | 65 73 73 61 67 65 2d 73 |-munge-m|essage-s|
|00001b00| 65 70 61 72 61 74 6f 72 | 73 20 66 6f 6c 64 65 72 |eparator|s folder|
|00001b10| 2d 74 79 70 65 20 61 66 | 74 65 72 2d 70 72 65 76 |-type af|ter-prev|
|00001b20| 2d 73 65 70 20 31 30 20 | 64 65 6c 65 74 65 2d 63 |-sep 10 |delete-c|
|00001b30| 68 61 72 20 2d 31 20 76 | 6d 2d 74 72 61 69 6c 69 |har -1 v|m-traili|
|00001b40| 6e 67 2d 6d 65 73 73 61 | 67 65 2d 73 65 70 61 72 |ng-messa|ge-separ|
|00001b50| 61 74 6f 72 20 76 6d 2d | 6c 65 61 64 69 6e 67 2d |ator vm-|leading-|
|00001b60| 6d 65 73 73 61 67 65 2d | 73 65 70 61 72 61 74 6f |message-|separato|
|00001b70| 72 20 69 64 65 6e 74 2d | 68 65 61 64 65 72 20 73 |r ident-|header s|
|00001b80| 65 70 61 72 61 74 6f 72 | 2d 72 65 67 65 78 70 20 |eparator|-regexp |
|00001b90| 76 6d 2d 66 6f 6c 64 65 | 72 2d 74 79 70 65 20 76 |vm-folde|r-type v|
|00001ba0| 6d 2d 66 69 6e 64 2d 6c | 65 61 64 69 6e 67 2d 6d |m-find-l|eading-m|
|00001bb0| 65 73 73 61 67 65 2d 73 | 65 70 61 72 61 74 6f 72 |essage-s|eparator|
|00001bc0| 20 76 6d 2d 73 6b 69 70 | 2d 70 61 73 74 2d 6c 65 | vm-skip|-past-le|
|00001bd0| 61 64 69 6e 67 2d 6d 65 | 73 73 61 67 65 2d 73 65 |ading-me|ssage-se|
|00001be0| 70 61 72 61 74 6f 72 20 | 76 6d 2d 63 6f 6e 76 65 |parator |vm-conve|
|00001bf0| 72 74 2d 66 6f 6c 64 65 | 72 2d 74 79 70 65 2d 68 |rt-folde|r-type-h|
|00001c00| 65 61 64 65 72 73 20 76 | 6d 2d 66 69 6e 64 2d 74 |eaders v|m-find-t|
|00001c10| 72 61 69 6c 69 6e 67 2d | 6d 65 73 73 61 67 65 2d |railing-|message-|
|00001c20| 73 65 70 61 72 61 74 6f | 72 20 76 6d 2d 73 6b 69 |separato|r vm-ski|
|00001c30| 70 2d 70 61 73 74 2d 74 | 72 61 69 6c 69 6e 67 2d |p-past-t|railing-|
|00001c40| 6d 65 73 73 61 67 65 2d | 73 65 70 61 72 61 74 6f |message-|separato|
|00001c50| 72 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 72 66 |r buffer|-size rf|
|00001c60| 63 31 31 35 33 20 76 6d | 2d 72 66 63 31 31 35 33 |c1153 vm|-rfc1153|
|00001c70| 2d 63 68 61 72 2d 75 6e | 73 74 75 66 66 2d 72 65 |-char-un|stuff-re|
|00001c80| 67 69 6f 6e 20 76 6d 2d | 72 66 63 39 33 34 2d 63 |gion vm-|rfc934-c|
|00001c90| 68 61 72 2d 75 6e 73 74 | 75 66 66 2d 72 65 67 69 |har-unst|uff-regi|
|00001ca0| 6f 6e 20 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |on buffe|r-modifi|
|00001cb0| 65 64 2d 70 20 69 6e 68 | 69 62 69 74 2d 71 75 69 |ed-p inh|ibit-qui|
|00001cc0| 74 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |t buffer|-read-on|
|00001cd0| 6c 79 20 6f 6c 64 2d 62 | 75 66 66 65 72 2d 6d 6f |ly old-b|uffer-mo|
|00001ce0| 64 69 66 69 65 64 2d 70 | 20 73 65 74 2d 62 75 66 |dified-p| set-buf|
|00001cf0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 5d 20 |fer-modi|fied-p] |
|00001d00| 36 29 5d 20 39 20 22 5c | 0a 42 75 72 73 74 20 6d |6)] 9 "\|.Burst m|
|00001d10| 65 73 73 61 67 65 73 20 | 66 72 6f 6d 20 74 68 65 |essages |from the|
|00001d20| 20 64 69 67 65 73 74 20 | 6d 65 73 73 61 67 65 20 | digest |message |
|00001d30| 4d 2e 0a 4d 20 73 68 6f | 75 6c 64 20 62 65 20 61 |M..M sho|uld be a|
|00001d40| 20 6d 65 73 73 61 67 65 | 20 73 74 72 75 63 74 20 | message| struct |
|00001d50| 66 6f 72 20 61 20 72 65 | 61 6c 20 6d 65 73 73 61 |for a re|al messa|
|00001d60| 67 65 2e 0a 49 66 20 52 | 46 43 31 31 35 33 20 69 |ge..If R|FC1153 i|
|00001d70| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 61 73 73 75 6d |s non-ni|l, assum|
|00001d80| 65 20 74 68 65 20 64 69 | 67 65 73 74 20 69 73 20 |e the di|gest is |
|00001d90| 6f 66 20 74 68 65 20 66 | 6f 72 6d 20 73 70 65 63 |of the f|orm spec|
|00001da0| 69 66 69 65 64 20 62 79 | 0a 52 46 43 20 31 31 35 |ified by|.RFC 115|
|00001db0| 33 2e 20 20 4f 74 68 65 | 72 77 69 73 65 20 61 73 |3.  Othe|rwise as|
|00001dc0| 73 75 6d 65 20 52 46 43 | 20 39 33 34 20 64 69 67 |sume RFC| 934 dig|
|00001dd0| 65 73 74 73 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ests."])|.(defali|
|00001de0| 61 73 20 27 76 6d 2d 72 | 66 63 39 33 34 2d 62 75 |as 'vm-r|fc934-bu|
|00001df0| 72 73 74 2d 6d 65 73 73 | 61 67 65 20 23 5b 28 6d |rst-mess|age #[(m|
|00001e00| 29 20 22 c0 09 c2 5c 22 | 87 22 20 5b 76 6d 2d 72 |) "...\"|." [vm-r|
|00001e10| 66 63 31 31 35 33 2d 6f | 72 2d 72 66 63 39 33 34 |fc1153-o|r-rfc934|
|00001e20| 2d 62 75 72 73 74 2d 6d | 65 73 73 61 67 65 20 6d |-burst-m|essage m|
|00001e30| 20 6e 69 6c 5d 20 33 20 | 22 5c 0a 42 75 72 73 74 | nil] 3 |"\.Burst|
|00001e40| 20 6d 65 73 73 61 67 65 | 73 20 66 72 6f 6d 20 74 | message|s from t|
|00001e50| 68 65 20 52 46 43 20 39 | 33 34 20 64 69 67 65 73 |he RFC 9|34 diges|
|00001e60| 74 20 6d 65 73 73 61 67 | 65 20 4d 2e 0a 4d 20 73 |t messag|e M..M s|
|00001e70| 68 6f 75 6c 64 20 62 65 | 20 61 20 6d 65 73 73 61 |hould be| a messa|
|00001e80| 67 65 20 73 74 72 75 63 | 74 20 66 6f 72 20 61 20 |ge struc|t for a |
|00001e90| 72 65 61 6c 20 6d 65 73 | 73 61 67 65 2e 22 5d 29 |real mes|sage."])|
|00001ea0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 6d 2d 72 |.(defali|as 'vm-r|
|00001eb0| 66 63 31 31 35 33 2d 62 | 75 72 73 74 2d 6d 65 73 |fc1153-b|urst-mes|
|00001ec0| 73 61 67 65 20 23 5b 28 | 6d 29 20 22 c0 09 c2 5c |sage #[(|m) "...\|
|00001ed0| 22 87 22 20 5b 76 6d 2d | 72 66 63 31 31 35 33 2d |"." [vm-|rfc1153-|
|00001ee0| 6f 72 2d 72 66 63 39 33 | 34 2d 62 75 72 73 74 2d |or-rfc93|4-burst-|
|00001ef0| 6d 65 73 73 61 67 65 20 | 6d 20 74 5d 20 33 20 22 |message |m t] 3 "|
|00001f00| 5c 0a 42 75 72 73 74 20 | 6d 65 73 73 61 67 65 73 |\.Burst |messages|
|00001f10| 20 66 72 6f 6d 20 74 68 | 65 20 52 46 43 20 31 31 | from th|e RFC 11|
|00001f20| 35 33 20 64 69 67 65 73 | 74 20 6d 65 73 73 61 67 |53 diges|t messag|
|00001f30| 65 20 4d 2e 0a 4d 20 73 | 68 6f 75 6c 64 20 62 65 |e M..M s|hould be|
|00001f40| 20 61 20 6d 65 73 73 61 | 67 65 20 73 74 72 75 63 | a messa|ge struc|
|00001f50| 74 20 66 6f 72 20 61 20 | 72 65 61 6c 20 6d 65 73 |t for a |real mes|
|00001f60| 73 61 67 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |sage."])|.(defali|
|00001f70| 61 73 20 27 76 6d 2d 62 | 75 72 73 74 2d 64 69 67 |as 'vm-b|urst-dig|
|00001f80| 65 73 74 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |est #[(&|optional|
|00001f90| 20 64 69 67 65 73 74 2d | 74 79 70 65 29 20 22 08 | digest-|type) ".|
|00001fa0| 84 06 00 09 10 c2 20 88 | 0b 83 1c 00 c4 0b 21 84 |...... .|......!.|
|00001fb0| 19 00 c5 c6 21 83 1c 00 | 0b 71 88 c7 20 88 c8 20 |....!...|.q.. .. |
|00001fc0| 88 70 c9 89 1e 5c 6e 1e | 0b 1e 5c 66 cd 0e 0e 40 |.p...\n.|..\f...@|
|00001fd0| 21 83 47 00 0e 0e 40 cf | 48 d0 48 4a 89 16 0b cf |!.G...@.|H.HJ....|
|00001fe0| 48 d1 48 71 88 82 4c 00 | 0e 0e 40 16 0b 0e 12 83 |H.Hq..L.|..@.....|
|00001ff0| 5a 00 d3 d4 70 43 5c 22 | 88 82 4c 00 08 d5 9a 83 |Z...pC\"|..L.....|
|00002000| 6d 00 d6 0e 0b 21 89 10 | 84 6d 00 c5 d7 21 88 d8 |m....!..|.m...!..|
|00002010| d9 08 5c 22 88 08 da 9a | 83 7f 00 db 0e 0b 21 82 |..\"....|......!.|
|00002020| 90 00 08 dc 9a 83 8c 00 | dd 0e 0b 21 82 90 00 c5 |........|...!....|
|00002030| de 08 5c 22 83 d9 00 d8 | df 08 5c 22 88 e0 20 88 |..\"....|..\".. .|
|00002040| e1 e2 21 88 0e 23 54 16 | 23 0e 24 83 b3 00 8a 0e |..!..#T.|#.$.....|
|00002050| 5c 66 71 88 e5 cf 21 88 | 29 e6 e2 21 88 e7 20 16 |\fq...!.|)..!.. .|
|00002060| 5c 6e e8 c9 89 e9 0e 2a | 43 24 88 eb 20 83 cf 00 |\n.....*|C$.. ...|
|00002070| ec 20 88 82 d2 00 ed 20 | 88 d8 0e 5c 6e 21 82 da |. ..... |...\n!..|
|00002080| 00 ee 2b 87 22 20 5b 64 | 69 67 65 73 74 2d 74 79 |..+." [d|igest-ty|
|00002090| 70 65 20 76 6d 2d 64 69 | 67 65 73 74 2d 62 75 72 |pe vm-di|gest-bur|
|000020a0| 73 74 2d 74 79 70 65 20 | 76 6d 2d 66 6f 6c 6c 6f |st-type |vm-follo|
|000020b0| 77 2d 73 75 6d 6d 61 72 | 79 2d 63 75 72 73 6f 72 |w-summar|y-cursor|
|000020c0| 20 76 6d 2d 6d 61 69 6c | 2d 62 75 66 66 65 72 20 | vm-mail|-buffer |
|000020d0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 65 72 72 6f |buffer-n|ame erro|
|000020e0| 72 20 22 46 6f 6c 64 65 | 72 20 62 75 66 66 65 72 |r "Folde|r buffer|
|000020f0| 20 68 61 73 20 62 65 65 | 6e 20 6b 69 6c 6c 65 64 | has bee|n killed|
|00002100| 2e 22 20 76 6d 2d 63 68 | 65 63 6b 2d 66 6f 72 2d |." vm-ch|eck-for-|
|00002110| 6b 69 6c 6c 65 64 2d 73 | 75 6d 6d 61 72 79 20 76 |killed-s|ummary v|
|00002120| 6d 2d 65 72 72 6f 72 2d | 69 66 2d 66 6f 6c 64 65 |m-error-|if-folde|
|00002130| 72 2d 65 6d 70 74 79 20 | 6e 69 6c 20 74 6f 74 61 |r-empty |nil tota|
|00002140| 6c 73 2d 62 6c 75 72 62 | 20 6d 20 73 74 61 72 74 |ls-blurb| m start|
|00002150| 2d 62 75 66 66 65 72 20 | 76 6d 2d 76 69 72 74 75 |-buffer |vm-virtu|
|00002160| 61 6c 2d 6d 65 73 73 61 | 67 65 2d 70 20 76 6d 2d |al-messa|ge-p vm-|
|00002170| 6d 65 73 73 61 67 65 2d | 70 6f 69 6e 74 65 72 20 |message-|pointer |
|00002180| 31 20 35 20 39 20 76 6d | 2d 66 6f 6c 64 65 72 2d |1 5 9 vm|-folder-|
|00002190| 72 65 61 64 2d 6f 6e 6c | 79 20 73 69 67 6e 61 6c |read-onl|y signal|
|000021a0| 20 66 6f 6c 64 65 72 2d | 72 65 61 64 2d 6f 6e 6c | folder-|read-onl|
|000021b0| 79 20 22 67 75 65 73 73 | 22 20 76 6d 2d 67 75 65 |y "guess|" vm-gue|
|000021c0| 73 73 2d 64 69 67 65 73 | 74 2d 74 79 70 65 20 22 |ss-diges|t-type "|
|000021d0| 43 6f 75 6c 64 6e 27 74 | 20 67 75 65 73 73 20 64 |Couldn't| guess d|
|000021e0| 69 67 65 73 74 20 74 79 | 70 65 2e 22 20 6d 65 73 |igest ty|pe." mes|
|000021f0| 73 61 67 65 20 22 42 75 | 72 73 74 69 6e 67 20 25 |sage "Bu|rsting %|
|00002200| 73 20 64 69 67 65 73 74 | 2e 2e 2e 22 20 22 72 66 |s digest|..." "rf|
|00002210| 63 39 33 34 22 20 76 6d | 2d 72 66 63 39 33 34 2d |c934" vm|-rfc934-|
|00002220| 62 75 72 73 74 2d 6d 65 | 73 73 61 67 65 20 22 72 |burst-me|ssage "r|
|00002230| 66 63 31 31 35 33 22 20 | 76 6d 2d 72 66 63 31 31 |fc1153" |vm-rfc11|
|00002240| 35 33 2d 62 75 72 73 74 | 2d 6d 65 73 73 61 67 65 |53-burst|-message|
|00002250| 20 22 55 6e 6b 6e 6f 77 | 6e 20 64 69 67 65 73 74 | "Unknow|n digest|
|00002260| 20 74 79 70 65 3a 20 25 | 73 22 20 22 42 75 72 73 | type: %|s" "Burs|
|00002270| 74 69 6e 67 20 25 73 20 | 64 69 67 65 73 74 2e 2e |ting %s |digest..|
|00002280| 2e 20 64 6f 6e 65 22 20 | 76 6d 2d 63 6c 65 61 72 |. done" |vm-clear|
|00002290| 2d 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 2d 66 6c |-modific|ation-fl|
|000022a0| 61 67 2d 75 6e 64 6f 73 | 20 76 6d 2d 73 65 74 2d |ag-undos| vm-set-|
|000022b0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000022c0| 70 20 74 20 76 6d 2d 6d | 6f 64 69 66 69 63 61 74 |p t vm-m|odificat|
|000022d0| 69 6f 6e 2d 63 6f 75 6e | 74 65 72 20 76 6d 2d 64 |ion-coun|ter vm-d|
|000022e0| 65 6c 65 74 65 2d 61 66 | 74 65 72 2d 62 75 72 73 |elete-af|ter-burs|
|000022f0| 74 69 6e 67 20 76 6d 2d | 64 65 6c 65 74 65 2d 6d |ting vm-|delete-m|
|00002300| 65 73 73 61 67 65 20 76 | 6d 2d 61 73 73 69 6d 69 |essage v|m-assimi|
|00002310| 6c 61 74 65 2d 6e 65 77 | 2d 6d 65 73 73 61 67 65 |late-new|-message|
|00002320| 73 20 76 6d 2d 65 6d 69 | 74 2d 74 6f 74 61 6c 73 |s vm-emi|t-totals|
|00002330| 2d 62 6c 75 72 62 20 76 | 6d 2d 64 69 73 70 6c 61 |-blurb v|m-displa|
|00002340| 79 20 28 76 6d 2d 62 75 | 72 73 74 2d 64 69 67 65 |y (vm-bu|rst-dige|
|00002350| 73 74 20 76 6d 2d 62 75 | 72 73 74 2d 72 66 63 39 |st vm-bu|rst-rfc9|
|00002360| 33 34 2d 64 69 67 65 73 | 74 20 76 6d 2d 62 75 72 |34-diges|t vm-bur|
|00002370| 73 74 2d 72 66 63 31 31 | 35 33 2d 64 69 67 65 73 |st-rfc11|53-diges|
|00002380| 74 29 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 20 |t) this-|command |
|00002390| 76 6d 2d 74 68 6f 75 67 | 68 74 66 75 6c 6c 79 2d |vm-thoug|htfully-|
|000023a0| 73 65 6c 65 63 74 2d 6d | 65 73 73 61 67 65 20 76 |select-m|essage v|
|000023b0| 6d 2d 70 72 65 76 69 65 | 77 2d 63 75 72 72 65 6e |m-previe|w-curren|
|000023c0| 74 2d 6d 65 73 73 61 67 | 65 20 76 6d 2d 75 70 64 |t-messag|e vm-upd|
|000023d0| 61 74 65 2d 73 75 6d 6d | 61 72 79 2d 61 6e 64 2d |ate-summ|ary-and-|
|000023e0| 6d 6f 64 65 2d 6c 69 6e | 65 20 22 4e 6f 20 6d 65 |mode-lin|e "No me|
|000023f0| 73 73 61 67 65 73 20 66 | 6f 75 6e 64 20 69 6e 20 |ssages f|ound in |
|00002400| 64 69 67 65 73 74 2e 22 | 5d 20 36 20 22 5c 0a 42 |digest."|] 6 "\.B|
|00002410| 75 72 73 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |urst the| current|
|00002420| 20 6d 65 73 73 61 67 65 | 20 28 61 20 64 69 67 65 | message| (a dige|
|00002430| 73 74 29 20 69 6e 74 6f | 20 69 74 73 20 69 6e 64 |st) into| its ind|
|00002440| 69 76 69 64 75 61 6c 20 | 6d 65 73 73 61 67 65 73 |ividual |messages|
|00002450| 2e 0a 54 68 65 20 64 69 | 67 65 73 74 27 73 20 6d |..The di|gest's m|
|00002460| 65 73 73 61 67 65 73 20 | 61 72 65 20 61 73 73 69 |essages |are assi|
|00002470| 6d 69 6c 61 74 65 64 20 | 69 6e 74 6f 20 74 68 65 |milated |into the|
|00002480| 20 66 6f 6c 64 65 72 20 | 61 73 20 6e 65 77 20 6d | folder |as new m|
|00002490| 61 69 6c 0a 77 6f 75 6c | 64 20 62 65 2e 0a 0a 4f |ail.woul|d be...O|
|000024a0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|000024b0| 20 44 49 47 45 53 54 2d | 54 59 50 45 20 69 73 20 | DIGEST-|TYPE is |
|000024c0| 61 20 73 74 72 69 6e 67 | 20 74 68 61 74 20 74 65 |a string| that te|
|000024d0| 6c 6c 73 20 56 4d 20 77 | 68 61 74 20 6b 69 6e 64 |lls VM w|hat kind|
|000024e0| 0a 6f 66 20 64 69 67 65 | 73 74 20 74 68 65 20 63 |.of dige|st the c|
|000024f0| 75 72 72 65 6e 74 20 6d | 65 73 73 61 67 65 20 69 |urrent m|essage i|
|00002500| 73 2e 20 20 49 66 20 69 | 74 20 69 73 20 6e 6f 74 |s.  If i|t is not|
|00002510| 20 67 69 76 65 6e 20 74 | 68 65 20 76 61 6c 75 65 | given t|he value|
|00002520| 0a 64 65 66 61 75 6c 74 | 73 20 74 6f 20 74 68 65 |.default|s to the|
|00002530| 20 76 61 6c 75 65 20 6f | 66 20 76 6d 2d 64 69 67 | value o|f vm-dig|
|00002540| 65 73 74 2d 62 75 72 73 | 74 2d 74 79 70 65 2e 20 |est-burs|t-type. |
|00002550| 20 57 68 65 6e 20 63 61 | 6c 6c 65 64 0a 69 6e 74 | When ca|lled.int|
|00002560| 65 72 61 63 74 69 76 65 | 6c 79 20 44 49 47 45 53 |eractive|ly DIGES|
|00002570| 54 2d 54 59 50 45 20 77 | 69 6c 6c 20 62 65 20 72 |T-TYPE w|ill be r|
|00002580| 65 61 64 20 66 72 6f 6d | 20 74 68 65 20 6d 69 6e |ead from| the min|
|00002590| 69 62 75 66 66 65 72 2e | 22 20 28 6c 69 73 74 20 |ibuffer.|" (list |
|000025a0| 28 6c 65 74 20 28 28 74 | 79 70 65 20 6e 69 6c 29 |(let ((t|ype nil)|
|000025b0| 20 28 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 74 | (this-c|ommand t|
|000025c0| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 29 20 28 6c 61 |his-comm|and) (la|
|000025d0| 73 74 2d 63 6f 6d 6d 61 | 6e 64 20 6c 61 73 74 2d |st-comma|nd last-|
|000025e0| 63 6f 6d 6d 61 6e 64 29 | 29 20 28 73 65 74 71 20 |command)|) (setq |
|000025f0| 74 79 70 65 20 28 63 6f | 6d 70 6c 65 74 69 6e 67 |type (co|mpleting|
|00002600| 2d 72 65 61 64 20 28 66 | 6f 72 6d 61 74 20 22 44 |-read (f|ormat "D|
|00002610| 69 67 65 73 74 20 74 79 | 70 65 3a 20 28 64 65 66 |igest ty|pe: (def|
|00002620| 61 75 6c 74 20 25 73 29 | 20 22 20 76 6d 2d 64 69 |ault %s)| " vm-di|
|00002630| 67 65 73 74 2d 62 75 72 | 73 74 2d 74 79 70 65 29 |gest-bur|st-type)|
|00002640| 20 28 61 70 70 65 6e 64 | 20 76 6d 2d 64 69 67 65 | (append| vm-dige|
|00002650| 73 74 2d 74 79 70 65 2d | 61 6c 69 73 74 20 28 6c |st-type-|alist (l|
|00002660| 69 73 74 20 28 71 75 6f | 74 65 20 28 22 67 75 65 |ist (quo|te ("gue|
|00002670| 73 73 22 29 29 29 29 20 | 28 71 75 6f 74 65 20 69 |ss")))) |(quote i|
|00002680| 64 65 6e 74 69 74 79 29 | 20 6e 69 6c 29 29 20 28 |dentity)| nil)) (|
|00002690| 69 66 20 28 73 74 72 69 | 6e 67 3d 20 74 79 70 65 |if (stri|ng= type|
|000026a0| 20 22 22 29 20 76 6d 2d | 64 69 67 65 73 74 2d 62 | "") vm-|digest-b|
|000026b0| 75 72 73 74 2d 74 79 70 | 65 20 74 79 70 65 29 29 |urst-typ|e type))|
|000026c0| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |)]).(def|alias 'v|
|000026d0| 6d 2d 62 75 72 73 74 2d | 72 66 63 39 33 34 2d 64 |m-burst-|rfc934-d|
|000026e0| 69 67 65 73 74 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |igest #[|nil "..!|
|000026f0| 87 22 20 5b 76 6d 2d 62 | 75 72 73 74 2d 64 69 67 |." [vm-b|urst-dig|
|00002700| 65 73 74 20 22 72 66 63 | 39 33 34 22 5d 20 32 20 |est "rfc|934"] 2 |
|00002710| 22 5c 0a 42 75 72 73 74 | 20 61 6e 20 52 46 43 20 |"\.Burst| an RFC |
|00002720| 39 33 34 20 73 74 79 6c | 65 20 64 69 67 65 73 74 |934 styl|e digest|
|00002730| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00002740| 73 20 27 76 6d 2d 62 75 | 72 73 74 2d 72 66 63 31 |s 'vm-bu|rst-rfc1|
|00002750| 31 35 33 2d 64 69 67 65 | 73 74 20 23 5b 6e 69 6c |153-dige|st #[nil|
|00002760| 20 22 c0 c1 21 87 22 20 | 5b 76 6d 2d 62 75 72 73 | "..!." |[vm-burs|
|00002770| 74 2d 64 69 67 65 73 74 | 20 22 72 66 63 31 31 35 |t-digest| "rfc115|
|00002780| 33 22 5d 20 32 20 22 5c | 0a 42 75 72 73 74 20 61 |3"] 2 "\|.Burst a|
|00002790| 6e 20 52 46 43 20 31 31 | 35 33 20 73 74 79 6c 65 |n RFC 11|53 style|
|000027a0| 20 64 69 67 65 73 74 22 | 20 6e 69 6c 5d 29 0a 28 | digest"| nil]).(|
|000027b0| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 67 75 65 |defalias| 'vm-gue|
|000027c0| 73 73 2d 64 69 67 65 73 | 74 2d 74 79 70 65 20 23 |ss-diges|t-type #|
|000027d0| 5b 28 6d 29 20 22 8a 08 | c1 48 c2 48 71 88 8a 8c |[(m) "..|.H.Hq...|
|000027e0| 7e 88 c3 08 21 62 88 c4 | c5 c6 c7 23 83 1d 00 c8 |~...!b..|...#....|
|000027f0| 82 1e 00 c9 2b 87 22 20 | 5b 6d 20 31 20 39 20 76 |....+." |[m 1 9 v|
|00002800| 6d 2d 74 65 78 74 2d 6f | 66 20 73 65 61 72 63 68 |m-text-o|f search|
|00002810| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 2d 2d 2d 2d |-forward| "\n----|
|00002820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002860| 2d 2d 5c 6e 22 20 6e 69 | 6c 20 74 20 22 72 66 63 |--\n" ni|l t "rfc|
|00002870| 31 31 35 33 22 20 22 72 | 66 63 39 33 34 22 5d 20 |1153" "r|fc934"] |
|00002880| 34 20 22 5c 0a 47 75 65 | 73 73 20 74 68 65 20 64 |4 "\.Gue|ss the d|
|00002890| 69 67 65 73 74 20 74 79 | 70 65 20 6f 66 20 74 68 |igest ty|pe of th|
|000028a0| 65 20 6d 65 73 73 61 67 | 65 20 4d 2e 0a 4d 20 73 |e messag|e M..M s|
|000028b0| 68 6f 75 6c 64 20 62 65 | 20 74 68 65 20 6d 65 73 |hould be| the mes|
|000028c0| 73 61 67 65 20 73 74 72 | 75 63 74 20 6f 66 20 61 |sage str|uct of a|
|000028d0| 20 72 65 61 6c 20 6d 65 | 73 73 61 67 65 2e 0a 52 | real me|ssage..R|
|000028e0| 65 74 75 72 6e 73 20 65 | 69 74 68 65 72 20 5c 22 |eturns e|ither \"|
|000028f0| 72 66 63 39 33 34 5c 22 | 20 6f 72 20 5c 22 72 66 |rfc934\"| or \"rf|
|00002900| 63 31 31 35 33 5c 22 2e | 22 5d 29 0a             |c1153\".|"]).    |
+--------+-------------------------+-------------------------+--------+--------+