/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / vm / vm-delete.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 36 3a 30 30 20 |Feb 14 2|3:16:00 |
|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 64 65 6c 65 74 |lisp/vm/|vm-delet|
|00000080| 65 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |e.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 64 65 6c 65 |..(fset |'vm-dele|
|000001e0| 74 65 2d 6d 65 73 73 61 | 67 65 20 23 5b 28 63 6f |te-messa|ge #[(co|
|000001f0| 75 6e 74 29 20 22 74 ab | 83 c0 20 88 09 ab 88 c2 |unt) "t.|.. .....|
|00000200| 09 21 ab 83 09 71 88 c3 | 0c 21 ab 87 c2 0c 21 ac |.!...q..|.!....!.|
|00000210| 82 c5 14 0e 06 ab 88 c7 | c8 70 43 5c 22 88 aa 74 |........|.pC\"..t|
|00000220| c9 20 88 0e 5c 6e cb 3d | 1e 0c cd 0e 0e 21 89 1e |. ..\n.=|.....!..|
|00000230| 0f ab 98 0e 0f 40 d0 48 | d0 48 ac 87 d1 0e 0f 40 |.....@.H|.H.....@|
|00000240| d2 5c 22 88 0e 0f 41 89 | 16 0f ac 68 d3 20 88 0e |.\"...A.|...h. ..|
|00000250| 14 ad 8c 0e 0c 3f ad 87 | d5 0e 0e d2 0e 16 23 2a |.....?..|......#*|
|00000260| 87 22 20 5b 76 6d 2d 66 | 6f 6c 6c 6f 77 2d 73 75 |." [vm-f|ollow-su|
|00000270| 6d 6d 61 72 79 2d 63 75 | 72 73 6f 72 20 76 6d 2d |mmary-cu|rsor vm-|
|00000280| 6d 61 69 6c 2d 62 75 66 | 66 65 72 20 62 75 66 66 |mail-buf|fer buff|
|00000290| 65 72 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 70 20 |er-name |bufferp |
|000002a0| 76 6d 2d 73 75 6d 6d 61 | 72 79 2d 62 75 66 66 65 |vm-summa|ry-buffe|
|000002b0| 72 20 6e 69 6c 20 76 6d | 2d 66 6f 6c 64 65 72 2d |r nil vm|-folder-|
|000002c0| 72 65 61 64 2d 6f 6e 6c | 79 20 73 69 67 6e 61 6c |read-onl|y signal|
|000002d0| 20 66 6f 6c 64 65 72 2d | 72 65 61 64 2d 6f 6e 6c | folder-|read-onl|
|000002e0| 79 20 76 6d 2d 65 72 72 | 6f 72 2d 69 66 2d 66 6f |y vm-err|or-if-fo|
|000002f0| 6c 64 65 72 2d 65 6d 70 | 74 79 20 6c 61 73 74 2d |lder-emp|ty last-|
|00000300| 63 6f 6d 6d 61 6e 64 20 | 76 6d 2d 6e 65 78 74 2d |command |vm-next-|
|00000310| 63 6f 6d 6d 61 6e 64 2d | 75 73 65 73 2d 6d 61 72 |command-|uses-mar|
|00000320| 6b 73 20 75 73 65 64 2d | 6d 61 72 6b 73 20 76 6d |ks used-|marks vm|
|00000330| 2d 73 65 6c 65 63 74 2d | 6d 61 72 6b 65 64 2d 6f |-select-|marked-o|
|00000340| 72 2d 70 72 65 66 69 78 | 65 64 2d 6d 65 73 73 61 |r-prefix|ed-messa|
|00000350| 67 65 73 20 63 6f 75 6e | 74 20 6d 6c 69 73 74 20 |ges coun|t mlist |
|00000360| 32 20 76 6d 2d 73 65 74 | 2d 64 65 6c 65 74 65 64 |2 vm-set|-deleted|
|00000370| 2d 66 6c 61 67 20 74 20 | 76 6d 2d 75 70 64 61 74 |-flag t |vm-updat|
|00000380| 65 2d 73 75 6d 6d 61 72 | 79 2d 61 6e 64 2d 6d 6f |e-summar|y-and-mo|
|00000390| 64 65 2d 6c 69 6e 65 20 | 76 6d 2d 6d 6f 76 65 2d |de-line |vm-move-|
|000003a0| 61 66 74 65 72 2d 64 65 | 6c 65 74 69 6e 67 20 76 |after-de|leting v|
|000003b0| 6d 2d 6e 65 78 74 2d 6d | 65 73 73 61 67 65 20 65 |m-next-m|essage e|
|000003c0| 78 65 63 75 74 69 6e 67 | 2d 6b 62 64 2d 6d 61 63 |xecuting|-kbd-mac|
|000003d0| 72 6f 5d 20 35 20 22 5c | 0a 41 64 64 20 74 68 65 |ro] 5 "\|.Add the|
|000003e0| 20 60 64 65 6c 65 74 65 | 64 27 20 61 74 74 72 69 | `delete|d' attri|
|000003f0| 62 75 74 65 20 74 6f 20 | 74 68 65 20 63 75 72 72 |bute to |the curr|
|00000400| 65 6e 74 20 6d 65 73 73 | 61 67 65 2e 0a 0a 54 68 |ent mess|age...Th|
|00000410| 65 20 6d 65 73 73 61 67 | 65 20 77 69 6c 6c 20 62 |e messag|e will b|
|00000420| 65 20 70 68 79 73 69 63 | 61 6c 6c 79 20 64 65 6c |e physic|ally del|
|00000430| 65 74 65 64 20 66 72 6f | 6d 20 74 68 65 20 63 75 |eted fro|m the cu|
|00000440| 72 72 65 6e 74 20 66 6f | 6c 64 65 72 20 74 68 65 |rrent fo|lder the|
|00000450| 20 6e 65 78 74 0a 74 69 | 6d 65 20 74 68 65 20 63 | next.ti|me the c|
|00000460| 75 72 72 65 6e 74 20 66 | 6f 6c 64 65 72 20 69 73 |urrent f|older is|
|00000470| 20 65 78 70 75 6e 67 65 | 64 2e 0a 0a 57 69 74 68 | expunge|d...With|
|00000480| 20 61 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 | a prefi|x argume|
|00000490| 6e 74 2c 20 74 68 65 20 | 6e 65 78 74 20 43 4f 55 |nt, the |next COU|
|000004a0| 4e 54 20 6d 65 73 73 61 | 67 65 73 20 61 72 65 20 |NT messa|ges are |
|000004b0| 64 65 6c 65 74 65 64 2e | 20 20 41 20 6e 65 67 61 |deleted.|  A nega|
|000004c0| 74 69 76 65 0a 61 72 67 | 75 6d 65 6e 74 20 6d 65 |tive.arg|ument me|
|000004d0| 61 6e 73 20 74 68 65 20 | 70 72 65 76 69 6f 75 73 |ans the |previous|
|000004e0| 20 43 4f 55 4e 54 20 6d | 65 73 73 61 67 65 73 20 | COUNT m|essages |
|000004f0| 61 72 65 20 64 65 6c 65 | 74 65 64 2e 0a 0a 57 68 |are dele|ted...Wh|
|00000500| 65 6e 20 69 6e 76 6f 6b | 65 64 20 6f 6e 20 6d 61 |en invok|ed on ma|
|00000510| 72 6b 65 64 20 6d 65 73 | 73 61 67 65 73 20 28 76 |rked mes|sages (v|
|00000520| 69 61 20 76 6d 2d 6e 65 | 78 74 2d 63 6f 6d 6d 61 |ia vm-ne|xt-comma|
|00000530| 6e 64 2d 75 73 65 73 2d | 6d 61 72 6b 73 29 2c 0a |nd-uses-|marks),.|
|00000540| 61 6c 6c 20 6d 61 72 6b | 65 64 20 6d 65 73 73 61 |all mark|ed messa|
|00000550| 67 65 73 20 61 72 65 20 | 64 65 6c 65 74 65 64 2c |ges are |deleted,|
|00000560| 20 6f 74 68 65 72 20 6d | 65 73 73 61 67 65 73 20 | other m|essages |
|00000570| 61 72 65 20 69 67 6e 6f | 72 65 64 2e 22 20 22 70 |are igno|red." "p|
|00000580| 22 5d 29 0a 28 66 73 65 | 74 20 27 76 6d 2d 64 65 |"]).(fse|t 'vm-de|
|00000590| 6c 65 74 65 2d 6d 65 73 | 73 61 67 65 2d 62 61 63 |lete-mes|sage-bac|
|000005a0| 6b 77 61 72 64 20 23 5b | 28 63 6f 75 6e 74 29 20 |kward #[|(count) |
|000005b0| 22 08 5b 19 c2 c3 21 29 | 87 22 20 5b 63 6f 75 6e |".[...!)|." [coun|
|000005c0| 74 20 70 72 65 66 69 78 | 2d 61 72 67 20 63 6f 6d |t prefix|-arg com|
|000005d0| 6d 61 6e 64 2d 65 78 65 | 63 75 74 65 20 76 6d 2d |mand-exe|cute vm-|
|000005e0| 64 65 6c 65 74 65 2d 6d | 65 73 73 61 67 65 5d 20 |delete-m|essage] |
|000005f0| 32 20 22 5c 0a 4c 69 6b | 65 20 76 6d 2d 64 65 6c |2 "\.Lik|e vm-del|
|00000600| 65 74 65 2d 6d 65 73 73 | 61 67 65 2c 20 65 78 63 |ete-mess|age, exc|
|00000610| 65 70 74 20 74 68 61 74 | 20 74 68 65 20 64 65 6c |ept that| the del|
|00000620| 65 74 69 6f 6e 20 64 69 | 72 65 63 74 69 6f 6e 20 |etion di|rection |
|00000630| 69 73 20 72 65 76 65 72 | 73 65 64 2e 22 20 22 70 |is rever|sed." "p|
|00000640| 22 5d 29 0a 28 66 73 65 | 74 20 27 76 6d 2d 75 6e |"]).(fse|t 'vm-un|
|00000650| 64 65 6c 65 74 65 2d 6d | 65 73 73 61 67 65 20 23 |delete-m|essage #|
|00000660| 5b 28 63 6f 75 6e 74 29 | 20 22 74 ab 83 c0 20 88 |[(count)| "t... .|
|00000670| 09 ab 88 c2 09 21 ab 83 | 09 71 88 c3 0c 21 ab 87 |.....!..|.q...!..|
|00000680| c2 0c 21 ac 82 c5 14 0e | 06 ab 88 c7 c8 70 43 5c |..!.....|.....pC\|
|00000690| 22 88 aa 74 c9 20 88 0e | 5c 6e cb 3d 1e 0c cd 0e |"..t. ..|\n.=....|
|000006a0| 0e 21 89 1e 0f ab 98 0e | 0f 40 d0 48 d0 48 ab 87 |.!......|.@.H.H..|
|000006b0| d1 0e 0f 40 c5 5c 22 88 | 0e 0f 41 89 16 0f ac 68 |...@.\".|..A....h|
|000006c0| d2 20 88 0e 13 ad 8c 0e | 0c 3f ad 87 d4 0e 0e d5 |. ......|.?......|
|000006d0| 0e 16 23 2a 87 22 20 5b | 76 6d 2d 66 6f 6c 6c 6f |..#*." [|vm-follo|
|000006e0| 77 2d 73 75 6d 6d 61 72 | 79 2d 63 75 72 73 6f 72 |w-summar|y-cursor|
|000006f0| 20 76 6d 2d 6d 61 69 6c | 2d 62 75 66 66 65 72 20 | vm-mail|-buffer |
|00000700| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 62 75 66 66 |buffer-n|ame buff|
|00000710| 65 72 70 20 76 6d 2d 73 | 75 6d 6d 61 72 79 2d 62 |erp vm-s|ummary-b|
|00000720| 75 66 66 65 72 20 6e 69 | 6c 20 76 6d 2d 66 6f 6c |uffer ni|l vm-fol|
|00000730| 64 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 73 69 |der-read|-only si|
|00000740| 67 6e 61 6c 20 66 6f 6c | 64 65 72 2d 72 65 61 64 |gnal fol|der-read|
|00000750| 2d 6f 6e 6c 79 20 76 6d | 2d 65 72 72 6f 72 2d 69 |-only vm|-error-i|
|00000760| 66 2d 66 6f 6c 64 65 72 | 2d 65 6d 70 74 79 20 6c |f-folder|-empty l|
|00000770| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 20 76 6d 2d 6e |ast-comm|and vm-n|
|00000780| 65 78 74 2d 63 6f 6d 6d | 61 6e 64 2d 75 73 65 73 |ext-comm|and-uses|
|00000790| 2d 6d 61 72 6b 73 20 75 | 73 65 64 2d 6d 61 72 6b |-marks u|sed-mark|
|000007a0| 73 20 76 6d 2d 73 65 6c | 65 63 74 2d 6d 61 72 6b |s vm-sel|ect-mark|
|000007b0| 65 64 2d 6f 72 2d 70 72 | 65 66 69 78 65 64 2d 6d |ed-or-pr|efixed-m|
|000007c0| 65 73 73 61 67 65 73 20 | 63 6f 75 6e 74 20 6d 6c |essages |count ml|
|000007d0| 69 73 74 20 32 20 76 6d | 2d 73 65 74 2d 64 65 6c |ist 2 vm|-set-del|
|000007e0| 65 74 65 64 2d 66 6c 61 | 67 20 76 6d 2d 75 70 64 |eted-fla|g vm-upd|
|000007f0| 61 74 65 2d 73 75 6d 6d | 61 72 79 2d 61 6e 64 2d |ate-summ|ary-and-|
|00000800| 6d 6f 64 65 2d 6c 69 6e | 65 20 76 6d 2d 6d 6f 76 |mode-lin|e vm-mov|
|00000810| 65 2d 61 66 74 65 72 2d | 75 6e 64 65 6c 65 74 69 |e-after-|undeleti|
|00000820| 6e 67 20 76 6d 2d 6e 65 | 78 74 2d 6d 65 73 73 61 |ng vm-ne|xt-messa|
|00000830| 67 65 20 74 20 65 78 65 | 63 75 74 69 6e 67 2d 6b |ge t exe|cuting-k|
|00000840| 62 64 2d 6d 61 63 72 6f | 5d 20 35 20 22 5c 0a 52 |bd-macro|] 5 "\.R|
|00000850| 65 6d 6f 76 65 20 74 68 | 65 20 60 64 65 6c 65 74 |emove th|e `delet|
|00000860| 65 64 27 20 61 74 74 72 | 69 62 75 74 65 20 66 72 |ed' attr|ibute fr|
|00000870| 6f 6d 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |om the c|urrent m|
|00000880| 65 73 73 61 67 65 2e 0a | 0a 57 69 74 68 20 61 20 |essage..|.With a |
|00000890| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|000008a0| 20 74 68 65 20 6e 65 78 | 74 20 43 4f 55 4e 54 20 | the nex|t COUNT |
|000008b0| 6d 65 73 73 61 67 65 73 | 20 61 72 65 20 75 6e 64 |messages| are und|
|000008c0| 65 6c 65 74 65 64 2e 20 | 20 41 0a 6e 65 67 61 74 |eleted. | A.negat|
|000008d0| 69 76 65 20 61 72 67 75 | 6d 65 6e 74 20 6d 65 61 |ive argu|ment mea|
|000008e0| 6e 73 20 74 68 65 20 70 | 72 65 76 69 6f 75 73 20 |ns the p|revious |
|000008f0| 43 4f 55 4e 54 20 6d 65 | 73 73 61 67 65 73 20 61 |COUNT me|ssages a|
|00000900| 72 65 20 75 6e 64 65 6c | 65 74 65 64 2e 0a 0a 57 |re undel|eted...W|
|00000910| 68 65 6e 20 69 6e 76 6f | 6b 65 64 20 6f 6e 20 6d |hen invo|ked on m|
|00000920| 61 72 6b 65 64 20 6d 65 | 73 73 61 67 65 73 20 28 |arked me|ssages (|
|00000930| 76 69 61 20 76 6d 2d 6e | 65 78 74 2d 63 6f 6d 6d |via vm-n|ext-comm|
|00000940| 61 6e 64 2d 75 73 65 73 | 2d 6d 61 72 6b 73 29 2c |and-uses|-marks),|
|00000950| 0a 61 6c 6c 20 6d 61 72 | 6b 65 64 20 6d 65 73 73 |.all mar|ked mess|
|00000960| 61 67 65 73 20 61 72 65 | 20 75 6e 64 65 6c 65 74 |ages are| undelet|
|00000970| 65 64 2c 20 6f 74 68 65 | 72 20 6d 65 73 73 61 67 |ed, othe|r messag|
|00000980| 65 73 20 61 72 65 20 69 | 67 6e 6f 72 65 64 2e 22 |es are i|gnored."|
|00000990| 20 22 70 22 5d 29 0a 28 | 66 73 65 74 20 27 76 6d | "p"]).(|fset 'vm|
|000009a0| 2d 6b 69 6c 6c 2d 73 75 | 62 6a 65 63 74 20 23 5b |-kill-su|bject #[|
|000009b0| 6e 69 6c 20 22 c0 20 88 | 09 ab 88 c2 09 21 ab 83 |nil ". .|.....!..|
|000009c0| 09 71 88 c3 0c 21 ab 87 | c2 0c 21 ac 82 c5 14 0e |.q...!..|..!.....|
|000009d0| 06 ab 88 c7 c8 70 43 5c | 22 88 aa 74 c9 20 88 ca |.....pC\|"..t. ..|
|000009e0| 0e 0b 40 21 0e 0c cd 1e | 0e 1e 0f 1e 10 d1 d2 0e |..@!....|........|
|000009f0| 10 5c 22 ab 88 0e 10 cd | 95 c5 4f 16 10 d3 d4 0e |.\".....|..O.....|
|00000a00| 10 21 d5 51 16 10 0e 0f | ab a8 0e 0f 40 d6 48 d6 |.!.Q....|....@.H.|
|00000a10| 48 ac 97 d1 0e 10 ca 0e | 0f 40 21 5c 22 ab 8c d7 |H.......|.@!\"...|
|00000a20| 0e 0f 40 d8 5c 22 88 0e | 0e 54 16 0e 0e 0f 41 89 |..@.\"..|.T....A.|
|00000a30| 16 0f ac 58 74 ab 9b 0e | 0e cd 55 ab 86 d9 da 21 |...Xt...|..U....!|
|00000a40| 88 aa 8f d9 db 0e 0e 89 | dc 55 ab 83 dd aa 81 de |........|.U......|
|00000a50| 23 88 2b df 20 87 22 20 | 5b 76 6d 2d 66 6f 6c 6c |#.+. ." |[vm-foll|
|00000a60| 6f 77 2d 73 75 6d 6d 61 | 72 79 2d 63 75 72 73 6f |ow-summa|ry-curso|
|00000a70| 72 20 76 6d 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |r vm-mai|l-buffer|
|00000a80| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 62 75 66 | buffer-|name buf|
|00000a90| 66 65 72 70 20 76 6d 2d | 73 75 6d 6d 61 72 79 2d |ferp vm-|summary-|
|00000aa0| 62 75 66 66 65 72 20 6e | 69 6c 20 76 6d 2d 66 6f |buffer n|il vm-fo|
|00000ab0| 6c 64 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 73 |lder-rea|d-only s|
|00000ac0| 69 67 6e 61 6c 20 66 6f | 6c 64 65 72 2d 72 65 61 |ignal fo|lder-rea|
|00000ad0| 64 2d 6f 6e 6c 79 20 76 | 6d 2d 65 72 72 6f 72 2d |d-only v|m-error-|
|00000ae0| 69 66 2d 66 6f 6c 64 65 | 72 2d 65 6d 70 74 79 20 |if-folde|r-empty |
|00000af0| 76 6d 2d 73 75 2d 73 75 | 62 6a 65 63 74 20 76 6d |vm-su-su|bject vm|
|00000b00| 2d 6d 65 73 73 61 67 65 | 2d 70 6f 69 6e 74 65 72 |-message|-pointer|
|00000b10| 20 76 6d 2d 6d 65 73 73 | 61 67 65 2d 6c 69 73 74 | vm-mess|age-list|
|00000b20| 20 30 20 6e 20 6d 70 20 | 73 75 62 6a 65 63 74 20 | 0 n mp |subject |
|00000b30| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 5c |string-m|atch "^\|
|00000b40| 5c 28 72 65 3a 20 2a 5c | 5c 29 2b 22 20 22 5e 5c |\(re: *\|\)+" "^\|
|00000b50| 5c 28 72 65 3a 20 2a 5c | 5c 29 2a 22 20 72 65 67 |\(re: *\|\)*" reg|
|00000b60| 65 78 70 2d 71 75 6f 74 | 65 20 22 20 2a 24 22 20 |exp-quot|e " *$" |
|00000b70| 32 20 76 6d 2d 73 65 74 | 2d 64 65 6c 65 74 65 64 |2 vm-set|-deleted|
|00000b80| 2d 66 6c 61 67 20 74 20 | 6d 65 73 73 61 67 65 20 |-flag t |message |
|00000b90| 22 4e 6f 20 6d 65 73 73 | 61 67 65 73 20 64 65 6c |"No mess|ages del|
|00000ba0| 65 74 65 64 2e 22 20 22 | 25 64 20 6d 65 73 73 61 |eted." "|%d messa|
|00000bb0| 67 65 25 73 20 64 65 6c | 65 74 65 64 22 20 31 20 |ge%s del|eted" 1 |
|00000bc0| 22 22 20 22 73 22 20 76 | 6d 2d 75 70 64 61 74 65 |"" "s" v|m-update|
|00000bd0| 2d 73 75 6d 6d 61 72 79 | 2d 61 6e 64 2d 6d 6f 64 |-summary|-and-mod|
|00000be0| 65 2d 6c 69 6e 65 5d 20 | 36 20 22 5c 0a 44 65 6c |e-line] |6 "\.Del|
|00000bf0| 65 74 65 20 61 6c 6c 20 | 6d 65 73 73 61 67 65 73 |ete all |messages|
|00000c00| 20 77 69 74 68 20 74 68 | 65 20 73 61 6d 65 20 73 | with th|e same s|
|00000c10| 75 62 6a 65 63 74 20 61 | 73 20 74 68 65 20 63 75 |ubject a|s the cu|
|00000c20| 72 72 65 6e 74 20 6d 65 | 73 73 61 67 65 0a 28 69 |rrent me|ssage.(i|
|00000c30| 67 6e 6f 72 69 6e 67 20 | 72 65 3a 27 73 29 2e 22 |gnoring |re:'s)."|
|00000c40| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 76 6d | nil]).(|fset 'vm|
|00000c50| 2d 65 78 70 75 6e 67 65 | 2d 66 6f 6c 64 65 72 20 |-expunge|-folder |
|00000c60| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 71 75 69 |#[(&opti|onal qui|
|00000c70| 74 74 69 6e 67 20 73 68 | 61 64 64 61 70 29 20 22 |tting sh|addap) "|
|00000c80| 08 ab 88 c1 08 21 ab 83 | 08 71 88 c2 0b 21 ab 87 |.....!..|.q...!..|
|00000c90| c1 0b 21 ac 82 c4 13 0d | ab 88 c6 c7 70 43 5c 22 |..!.....|....pC\"|
|00000ca0| 88 aa 75 c8 0e 09 21 89 | 16 09 ab 84 ca cb 21 88 |..u...!.|......!.|
|00000cb0| 0e 0c ac 84 cd ce 21 88 | cf c4 1e 10 1e 11 d2 20 |......!.|....... |
|00000cc0| 89 16 10 ab b4 0e 10 16 | 13 0e 10 16 14 c4 16 15 |........|........|
|00000cd0| 0e 16 3f ad a7 0e 0c ac | 84 d7 d8 21 88 0e 19 ac |..?.....|...!....|
|00000ce0| 8c 0e 1a ac 84 db 20 aa | 93 dc 20 aa 8f 0e 1d ac |...... .|.. .....|
|00000cf0| 84 de 20 aa 87 db 20 aa | 83 ca df 21 2a 87 22 20 |.. ... .|...!*." |
|00000d00| 5b 76 6d 2d 6d 61 69 6c | 2d 62 75 66 66 65 72 20 |[vm-mail|-buffer |
|00000d10| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 62 75 66 66 |buffer-n|ame buff|
|00000d20| 65 72 70 20 76 6d 2d 73 | 75 6d 6d 61 72 79 2d 62 |erp vm-s|ummary-b|
|00000d30| 75 66 66 65 72 20 6e 69 | 6c 20 76 6d 2d 66 6f 6c |uffer ni|l vm-fol|
|00000d40| 64 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 73 69 |der-read|-only si|
|00000d50| 67 6e 61 6c 20 66 6f 6c | 64 65 72 2d 72 65 61 64 |gnal fol|der-read|
|00000d60| 2d 6f 6e 6c 79 20 76 6d | 2d 74 72 69 6d 2d 64 65 |-only vm|-trim-de|
|00000d70| 61 64 2d 62 75 66 66 65 | 72 73 20 76 6d 2d 76 69 |ad-buffe|rs vm-vi|
|00000d80| 72 74 75 61 6c 2d 62 75 | 66 66 65 72 73 20 65 72 |rtual-bu|ffers er|
|00000d90| 72 6f 72 20 22 43 61 6e | 27 74 20 65 78 65 63 75 |ror "Can|'t execu|
|00000da0| 74 65 20 63 6f 6d 6d 61 | 6e 64 3a 20 66 6f 6c 64 |te comma|nd: fold|
|00000db0| 65 72 20 69 73 20 72 65 | 66 65 72 65 6e 63 65 64 |er is re|ferenced|
|00000dc0| 20 76 69 72 74 75 61 6c | 6c 79 2e 22 20 73 68 61 | virtual|ly." sha|
|00000dd0| 64 64 61 70 20 6d 65 73 | 73 61 67 65 20 22 45 78 |ddap mes|sage "Ex|
|00000de0| 70 75 6e 67 69 6e 67 2e | 2e 2e 22 20 74 20 64 69 |punging.|.." t di|
|00000df0| 64 2d 67 6f 62 62 6c 65 | 20 69 6e 68 69 62 69 74 |d-gobble| inhibit|
|00000e00| 2d 71 75 69 74 20 76 6d | 2d 67 6f 62 62 6c 65 2d |-quit vm|-gobble-|
|00000e10| 64 65 6c 65 74 65 64 2d | 6d 65 73 73 61 67 65 73 |deleted-|messages|
|00000e20| 20 76 6d 2d 6e 75 6d 62 | 65 72 69 6e 67 2d 72 65 | vm-numb|ering-re|
|00000e30| 64 6f 2d 73 74 61 72 74 | 2d 70 6f 69 6e 74 20 76 |do-start|-point v|
|00000e40| 6d 2d 73 75 6d 6d 61 72 | 79 2d 72 65 64 6f 2d 73 |m-summar|y-redo-s|
|00000e50| 74 61 72 74 2d 70 6f 69 | 6e 74 20 76 6d 2d 74 6f |tart-poi|nt vm-to|
|00000e60| 74 61 6c 73 20 71 75 69 | 74 74 69 6e 67 20 76 6d |tals qui|tting vm|
|00000e70| 2d 64 65 66 65 72 72 65 | 64 2d 6d 65 73 73 61 67 |-deferre|d-messag|
|00000e80| 65 20 22 44 65 6c 65 74 | 65 64 20 6d 65 73 73 61 |e "Delet|ed messa|
|00000e90| 67 65 73 20 65 78 70 75 | 6e 67 65 64 2e 22 20 76 |ges expu|nged." v|
|00000ea0| 6d 2d 6d 65 73 73 61 67 | 65 2d 70 6f 69 6e 74 65 |m-messag|e-pointe|
|00000eb0| 72 20 76 6d 2d 6d 65 73 | 73 61 67 65 2d 6c 69 73 |r vm-mes|sage-lis|
|00000ec0| 74 20 76 6d 2d 75 70 64 | 61 74 65 2d 73 75 6d 6d |t vm-upd|ate-summ|
|00000ed0| 61 72 79 2d 61 6e 64 2d | 6d 6f 64 65 2d 6c 69 6e |ary-and-|mode-lin|
|00000ee0| 65 20 76 6d 2d 6e 65 78 | 74 2d 6d 65 73 73 61 67 |e vm-nex|t-messag|
|00000ef0| 65 20 76 6d 2d 73 79 73 | 74 65 6d 2d 73 74 61 74 |e vm-sys|tem-stat|
|00000f00| 65 20 76 6d 2d 70 72 65 | 76 69 65 77 2d 63 75 72 |e vm-pre|view-cur|
|00000f10| 72 65 6e 74 2d 6d 65 73 | 73 61 67 65 20 22 4e 6f |rent-mes|sage "No|
|00000f20| 20 6d 65 73 73 61 67 65 | 73 20 61 72 65 20 66 6c | message|s are fl|
|00000f30| 61 67 67 65 64 20 66 6f | 72 20 64 65 6c 65 74 69 |agged fo|r deleti|
|00000f40| 6f 6e 2e 22 5d 20 33 20 | 22 5c 0a 45 78 70 75 6e |on."] 3 |"\.Expun|
|00000f50| 67 65 20 64 65 6c 65 74 | 65 64 20 6d 65 73 73 61 |ge delet|ed messa|
|00000f60| 67 65 73 2c 20 62 75 74 | 20 64 6f 6e 27 74 20 73 |ges, but| don't s|
|00000f70| 61 76 65 20 66 6f 6c 64 | 65 72 20 74 6f 20 64 69 |ave fold|er to di|
|00000f80| 73 6b 20 6f 72 20 65 78 | 69 74 20 56 4d 2e 22 20 |sk or ex|it VM." |
|00000f90| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 76 6d 2d |nil]).(f|set 'vm-|
|00000fa0| 67 6f 62 62 6c 65 2d 64 | 65 6c 65 74 65 64 2d 6d |gobble-d|eleted-m|
|00000fb0| 65 73 73 61 67 65 73 20 | 23 5b 6e 69 6c 20 22 8a |essages |#[nil ".|
|00000fc0| c0 20 64 65 5a 56 c1 89 | 1a 1b 89 1c ab 8f c5 20 |. deZV..|....... |
|00000fd0| 65 c1 93 89 13 ab 86 c5 | 20 64 c1 93 12 c6 8e 7e |e.......| d.....~|
|00000fe0| 88 0e 07 89 c1 89 89 89 | 89 1e 08 1e 09 1e 5c 6e |........|......\n|
|00000ff0| 1e 0b 1e 0c 1e 0d 89 1e | 0e ad 8d 0e 0e 40 0e 0e |........|.....@..|
|00001000| 40 cf 48 d0 48 4a 3d 3f | 16 0c 0e 0e ab e4 0e 0e |@.H.HJ=?|........|
|00001010| 40 d1 48 d1 48 ac 86 0e | 0e 16 0b aa cd 0e 08 ac |@.H.H...|........|
|00001020| 88 0e 0b ae 82 0e 07 16 | 08 0e 0c ac 90 0e 0e 40 |........|.......@|
|00001030| cf 48 cf 48 0e 0e 40 cf | 48 d2 48 7c 88 0e 0b ac |.H.H..@.|H.H|....|
|00001040| 91 0e 07 41 16 07 0e 0e | 40 cf 48 d3 48 c1 4c 88 |...A....|@.H.H.L.|
|00001050| aa 98 0e 0b 0e 0e 41 a1 | 88 0e 0e 41 ab 8c 0e 0e |......A.|...A....|
|00001060| 41 40 cf 48 d3 48 0e 0b | 4c 88 0e 0e 41 89 16 0e |A@.H.H..|L...A...|
|00001070| ac 1c 0e 08 ab 8a 0e 08 | 0e 0d 3d ab 83 d4 16 08 |........|..=.....|
|00001080| 0e 08 ad d0 d5 20 88 d6 | d4 21 88 0e 17 16 18 0e |..... ..|.!......|
|00001090| 19 ab 8c 0e 19 40 d1 48 | d1 48 ab 83 c1 16 19 0e |.....@.H|.H......|
|000010a0| 1a ab af 0e 1a 40 d1 48 | d1 48 ab a6 c1 16 1b 0e |.....@.H|.H......|
|000010b0| 1a 41 89 16 0e ab 91 0e | 0e 40 d1 48 d1 48 ab 88 |.A......|.@.H.H..|
|000010c0| 0e 0e 41 89 16 0e ac 6f | 0e 0e ae 84 dc 0e 07 21 |..A....o|.......!|
|000010d0| 16 1a 0e 08 2e 0c 87 22 | 20 5b 62 75 66 66 65 72 |......."| [buffer|
|000010e0| 2d 73 69 7a 65 20 6e 69 | 6c 20 76 6d 2d 73 72 2d |-size ni|l vm-sr-|
|000010f0| 6d 61 78 20 76 6d 2d 73 | 72 2d 6d 69 6e 20 76 6d |max vm-s|r-min vm|
|00001100| 2d 73 72 2d 63 6c 69 70 | 20 6d 61 6b 65 2d 6d 61 |-sr-clip| make-ma|
|00001110| 72 6b 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |rker ((b|yte-code|
|00001120| 20 22 7e 88 08 ab 8e 09 | 5c 6e 7d 88 09 c3 89 93 | "~.....|\n}.....|
|00001130| 88 5c 6e c3 89 93 88 c3 | 87 22 20 5b 76 6d 2d 73 |.\n.....|." [vm-s|
|00001140| 72 2d 63 6c 69 70 20 76 | 6d 2d 73 72 2d 6d 69 6e |r-clip v|m-sr-min|
|00001150| 20 76 6d 2d 73 72 2d 6d | 61 78 20 6e 69 6c 5d 20 | vm-sr-m|ax nil] |
|00001160| 33 29 29 20 76 6d 2d 6d | 65 73 73 61 67 65 2d 6c |3)) vm-m|essage-l|
|00001170| 69 73 74 20 64 69 64 2d | 67 6f 62 62 6c 65 20 74 |ist did-|gobble t|
|00001180| 61 69 6c 2d 63 6f 6e 73 | 20 62 75 66 66 65 72 2d |ail-cons| buffer-|
|00001190| 72 65 61 64 2d 6f 6e 6c | 79 20 70 72 65 76 20 76 |read-onl|y prev v|
|000011a0| 69 72 74 75 61 6c 20 6f | 6c 64 2d 6d 65 73 73 61 |irtual o|ld-messa|
|000011b0| 67 65 2d 6c 69 73 74 20 | 6d 70 20 30 20 36 20 32 |ge-list |mp 0 6 2|
|000011c0| 20 33 20 38 20 74 20 76 | 6d 2d 63 6c 65 61 72 2d | 3 8 t v|m-clear-|
|000011d0| 65 78 70 75 6e 67 65 2d | 69 6e 76 61 6c 69 64 61 |expunge-|invalida|
|000011e0| 74 65 64 2d 75 6e 64 6f | 73 20 76 6d 2d 73 65 74 |ted-undo|s vm-set|
|000011f0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|00001200| 2d 70 20 76 6d 2d 6d 65 | 73 73 61 67 65 2d 6f 72 |-p vm-me|ssage-or|
|00001210| 64 65 72 2d 73 74 75 66 | 66 65 64 20 76 6d 2d 6d |der-stuf|fed vm-m|
|00001220| 65 73 73 61 67 65 2d 6f | 72 64 65 72 2d 63 68 61 |essage-o|rder-cha|
|00001230| 6e 67 65 64 20 76 6d 2d | 6c 61 73 74 2d 6d 65 73 |nged vm-|last-mes|
|00001240| 73 61 67 65 2d 70 6f 69 | 6e 74 65 72 20 76 6d 2d |sage-poi|nter vm-|
|00001250| 6d 65 73 73 61 67 65 2d | 70 6f 69 6e 74 65 72 20 |message-|pointer |
|00001260| 76 6d 2d 73 79 73 74 65 | 6d 2d 73 74 61 74 65 20 |vm-syste|m-state |
|00001270| 76 6d 2d 6c 61 73 74 5d | 20 38 5d 29 0a          |vm-last]| 8]).   |
+--------+-------------------------+-------------------------+--------+--------+