/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / vm / vm-motion.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 53 75 6e 20 |lidomide| on Sun |
|00000030| 46 65 62 20 31 34 20 32 | 33 3a 31 39 3a 33 39 20 |Feb 14 2|3:19:39 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 76 6d 2f | 76 6d 2d 6d 6f 74 69 6f |lisp/vm/|vm-motio|
|00000080| 6e 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |n.el.;;;| emacs v|
|00000090| 65 72 73 69 6f 6e 20 31 | 39 2e 34 2e 31 33 20 4c |ersion 1|9.4.13 L|
|000000a0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000b0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 31 30 3b |mp versi|on 2.10;|
|000000c0| 20 20 31 2d 66 65 62 2d | 39 33 2e 0a 3b 3b 3b 20 |  1-feb-|93..;;; |
|000000d0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000e0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000f0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000100| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000110| 74 20 69 6e 20 45 6d 61 | 63 73 31 38 2e 0a 0a 28 |t in Ema|cs18...(|
|00000120| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000130| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000140| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000150| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000160| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000170| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000180| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000190| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|000001a0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001b0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 31 39 2e 22 29 29 | for Ema|cs19."))|
|000001d0| 0a 0a 28 66 73 65 74 20 | 27 76 6d 2d 72 65 63 6f |..(fset |'vm-reco|
|000001e0| 72 64 2d 61 6e 64 2d 63 | 68 61 6e 67 65 2d 6d 65 |rd-and-c|hange-me|
|000001f0| 73 73 61 67 65 2d 70 6f | 69 6e 74 65 72 20 23 5b |ssage-po|inter #[|
|00000200| 28 6f 6c 64 20 6e 65 77 | 29 20 22 08 11 5c 6e 13 |(old new|) "..\n.|
|00000210| 5c 6e 89 13 87 22 20 5b | 6f 6c 64 20 76 6d 2d 6c |\n..." [|old vm-l|
|00000220| 61 73 74 2d 6d 65 73 73 | 61 67 65 2d 70 6f 69 6e |ast-mess|age-poin|
|00000230| 74 65 72 20 6e 65 77 20 | 76 6d 2d 6d 65 73 73 61 |ter new |vm-messa|
|00000240| 67 65 2d 70 6f 69 6e 74 | 65 72 5d 20 32 5d 29 0a |ge-point|er] 2]).|
|00000250| 28 66 73 65 74 20 27 76 | 6d 2d 67 6f 74 6f 2d 6d |(fset 'v|m-goto-m|
|00000260| 65 73 73 61 67 65 20 23 | 5b 28 6e 29 20 22 08 3f |essage #|[(n) ".?|
|00000270| 3f ad c0 09 ab 88 c2 09 | 21 ab 83 09 71 88 c3 0c |?.......|!...q...|
|00000280| 21 ab 87 c2 0c 21 ac 82 | c5 14 c6 20 88 08 53 0e |!....!..|... ..S.|
|00000290| 07 9b 89 1e 08 ac 84 c9 | ca 21 88 0e 0b 0e 08 3d |........|.!.....=|
|000002a0| ab 84 cc 20 aa 8c cd 0e | 0b 0e 08 5c 22 88 ce 16 |... ....|...\"...|
|000002b0| 0f cc 20 29 87 22 20 5b | 6e 20 76 6d 2d 6d 61 69 |.. )." [|n vm-mai|
|000002c0| 6c 2d 62 75 66 66 65 72 | 20 62 75 66 66 65 72 2d |l-buffer| buffer-|
|000002d0| 6e 61 6d 65 20 62 75 66 | 66 65 72 70 20 76 6d 2d |name buf|ferp vm-|
|000002e0| 73 75 6d 6d 61 72 79 2d | 62 75 66 66 65 72 20 6e |summary-|buffer n|
|000002f0| 69 6c 20 76 6d 2d 65 72 | 72 6f 72 2d 69 66 2d 66 |il vm-er|ror-if-f|
|00000300| 6f 6c 64 65 72 2d 65 6d | 70 74 79 20 76 6d 2d 6d |older-em|pty vm-m|
|00000310| 65 73 73 61 67 65 2d 6c | 69 73 74 20 63 6f 6e 73 |essage-l|ist cons|
|00000320| 20 65 72 72 6f 72 20 22 | 4e 6f 20 73 75 63 68 20 | error "|No such |
|00000330| 6d 65 73 73 61 67 65 2e | 22 20 76 6d 2d 6d 65 73 |message.|" vm-mes|
|00000340| 73 61 67 65 2d 70 6f 69 | 6e 74 65 72 20 76 6d 2d |sage-poi|nter vm-|
|00000350| 70 72 65 76 69 65 77 2d | 63 75 72 72 65 6e 74 2d |preview-|current-|
|00000360| 6d 65 73 73 61 67 65 20 | 76 6d 2d 72 65 63 6f 72 |message |vm-recor|
|00000370| 64 2d 61 6e 64 2d 63 68 | 61 6e 67 65 2d 6d 65 73 |d-and-ch|ange-mes|
|00000380| 73 61 67 65 2d 70 6f 69 | 6e 74 65 72 20 74 20 76 |sage-poi|nter t v|
|00000390| 6d 2d 6e 65 65 64 2d 73 | 75 6d 6d 61 72 79 2d 70 |m-need-s|ummary-p|
|000003a0| 6f 69 6e 74 65 72 2d 75 | 70 64 61 74 65 5d 20 34 |ointer-u|pdate] 4|
|000003b0| 20 22 5c 0a 47 6f 20 74 | 6f 20 74 68 65 20 6d 65 | "\.Go t|o the me|
|000003c0| 73 73 61 67 65 20 6e 75 | 6d 62 65 72 65 64 20 4e |ssage nu|mbered N|
|000003d0| 2e 0a 49 6e 74 65 72 61 | 63 74 69 76 65 6c 79 20 |..Intera|ctively |
|000003e0| 4e 20 69 73 20 74 68 65 | 20 70 72 65 66 69 78 20 |N is the| prefix |
|000003f0| 61 72 67 75 6d 65 6e 74 | 2e 20 20 49 66 20 6e 6f |argument|.  If no|
|00000400| 20 70 72 65 66 69 78 20 | 61 72 67 20 69 73 20 70 | prefix |arg is p|
|00000410| 72 6f 76 69 64 65 64 0a | 4e 20 69 73 20 70 72 6f |rovided.|N is pro|
|00000420| 6d 70 74 65 64 20 66 6f | 72 20 69 6e 20 74 68 65 |mpted fo|r in the|
|00000430| 20 6d 69 6e 69 62 75 66 | 66 65 72 2e 0a 0a 49 66 | minibuf|fer...If|
|00000440| 20 76 6d 2d 66 6f 6c 6c | 6f 77 2d 73 75 6d 6d 61 | vm-foll|ow-summa|
|00000450| 72 79 2d 63 75 72 73 6f | 72 20 69 73 20 6e 6f 6e |ry-curso|r is non|
|00000460| 2d 6e 69 6c 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e |-nil thi|s comman|
|00000470| 64 20 66 69 72 73 74 20 | 74 72 69 65 73 0a 74 6f |d first |tries.to|
|00000480| 20 66 6f 6c 6c 6f 77 20 | 74 68 65 20 73 75 6d 6d | follow |the summ|
|00000490| 61 72 79 20 63 75 72 73 | 6f 72 20 74 6f 20 61 20 |ary curs|or to a |
|000004a0| 6e 65 77 20 6d 65 73 73 | 61 67 65 2e 20 20 49 66 |new mess|age.  If|
|000004b0| 20 61 20 6e 65 77 20 6d | 65 73 73 61 67 65 0a 69 | a new m|essage.i|
|000004c0| 73 20 73 65 6c 65 63 74 | 65 64 20 69 6e 20 74 68 |s select|ed in th|
|000004d0| 69 73 20 77 61 79 2c 20 | 6e 6f 20 66 75 72 74 68 |is way, |no furth|
|000004e0| 65 72 20 61 63 74 69 6f | 6e 20 69 73 20 74 61 6b |er actio|n is tak|
|000004f0| 65 6e 2e 20 20 49 2e 65 | 2e 20 79 6f 75 20 63 61 |en.  I.e|. you ca|
|00000500| 6e 20 6d 6f 76 65 0a 74 | 68 65 20 63 75 72 73 6f |n move.t|he curso|
|00000510| 72 20 69 6e 20 74 68 65 | 20 73 75 6d 6d 61 72 79 |r in the| summary|
|00000520| 20 62 75 66 66 65 72 2c | 20 70 72 65 73 73 20 52 | buffer,| press R|
|00000530| 45 54 55 52 4e 20 61 6e | 64 20 73 65 6c 65 63 74 |ETURN an|d select|
|00000540| 20 61 20 6e 65 77 0a 6d | 65 73 73 61 67 65 20 77 | a new.m|essage w|
|00000550| 69 74 68 6f 75 74 20 74 | 79 70 69 6e 67 20 69 6e |ithout t|yping in|
|00000560| 20 61 20 6d 65 73 73 61 | 67 65 20 6e 75 6d 62 65 | a messa|ge numbe|
|00000570| 72 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |r." (byt|e-code "|
|00000580| c0 20 ab 83 c1 aa 8b 5c | 6e ab 85 c3 5c 6e 21 aa |. .....\|n...\n!.|
|00000590| 83 c4 c5 21 43 87 22 20 | 5b 76 6d 2d 66 6f 6c 6c |...!C." |[vm-foll|
|000005a0| 6f 77 2d 73 75 6d 6d 61 | 72 79 2d 63 75 72 73 6f |ow-summa|ry-curso|
|000005b0| 72 20 6e 69 6c 20 63 75 | 72 72 65 6e 74 2d 70 72 |r nil cu|rrent-pr|
|000005c0| 65 66 69 78 2d 61 72 67 | 20 70 72 65 66 69 78 2d |efix-arg| prefix-|
|000005d0| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 76 6d |numeric-|value vm|
|000005e0| 2d 72 65 61 64 2d 6e 75 | 6d 62 65 72 20 22 47 6f |-read-nu|mber "Go|
|000005f0| 20 74 6f 20 6d 65 73 73 | 61 67 65 3a 20 22 5d 20 | to mess|age: "] |
|00000600| 32 29 5d 29 0a 28 66 73 | 65 74 20 27 76 6d 2d 67 |2)]).(fs|et 'vm-g|
|00000610| 6f 74 6f 2d 6d 65 73 73 | 61 67 65 2d 6c 61 73 74 |oto-mess|age-last|
|00000620| 2d 73 65 65 6e 20 23 5b | 6e 69 6c 20 22 08 ab 88 |-seen #[|nil "...|
|00000630| c1 08 21 ab 83 08 71 88 | c2 0b 21 ab 87 c1 0b 21 |..!...q.|..!....!|
|00000640| ac 82 c4 13 c5 20 88 0e | 06 ad 8c c7 0e 08 0e 06 |..... ..|........|
|00000650| 5c 22 88 c9 16 5c 6e cb | 20 87 22 20 5b 76 6d 2d |\"...\n.| ." [vm-|
|00000660| 6d 61 69 6c 2d 62 75 66 | 66 65 72 20 62 75 66 66 |mail-buf|fer buff|
|00000670| 65 72 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 70 20 |er-name |bufferp |
|00000680| 76 6d 2d 73 75 6d 6d 61 | 72 79 2d 62 75 66 66 65 |vm-summa|ry-buffe|
|00000690| 72 20 6e 69 6c 20 76 6d | 2d 65 72 72 6f 72 2d 69 |r nil vm|-error-i|
|000006a0| 66 2d 66 6f 6c 64 65 72 | 2d 65 6d 70 74 79 20 76 |f-folder|-empty v|
|000006b0| 6d 2d 6c 61 73 74 2d 6d | 65 73 73 61 67 65 2d 70 |m-last-m|essage-p|
|000006c0| 6f 69 6e 74 65 72 20 76 | 6d 2d 72 65 63 6f 72 64 |ointer v|m-record|
|000006d0| 2d 61 6e 64 2d 63 68 61 | 6e 67 65 2d 6d 65 73 73 |-and-cha|nge-mess|
|000006e0| 61 67 65 2d 70 6f 69 6e | 74 65 72 20 76 6d 2d 6d |age-poin|ter vm-m|
|000006f0| 65 73 73 61 67 65 2d 70 | 6f 69 6e 74 65 72 20 74 |essage-p|ointer t|
|00000700| 20 76 6d 2d 6e 65 65 64 | 2d 73 75 6d 6d 61 72 79 | vm-need|-summary|
|00000710| 2d 70 6f 69 6e 74 65 72 | 2d 75 70 64 61 74 65 20 |-pointer|-update |
|00000720| 76 6d 2d 70 72 65 76 69 | 65 77 2d 63 75 72 72 65 |vm-previ|ew-curre|
|00000730| 6e 74 2d 6d 65 73 73 61 | 67 65 5d 20 33 20 22 5c |nt-messa|ge] 3 "\|
|00000740| 0a 47 6f 20 74 6f 20 74 | 68 65 20 6d 65 73 73 61 |.Go to t|he messa|
|00000750| 67 65 20 6c 61 73 74 20 | 70 72 65 76 69 65 77 65 |ge last |previewe|
|00000760| 64 2e 22 20 6e 69 6c 5d | 29 0a 28 62 79 74 65 2d |d." nil]|).(byte-|
|00000770| 63 6f 64 65 20 22 c0 c1 | c2 c3 23 88 c0 c1 c4 c5 |code "..|..#.....|
|00000780| 23 88 c0 c6 c2 c7 23 88 | c0 c6 c4 c8 23 88 c9 ca |#.....#.|....#...|
|00000790| 4d 88 cb cc 4d 88 cd ce | 4d 87 22 20 5b 70 75 74 |M...M...|M." [put|
|000007a0| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 6f | beginni|ng-of-fo|
|000007b0| 6c 64 65 72 20 65 72 72 | 6f 72 2d 63 6f 6e 64 69 |lder err|or-condi|
|000007c0| 74 69 6f 6e 73 20 28 62 | 65 67 69 6e 6e 69 6e 67 |tions (b|eginning|
|000007d0| 2d 6f 66 2d 66 6f 6c 64 | 65 72 20 65 72 72 6f 72 |-of-fold|er error|
|000007e0| 29 20 65 72 72 6f 72 2d | 6d 65 73 73 61 67 65 20 |) error-|message |
|000007f0| 22 42 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 66 6f |"Beginni|ng of fo|
|00000800| 6c 64 65 72 22 20 65 6e | 64 2d 6f 66 2d 66 6f 6c |lder" en|d-of-fol|
|00000810| 64 65 72 20 28 65 6e 64 | 2d 6f 66 2d 66 6f 6c 64 |der (end|-of-fold|
|00000820| 65 72 20 65 72 72 6f 72 | 29 20 22 45 6e 64 20 6f |er error|) "End o|
|00000830| 66 20 66 6f 6c 64 65 72 | 22 20 76 6d 2d 63 68 65 |f folder|" vm-che|
|00000840| 63 6b 2d 63 6f 75 6e 74 | 20 23 5b 28 63 6f 75 6e |ck-count| #[(coun|
|00000850| 74 29 20 22 08 c1 59 ab | 8b 5c 6e 47 08 57 ad 96 |t) "..Y.|.\nG.W..|
|00000860| c3 c4 c5 5c 22 87 0e 06 | 47 5c 6e 47 5a 54 c7 08 |...\"...|G\nGZT..|
|00000870| 21 57 ad 84 c3 c8 c5 5c | 22 87 22 20 5b 63 6f 75 |!W.....\|"." [cou|
|00000880| 6e 74 20 30 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |nt 0 vm-|message-|
|00000890| 70 6f 69 6e 74 65 72 20 | 73 69 67 6e 61 6c 20 65 |pointer |signal e|
|000008a0| 6e 64 2d 6f 66 2d 66 6f | 6c 64 65 72 20 6e 69 6c |nd-of-fo|lder nil|
|000008b0| 20 76 6d 2d 6d 65 73 73 | 61 67 65 2d 6c 69 73 74 | vm-mess|age-list|
|000008c0| 20 76 6d 2d 61 62 73 20 | 62 65 67 69 6e 6e 69 6e | vm-abs |beginnin|
|000008d0| 67 2d 6f 66 2d 66 6f 6c | 64 65 72 5d 20 33 5d 20 |g-of-fol|der] 3] |
|000008e0| 76 6d 2d 6d 6f 76 65 2d | 6d 65 73 73 61 67 65 2d |vm-move-|message-|
|000008f0| 70 6f 69 6e 74 65 72 20 | 23 5b 28 64 69 72 65 63 |pointer |#[(direc|
|00000900| 74 69 6f 6e 29 20 22 08 | 19 5c 6e c3 3d ab 94 09 |tion) ".|.\n.=...|
|00000910| 41 89 11 ac a7 0c ab 84 | 0d 11 aa a0 c6 c7 c8 5c |A.......|.......\|
|00000920| 22 88 aa 99 09 40 c9 48 | ca 48 4a 89 11 ac 8e 0c |"....@.H|.HJ.....|
|00000930| ab 86 cb 0d 21 11 aa 85 | c6 cc c8 5c 22 88 09 89 |....!...|...\"...|
|00000940| 10 29 87 22 20 5b 76 6d | 2d 6d 65 73 73 61 67 65 |.)." [vm|-message|
|00000950| 2d 70 6f 69 6e 74 65 72 | 20 6d 70 20 64 69 72 65 |-pointer| mp dire|
|00000960| 63 74 69 6f 6e 20 66 6f | 72 77 61 72 64 20 76 6d |ction fo|rward vm|
|00000970| 2d 63 69 72 63 75 6c 61 | 72 2d 66 6f 6c 64 65 72 |-circula|r-folder|
|00000980| 73 20 76 6d 2d 6d 65 73 | 73 61 67 65 2d 6c 69 73 |s vm-mes|sage-lis|
|00000990| 74 20 73 69 67 6e 61 6c | 20 65 6e 64 2d 6f 66 2d |t signal| end-of-|
|000009a0| 66 6f 6c 64 65 72 20 6e | 69 6c 20 30 20 38 20 76 |folder n|il 0 8 v|
|000009b0| 6d 2d 6c 61 73 74 20 62 | 65 67 69 6e 6e 69 6e 67 |m-last b|eginning|
|000009c0| 2d 6f 66 2d 66 6f 6c 64 | 65 72 5d 20 34 5d 20 76 |-of-fold|er] 4] v|
|000009d0| 6d 2d 73 68 6f 75 6c 64 | 2d 73 6b 69 70 2d 6d 65 |m-should|-skip-me|
|000009e0| 73 73 61 67 65 20 23 5b | 28 6d 70 20 26 6f 70 74 |ssage #[|(mp &opt|
|000009f0| 69 6f 6e 61 6c 20 73 6b | 69 70 2d 64 6f 67 6d 61 |ional sk|ip-dogma|
|00000a00| 74 69 63 61 6c 6c 79 29 | 20 22 08 ab a6 09 ab 88 |tically)| "......|
|00000a10| 5c 6e 40 c3 48 c3 48 ae | c4 0c ad 97 5c 6e 40 c3 |\n@.H.H.|....\n@.|
|00000a20| 48 c3 48 ae 8f 5c 6e 40 | c3 48 c5 48 ae 86 5c 6e |H.H..\n@|.H.H..\n|
|00000a30| 40 c3 48 c6 48 3f 87 09 | c7 3d ab 88 5c 6e 40 c3 |@.H.H?..|.=..\n@.|
|00000a40| 48 c3 48 ae 9c 0c c7 3d | ad 97 5c 6e 40 c3 48 c3 |H.H....=|..\n@.H.|
|00000a50| 48 ae 8f 5c 6e 40 c3 48 | c5 48 ae 86 5c 6e 40 c3 |H..\n@.H|.H..\n@.|
|00000a60| 48 c6 48 3f 87 22 20 5b | 73 6b 69 70 2d 64 6f 67 |H.H?." [|skip-dog|
|00000a70| 6d 61 74 69 63 61 6c 6c | 79 20 76 6d 2d 73 6b 69 |maticall|y vm-ski|
|00000a80| 70 2d 64 65 6c 65 74 65 | 64 2d 6d 65 73 73 61 67 |p-delete|d-messag|
|00000a90| 65 73 20 6d 70 20 32 20 | 76 6d 2d 73 6b 69 70 2d |es mp 2 |vm-skip-|
|00000aa0| 72 65 61 64 2d 6d 65 73 | 73 61 67 65 73 20 30 20 |read-mes|sages 0 |
|00000ab0| 31 20 74 5d 20 32 5d 5d | 20 34 29 0a 28 66 73 65 |1 t] 2]]| 4).(fse|
|00000ac0| 74 20 27 76 6d 2d 6e 65 | 78 74 2d 6d 65 73 73 61 |t 'vm-ne|xt-messa|
|00000ad0| 67 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ge #[(&o|ptional |
|00000ae0| 63 6f 75 6e 74 20 72 65 | 74 72 79 20 73 69 67 6e |count re|try sign|
|00000af0| 61 6c 2d 65 72 72 6f 72 | 73 29 20 22 08 ab 88 c1 |al-error|s) "....|
|00000b00| 08 21 ab 83 08 71 88 c2 | 20 88 c3 0c 21 ab 87 c1 |.!...q..| ...!...|
|00000b10| 0c 21 ac 82 c5 14 0e 06 | ab 83 c7 20 88 0e 08 ac |.!......|... ....|
|00000b20| 83 c9 16 08 0e 5c 6e c5 | 0e 08 cb 56 ab 83 cc aa |.....\n.|...V....|
|00000b30| 81 cd ce 0e 08 21 1e 08 | 1e 0f 1e 10 1e 11 0e 5c |.....!..|.......\|
|00000b40| 6e ac 86 0e 12 16 5c 6e | aa 92 0e 08 c9 55 ac 87 |n.....\n|.....U..|
|00000b50| c5 d3 d4 8f 88 aa 85 c5 | d5 d6 8f 88 0e 5c 6e 0e |........|.....\n.|
|00000b60| 11 3d ac 8d d7 0e 11 0e | 5c 6e 5c 22 88 d8 16 19 |.=......|\n\"....|
|00000b70| da 20 88 0e 10 ad 89 0e | 06 ad 85 db 0e 10 c5 5c |. ......|.......\|
|00000b80| 22 2c 87 22 20 5b 76 6d | 2d 6d 61 69 6c 2d 62 75 |",." [vm|-mail-bu|
|00000b90| 66 66 65 72 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |ffer buf|fer-name|
|00000ba0| 20 76 6d 2d 73 61 6e 69 | 74 79 2d 63 68 65 63 6b | vm-sani|ty-check|
|00000bb0| 2d 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 2d 66 6c |-modific|ation-fl|
|00000bc0| 61 67 20 62 75 66 66 65 | 72 70 20 76 6d 2d 73 75 |ag buffe|rp vm-su|
|00000bd0| 6d 6d 61 72 79 2d 62 75 | 66 66 65 72 20 6e 69 6c |mmary-bu|ffer nil|
|00000be0| 20 73 69 67 6e 61 6c 2d | 65 72 72 6f 72 73 20 76 | signal-|errors v|
|00000bf0| 6d 2d 65 72 72 6f 72 2d | 69 66 2d 66 6f 6c 64 65 |m-error-|if-folde|
|00000c00| 72 2d 65 6d 70 74 79 20 | 63 6f 75 6e 74 20 31 20 |r-empty |count 1 |
|00000c10| 76 6d 2d 6d 65 73 73 61 | 67 65 2d 70 6f 69 6e 74 |vm-messa|ge-point|
|00000c20| 65 72 20 30 20 66 6f 72 | 77 61 72 64 20 62 61 63 |er 0 for|ward bac|
|00000c30| 6b 77 61 72 64 20 76 6d | 2d 61 62 73 20 64 69 72 |kward vm|-abs dir|
|00000c40| 65 63 74 69 6f 6e 20 65 | 72 72 6f 72 20 6f 6c 64 |ection e|rror old|
|00000c50| 6d 70 20 76 6d 2d 6d 65 | 73 73 61 67 65 2d 6c 69 |mp vm-me|ssage-li|
|00000c60| 73 74 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |st (byte|-code ".|
|00000c70| c1 55 ac 8a c2 0b 21 88 | 08 53 89 10 aa 72 c1 87 |.U....!.|.S...r..|
|00000c80| 22 20 5b 63 6f 75 6e 74 | 20 30 20 76 6d 2d 6d 6f |" [count| 0 vm-mo|
|00000c90| 76 65 2d 6d 65 73 73 61 | 67 65 2d 70 6f 69 6e 74 |ve-messa|ge-point|
|00000ca0| 65 72 20 64 69 72 65 63 | 74 69 6f 6e 5d 20 33 29 |er direc|tion] 3)|
|00000cb0| 20 28 28 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d | ((begin|ning-of-|
|00000cc0| 66 6f 6c 64 65 72 20 28 | 62 79 74 65 2d 63 6f 64 |folder (|byte-cod|
|00000cd0| 65 20 22 c0 11 c0 87 22 | 20 5b 62 65 67 69 6e 6e |e "...."| [beginn|
|00000ce0| 69 6e 67 2d 6f 66 2d 66 | 6f 6c 64 65 72 20 65 72 |ing-of-f|older er|
|00000cf0| 72 6f 72 5d 20 31 29 29 | 20 28 65 6e 64 2d 6f 66 |ror] 1))| (end-of|
|00000d00| 2d 66 6f 6c 64 65 72 20 | 28 62 79 74 65 2d 63 6f |-folder |(byte-co|
|00000d10| 64 65 20 22 c0 11 c0 87 | 22 20 5b 65 6e 64 2d 6f |de "....|" [end-o|
|00000d20| 66 2d 66 6f 6c 64 65 72 | 20 65 72 72 6f 72 5d 20 |f-folder| error] |
|00000d30| 31 29 29 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |1))) (by|te-code |
|00000d40| 22 c0 09 21 88 5c 6e 0b | 3d ac 8c c4 0b c5 5c 22 |"..!.\n.|=.....\"|
|00000d50| ab 86 c0 09 21 88 aa 6f | 0b 5c 6e 3d ab 99 0e 06 |....!..o|.\n=....|
|00000d60| ab 95 0e 07 41 ab 90 5c | 6e 0b 3d ac 8b c4 0b 21 |....A..\|n.=....!|
|00000d70| ab 86 c0 09 21 88 aa 70 | c0 87 22 20 5b 76 6d 2d |....!..p|.." [vm-|
|00000d80| 6d 6f 76 65 2d 6d 65 73 | 73 61 67 65 2d 70 6f 69 |move-mes|sage-poi|
|00000d90| 6e 74 65 72 20 64 69 72 | 65 63 74 69 6f 6e 20 6f |nter dir|ection o|
|00000da0| 6c 64 6d 70 20 76 6d 2d | 6d 65 73 73 61 67 65 2d |ldmp vm-|message-|
|00000db0| 70 6f 69 6e 74 65 72 20 | 76 6d 2d 73 68 6f 75 6c |pointer |vm-shoul|
|00000dc0| 64 2d 73 6b 69 70 2d 6d | 65 73 73 61 67 65 20 74 |d-skip-m|essage t|
|00000dd0| 20 72 65 74 72 79 20 76 | 6d 2d 6d 65 73 73 61 67 | retry v|m-messag|
|00000de0| 65 2d 6c 69 73 74 5d 20 | 33 29 20 28 28 62 65 67 |e-list] |3) ((beg|
|00000df0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 66 6f 6c 64 65 72 |inning-o|f-folder|
|00000e00| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 11 5c | (byte-c|ode "..\|
|00000e10| 6e ab 87 c3 c4 c5 8f 11 | aa 83 c6 16 07 c3 87 22 |n.......|......."|
|00000e20| 20 5b 6f 6c 64 6d 70 20 | 76 6d 2d 6d 65 73 73 61 | [oldmp |vm-messa|
|00000e30| 67 65 2d 70 6f 69 6e 74 | 65 72 20 72 65 74 72 79 |ge-point|er retry|
|00000e40| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000e50| 22 08 18 c1 5c 6e 21 88 | c3 08 21 ab 86 c1 5c 6e |"...\n!.|..!...\n|
|00000e60| 21 88 aa 75 08 29 87 22 | 20 5b 76 6d 2d 6d 65 73 |!..u.)."| [vm-mes|
|00000e70| 73 61 67 65 2d 70 6f 69 | 6e 74 65 72 20 76 6d 2d |sage-poi|nter vm-|
|00000e80| 6d 6f 76 65 2d 6d 65 73 | 73 61 67 65 2d 70 6f 69 |move-mes|sage-poi|
|00000e90| 6e 74 65 72 20 64 69 72 | 65 63 74 69 6f 6e 20 76 |nter dir|ection v|
|00000ea0| 6d 2d 73 68 6f 75 6c 64 | 2d 73 6b 69 70 2d 6d 65 |m-should|-skip-me|
|00000eb0| 73 73 61 67 65 5d 20 32 | 29 20 28 28 62 65 67 69 |ssage] 2|) ((begi|
|00000ec0| 6e 6e 69 6e 67 2d 6f 66 | 2d 66 6f 6c 64 65 72 20 |nning-of|-folder |
|00000ed0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 5c 6e |(byte-co|de "..\n|
|00000ee0| 87 22 20 5b 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |." [begi|nning-of|
|00000ef0| 2d 66 6f 6c 64 65 72 20 | 65 72 72 6f 72 20 6f 6c |-folder |error ol|
|00000f00| 64 6d 70 5d 20 31 29 29 | 29 20 62 65 67 69 6e 6e |dmp] 1))|) beginn|
|00000f10| 69 6e 67 2d 6f 66 2d 66 | 6f 6c 64 65 72 20 65 72 |ing-of-f|older er|
|00000f20| 72 6f 72 5d 20 33 29 29 | 20 28 65 6e 64 2d 6f 66 |ror] 3))| (end-of|
|00000f30| 2d 66 6f 6c 64 65 72 20 | 28 62 79 74 65 2d 63 6f |-folder |(byte-co|
|00000f40| 64 65 20 22 08 11 5c 6e | ab 87 c3 c4 c5 8f 11 aa |de "..\n|........|
|00000f50| 83 c6 16 07 c3 87 22 20 | 5b 6f 6c 64 6d 70 20 76 |......" |[oldmp v|
|00000f60| 6d 2d 6d 65 73 73 61 67 | 65 2d 70 6f 69 6e 74 65 |m-messag|e-pointe|
|00000f70| 72 20 72 65 74 72 79 20 | 6e 69 6c 20 28 62 79 74 |r retry |nil (byt|
|00000f80| 65 2d 63 6f 64 65 20 22 | 08 18 c1 5c 6e 21 88 c3 |e-code "|...\n!..|
|00000f90| 08 21 ab 86 c1 5c 6e 21 | 88 aa 75 08 29 87 22 20 |.!...\n!|..u.)." |
|00000fa0| 5b 76 6d 2d 6d 65 73 73 | 61 67 65 2d 70 6f 69 6e |[vm-mess|age-poin|
|00000fb0| 74 65 72 20 76 6d 2d 6d | 6f 76 65 2d 6d 65 73 73 |ter vm-m|ove-mess|
|00000fc0| 61 67 65 2d 70 6f 69 6e | 74 65 72 20 64 69 72 65 |age-poin|ter dire|
|00000fd0| 63 74 69 6f 6e 20 76 6d | 2d 73 68 6f 75 6c 64 2d |ction vm|-should-|
|00000fe0| 73 6b 69 70 2d 6d 65 73 | 73 61 67 65 5d 20 32 29 |skip-mes|sage] 2)|
|00000ff0| 20 28 28 65 6e 64 2d 6f | 66 2d 66 6f 6c 64 65 72 | ((end-o|f-folder|
|00001000| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 11 5c | (byte-c|ode "..\|
|00001010| 6e 87 22 20 5b 65 6e 64 | 2d 6f 66 2d 66 6f 6c 64 |n." [end|-of-fold|
|00001020| 65 72 20 65 72 72 6f 72 | 20 6f 6c 64 6d 70 5d 20 |er error| oldmp] |
|00001030| 31 29 29 29 20 65 6e 64 | 2d 6f 66 2d 66 6f 6c 64 |1))) end|-of-fold|
|00001040| 65 72 20 65 72 72 6f 72 | 5d 20 33 29 29 29 20 76 |er error|] 3))) v|
|00001050| 6d 2d 72 65 63 6f 72 64 | 2d 61 6e 64 2d 63 68 61 |m-record|-and-cha|
|00001060| 6e 67 65 2d 6d 65 73 73 | 61 67 65 2d 70 6f 69 6e |nge-mess|age-poin|
|00001070| 74 65 72 20 74 20 76 6d | 2d 6e 65 65 64 2d 73 75 |ter t vm|-need-su|
|00001080| 6d 6d 61 72 79 2d 70 6f | 69 6e 74 65 72 2d 75 70 |mmary-po|inter-up|
|00001090| 64 61 74 65 20 76 6d 2d | 70 72 65 76 69 65 77 2d |date vm-|preview-|
|000010a0| 63 75 72 72 65 6e 74 2d | 6d 65 73 73 61 67 65 20 |current-|message |
|000010b0| 73 69 67 6e 61 6c 5d 20 | 35 20 22 5c 0a 47 6f 20 |signal] |5 "\.Go |
|000010c0| 66 6f 72 77 61 72 64 20 | 6f 6e 65 20 6d 65 73 73 |forward |one mess|
|000010d0| 61 67 65 20 61 6e 64 20 | 70 72 65 76 69 65 77 20 |age and |preview |
|000010e0| 69 74 2e 0a 57 69 74 68 | 20 70 72 65 66 69 78 20 |it..With| prefix |
|000010f0| 61 72 67 20 43 4f 55 4e | 54 2c 20 67 6f 20 66 6f |arg COUN|T, go fo|
|00001100| 72 77 61 72 64 20 43 4f | 55 4e 54 20 6d 65 73 73 |rward CO|UNT mess|
|00001110| 61 67 65 73 2e 20 20 41 | 20 6e 65 67 61 74 69 76 |ages.  A| negativ|
|00001120| 65 20 43 4f 55 4e 54 0a | 6d 65 61 6e 73 20 67 6f |e COUNT.|means go|
|00001130| 20 62 61 63 6b 77 61 72 | 64 2e 20 20 49 66 20 74 | backwar|d.  If t|
|00001140| 68 65 20 61 62 73 6f 6c | 75 74 65 20 76 61 6c 75 |he absol|ute valu|
|00001150| 65 20 6f 66 20 43 4f 55 | 4e 54 20 3e 20 31 20 74 |e of COU|NT > 1 t|
|00001160| 68 65 20 76 61 6c 75 65 | 73 20 6f 66 20 74 68 65 |he value|s of the|
|00001170| 0a 76 61 72 69 61 62 6c | 65 73 20 76 6d 2d 73 6b |.variabl|es vm-sk|
|00001180| 69 70 2d 64 65 6c 65 74 | 65 64 2d 6d 65 73 73 61 |ip-delet|ed-messa|
|00001190| 67 65 73 20 61 6e 64 20 | 76 6d 2d 73 6b 69 70 2d |ges and |vm-skip-|
|000011a0| 72 65 61 64 2d 6d 65 73 | 73 61 67 65 73 20 61 72 |read-mes|sages ar|
|000011b0| 65 0a 69 67 6e 6f 72 65 | 64 2e 22 20 22 70 5c 6e |e.ignore|d." "p\n|
|000011c0| 70 5c 6e 70 22 5d 29 0a | 28 66 73 65 74 20 27 76 |p\np"]).|(fset 'v|
|000011d0| 6d 2d 70 72 65 76 69 6f | 75 73 2d 6d 65 73 73 61 |m-previo|us-messa|
|000011e0| 67 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ge #[(&o|ptional |
|000011f0| 63 6f 75 6e 74 20 72 65 | 74 72 79 20 73 69 67 6e |count re|try sign|
|00001200| 61 6c 2d 65 72 72 6f 72 | 73 29 20 22 08 ac 82 c1 |al-error|s) "....|
|00001210| 10 5c 6e ab 88 c3 5c 6e | 21 ab 83 5c 6e 71 88 c4 |.\n...\n|!..\nq..|
|00001220| 08 5b 0d 0e 06 23 87 22 | 20 5b 63 6f 75 6e 74 20 |.[...#."| [count |
|00001230| 31 20 76 6d 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |1 vm-mai|l-buffer|
|00001240| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 76 6d 2d | buffer-|name vm-|
|00001250| 6e 65 78 74 2d 6d 65 73 | 73 61 67 65 20 72 65 74 |next-mes|sage ret|
|00001260| 72 79 20 73 69 67 6e 61 | 6c 2d 65 72 72 6f 72 73 |ry signa|l-errors|
|00001270| 5d 20 34 20 22 5c 0a 47 | 6f 20 62 61 63 6b 20 6f |] 4 "\.G|o back o|
|00001280| 6e 65 20 6d 65 73 73 61 | 67 65 20 61 6e 64 20 70 |ne messa|ge and p|
|00001290| 72 65 76 69 65 77 20 69 | 74 2e 0a 57 69 74 68 20 |review i|t..With |
|000012a0| 70 72 65 66 69 78 20 61 | 72 67 20 43 4f 55 4e 54 |prefix a|rg COUNT|
|000012b0| 2c 20 67 6f 20 62 61 63 | 6b 77 61 72 64 20 43 4f |, go bac|kward CO|
|000012c0| 55 4e 54 20 6d 65 73 73 | 61 67 65 73 2e 20 20 41 |UNT mess|ages.  A|
|000012d0| 20 6e 65 67 61 74 69 76 | 65 20 43 4f 55 4e 54 0a | negativ|e COUNT.|
|000012e0| 6d 65 61 6e 73 20 67 6f | 20 66 6f 72 77 61 72 64 |means go| forward|
|000012f0| 2e 20 20 49 66 20 74 68 | 65 20 61 62 73 6f 6c 75 |.  If th|e absolu|
|00001300| 74 65 20 76 61 6c 75 65 | 20 6f 66 20 43 4f 55 4e |te value| of COUN|
|00001310| 54 20 3e 20 31 20 74 68 | 65 20 76 61 6c 75 65 73 |T > 1 th|e values|
|00001320| 20 6f 66 20 74 68 65 0a | 76 61 72 69 61 62 6c 65 | of the.|variable|
|00001330| 73 20 76 6d 2d 73 6b 69 | 70 2d 64 65 6c 65 74 65 |s vm-ski|p-delete|
|00001340| 64 2d 6d 65 73 73 61 67 | 65 73 20 61 6e 64 20 76 |d-messag|es and v|
|00001350| 6d 2d 73 6b 69 70 2d 72 | 65 61 64 2d 6d 65 73 73 |m-skip-r|ead-mess|
|00001360| 61 67 65 73 20 61 72 65 | 0a 69 67 6e 6f 72 65 64 |ages are|.ignored|
|00001370| 2e 22 20 22 70 5c 6e 70 | 5c 6e 70 22 5d 29 0a 28 |." "p\np|\np"]).(|
|00001380| 66 73 65 74 20 27 76 6d | 2d 4e 65 78 74 2d 6d 65 |fset 'vm|-Next-me|
|00001390| 73 73 61 67 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |ssage #[|(&option|
|000013a0| 61 6c 20 63 6f 75 6e 74 | 29 20 22 08 ab 88 c1 08 |al count|) ".....|
|000013b0| 21 ab 83 08 71 88 c2 89 | 1b 1c c5 0e 06 c2 c7 23 |!...q...|.......#|
|000013c0| 2a 87 22 20 5b 76 6d 2d | 6d 61 69 6c 2d 62 75 66 |*." [vm-|mail-buf|
|000013d0| 66 65 72 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |fer buff|er-name |
|000013e0| 6e 69 6c 20 76 6d 2d 73 | 6b 69 70 2d 72 65 61 64 |nil vm-s|kip-read|
|000013f0| 2d 6d 65 73 73 61 67 65 | 73 20 76 6d 2d 73 6b 69 |-message|s vm-ski|
|00001400| 70 2d 64 65 6c 65 74 65 | 64 2d 6d 65 73 73 61 67 |p-delete|d-messag|
|00001410| 65 73 20 76 6d 2d 6e 65 | 78 74 2d 6d 65 73 73 61 |es vm-ne|xt-messa|
|00001420| 67 65 20 63 6f 75 6e 74 | 20 74 5d 20 34 20 22 5c |ge count| t] 4 "\|
|00001430| 0a 4c 69 6b 65 20 76 6d | 2d 6e 65 78 74 2d 6d 65 |.Like vm|-next-me|
|00001440| 73 73 61 67 65 20 62 75 | 74 20 77 69 6c 6c 20 6e |ssage bu|t will n|
|00001450| 6f 74 20 73 6b 69 70 20 | 6d 65 73 73 61 67 65 73 |ot skip |messages|
|00001460| 2e 22 20 22 70 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "p"])|.(fset '|
|00001470| 76 6d 2d 50 72 65 76 69 | 6f 75 73 2d 6d 65 73 73 |vm-Previ|ous-mess|
|00001480| 61 67 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |age #[(&|optional|
|00001490| 20 63 6f 75 6e 74 29 20 | 22 08 ab 88 c1 08 21 ab | count) |".....!.|
|000014a0| 83 08 71 88 c2 89 1b 1c | c5 0e 06 21 2a 87 22 20 |..q.....|...!*." |
|000014b0| 5b 76 6d 2d 6d 61 69 6c | 2d 62 75 66 66 65 72 20 |[vm-mail|-buffer |
|000014c0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 6e 69 6c 20 |buffer-n|ame nil |
|000014d0| 76 6d 2d 73 6b 69 70 2d | 72 65 61 64 2d 6d 65 73 |vm-skip-|read-mes|
|000014e0| 73 61 67 65 73 20 76 6d | 2d 73 6b 69 70 2d 64 65 |sages vm|-skip-de|
|000014f0| 6c 65 74 65 64 2d 6d 65 | 73 73 61 67 65 73 20 76 |leted-me|ssages v|
|00001500| 6d 2d 70 72 65 76 69 6f | 75 73 2d 6d 65 73 73 61 |m-previo|us-messa|
|00001510| 67 65 20 63 6f 75 6e 74 | 5d 20 32 20 22 5c 0a 4c |ge count|] 2 "\.L|
|00001520| 69 6b 65 20 76 6d 2d 70 | 72 65 76 69 6f 75 73 2d |ike vm-p|revious-|
|00001530| 6d 65 73 73 61 67 65 20 | 62 75 74 20 77 69 6c 6c |message |but will|
|00001540| 20 6e 6f 74 20 73 6b 69 | 70 20 6d 65 73 73 61 67 | not ski|p messag|
|00001550| 65 73 2e 22 20 22 70 22 | 5d 29 0a 28 66 73 65 74 |es." "p"|]).(fset|
|00001560| 20 27 76 6d 2d 6e 65 78 | 74 2d 75 6e 72 65 61 64 | 'vm-nex|t-unread|
|00001570| 2d 6d 65 73 73 61 67 65 | 20 23 5b 6e 69 6c 20 22 |-message| #[nil "|
|00001580| 08 ab 88 c1 08 21 ab 83 | 08 71 88 c2 0b 21 ab 87 |.....!..|.q...!..|
|00001590| c1 0b 21 ac 82 c4 13 c4 | c5 c6 8f 87 22 20 5b 76 |..!.....|...." [v|
|000015a0| 6d 2d 6d 61 69 6c 2d 62 | 75 66 66 65 72 20 62 75 |m-mail-b|uffer bu|
|000015b0| 66 66 65 72 2d 6e 61 6d | 65 20 62 75 66 66 65 72 |ffer-nam|e buffer|
|000015c0| 70 20 76 6d 2d 73 75 6d | 6d 61 72 79 2d 62 75 66 |p vm-sum|mary-buf|
|000015d0| 66 65 72 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |fer nil |(byte-co|
|000015e0| 64 65 20 22 c0 09 1a 1b | c4 c5 c6 c0 23 88 09 5c |de "....|....#..\|
|000015f0| 6e 3d ad 84 c7 c8 c6 5c | 22 2a 87 22 20 5b 74 20 |n=.....\|"*." [t |
|00001600| 76 6d 2d 6d 65 73 73 61 | 67 65 2d 70 6f 69 6e 74 |vm-messa|ge-point|
|00001610| 65 72 20 6f 6c 64 6d 70 | 20 76 6d 2d 73 6b 69 70 |er oldmp| vm-skip|
|00001620| 2d 72 65 61 64 2d 6d 65 | 73 73 61 67 65 73 20 76 |-read-me|ssages v|
|00001630| 6d 2d 6e 65 78 74 2d 6d | 65 73 73 61 67 65 20 31 |m-next-m|essage 1|
|00001640| 20 6e 69 6c 20 73 69 67 | 6e 61 6c 20 65 6e 64 2d | nil sig|nal end-|
|00001650| 6f 66 2d 66 6f 6c 64 65 | 72 5d 20 34 29 20 28 28 |of-folde|r] 4) ((|
|00001660| 65 6e 64 2d 6f 66 2d 66 | 6f 6c 64 65 72 20 28 6d |end-of-f|older (m|
|00001670| 65 73 73 61 67 65 20 22 | 4e 6f 20 6e 65 78 74 20 |essage "|No next |
|00001680| 75 6e 72 65 61 64 20 6d | 65 73 73 61 67 65 22 29 |unread m|essage")|
|00001690| 29 29 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 66 6f |))] 3 "\|.Move fo|
|000016a0| 72 77 61 72 64 20 74 6f | 20 74 68 65 20 6e 65 61 |rward to| the nea|
|000016b0| 72 65 73 74 20 6e 65 77 | 20 6f 72 20 75 6e 72 65 |rest new| or unre|
|000016c0| 61 64 20 6d 65 73 73 61 | 67 65 2c 20 69 66 20 74 |ad messa|ge, if t|
|000016d0| 68 65 72 65 20 69 73 20 | 6f 6e 65 2e 22 20 6e 69 |here is |one." ni|
|000016e0| 6c 5d 29 0a 28 66 73 65 | 74 20 27 76 6d 2d 70 72 |l]).(fse|t 'vm-pr|
|000016f0| 65 76 69 6f 75 73 2d 75 | 6e 72 65 61 64 2d 6d 65 |evious-u|nread-me|
|00001700| 73 73 61 67 65 20 23 5b | 6e 69 6c 20 22 08 ab 88 |ssage #[|nil "...|
|00001710| c1 08 21 ab 83 08 71 88 | c2 0b 21 ab 87 c1 0b 21 |..!...q.|..!....!|
|00001720| ac 82 c4 13 c4 c5 c6 8f | 87 22 20 5b 76 6d 2d 6d |........|." [vm-m|
|00001730| 61 69 6c 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |ail-buff|er buffe|
|00001740| 72 2d 6e 61 6d 65 20 62 | 75 66 66 65 72 70 20 76 |r-name b|ufferp v|
|00001750| 6d 2d 73 75 6d 6d 61 72 | 79 2d 62 75 66 66 65 72 |m-summar|y-buffer|
|00001760| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001770| 22 c0 09 1a 1b c4 20 88 | 09 5c 6e 3d ad 84 c5 c6 |"..... .|.\n=....|
|00001780| c7 5c 22 2a 87 22 20 5b | 74 20 76 6d 2d 6d 65 73 |.\"*." [|t vm-mes|
|00001790| 73 61 67 65 2d 70 6f 69 | 6e 74 65 72 20 6f 6c 64 |sage-poi|nter old|
|000017a0| 6d 70 20 76 6d 2d 73 6b | 69 70 2d 72 65 61 64 2d |mp vm-sk|ip-read-|
|000017b0| 6d 65 73 73 61 67 65 73 | 20 76 6d 2d 70 72 65 76 |messages| vm-prev|
|000017c0| 69 6f 75 73 2d 6d 65 73 | 73 61 67 65 20 73 69 67 |ious-mes|sage sig|
|000017d0| 6e 61 6c 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |nal begi|nning-of|
|000017e0| 2d 66 6f 6c 64 65 72 20 | 6e 69 6c 5d 20 33 29 20 |-folder |nil] 3) |
|000017f0| 28 28 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 66 |((beginn|ing-of-f|
|00001800| 6f 6c 64 65 72 20 28 6d | 65 73 73 61 67 65 20 22 |older (m|essage "|
|00001810| 4e 6f 20 70 72 65 76 69 | 6f 75 73 20 75 6e 72 65 |No previ|ous unre|
|00001820| 61 64 20 6d 65 73 73 61 | 67 65 22 29 29 29 5d 20 |ad messa|ge")))] |
|00001830| 33 20 22 5c 0a 4d 6f 76 | 65 20 62 61 63 6b 77 61 |3 "\.Mov|e backwa|
|00001840| 72 64 20 74 6f 20 74 68 | 65 20 6e 65 61 72 65 73 |rd to th|e neares|
|00001850| 74 20 6e 65 77 20 6f 72 | 20 75 6e 72 65 61 64 20 |t new or| unread |
|00001860| 6d 65 73 73 61 67 65 2c | 20 69 66 20 74 68 65 72 |message,| if ther|
|00001870| 65 20 69 73 20 6f 6e 65 | 2e 22 20 6e 69 6c 5d 29 |e is one|." nil])|
|00001880| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00001890| 88 c2 c3 4d 87 22 20 5b | 76 6d 2d 66 69 6e 64 2d |...M." [|vm-find-|
|000018a0| 66 69 72 73 74 2d 75 6e | 72 65 61 64 2d 6d 65 73 |first-un|read-mes|
|000018b0| 73 61 67 65 20 23 5b 6e | 69 6c 20 22 c0 89 19 1a |sage #[n|il "....|
|000018c0| 0b 89 12 ab 9d 5c 6e 40 | c4 48 c5 48 ab 8f 5c 6e |.....\n@|.H.H..\n|
|000018d0| 40 c4 48 c4 48 ac 87 5c | 6e 11 c0 89 12 aa 67 5c |@.H.H..\|n.....g\|
|000018e0| 6e 41 89 12 ac 63 09 ac | a2 0b 89 12 ab 9d 5c 6e |nA...c..|......\n|
|000018f0| 40 c4 48 c6 48 ab 8f 5c | 6e 40 c4 48 c4 48 ac 87 |@.H.H..\|n@.H.H..|
|00001900| 5c 6e 11 c0 89 12 aa 67 | 5c 6e 41 89 12 ac 63 09 |\n.....g|\nA...c.|
|00001910| 2a 87 22 20 5b 6e 69 6c | 20 75 6e 72 65 61 64 2d |*." [nil| unread-|
|00001920| 6d 70 20 6d 70 20 76 6d | 2d 6d 65 73 73 61 67 65 |mp mp vm|-message|
|00001930| 2d 6c 69 73 74 20 32 20 | 30 20 31 5d 20 33 5d 20 |-list 2 |0 1] 3] |
|00001940| 76 6d 2d 74 68 6f 75 67 | 68 74 66 75 6c 6c 79 2d |vm-thoug|htfully-|
|00001950| 73 65 6c 65 63 74 2d 6d | 65 73 73 61 67 65 20 23 |select-m|essage #|
|00001960| 5b 6e 69 6c 20 22 08 ab | 86 09 c2 3d 3f ad a4 c3 |[nil "..|...=?...|
|00001970| 20 89 1c ab 95 08 ab 87 | c5 08 0c 5c 22 88 aa 82 | .......|...\"...|
|00001980| 0c 10 c6 16 07 c8 20 88 | c6 aa 88 08 3f ad 84 c9 |...... .|....?...|
|00001990| 20 88 c6 29 87 22 20 5b | 76 6d 2d 6d 65 73 73 61 | ..)." [|vm-messa|
|000019a0| 67 65 2d 70 6f 69 6e 74 | 65 72 20 76 6d 2d 73 79 |ge-point|er vm-sy|
|000019b0| 73 74 65 6d 2d 73 74 61 | 74 65 20 72 65 61 64 69 |stem-sta|te readi|
|000019c0| 6e 67 20 76 6d 2d 66 69 | 6e 64 2d 66 69 72 73 74 |ng vm-fi|nd-first|
|000019d0| 2d 75 6e 72 65 61 64 2d | 6d 65 73 73 61 67 65 20 |-unread-|message |
|000019e0| 6d 70 20 76 6d 2d 72 65 | 63 6f 72 64 2d 61 6e 64 |mp vm-re|cord-and|
|000019f0| 2d 63 68 61 6e 67 65 2d | 6d 65 73 73 61 67 65 2d |-change-|message-|
|00001a00| 70 6f 69 6e 74 65 72 20 | 74 20 76 6d 2d 6e 65 65 |pointer |t vm-nee|
|00001a10| 64 2d 73 75 6d 6d 61 72 | 79 2d 70 6f 69 6e 74 65 |d-summar|y-pointe|
|00001a20| 72 2d 75 70 64 61 74 65 | 20 76 6d 2d 70 72 65 76 |r-update| vm-prev|
|00001a30| 69 65 77 2d 63 75 72 72 | 65 6e 74 2d 6d 65 73 73 |iew-curr|ent-mess|
|00001a40| 61 67 65 20 76 6d 2d 4e | 65 78 74 2d 6d 65 73 73 |age vm-N|ext-mess|
|00001a50| 61 67 65 5d 20 34 5d 5d | 20 32 29 0a             |age] 4]]| 2).    |
+--------+-------------------------+-------------------------+--------+--------+