home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-04-15 | 17.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 41 70 72 20 31 34 20 31 | on Thu |Apr 14 1|
|00000040| 36 3a 31 39 3a 32 31 20 | 31 39 39 34 0a 3b 3b 3b |6:19:21 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 6d 68 2d 75 74 | 69 6c 73 2e 65 6c 0a 3b |sp/mh-ut|ils.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 32 32 2e 39 | 30 2e 33 2e 0a 3b 3b 3b | 19.22.9|0.3..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 2f 67 64 2f 67 | (error| "`/gd/g|
|000001a0| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|000001b0| 73 70 2f 6d 68 2d 75 74 | 69 6c 73 2e 65 6c 27 20 |sp/mh-ut|ils.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 64 | Emacs 1|9"))..(d|
|000001e0| 65 66 76 61 72 20 6d 68 | 2d 70 72 6f 67 73 20 6e |efvar mh|-progs n|
|000001f0| 69 6c 20 22 5c 0a 44 69 | 72 65 63 74 6f 72 79 20 |il "\.Di|rectory |
|00000200| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 4d 48 20 63 6f |containi|ng MH co|
|00000210| 6d 6d 61 6e 64 73 2c 20 | 73 75 63 68 20 61 73 20 |mmands, |such as |
|00000220| 69 6e 63 2c 20 72 65 70 | 6c 2c 20 61 6e 64 20 72 |inc, rep|l, and r|
|00000230| 6d 6d 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 68 |mm.").(d|efvar mh|
|00000240| 2d 6c 69 62 20 6e 69 6c | 20 22 5c 0a 44 69 72 65 |-lib nil| "\.Dire|
|00000250| 63 74 6f 72 79 20 63 6f | 6e 74 61 69 6e 69 6e 67 |ctory co|ntaining|
|00000260| 20 74 68 65 20 4d 48 20 | 6c 69 62 72 61 72 79 2e | the MH |library.|
|00000270| 0a 54 68 69 73 20 64 69 | 72 65 63 74 6f 72 79 20 |.This di|rectory |
|00000280| 63 6f 6e 74 61 69 6e 73 | 2c 20 61 6d 6f 6e 67 20 |contains|, among |
|00000290| 6f 74 68 65 72 20 74 68 | 69 6e 67 73 2c 0a 74 68 |other th|ings,.th|
|000002a0| 65 20 6d 68 6c 20 70 72 | 6f 67 72 61 6d 20 61 6e |e mhl pr|ogram an|
|000002b0| 64 20 74 68 65 20 63 6f | 6d 70 6f 6e 65 6e 74 73 |d the co|mponents|
|000002c0| 20 66 69 6c 65 2e 22 29 | 0a 28 64 65 66 76 61 72 | file.")|.(defvar|
|000002d0| 20 6d 68 2d 61 75 74 6f | 2d 66 6f 6c 64 65 72 2d | mh-auto|-folder-|
|000002e0| 63 6f 6c 6c 65 63 74 20 | 74 20 22 5c 0a 2a 57 68 |collect |t "\.*Wh|
|000002f0| 65 74 68 65 72 20 74 6f | 20 73 74 61 72 74 20 63 |ether to| start c|
|00000300| 6f 6c 6c 65 63 74 69 6e | 67 20 4d 48 20 66 6f 6c |ollectin|g MH fol|
|00000310| 64 65 72 20 6e 61 6d 65 | 73 20 69 6d 6d 65 64 69 |der name|s immedi|
|00000320| 61 74 65 6c 79 20 69 6e | 20 74 68 65 20 62 61 63 |ately in| the bac|
|00000330| 6b 67 72 6f 75 6e 64 2e | 0a 4e 6f 6e 2d 6e 69 6c |kground.|.Non-nil|
|00000340| 20 6d 65 61 6e 73 20 73 | 74 61 72 74 20 61 20 62 | means s|tart a b|
|00000350| 61 63 6b 67 72 6f 75 6e | 64 20 70 72 6f 63 65 73 |ackgroun|d proces|
|00000360| 73 20 63 6f 6c 6c 65 63 | 74 69 6e 67 20 74 68 65 |s collec|ting the|
|00000370| 20 6e 61 6d 65 73 20 6f | 66 20 61 6c 6c 0a 66 6f | names o|f all.fo|
|00000380| 6c 64 65 72 73 20 61 73 | 20 73 6f 6f 6e 20 61 73 |lders as| soon as|
|00000390| 20 6d 68 2d 65 20 69 73 | 20 6c 6f 61 64 65 64 2e | mh-e is| loaded.|
|000003a0| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 68 2d 72 65 |").(defv|ar mh-re|
|000003b0| 63 75 72 73 69 76 65 2d | 66 6f 6c 64 65 72 73 20 |cursive-|folders |
|000003c0| 6e 69 6c 20 22 5c 0a 2a | 49 66 20 6e 6f 6e 2d 6e |nil "\.*|If non-n|
|000003d0| 69 6c 2c 20 74 68 65 6e | 20 63 6f 6d 6d 61 6e 64 |il, then| command|
|000003e0| 73 20 77 68 69 63 68 20 | 6f 70 65 72 61 74 65 20 |s which |operate |
|000003f0| 6f 6e 20 66 6f 6c 64 65 | 72 73 20 64 6f 20 73 6f |on folde|rs do so|
|00000400| 20 72 65 63 75 72 73 69 | 76 65 6c 79 2e 22 29 0a | recursi|vely.").|
|00000410| 28 64 65 66 76 61 72 20 | 6d 68 2d 63 6c 65 61 6e |(defvar |mh-clean|
|00000420| 2d 6d 65 73 73 61 67 65 | 2d 68 65 61 64 65 72 20 |-message|-header |
|00000430| 6e 69 6c 20 22 5c 0a 2a | 4e 6f 6e 2d 6e 69 6c 20 |nil "\.*|Non-nil |
|00000440| 6d 65 61 6e 73 20 63 6c | 65 61 6e 20 68 65 61 64 |means cl|ean head|
|00000450| 65 72 73 20 6f 66 20 6d | 65 73 73 61 67 65 73 20 |ers of m|essages |
|00000460| 74 68 61 74 20 61 72 65 | 20 64 69 73 70 6c 61 79 |that are| display|
|00000470| 65 64 20 6f 72 20 69 6e | 73 65 72 74 65 64 2e 0a |ed or in|serted..|
|00000480| 54 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 60 6d |The vari|ables `m|
|00000490| 68 2d 76 69 73 69 62 6c | 65 2d 68 65 61 64 65 72 |h-visibl|e-header|
|000004a0| 73 27 20 61 6e 64 20 60 | 6d 68 2d 69 6e 76 69 73 |s' and `|mh-invis|
|000004b0| 69 62 6c 65 2d 68 65 61 | 64 65 72 73 27 20 63 6f |ible-hea|ders' co|
|000004c0| 6e 74 72 6f 6c 20 77 68 | 61 74 0a 69 73 20 72 65 |ntrol wh|at.is re|
|000004d0| 6d 6f 76 65 64 2e 22 29 | 0a 28 64 65 66 76 61 72 |moved.")|.(defvar|
|000004e0| 20 6d 68 2d 76 69 73 69 | 62 6c 65 2d 68 65 61 64 | mh-visi|ble-head|
|000004f0| 65 72 73 20 6e 69 6c 20 | 22 5c 0a 2a 49 66 20 6e |ers nil |"\.*If n|
|00000500| 6f 6e 2d 6e 69 6c 2c 20 | 63 6f 6e 74 61 69 6e 73 |on-nil, |contains|
|00000510| 20 61 20 72 65 67 65 78 | 70 20 73 70 65 63 69 66 | a regex|p specif|
|00000520| 79 69 6e 67 20 74 68 65 | 20 68 65 61 64 65 72 73 |ying the| headers|
|00000530| 20 74 6f 20 6b 65 65 70 | 20 77 68 65 6e 20 63 6c | to keep| when cl|
|00000540| 65 61 6e 69 6e 67 2e 0a | 4f 6e 6c 79 20 75 73 65 |eaning..|Only use|
|00000550| 64 20 69 66 20 60 6d 68 | 2d 63 6c 65 61 6e 2d 6d |d if `mh|-clean-m|
|00000560| 65 73 73 61 67 65 2d 68 | 65 61 64 65 72 27 20 69 |essage-h|eader' i|
|00000570| 73 20 6e 6f 6e 2d 6e 69 | 6c 2e 20 20 53 65 74 74 |s non-ni|l. Sett|
|00000580| 69 6e 67 20 74 68 69 73 | 20 76 61 72 69 61 62 6c |ing this| variabl|
|00000590| 65 0a 6f 76 65 72 72 69 | 64 65 73 20 60 6d 68 2d |e.overri|des `mh-|
|000005a0| 69 6e 76 69 73 69 62 6c | 65 2d 68 65 61 64 65 72 |invisibl|e-header|
|000005b0| 73 27 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 68 |s'.").(d|efvar mh|
|000005c0| 2d 69 6e 76 69 73 69 62 | 6c 65 2d 68 65 61 64 65 |-invisib|le-heade|
|000005d0| 72 73 20 22 5e 52 65 63 | 65 69 76 65 64 3a 20 5c |rs "^Rec|eived: \|
|000005e0| 5c 7c 5e 4d 65 73 73 61 | 67 65 2d 49 64 3a 20 5c |\|^Messa|ge-Id: \|
|000005f0| 5c 7c 5e 52 65 6d 61 69 | 6c 65 64 2d 5c 5c 7c 5e |\|^Remai|led-\\|^|
|00000600| 56 69 61 3a 20 5c 5c 7c | 5e 4d 61 69 6c 2d 66 72 |Via: \\||^Mail-fr|
|00000610| 6f 6d 3a 20 5c 5c 7c 5e | 52 65 74 75 72 6e 2d 50 |om: \\|^|Return-P|
|00000620| 61 74 68 3a 20 5c 5c 7c | 5e 49 6e 2d 52 65 70 6c |ath: \\||^In-Repl|
|00000630| 79 2d 54 6f 3a 20 5c 5c | 7c 5e 52 65 73 65 6e 74 |y-To: \\||^Resent|
|00000640| 2d 22 20 22 5c 0a 52 65 | 67 65 78 70 20 6d 61 74 |-" "\.Re|gexp mat|
|00000650| 63 68 69 6e 67 20 6c 69 | 6e 65 73 20 69 6e 20 61 |ching li|nes in a|
|00000660| 20 6d 65 73 73 61 67 65 | 20 68 65 61 64 65 72 20 | message| header |
|00000670| 74 68 61 74 20 61 72 65 | 20 6e 6f 74 20 74 6f 20 |that are| not to |
|00000680| 62 65 20 73 68 6f 77 6e | 2e 0a 49 66 20 60 6d 68 |be shown|..If `mh|
|00000690| 2d 76 69 73 69 62 6c 65 | 2d 68 65 61 64 65 72 73 |-visible|-headers|
|000006a0| 27 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 69 74 |' is non|-nil, it|
|000006b0| 20 69 73 20 75 73 65 64 | 20 69 6e 73 74 65 61 64 | is used| instead|
|000006c0| 20 74 6f 20 73 70 65 63 | 69 66 79 20 77 68 61 74 | to spec|ify what|
|000006d0| 0a 74 6f 20 6b 65 65 70 | 2e 22 29 0a 28 64 65 66 |.to keep|.").(def|
|000006e0| 76 61 72 20 6d 68 2d 62 | 75 72 79 2d 73 68 6f 77 |var mh-b|ury-show|
|000006f0| 2d 62 75 66 66 65 72 20 | 74 20 22 5c 0a 2a 4e 6f |-buffer |t "\.*No|
|00000700| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 74 68 61 74 |n-nil me|ans that|
|00000710| 20 74 68 65 20 64 69 73 | 70 6c 61 79 65 64 20 73 | the dis|played s|
|00000720| 68 6f 77 20 62 75 66 66 | 65 72 20 66 6f 72 20 61 |how buff|er for a|
|00000730| 20 66 6f 6c 64 65 72 20 | 69 73 20 62 75 72 69 65 | folder |is burie|
|00000740| 64 2e 22 29 0a 28 64 65 | 66 76 61 72 20 6d 68 2d |d.").(de|fvar mh-|
|00000750| 73 75 6d 6d 61 72 79 2d | 68 65 69 67 68 74 20 34 |summary-|height 4|
|00000760| 20 22 5c 0a 2a 4e 75 6d | 62 65 72 20 6f 66 20 6c | "\.*Num|ber of l|
|00000770| 69 6e 65 73 20 69 6e 20 | 4d 48 2d 46 6f 6c 64 65 |ines in |MH-Folde|
|00000780| 72 20 77 69 6e 64 6f 77 | 20 28 69 6e 63 6c 75 64 |r window| (includ|
|00000790| 69 6e 67 20 74 68 65 20 | 6d 6f 64 65 20 6c 69 6e |ing the |mode lin|
|000007a0| 65 29 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 68 |e).").(d|efvar mh|
|000007b0| 2d 6d 73 67 2d 6e 75 6d | 62 65 72 2d 72 65 67 65 |-msg-num|ber-rege|
|000007c0| 78 70 20 22 5e 20 2a 5c | 5c 28 5b 30 2d 39 5d 2b |xp "^ *\|\([0-9]+|
|000007d0| 5c 5c 29 22 20 22 5c 0a | 52 65 67 65 78 70 20 74 |\\)" "\.|Regexp t|
|000007e0| 6f 20 66 69 6e 64 20 74 | 68 65 20 6e 75 6d 62 65 |o find t|he numbe|
|000007f0| 72 20 6f 66 20 61 20 6d | 65 73 73 61 67 65 20 69 |r of a m|essage i|
|00000800| 6e 20 61 20 73 63 61 6e | 20 6c 69 6e 65 2e 0a 54 |n a scan| line..T|
|00000810| 68 65 20 6d 65 73 73 61 | 67 65 27 73 20 6e 75 6d |he messa|ge's num|
|00000820| 62 65 72 20 6d 75 73 74 | 20 62 65 20 73 75 72 72 |ber must| be surr|
|00000830| 6f 75 6e 64 65 64 20 77 | 69 74 68 20 5c 5c 28 20 |ounded w|ith \\( |
|00000840| 5c 5c 29 22 29 0a 28 64 | 65 66 76 61 72 20 6d 68 |\\)").(d|efvar mh|
|00000850| 2d 6d 73 67 2d 73 65 61 | 72 63 68 2d 72 65 67 65 |-msg-sea|rch-rege|
|00000860| 78 70 20 22 5e 5b 5e 30 | 2d 39 5d 2a 25 64 5b 5e |xp "^[^0|-9]*%d[^|
|00000870| 30 2d 39 5d 22 20 22 5c | 0a 46 6f 72 6d 61 74 20 |0-9]" "\|.Format |
|00000880| 73 74 72 69 6e 67 20 63 | 6f 6e 74 61 69 6e 69 6e |string c|ontainin|
|00000890| 67 20 61 20 72 65 67 65 | 78 70 20 6d 61 74 63 68 |g a rege|xp match|
|000008a0| 69 6e 67 20 74 68 65 20 | 73 63 61 6e 20 6c 69 73 |ing the |scan lis|
|000008b0| 74 69 6e 67 20 66 6f 72 | 20 61 20 6d 65 73 73 61 |ting for| a messa|
|000008c0| 67 65 2e 0a 54 68 65 20 | 64 65 73 69 72 65 64 20 |ge..The |desired |
|000008d0| 6d 65 73 73 61 67 65 27 | 73 20 6e 75 6d 62 65 72 |message'|s number|
|000008e0| 20 77 69 6c 6c 20 62 65 | 20 61 6e 20 61 72 67 75 | will be| an argu|
|000008f0| 6d 65 6e 74 20 74 6f 20 | 66 6f 72 6d 61 74 2e 22 |ment to |format."|
|00000900| 29 0a 28 64 65 66 76 61 | 72 20 6d 68 6c 2d 66 6f |).(defva|r mhl-fo|
|00000910| 72 6d 66 69 6c 65 20 6e | 69 6c 20 22 5c 0a 2a 4e |rmfile n|il "\.*N|
|00000920| 61 6d 65 20 6f 66 20 66 | 6f 72 6d 61 74 20 66 69 |ame of f|ormat fi|
|00000930| 6c 65 20 74 6f 20 62 65 | 20 75 73 65 64 20 62 79 |le to be| used by|
|00000940| 20 6d 68 6c 20 74 6f 20 | 73 68 6f 77 20 61 6e 64 | mhl to |show and|
|00000950| 20 70 72 69 6e 74 20 6d | 65 73 73 61 67 65 73 2e | print m|essages.|
|00000960| 0a 41 20 76 61 6c 75 65 | 20 6f 66 20 54 20 6d 65 |.A value| of T me|
|00000970| 61 6e 73 20 75 73 65 20 | 74 68 65 20 64 65 66 61 |ans use |the defa|
|00000980| 75 6c 74 20 66 6f 72 6d | 61 74 20 66 69 6c 65 2e |ult form|at file.|
|00000990| 0a 4e 69 6c 20 6d 65 61 | 6e 73 20 64 6f 6e 27 74 |.Nil mea|ns don't|
|000009a0| 20 75 73 65 20 6d 68 6c | 20 74 6f 20 66 6f 72 6d | use mhl| to form|
|000009b0| 61 74 20 6d 65 73 73 61 | 67 65 73 20 77 68 65 6e |at messa|ges when|
|000009c0| 20 73 68 6f 77 69 6e 67 | 3b 20 6d 68 6c 20 69 73 | showing|; mhl is|
|000009d0| 20 73 74 69 6c 6c 20 75 | 73 65 64 2c 0a 77 69 74 | still u|sed,.wit|
|000009e0| 68 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 66 6f |h the de|fault fo|
|000009f0| 72 6d 61 74 20 66 69 6c | 65 2c 20 74 6f 20 66 6f |rmat fil|e, to fo|
|00000a00| 72 6d 61 74 20 6d 65 73 | 73 61 67 65 73 20 77 68 |rmat mes|sages wh|
|00000a10| 65 6e 20 70 72 69 6e 74 | 69 6e 67 20 74 68 65 6d |en print|ing them|
|00000a20| 2e 0a 54 68 65 20 66 6f | 72 6d 61 74 20 75 73 65 |..The fo|rmat use|
|00000a30| 64 20 73 68 6f 75 6c 64 | 20 73 70 65 63 69 66 79 |d should| specify|
|00000a40| 20 61 20 6e 6f 6e 2d 7a | 65 72 6f 20 76 61 6c 75 | a non-z|ero valu|
|00000a50| 65 20 66 6f 72 20 6f 76 | 65 72 66 6c 6f 77 6f 66 |e for ov|erflowof|
|00000a60| 66 73 65 74 20 73 6f 0a | 74 68 65 20 6d 65 73 73 |fset so.|the mess|
|00000a70| 61 67 65 20 63 6f 6e 74 | 69 6e 75 65 73 20 74 6f |age cont|inues to|
|00000a80| 20 63 6f 6e 66 6f 72 6d | 20 74 6f 20 52 46 43 20 | conform| to RFC |
|00000a90| 38 32 32 20 61 6e 64 20 | 6d 68 2d 65 20 63 61 6e |822 and |mh-e can|
|00000aa0| 20 70 61 72 73 65 20 74 | 68 65 20 68 65 61 64 65 | parse t|he heade|
|00000ab0| 72 73 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 68 |rs.").(d|efvar mh|
|00000ac0| 2d 6d 73 67 2d 66 6f 6c | 64 65 72 2d 68 6f 6f 6b |-msg-fol|der-hook|
|00000ad0| 20 6e 69 6c 20 22 5c 0a | 53 65 6c 65 63 74 20 61 | nil "\.|Select a|
|00000ae0| 20 64 65 66 61 75 6c 74 | 20 66 6f 6c 64 65 72 20 | default| folder |
|00000af0| 66 6f 72 20 72 65 66 69 | 6c 69 6e 67 20 6f 72 20 |for refi|ling or |
|00000b00| 46 63 63 2e 0a 43 61 6c | 6c 65 64 20 62 79 20 60 |Fcc..Cal|led by `|
|00000b10| 5c 5c 5b 6d 68 2d 72 65 | 66 69 6c 65 2d 6d 73 67 |\\[mh-re|file-msg|
|00000b20| 5d 27 20 61 6e 64 20 60 | 5c 5c 5b 6d 68 2d 74 6f |]' and `|\\[mh-to|
|00000b30| 2d 66 63 63 5d 27 20 74 | 6f 20 67 65 74 20 61 20 |-fcc]' t|o get a |
|00000b40| 64 65 66 61 75 6c 74 0a | 77 68 65 6e 20 70 72 6f |default.|when pro|
|00000b50| 6d 70 74 69 6e 67 20 74 | 68 65 20 75 73 65 72 20 |mpting t|he user |
|00000b60| 66 6f 72 20 61 20 66 6f | 6c 64 65 72 2e 20 20 43 |for a fo|lder. C|
|00000b70| 61 6c 6c 65 64 20 66 72 | 6f 6d 20 77 69 74 68 69 |alled fr|om withi|
|00000b80| 6e 20 61 20 73 61 76 65 | 2d 65 78 63 75 72 73 69 |n a save|-excursi|
|00000b90| 6f 6e 2c 0a 77 69 74 68 | 20 70 6f 69 6e 74 20 61 |on,.with| point a|
|00000ba0| 74 20 74 68 65 20 73 74 | 61 72 74 20 6f 66 20 74 |t the st|art of t|
|00000bb0| 68 65 20 6d 65 73 73 61 | 67 65 2e 20 20 53 68 6f |he messa|ge. Sho|
|00000bc0| 75 6c 64 20 72 65 74 75 | 72 6e 20 74 68 65 20 66 |uld retu|rn the f|
|00000bd0| 6f 6c 64 65 72 20 74 6f | 20 6f 66 66 65 72 0a 61 |older to| offer.a|
|00000be0| 73 20 74 68 65 20 72 65 | 66 69 6c 65 20 6f 72 20 |s the re|file or |
|00000bf0| 46 63 63 20 66 6f 6c 64 | 65 72 2c 20 61 73 20 61 |Fcc fold|er, as a|
|00000c00| 20 73 74 72 69 6e 67 20 | 77 69 74 68 20 61 20 6c | string |with a l|
|00000c10| 65 61 64 69 6e 67 20 60 | 2b 27 20 73 69 67 6e 2e |eading `|+' sign.|
|00000c20| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 68 2d 63 6d |").(defv|ar mh-cm|
|00000c30| 64 2d 6e 6f 74 65 20 34 | 20 22 5c 0a 4f 66 66 73 |d-note 4| "\.Offs|
|00000c40| 65 74 20 74 6f 20 69 6e | 73 65 72 74 20 6e 6f 74 |et to in|sert not|
|00000c50| 61 74 69 6f 6e 2e 22 29 | 0a 28 64 65 66 76 61 72 |ation.")|.(defvar|
|00000c60| 20 6d 68 2d 66 6f 6c 64 | 65 72 2d 6c 69 73 74 20 | mh-fold|er-list |
|00000c70| 6e 69 6c 20 22 5c 0a 4c | 69 73 74 20 6f 66 20 66 |nil "\.L|ist of f|
|00000c80| 6f 6c 64 65 72 20 6e 61 | 6d 65 73 20 66 6f 72 20 |older na|mes for |
|00000c90| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2e 22 29 0a 28 64 |completi|on.").(d|
|00000ca0| 65 66 76 61 72 20 6d 68 | 2d 75 73 65 72 2d 70 61 |efvar mh|-user-pa|
|00000cb0| 74 68 20 6e 69 6c 20 22 | 5c 0a 55 73 65 72 27 73 |th nil "|\.User's|
|00000cc0| 20 6d 61 69 6c 20 66 6f | 6c 64 65 72 20 64 69 72 | mail fo|lder dir|
|00000cd0| 65 63 74 6f 72 79 2e 22 | 29 0a 28 64 65 66 76 61 |ectory."|).(defva|
|00000ce0| 72 20 6d 68 2d 64 72 61 | 66 74 2d 66 6f 6c 64 65 |r mh-dra|ft-folde|
|00000cf0| 72 20 6e 69 6c 20 22 5c | 0a 4e 61 6d 65 20 6f 66 |r nil "\|.Name of|
|00000d00| 20 66 6f 6c 64 65 72 20 | 63 6f 6e 74 61 69 6e 69 | folder |containi|
|00000d10| 6e 67 20 64 72 61 66 74 | 20 6d 65 73 73 61 67 65 |ng draft| message|
|00000d20| 73 2e 0a 4e 49 4c 20 6d | 65 61 6e 73 20 64 6f 20 |s..NIL m|eans do |
|00000d30| 6e 6f 74 20 75 73 65 20 | 64 72 61 66 74 20 66 6f |not use |draft fo|
|00000d40| 6c 64 65 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |lder.").|(defvar |
|00000d50| 6d 68 2d 70 72 65 76 69 | 6f 75 73 2d 77 69 6e 64 |mh-previ|ous-wind|
|00000d60| 6f 77 2d 63 6f 6e 66 69 | 67 20 6e 69 6c 20 22 5c |ow-confi|g nil "\|
|00000d70| 0a 57 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 |.Window |configur|
|00000d80| 61 74 69 6f 6e 20 62 65 | 66 6f 72 65 20 6d 68 2d |ation be|fore mh-|
|00000d90| 65 20 63 6f 6d 6d 61 6e | 64 2e 22 29 0a 28 64 65 |e comman|d.").(de|
|00000da0| 66 76 61 72 20 6d 68 2d | 63 75 72 72 65 6e 74 2d |fvar mh-|current-|
|00000db0| 66 6f 6c 64 65 72 20 6e | 69 6c 20 22 5c 0a 4e 61 |folder n|il "\.Na|
|00000dc0| 6d 65 20 6f 66 20 63 75 | 72 72 65 6e 74 20 66 6f |me of cu|rrent fo|
|00000dd0| 6c 64 65 72 2c 20 61 20 | 73 74 72 69 6e 67 2e 22 |lder, a |string."|
|00000de0| 29 0a 28 64 65 66 76 61 | 72 20 6d 68 2d 66 6f 6c |).(defva|r mh-fol|
|00000df0| 64 65 72 2d 66 69 6c 65 | 6e 61 6d 65 20 6e 69 6c |der-file|name nil|
|00000e00| 20 22 5c 0a 46 75 6c 6c | 20 70 61 74 68 20 6f 66 | "\.Full| path of|
|00000e10| 20 64 69 72 65 63 74 6f | 72 79 20 66 6f 72 20 74 | directo|ry for t|
|00000e20| 68 69 73 20 66 6f 6c 64 | 65 72 2e 22 29 0a 28 64 |his fold|er.").(d|
|00000e30| 65 66 76 61 72 20 6d 68 | 2d 73 68 6f 77 2d 62 75 |efvar mh|-show-bu|
|00000e40| 66 66 65 72 20 6e 69 6c | 20 22 5c 0a 42 75 66 66 |ffer nil| "\.Buff|
|00000e50| 65 72 20 74 68 61 74 20 | 64 69 73 70 6c 61 79 73 |er that |displays|
|00000e60| 20 6d 65 73 61 67 65 20 | 66 6f 72 20 74 68 69 73 | mesage |for this|
|00000e70| 20 66 6f 6c 64 65 72 2e | 22 29 0a 28 64 65 66 76 | folder.|").(defv|
|00000e80| 61 72 20 6d 68 2d 75 6e | 73 65 65 6e 2d 73 65 71 |ar mh-un|seen-seq|
|00000e90| 20 6e 69 6c 20 22 5c 0a | 4e 61 6d 65 20 6f 66 20 | nil "\.|Name of |
|00000ea0| 74 68 65 20 55 6e 73 65 | 65 6e 20 73 65 71 75 65 |the Unse|en seque|
|00000eb0| 6e 63 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |nce.").(|defvar m|
|00000ec0| 68 2d 70 72 65 76 69 6f | 75 73 2d 73 65 71 20 6e |h-previo|us-seq n|
|00000ed0| 69 6c 20 22 5c 0a 4e 61 | 6d 65 20 6f 66 20 74 68 |il "\.Na|me of th|
|00000ee0| 65 20 50 72 65 76 69 6f | 75 73 20 73 65 71 75 65 |e Previo|us seque|
|00000ef0| 6e 63 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |nce.").(|defvar m|
|00000f00| 68 2d 73 65 65 6e 2d 6c | 69 73 74 20 6e 69 6c 20 |h-seen-l|ist nil |
|00000f10| 22 5c 0a 4c 69 73 74 20 | 6f 66 20 64 69 73 70 6c |"\.List |of displ|
|00000f20| 61 79 65 64 20 6d 65 73 | 73 61 67 65 73 2e 22 29 |ayed mes|sages.")|
|00000f30| 0a 28 64 65 66 76 61 72 | 20 6d 68 2d 73 65 71 2d |.(defvar| mh-seq-|
|00000f40| 6c 69 73 74 20 6e 69 6c | 20 22 5c 0a 41 6c 69 73 |list nil| "\.Alis|
|00000f50| 74 20 6f 66 20 28 73 65 | 71 20 2e 20 6d 73 67 73 |t of (se|q . msgs|
|00000f60| 29 20 6e 75 6d 62 65 72 | 73 2e 22 29 0a 28 64 65 |) number|s.").(de|
|00000f70| 66 76 61 72 20 6d 68 2d | 73 68 6f 77 69 6e 67 20 |fvar mh-|showing |
|00000f80| 6e 69 6c 20 22 5c 0a 49 | 66 20 6e 6f 6e 2d 6e 69 |nil "\.I|f non-ni|
|00000f90| 6c 2c 20 73 68 6f 77 20 | 74 68 65 20 6d 65 73 73 |l, show |the mess|
|00000fa0| 61 67 65 20 69 6e 20 61 | 20 73 65 70 61 72 61 74 |age in a| separat|
|00000fb0| 65 20 77 69 6e 64 6f 77 | 2e 22 29 0a 28 64 65 66 |e window|.").(def|
|00000fc0| 76 61 72 20 6d 68 2d 73 | 68 6f 77 69 6e 67 2d 77 |var mh-s|howing-w|
|00000fd0| 69 74 68 2d 68 65 61 64 | 65 72 73 20 6e 69 6c 20 |ith-head|ers nil |
|00000fe0| 22 5c 0a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 73 |"\.If no|n-nil, s|
|00000ff0| 68 6f 77 20 62 75 66 66 | 65 72 20 63 6f 6e 74 61 |how buff|er conta|
|00001000| 69 6e 73 20 6d 65 73 73 | 61 67 65 20 77 69 74 68 |ins mess|age with|
|00001010| 20 61 6c 6c 20 68 65 61 | 64 65 72 73 2e 0a 49 66 | all hea|ders..If|
|00001020| 20 6e 69 6c 2c 20 73 68 | 6f 77 20 62 75 66 66 65 | nil, sh|ow buffe|
|00001030| 72 20 63 6f 6e 74 61 69 | 6e 73 20 6d 65 73 73 61 |r contai|ns messa|
|00001040| 67 65 20 70 72 6f 63 65 | 73 73 65 64 20 6e 6f 72 |ge proce|ssed nor|
|00001050| 6d 61 6c 6c 79 2e 22 29 | 0a 28 62 79 74 65 2d 63 |mally.")|.(byte-c|
|00001060| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 c1 c4 c5 23 |ode "...|\".....#|
|00001070| 88 c0 c6 c7 5c 22 88 c3 | c6 c4 c5 23 88 c0 c8 c9 |....\"..|...#....|
|00001080| 5c 22 88 c0 ca cb 5c 22 | 88 c3 cc cd ce 23 87 22 |\"....\"|.....#."|
|00001090| 20 5b 64 65 66 61 6c 69 | 61 73 20 77 69 74 68 2d | [defali|as with-|
|000010a0| 6d 68 2d 66 6f 6c 64 65 | 72 2d 75 70 64 61 74 69 |mh-folde|r-updati|
|000010b0| 6e 67 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |ng (macr|o . #[(s|
|000010c0| 61 76 65 2d 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |ave-modi|fication|
|000010d0| 2d 66 6c 61 67 2d 70 20 | 26 72 65 73 74 20 62 6f |-flag-p |&rest bo|
|000010e0| 64 79 29 20 22 08 40 10 | c1 c2 c3 c1 c4 0d 42 c6 |dy) ".@.|......B.|
|000010f0| 42 42 45 08 3f 85 14 00 | c7 42 42 87 22 20 5b 73 |BBE.?...|.BB." [s|
|00001100| 61 76 65 2d 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |ave-modi|fication|
|00001110| 2d 66 6c 61 67 2d 70 20 | 70 72 6f 67 31 20 6c 65 |-flag-p |prog1 le|
|00001120| 74 20 28 28 6d 68 2d 66 | 6f 6c 64 65 72 2d 75 70 |t ((mh-f|older-up|
|00001130| 64 61 74 69 6e 67 2d 6d | 6f 64 2d 66 6c 61 67 20 |dating-m|od-flag |
|00001140| 28 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |(buffer-|modified|
|00001150| 2d 70 29 29 20 28 62 75 | 66 66 65 72 2d 72 65 61 |-p)) (bu|ffer-rea|
|00001160| 64 2d 6f 6e 6c 79 20 6e | 69 6c 29 20 28 62 75 66 |d-only n|il) (buf|
|00001170| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6e 69 |fer-file|-name ni|
|00001180| 6c 29 29 20 70 72 6f 67 | 6e 20 62 6f 64 79 20 28 |l)) prog|n body (|
|00001190| 28 6d 68 2d 73 65 74 2d | 66 6f 6c 64 65 72 2d 6d |(mh-set-|folder-m|
|000011a0| 6f 64 69 66 69 65 64 2d | 70 20 6d 68 2d 66 6f 6c |odified-|p mh-fol|
|000011b0| 64 65 72 2d 75 70 64 61 | 74 69 6e 67 2d 6d 6f 64 |der-upda|ting-mod|
|000011c0| 2d 66 6c 61 67 29 29 20 | 28 28 6d 68 2d 73 65 74 |-flag)) |((mh-set|
|000011d0| 2d 66 6f 6c 64 65 72 2d | 6d 6f 64 69 66 69 65 64 |-folder-|modified|
|000011e0| 2d 70 20 6e 69 6c 29 29 | 5d 20 36 5d 29 20 70 75 |-p nil))|] 6]) pu|
|000011f0| 74 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 68 6f |t lisp-i|ndent-ho|
|00001200| 6f 6b 20 31 20 6d 68 2d | 69 6e 2d 73 68 6f 77 2d |ok 1 mh-|in-show-|
|00001210| 62 75 66 66 65 72 20 28 | 6d 61 63 72 6f 20 2e 20 |buffer (|macro . |
|00001220| 23 5b 28 73 68 6f 77 2d | 62 75 66 66 65 72 20 26 |#[(show-|buffer &|
|00001230| 72 65 73 74 20 62 6f 64 | 79 29 20 22 08 40 10 c1 |rest bod|y) ".@..|
|00001240| c2 c3 08 44 c4 c5 c6 0e | 07 42 c8 42 42 af 05 87 |...D....|.B.BB...|
|00001250| 22 20 5b 73 68 6f 77 2d | 62 75 66 66 65 72 20 6c |" [show-|buffer l|
|00001260| 65 74 20 28 28 6d 68 2d | 69 6e 2d 73 68 6f 77 2d |et ((mh-|in-show-|
|00001270| 62 75 66 66 65 72 2d 73 | 61 76 65 64 2d 77 69 6e |buffer-s|aved-win|
|00001280| 64 6f 77 20 28 73 65 6c | 65 63 74 65 64 2d 77 69 |dow (sel|ected-wi|
|00001290| 6e 64 6f 77 29 29 29 20 | 73 77 69 74 63 68 2d 74 |ndow))) |switch-t|
|000012a0| 6f 2d 62 75 66 66 65 72 | 2d 6f 74 68 65 72 2d 77 |o-buffer|-other-w|
|000012b0| 69 6e 64 6f 77 20 28 69 | 66 20 6d 68 2d 62 75 72 |indow (i|f mh-bur|
|000012c0| 79 2d 73 68 6f 77 2d 62 | 75 66 66 65 72 20 28 62 |y-show-b|uffer (b|
|000012d0| 75 72 79 2d 62 75 66 66 | 65 72 20 28 63 75 72 72 |ury-buff|er (curr|
|000012e0| 65 6e 74 2d 62 75 66 66 | 65 72 29 29 29 20 75 6e |ent-buff|er))) un|
|000012f0| 77 69 6e 64 2d 70 72 6f | 74 65 63 74 20 70 72 6f |wind-pro|tect pro|
|00001300| 67 6e 20 62 6f 64 79 20 | 28 28 73 65 6c 65 63 74 |gn body |((select|
|00001310| 2d 77 69 6e 64 6f 77 20 | 6d 68 2d 69 6e 2d 73 68 |-window |mh-in-sh|
|00001320| 6f 77 2d 62 75 66 66 65 | 72 2d 73 61 76 65 64 2d |ow-buffe|r-saved-|
|00001330| 77 69 6e 64 6f 77 29 29 | 5d 20 37 5d 29 20 6d 68 |window))|] 7]) mh|
|00001340| 2d 73 65 71 2d 6e 61 6d | 65 20 28 6d 61 63 72 6f |-seq-nam|e (macro|
|00001350| 20 2e 20 23 5b 28 70 61 | 69 72 29 20 22 c0 09 44 | . #[(pa|ir) "..D|
|00001360| 87 22 20 5b 63 61 72 20 | 70 61 69 72 5d 20 32 5d |." [car |pair] 2]|
|00001370| 29 20 6d 68 2d 73 65 71 | 2d 6d 73 67 73 20 28 6d |) mh-seq|-msgs (m|
|00001380| 61 63 72 6f 20 2e 20 23 | 5b 28 70 61 69 72 29 20 |acro . #|[(pair) |
|00001390| 22 c0 09 44 87 22 20 5b | 63 64 72 20 70 61 69 72 |"..D." [|cdr pair|
|000013a0| 5d 20 32 5d 29 20 6d 68 | 2d 73 68 6f 77 2d 6d 6f |] 2]) mh|-show-mo|
|000013b0| 64 65 20 6d 6f 64 65 2d | 63 6c 61 73 73 20 73 70 |de mode-|class sp|
|000013c0| 65 63 69 61 6c 5d 20 34 | 29 0a 28 64 65 66 61 6c |ecial] 4|).(defal|
|000013d0| 69 61 73 20 27 6d 68 2d | 73 68 6f 77 2d 6d 6f 64 |ias 'mh-|show-mod|
|000013e0| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 12 c3 c4 |e #[nil |". .....|
|000013f0| 21 88 c5 c6 21 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |!...!." |[kill-al|
|00001400| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00001410| 73 20 6d 68 2d 73 68 6f | 77 2d 6d 6f 64 65 20 6d |s mh-sho|w-mode m|
|00001420| 61 6a 6f 72 2d 6d 6f 64 | 65 20 6d 68 2d 73 65 74 |ajor-mod|e mh-set|
|00001430| 2d 6d 6f 64 65 2d 6e 61 | 6d 65 20 22 4d 48 2d 53 |-mode-na|me "MH-S|
|00001440| 68 6f 77 22 20 72 75 6e | 2d 68 6f 6f 6b 73 20 6d |how" run|-hooks m|
|00001450| 68 2d 73 68 6f 77 2d 6d | 6f 64 65 2d 68 6f 6f 6b |h-show-m|ode-hook|
|00001460| 5d 20 32 20 22 5c 0a 4d | 61 6a 6f 72 20 6d 6f 64 |] 2 "\.M|ajor mod|
|00001470| 65 20 66 6f 72 20 73 68 | 6f 77 69 6e 67 20 6d 65 |e for sh|owing me|
|00001480| 73 73 61 67 65 73 20 69 | 6e 20 6d 68 2d 65 2e 0a |ssages i|n mh-e..|
|00001490| 54 68 65 20 76 61 6c 75 | 65 20 6f 66 20 6d 68 2d |The valu|e of mh-|
|000014a0| 73 68 6f 77 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 69 |show-mod|e-hook i|
|000014b0| 73 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 61 20 |s called| when a |
|000014c0| 6e 65 77 20 6d 65 73 73 | 61 67 65 20 69 73 20 64 |new mess|age is d|
|000014d0| 69 73 70 6c 61 79 65 64 | 2e 22 5d 29 0a 28 64 65 |isplayed|."]).(de|
|000014e0| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 6d 68 |falias (|quote mh|
|000014f0| 2d 6d 61 79 62 65 2d 73 | 68 6f 77 29 20 23 5b 28 |-maybe-s|how) #[(|
|00001500| 26 6f 70 74 69 6f 6e 61 | 6c 20 6d 73 67 29 20 22 |&optiona|l msg) "|
|00001510| 08 85 07 00 c1 5c 6e 21 | 87 22 20 5b 6d 68 2d 73 |.....\n!|." [mh-s|
|00001520| 68 6f 77 69 6e 67 20 6d | 68 2d 73 68 6f 77 20 6d |howing m|h-show m|
|00001530| 73 67 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |sg] 2]).|(defalia|
|00001540| 73 20 27 6d 68 2d 73 68 | 6f 77 20 23 5b 28 26 6f |s 'mh-sh|ow #[(&o|
|00001550| 70 74 69 6f 6e 61 6c 20 | 6d 73 67 29 20 22 08 83 |ptional |msg) "..|
|00001560| 0f 00 09 84 5c 66 00 5c | 6e 83 0f 00 c3 20 88 c4 |....\f.\|n.... ..|
|00001570| 0d 21 87 22 20 5b 6d 68 | 2d 73 68 6f 77 69 6e 67 |.!." [mh|-showing|
|00001580| 2d 77 69 74 68 2d 68 65 | 61 64 65 72 73 20 6d 68 |-with-he|aders mh|
|00001590| 6c 2d 66 6f 72 6d 66 69 | 6c 65 20 6d 68 2d 63 6c |l-formfi|le mh-cl|
|000015a0| 65 61 6e 2d 6d 65 73 73 | 61 67 65 2d 68 65 61 64 |ean-mess|age-head|
|000015b0| 65 72 20 6d 68 2d 69 6e | 76 61 6c 69 64 61 74 65 |er mh-in|validate|
|000015c0| 2d 73 68 6f 77 2d 62 75 | 66 66 65 72 20 6d 68 2d |-show-bu|ffer mh-|
|000015d0| 73 68 6f 77 2d 6d 73 67 | 20 6d 73 67 5d 20 32 20 |show-msg| msg] 2 |
|000015e0| 22 5c 0a 53 68 6f 77 20 | 4d 45 53 53 41 47 45 20 |"\.Show |MESSAGE |
|000015f0| 28 64 65 66 61 75 6c 74 | 3a 20 6d 65 73 73 61 67 |(default|: messag|
|00001600| 65 20 61 74 20 63 75 72 | 73 6f 72 29 2e 0a 46 6f |e at cur|sor)..Fo|
|00001610| 72 63 65 20 61 20 74 77 | 6f 2d 77 69 6e 64 6f 77 |rce a tw|o-window|
|00001620| 20 64 69 73 70 6c 61 79 | 20 77 69 74 68 20 74 68 | display| with th|
|00001630| 65 20 66 6f 6c 64 65 72 | 20 77 69 6e 64 6f 77 20 |e folder| window |
|00001640| 6f 6e 20 74 6f 70 20 28 | 73 69 7a 65 0a 6d 68 2d |on top (|size.mh-|
|00001650| 73 75 6d 6d 61 72 79 2d | 68 65 69 67 68 74 29 20 |summary-|height) |
|00001660| 61 6e 64 20 74 68 65 20 | 73 68 6f 77 20 62 75 66 |and the |show buf|
|00001670| 66 65 72 20 62 65 6c 6f | 77 20 69 74 2e 0a 49 66 |fer belo|w it..If|
|00001680| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 69 73 20 | the mes|sage is |
|00001690| 61 6c 72 65 61 64 79 20 | 76 69 73 69 62 6c 65 2c |already |visible,|
|000016a0| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 73 74 61 | display| the sta|
|000016b0| 72 74 20 6f 66 20 74 68 | 65 20 6d 65 73 73 61 67 |rt of th|e messag|
|000016c0| 65 2e 0a 0a 44 69 73 70 | 6c 61 79 20 6f 66 20 74 |e...Disp|lay of t|
|000016d0| 68 65 20 6d 65 73 73 61 | 67 65 20 69 73 20 63 6f |he messa|ge is co|
|000016e0| 6e 74 72 6f 6c 6c 65 64 | 20 62 79 20 73 65 74 74 |ntrolled| by sett|
|000016f0| 69 6e 67 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 |ing the |variable|
|00001700| 73 0a 60 6d 68 2d 63 6c | 65 61 6e 2d 6d 65 73 73 |s.`mh-cl|ean-mess|
|00001710| 61 67 65 2d 68 65 61 64 | 65 72 27 20 61 6e 64 20 |age-head|er' and |
|00001720| 60 6d 68 6c 2d 66 6f 72 | 6d 66 69 6c 65 27 2e 20 |`mhl-for|mfile'. |
|00001730| 20 54 68 65 20 64 65 66 | 61 75 6c 74 20 62 65 68 | The def|ault beh|
|00001740| 61 76 69 6f 72 20 69 73 | 0a 74 6f 20 73 63 72 6f |avior is|.to scro|
|00001750| 6c 6c 20 75 6e 69 6e 74 | 65 72 65 73 74 69 6e 67 |ll unint|eresting|
|00001760| 20 68 65 61 64 65 72 73 | 20 6f 66 66 20 74 68 65 | headers| off the|
|00001770| 20 74 6f 70 20 6f 66 20 | 74 68 65 20 77 69 6e 64 | top of |the wind|
|00001780| 6f 77 2e 0a 54 79 70 65 | 20 5c 22 5c 5c 5b 6d 68 |ow..Type| \"\\[mh|
|00001790| 2d 68 65 61 64 65 72 2d | 64 69 73 70 6c 61 79 5d |-header-|display]|
|000017a0| 5c 22 20 74 6f 20 73 65 | 65 20 74 68 65 20 6d 65 |\" to se|e the me|
|000017b0| 73 73 61 67 65 20 77 69 | 74 68 20 61 6c 6c 20 69 |ssage wi|th all i|
|000017c0| 74 73 20 68 65 61 64 65 | 72 73 2e 22 20 6e 69 6c |ts heade|rs." nil|
|000017d0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000017e0| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 88 c0 c5 c6 5c 22 |..\"....|\"....\"|
|000017f0| 88 c0 c7 c8 5c 22 88 c0 | c9 ca 5c 22 88 c0 cb cc |....\"..|..\"....|
|00001800| 5c 22 88 c0 cd ce 5c 22 | 88 c0 cf d0 5c 22 88 c0 |\"....\"|....\"..|
|00001810| d1 d2 5c 22 88 c0 d3 d4 | 5c 22 88 c0 d5 d6 5c 22 |..\"....|\"....\"|
|00001820| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 6d 68 2d |." [defa|lias mh-|
|00001830| 73 68 6f 77 2d 6d 73 67 | 20 23 5b 28 6d 73 67 29 |show-msg| #[(msg)|
|00001840| 20 22 08 84 08 00 c1 c2 | 21 10 c2 13 5c 66 0d c6 | "......|!...\f..|
|00001850| 0e 07 21 1e 08 1e 09 1e | 5c 6e cb cc 20 21 cd 20 |..!.....|\n.. !. |
|00001860| 3d 84 23 00 ce 20 88 cd | 20 1e 0f d0 0e 07 21 88 |=.#.. ..| .....!.|
|00001870| 0e 11 83 35 00 d2 70 21 | 88 d3 8e 0e 08 83 55 00 |...5..p!|......U.|
|00001880| d4 08 0e 5c 6e 5c 22 0e | 15 9a 83 55 00 65 62 88 |...\n\".|...U.eb.|
|00001890| 0e 09 84 5b 00 d6 20 88 | 82 5b 00 d7 08 0e 5c 6e |...[.. .|.[....\n|
|000018a0| 5c 22 88 2d d8 20 54 d9 | 20 55 84 6d 00 da d8 20 |\".-. T.| U.m... |
|000018b0| 0e 1b 5a 21 88 dc dd 21 | 88 08 0e 1e 3e 84 7e 00 |..Z!...!|....>.~.|
|000018c0| 08 0e 1e 42 16 1e df e0 | 21 87 22 20 5b 6d 73 67 |...B....|!." [msg|
|000018d0| 20 6d 68 2d 67 65 74 2d | 6d 73 67 2d 6e 75 6d 20 | mh-get-|msg-num |
|000018e0| 74 20 6d 68 2d 73 68 6f | 77 69 6e 67 20 6d 68 2d |t mh-sho|wing mh-|
|000018f0| 63 75 72 72 65 6e 74 2d | 66 6f 6c 64 65 72 20 6d |current-|folder m|
|00001900| 68 2d 63 6c 65 61 6e 2d | 6d 65 73 73 61 67 65 2d |h-clean-|message-|
|00001910| 68 65 61 64 65 72 20 67 | 65 74 2d 62 75 66 66 65 |header g|et-buffe|
|00001920| 72 2d 77 69 6e 64 6f 77 | 20 6d 68 2d 73 68 6f 77 |r-window| mh-show|
|00001930| 2d 62 75 66 66 65 72 20 | 73 68 6f 77 2d 77 69 6e |-buffer |show-win|
|00001940| 64 6f 77 20 63 6c 65 61 | 6e 2d 6d 65 73 73 61 67 |dow clea|n-messag|
|00001950| 65 2d 68 65 61 64 65 72 | 20 66 6f 6c 64 65 72 20 |e-header| folder |
|00001960| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 6d 69 6e 69 |next-win|dow mini|
|00001970| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 73 65 |buffer-w|indow se|
|00001980| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 64 65 |lected-w|indow de|
|00001990| 6c 65 74 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |lete-oth|er-windo|
|000019a0| 77 73 20 6d 68 2d 69 6e | 2d 73 68 6f 77 2d 62 75 |ws mh-in|-show-bu|
|000019b0| 66 66 65 72 2d 73 61 76 | 65 64 2d 77 69 6e 64 6f |ffer-sav|ed-windo|
|000019c0| 77 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |w switch|-to-buff|
|000019d0| 65 72 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |er-other|-window |
|000019e0| 6d 68 2d 62 75 72 79 2d | 73 68 6f 77 2d 62 75 66 |mh-bury-|show-buf|
|000019f0| 66 65 72 20 62 75 72 79 | 2d 62 75 66 66 65 72 20 |fer bury|-buffer |
|00001a00| 28 28 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |((select|-window |
|00001a10| 6d 68 2d 69 6e 2d 73 68 | 6f 77 2d 62 75 66 66 65 |mh-in-sh|ow-buffe|
|00001a20| 72 2d 73 61 76 65 64 2d | 77 69 6e 64 6f 77 29 29 |r-saved-|window))|
|00001a30| 20 6d 68 2d 6d 73 67 2d | 66 69 6c 65 6e 61 6d 65 | mh-msg-|filename|
|00001a40| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00001a50| 65 20 6d 68 2d 73 74 61 | 72 74 2d 6f 66 2d 75 6e |e mh-sta|rt-of-un|
|00001a60| 63 6c 65 61 6e 65 64 2d | 6d 65 73 73 61 67 65 20 |cleaned-|message |
|00001a70| 6d 68 2d 64 69 73 70 6c | 61 79 2d 6d 73 67 20 77 |mh-displ|ay-msg w|
|00001a80| 69 6e 64 6f 77 2d 68 65 | 69 67 68 74 20 73 63 72 |indow-he|ight scr|
|00001a90| 65 65 6e 2d 68 65 69 67 | 68 74 20 73 68 72 69 6e |een-heig|ht shrin|
|00001aa0| 6b 2d 77 69 6e 64 6f 77 | 20 6d 68 2d 73 75 6d 6d |k-window| mh-summ|
|00001ab0| 61 72 79 2d 68 65 69 67 | 68 74 20 6d 68 2d 72 65 |ary-heig|ht mh-re|
|00001ac0| 63 65 6e 74 65 72 20 6e | 69 6c 20 6d 68 2d 73 65 |center n|il mh-se|
|00001ad0| 65 6e 2d 6c 69 73 74 20 | 72 75 6e 2d 68 6f 6f 6b |en-list |run-hook|
|00001ae0| 73 20 6d 68 2d 73 68 6f | 77 2d 68 6f 6f 6b 5d 20 |s mh-sho|w-hook] |
|00001af0| 34 5d 20 6d 68 2d 64 69 | 73 70 6c 61 79 2d 6d 73 |4] mh-di|splay-ms|
|00001b00| 67 20 23 5b 28 6d 73 67 | 2d 6e 75 6d 20 66 6f 6c |g #[(msg|-num fol|
|00001b10| 64 65 72 29 20 22 08 71 | 88 09 5c 6e 0b 5c 66 c5 |der) ".q|..\n.\f.|
|00001b20| 0e 06 21 0e 07 1e 08 1e | 09 1e 5c 6e 1e 0b 1e 5c |..!.....|..\n...\|
|00001b30| 66 1e 0d ce 0e 09 21 84 | 26 00 cf d0 0e 06 5c 22 |f.....!.|&.....\"|
|00001b40| 88 0e 08 71 88 0e 09 0e | 11 9a 3f 85 a1 00 d2 20 |...q....|..?.... |
|00001b50| 88 d3 20 88 d4 16 11 d5 | 20 88 0e 0d 83 59 00 d6 |.. .....| ....Y..|
|00001b60| d7 d8 d9 0e 0d 3b 85 52 | 00 da 0e 0d 44 0e 09 25 |.....;.R|....D..%|
|00001b70| 88 82 5e 00 db 0e 09 21 | 88 65 62 88 0e 5c 66 83 |..^....!|.eb..\f.|
|00001b80| 74 00 dc 65 0e 0b 0e 5c | 6e 23 88 65 62 88 82 77 |t..e...\|n#.eb..w|
|00001b90| 00 dd 20 88 de d4 21 88 | 0e 1f e0 3d 84 85 00 d4 |.. ...!.|...=....|
|00001ba0| 16 1f 0e 09 16 11 e1 d4 | 21 88 e2 20 88 e3 0e 24 |........|!.. ...$|
|00001bb0| 08 0e 06 23 43 16 25 08 | 71 88 d4 89 16 26 2e 06 |...#C.%.|q....&..|
|00001bc0| 87 22 20 5b 66 6f 6c 64 | 65 72 20 6d 68 6c 2d 66 |." [fold|er mhl-f|
|00001bd0| 6f 72 6d 66 69 6c 65 20 | 6d 68 2d 63 6c 65 61 6e |ormfile |mh-clean|
|00001be0| 2d 6d 65 73 73 61 67 65 | 2d 68 65 61 64 65 72 20 |-message|-header |
|00001bf0| 6d 68 2d 69 6e 76 69 73 | 69 62 6c 65 2d 68 65 61 |mh-invis|ible-hea|
|00001c00| 64 65 72 73 20 6d 68 2d | 76 69 73 69 62 6c 65 2d |ders mh-|visible-|
|00001c10| 68 65 61 64 65 72 73 20 | 6d 68 2d 6d 73 67 2d 66 |headers |mh-msg-f|
|00001c20| 69 6c 65 6e 61 6d 65 20 | 6d 73 67 2d 6e 75 6d 20 |ilename |msg-num |
|00001c30| 6d 68 2d 73 68 6f 77 2d | 62 75 66 66 65 72 20 73 |mh-show-|buffer s|
|00001c40| 68 6f 77 2d 62 75 66 66 | 65 72 20 6d 73 67 2d 66 |how-buff|er msg-f|
|00001c50| 69 6c 65 6e 61 6d 65 20 | 76 69 73 69 62 6c 65 2d |ilename |visible-|
|00001c60| 68 65 61 64 65 72 73 20 | 69 6e 76 69 73 69 62 6c |headers |invisibl|
|00001c70| 65 2d 68 65 61 64 65 72 | 73 20 63 6c 65 61 6e 2d |e-header|s clean-|
|00001c80| 6d 65 73 73 61 67 65 2d | 68 65 61 64 65 72 20 66 |message-|header f|
|00001c90| 6f 72 6d 66 69 6c 65 20 | 66 69 6c 65 2d 65 78 69 |ormfile |file-exi|
|00001ca0| 73 74 73 2d 70 20 65 72 | 72 6f 72 20 22 4d 65 73 |sts-p er|ror "Mes|
|00001cb0| 73 61 67 65 20 25 64 20 | 64 6f 65 73 20 6e 6f 74 |sage %d |does not|
|00001cc0| 20 65 78 69 73 74 22 20 | 62 75 66 66 65 72 2d 66 | exist" |buffer-f|
|00001cd0| 69 6c 65 2d 6e 61 6d 65 | 20 63 6c 65 61 72 2d 76 |ile-name| clear-v|
|00001ce0| 69 73 69 74 65 64 2d 66 | 69 6c 65 2d 6d 6f 64 74 |isited-f|ile-modt|
|00001cf0| 69 6d 65 20 75 6e 6c 6f | 63 6b 2d 62 75 66 66 65 |ime unlo|ck-buffe|
|00001d00| 72 20 6e 69 6c 20 65 72 | 61 73 65 2d 62 75 66 66 |r nil er|ase-buff|
|00001d10| 65 72 20 6d 68 2d 65 78 | 65 63 2d 6c 69 62 2d 63 |er mh-ex|ec-lib-c|
|00001d20| 6d 64 2d 6f 75 74 70 75 | 74 20 22 6d 68 6c 22 20 |md-outpu|t "mhl" |
|00001d30| 22 2d 6e 6f 62 65 6c 6c | 22 20 22 2d 6e 6f 63 6c |"-nobell|" "-nocl|
|00001d40| 65 61 72 22 20 22 2d 66 | 6f 72 6d 22 20 69 6e 73 |ear" "-f|orm" ins|
|00001d50| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00001d60| 73 20 6d 68 2d 63 6c 65 | 61 6e 2d 6d 73 67 2d 68 |s mh-cle|an-msg-h|
|00001d70| 65 61 64 65 72 20 6d 68 | 2d 73 74 61 72 74 2d 6f |eader mh|-start-o|
|00001d80| 66 2d 75 6e 63 6c 65 61 | 6e 65 64 2d 6d 65 73 73 |f-unclea|ned-mess|
|00001d90| 61 67 65 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |age set-|buffer-m|
|00001da0| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|00001db0| 2d 75 6e 64 6f 2d 6c 69 | 73 74 20 74 20 73 65 74 |-undo-li|st t set|
|00001dc0| 2d 6d 61 72 6b 20 6d 68 | 2d 73 68 6f 77 2d 6d 6f |-mark mh|-show-mo|
|00001dd0| 64 65 20 66 6f 72 6d 61 | 74 20 6d 68 2d 73 68 6f |de forma|t mh-sho|
|00001de0| 77 2d 62 75 66 66 65 72 | 2d 6d 6f 64 65 2d 6c 69 |w-buffer|-mode-li|
|00001df0| 6e 65 2d 62 75 66 66 65 | 72 2d 69 64 20 6d 6f 64 |ne-buffe|r-id mod|
|00001e00| 65 2d 6c 69 6e 65 2d 62 | 75 66 66 65 72 2d 69 64 |e-line-b|uffer-id|
|00001e10| 65 6e 74 69 66 69 63 61 | 74 69 6f 6e 20 6d 68 2d |entifica|tion mh-|
|00001e20| 73 68 6f 77 69 6e 67 2d | 77 69 74 68 2d 68 65 61 |showing-|with-hea|
|00001e30| 64 65 72 73 5d 20 36 5d | 20 6d 68 2d 73 74 61 72 |ders] 6]| mh-star|
|00001e40| 74 2d 6f 66 2d 75 6e 63 | 6c 65 61 6e 65 64 2d 6d |t-of-unc|leaned-m|
|00001e50| 65 73 73 61 67 65 20 23 | 5b 6e 69 6c 20 22 c0 19 |essage #|[nil "..|
|00001e60| c2 c3 c4 c0 23 88 c5 79 | 88 c6 c5 21 29 87 22 20 |....#..y|...!)." |
|00001e70| 5b 74 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |[t case-|fold-sea|
|00001e80| 72 63 68 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |rch re-s|earch-fo|
|00001e90| 72 77 61 72 64 20 22 5e | 54 6f 3a 5c 5c 7c 5e 46 |rward "^|To:\\|^F|
|00001ea0| 72 6f 6d 3a 5c 5c 7c 5e | 53 75 62 6a 65 63 74 3a |rom:\\|^|Subject:|
|00001eb0| 5c 5c 7c 5e 44 61 74 65 | 3a 22 20 6e 69 6c 20 30 |\\|^Date|:" nil 0|
|00001ec0| 20 6d 68 2d 72 65 63 65 | 6e 74 65 72 5d 20 34 5d | mh-rece|nter] 4]|
|00001ed0| 20 6d 68 2d 69 6e 76 61 | 6c 69 64 61 74 65 2d 73 | mh-inva|lidate-s|
|00001ee0| 68 6f 77 2d 62 75 66 66 | 65 72 20 23 5b 6e 69 6c |how-buff|er #[nil|
|00001ef0| 20 22 c0 09 21 85 0e 00 | 8a 09 71 88 c2 89 13 29 | "..!...|..q....)|
|00001f00| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 20 6d |." [get-|buffer m|
|00001f10| 68 2d 73 68 6f 77 2d 62 | 75 66 66 65 72 20 6e 69 |h-show-b|uffer ni|
|00001f20| 6c 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |l buffer|-file-na|
|00001f30| 6d 65 5d 20 32 5d 20 6d | 68 2d 67 65 74 2d 6d 73 |me] 2] m|h-get-ms|
|00001f40| 67 2d 6e 75 6d 20 23 5b | 28 65 72 72 6f 72 2d 69 |g-num #[|(error-i|
|00001f50| 66 2d 6e 6f 2d 6d 65 73 | 73 61 67 65 29 20 22 8a |f-no-mes|sage) ".|
|00001f60| c0 79 88 c1 5c 6e 21 83 | 14 00 c3 c4 94 c4 95 7b |.y..\n!.|.......{|
|00001f70| 21 82 1f 00 0d 83 1e 00 | c6 c7 21 82 1f 00 c8 29 |!.......|..!....)|
|00001f80| 87 22 20 5b 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |." [0 lo|oking-at|
|00001f90| 20 6d 68 2d 6d 73 67 2d | 6e 75 6d 62 65 72 2d 72 | mh-msg-|number-r|
|00001fa0| 65 67 65 78 70 20 73 74 | 72 69 6e 67 2d 74 6f 2d |egexp st|ring-to-|
|00001fb0| 69 6e 74 20 31 20 65 72 | 72 6f 72 2d 69 66 2d 6e |int 1 er|ror-if-n|
|00001fc0| 6f 2d 6d 65 73 73 61 67 | 65 20 65 72 72 6f 72 20 |o-messag|e error |
|00001fd0| 22 43 75 72 73 6f 72 20 | 6e 6f 74 20 70 6f 69 6e |"Cursor |not poin|
|00001fe0| 74 69 6e 67 20 74 6f 20 | 6d 65 73 73 61 67 65 22 |ting to |message"|
|00001ff0| 20 6e 69 6c 5d 20 33 5d | 20 6d 68 2d 6d 73 67 2d | nil] 3]| mh-msg-|
|00002000| 66 69 6c 65 6e 61 6d 65 | 20 23 5b 28 6d 73 67 20 |filename| #[(msg |
|00002010| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 6f 6c 64 65 72 |&optiona|l folder|
|00002020| 29 20 22 c0 c1 5c 6e 21 | 0b 83 0e 00 c4 0b 21 82 |) "..\n!|......!.|
|00002030| 0f 00 0d 5c 22 87 22 20 | 5b 65 78 70 61 6e 64 2d |...\"." |[expand-|
|00002040| 66 69 6c 65 2d 6e 61 6d | 65 20 69 6e 74 2d 74 6f |file-nam|e int-to|
|00002050| 2d 73 74 72 69 6e 67 20 | 6d 73 67 20 66 6f 6c 64 |-string |msg fold|
|00002060| 65 72 20 6d 68 2d 65 78 | 70 61 6e 64 2d 66 69 6c |er mh-ex|pand-fil|
|00002070| 65 2d 6e 61 6d 65 20 6d | 68 2d 66 6f 6c 64 65 72 |e-name m|h-folder|
|00002080| 2d 66 69 6c 65 6e 61 6d | 65 5d 20 34 5d 20 6d 68 |-filenam|e] 4] mh|
|00002090| 2d 63 6c 65 61 6e 2d 6d | 73 67 2d 68 65 61 64 65 |-clean-m|sg-heade|
|000020a0| 72 20 23 5b 28 73 74 61 | 72 74 20 69 6e 76 69 73 |r #[(sta|rt invis|
|000020b0| 69 62 6c 65 2d 68 65 61 | 64 65 72 73 20 76 69 73 |ible-hea|ders vis|
|000020c0| 69 62 6c 65 2d 68 65 61 | 64 65 72 73 29 20 22 c0 |ible-hea|ders) ".|
|000020d0| 19 8c 5c 6e 62 88 c3 c4 | c5 c6 23 83 12 00 c7 c8 |..\nb...|..#.....|
|000020e0| 21 88 5c 6e 60 7d 88 65 | 62 88 0e 09 83 4b 00 60 |!.\n`}.e|b....K.`|
|000020f0| 64 57 83 68 00 ca 0e 09 | 21 83 3a 00 c8 79 88 ca |dW.h....|!.:..y..|
|00002100| cb 21 83 1e 00 c8 79 88 | 82 2e 00 cc c8 21 88 ca |.!....y.|.....!..|
|00002110| cb 21 83 1e 00 cc c8 21 | 88 82 3e 00 cd 0e 0e c5 |.!.....!|..>.....|
|00002120| c0 23 83 68 00 cf 79 88 | cc c8 21 88 ca cb 21 83 |.#.h..y.|..!...!.|
|00002130| 4b 00 cc c8 21 88 82 5b | 00 d0 20 2a 87 22 20 5b |K...!..[|.. *." [|
|00002140| 74 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |t case-f|old-sear|
|00002150| 63 68 20 73 74 61 72 74 | 20 73 65 61 72 63 68 2d |ch start| search-|
|00002160| 66 6f 72 77 61 72 64 20 | 22 5c 6e 5c 6e 22 20 6e |forward |"\n\n" n|
|00002170| 69 6c 20 6d 6f 76 65 20 | 62 61 63 6b 77 61 72 64 |il move |backward|
|00002180| 2d 63 68 61 72 20 31 20 | 76 69 73 69 62 6c 65 2d |-char 1 |visible-|
|00002190| 68 65 61 64 65 72 73 20 | 6c 6f 6f 6b 69 6e 67 2d |headers |looking-|
|000021a0| 61 74 20 22 5b 20 09 5d | 22 20 6d 68 2d 64 65 6c |at "[ .]|" mh-del|
|000021b0| 65 74 65 2d 6c 69 6e 65 | 20 72 65 2d 73 65 61 72 |ete-line| re-sear|
|000021c0| 63 68 2d 66 6f 72 77 61 | 72 64 20 69 6e 76 69 73 |ch-forwa|rd invis|
|000021d0| 69 62 6c 65 2d 68 65 61 | 64 65 72 73 20 30 20 75 |ible-hea|ders 0 u|
|000021e0| 6e 6c 6f 63 6b 2d 62 75 | 66 66 65 72 5d 20 34 5d |nlock-bu|ffer] 4]|
|000021f0| 20 6d 68 2d 72 65 63 65 | 6e 74 65 72 20 23 5b 28 | mh-rece|nter #[(|
|00002200| 61 72 67 29 20 22 c0 70 | 21 c1 20 3d 85 14 00 c2 |arg) ".p|!. =....|
|00002210| 0b 83 12 00 0b 82 13 00 | c4 21 87 22 20 5b 67 65 |........|.!." [ge|
|00002220| 74 2d 62 75 66 66 65 72 | 2d 77 69 6e 64 6f 77 20 |t-buffer|-window |
|00002230| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00002240| 72 65 63 65 6e 74 65 72 | 20 61 72 67 20 28 74 29 |recenter| arg (t)|
|00002250| 5d 20 32 5d 20 6d 68 2d | 64 65 6c 65 74 65 2d 6c |] 2] mh-|delete-l|
|00002260| 69 6e 65 20 23 5b 28 6c | 69 6e 65 73 29 20 22 60 |ine #[(l|ines) "`|
|00002270| 8a 08 79 88 60 29 7c 87 | 22 20 5b 6c 69 6e 65 73 |..y.`)|.|" [lines|
|00002280| 5d 20 32 5d 20 6d 68 2d | 67 65 74 2d 66 69 65 6c |] 2] mh-|get-fiel|
|00002290| 64 20 23 5b 28 66 69 65 | 6c 64 29 20 22 c0 19 65 |d #[(fie|ld) "..e|
|000022a0| 62 88 c2 c3 c4 0d 5c 22 | c6 c0 23 84 14 00 c7 82 |b.....\"|..#.....|
|000022b0| 3d 00 c8 c9 21 83 1e 00 | c7 82 3d 00 c2 ca c6 c0 |=...!...|..=.....|
|000022c0| 23 88 cb 94 1e 5c 66 cb | 79 88 c8 cd 21 83 37 00 |#....\f.|y...!.7.|
|000022d0| cb 79 88 82 2b 00 0e 5c | 66 60 53 7b 29 29 87 22 |.y..+..\|f`S{))."|
|000022e0| 20 5b 74 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 | [t case|-fold-se|
|000022f0| 61 72 63 68 20 72 65 2d | 73 65 61 72 63 68 2d 66 |arch re-|search-f|
|00002300| 6f 72 77 61 72 64 20 66 | 6f 72 6d 61 74 20 22 5e |orward f|ormat "^|
|00002310| 25 73 22 20 66 69 65 6c | 64 20 6e 69 6c 20 22 22 |%s" fiel|d nil ""|
|00002320| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 09 20 | looking|-at "[. |
|00002330| 5d 2a 24 22 20 22 5b 09 | 20 5d 2a 5c 5c 28 5b 5e |]*$" "[.| ]*\\([^|
|00002340| 09 20 5c 6e 5d 2e 2a 5c | 5c 29 24 22 20 31 20 73 |. \n].*\|\)$" 1 s|
|00002350| 74 61 72 74 20 22 5b 20 | 09 5d 22 5d 20 34 5d 20 |tart "[ |.]"] 4] |
|00002360| 6d 68 2d 6e 6f 74 61 74 | 65 20 23 5b 28 6d 73 67 |mh-notat|e #[(msg|
|00002370| 20 6e 6f 74 61 74 69 6f | 6e 20 6f 66 66 73 65 74 | notatio|n offset|
|00002380| 29 20 22 8a 08 83 0d 00 | c1 08 c2 89 23 85 2a 00 |) ".....|....#.*.|
|00002390| c3 20 c4 89 1d 1e 06 1e | 07 c8 79 88 0e 09 75 88 |. ......|..y...u.|
|000023a0| ca cb 21 88 0e 5c 66 63 | cd 0e 07 21 88 2b 29 87 |..!..\fc|...!.+).|
|000023b0| 22 20 5b 6d 73 67 20 6d | 68 2d 67 6f 74 6f 2d 6d |" [msg m|h-goto-m|
|000023c0| 73 67 20 74 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |sg t buf|fer-modi|
|000023d0| 66 69 65 64 2d 70 20 6e | 69 6c 20 62 75 66 66 65 |fied-p n|il buffe|
|000023e0| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 62 75 66 66 |r-file-n|ame buff|
|000023f0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6d 68 2d |er-read-|only mh-|
|00002400| 66 6f 6c 64 65 72 2d 75 | 70 64 61 74 69 6e 67 2d |folder-u|pdating-|
|00002410| 6d 6f 64 2d 66 6c 61 67 | 20 30 20 6f 66 66 73 65 |mod-flag| 0 offse|
|00002420| 74 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 31 20 |t delete|-char 1 |
|00002430| 6e 6f 74 61 74 69 6f 6e | 20 6d 68 2d 73 65 74 2d |notation| mh-set-|
|00002440| 66 6f 6c 64 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |folder-m|odified-|
|00002450| 70 5d 20 34 5d 5d 20 33 | 29 0a 28 64 65 66 61 6c |p] 4]] 3|).(defal|
|00002460| 69 61 73 20 27 6d 68 2d | 67 6f 74 6f 2d 6d 73 67 |ias 'mh-|goto-msg|
|00002470| 20 23 5b 28 6e 75 6d 62 | 65 72 20 26 6f 70 74 69 | #[(numb|er &opti|
|00002480| 6f 6e 61 6c 20 6e 6f 2d | 65 72 72 6f 72 2d 69 66 |onal no-|error-if|
|00002490| 2d 6e 6f 2d 6d 65 73 73 | 61 67 65 20 64 6f 6e 74 |-no-mess|age dont|
|000024a0| 2d 73 68 6f 77 29 20 22 | c0 c1 21 60 c2 0b 21 1c |-show) "|..!`..!.|
|000024b0| 1d 89 1e 06 83 16 00 0e | 06 0b 55 84 49 00 0e 06 |........|..U.I...|
|000024c0| 83 2a 00 0e 06 0b 57 83 | 2a 00 c7 5c 66 c1 c8 23 |.*....W.|*..\f..#|
|000024d0| 84 49 00 0e 06 83 3e 00 | 0e 06 0b 56 83 3e 00 c9 |.I....>.|...V.>..|
|000024e0| 5c 66 c1 c8 23 84 49 00 | 64 62 88 c9 5c 66 c1 c8 |\f..#.I.|db..\f..|
|000024f0| 23 83 59 00 ca 79 88 0e | 0b 84 55 00 cc 0b 21 88 |#.Y..y..|..U...!.|
|00002500| c8 82 67 00 0d 62 88 0e | 0d 84 66 00 ce cf 0b 5c |..g..b..|..f....\|
|00002510| 22 88 c1 2b 87 22 20 5b | 6d 68 2d 67 65 74 2d 6d |"..+." [|mh-get-m|
|00002520| 73 67 2d 6e 75 6d 20 6e | 69 6c 20 6d 68 2d 6d 73 |sg-num n|il mh-ms|
|00002530| 67 2d 73 65 61 72 63 68 | 2d 70 61 74 20 6e 75 6d |g-search|-pat num|
|00002540| 62 65 72 20 6d 73 67 2d | 70 61 74 74 65 72 6e 20 |ber msg-|pattern |
|00002550| 73 74 61 72 74 69 6e 67 | 2d 70 6c 61 63 65 20 63 |starting|-place c|
|00002560| 75 72 2d 6d 73 67 20 72 | 65 2d 73 65 61 72 63 68 |ur-msg r|e-search|
|00002570| 2d 66 6f 72 77 61 72 64 | 20 74 20 72 65 2d 73 65 |-forward| t re-se|
|00002580| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 30 20 |arch-bac|kward 0 |
|00002590| 64 6f 6e 74 2d 73 68 6f | 77 20 6d 68 2d 6d 61 79 |dont-sho|w mh-may|
|000025a0| 62 65 2d 73 68 6f 77 20 | 6e 6f 2d 65 72 72 6f 72 |be-show |no-error|
|000025b0| 2d 69 66 2d 6e 6f 2d 6d | 65 73 73 61 67 65 20 65 |-if-no-m|essage e|
|000025c0| 72 72 6f 72 20 22 4e 6f | 20 6d 65 73 73 61 67 65 |rror "No| message|
|000025d0| 20 25 64 22 5d 20 35 20 | 22 5c 0a 50 6f 73 69 74 | %d"] 5 |"\.Posit|
|000025e0| 69 6f 6e 20 74 68 65 20 | 63 75 72 73 6f 72 20 61 |ion the |cursor a|
|000025f0| 74 20 6d 65 73 73 61 67 | 65 20 4e 55 4d 42 45 52 |t messag|e NUMBER|
|00002600| 2e 0a 4e 6f 6e 2d 6e 69 | 6c 20 73 65 63 6f 6e 64 |..Non-ni|l second|
|00002610| 20 61 72 67 75 6d 65 6e | 74 20 6d 65 61 6e 73 20 | argumen|t means |
|00002620| 64 6f 20 6e 6f 74 20 73 | 69 67 6e 61 6c 20 61 6e |do not s|ignal an|
|00002630| 20 65 72 72 6f 72 20 69 | 66 20 6d 65 73 73 61 67 | error i|f messag|
|00002640| 65 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |e does n|ot exist|
|00002650| 2e 0a 4e 6f 6e 2d 6e 69 | 6c 20 74 68 69 72 64 20 |..Non-ni|l third |
|00002660| 61 72 67 75 6d 65 6e 74 | 20 6d 65 61 6e 73 20 6e |argument| means n|
|00002670| 6f 74 20 74 6f 20 73 68 | 6f 77 20 74 68 65 20 6d |ot to sh|ow the m|
|00002680| 65 73 73 61 67 65 2e 0a | 52 65 74 75 72 6e 20 6e |essage..|Return n|
|00002690| 6f 6e 2d 6e 69 6c 20 69 | 66 20 63 75 72 73 6f 72 |on-nil i|f cursor|
|000026a0| 20 69 73 20 61 74 20 6d | 65 73 73 61 67 65 2e 22 | is at m|essage."|
|000026b0| 20 22 4e 4a 75 6d 70 20 | 74 6f 20 6d 65 73 73 61 | "NJump |to messa|
|000026c0| 67 65 3a 20 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ge: "]).|(byte-co|
|000026d0| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|000026e0| c0 c5 c6 5c 22 88 c0 c7 | c8 5c 22 88 c0 c9 ca 5c |...\"...|.\"....\|
|000026f0| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 6d 68 |"." [def|alias mh|
|00002700| 2d 6d 73 67 2d 73 65 61 | 72 63 68 2d 70 61 74 20 |-msg-sea|rch-pat |
|00002710| 23 5b 28 6e 29 20 22 c0 | 09 5c 6e 5c 22 87 22 20 |#[(n) ".|.\n\"." |
|00002720| 5b 66 6f 72 6d 61 74 20 | 6d 68 2d 6d 73 67 2d 73 |[format |mh-msg-s|
|00002730| 65 61 72 63 68 2d 72 65 | 67 65 78 70 20 6e 5d 20 |earch-re|gexp n] |
|00002740| 33 5d 20 6d 68 2d 66 69 | 6e 64 2d 70 61 74 68 20 |3] mh-fi|nd-path |
|00002750| 23 5b 6e 69 6c 20 22 c0 | 20 88 8a c1 c2 c3 21 86 |#[nil ".| .....!.|
|00002760| 5c 66 00 c4 21 1d c6 c7 | 21 71 88 c8 16 09 ca 20 |\f..!...|!q..... |
|00002770| 88 cb cc cd 8f 88 ce cf | 21 89 16 10 d1 9a 83 2f |........|!....../|
|00002780| 00 c8 16 10 82 3d 00 d2 | 0e 10 21 84 3d 00 d3 d4 |.....=..|..!.=...|
|00002790| 0e 10 5c 22 16 10 ce d5 | 21 89 16 16 d1 9a 83 4b |..\"....|!......K|
|000027a0| 00 d7 16 16 d8 c1 0e 16 | c1 d9 21 5c 22 21 16 16 |........|..!\"!..|
|000027b0| 0e 10 83 6c 00 da db 0e | 10 21 21 84 6c 00 dc dd |...l....|.!!.l...|
|000027c0| db 0e 10 21 5c 22 88 ce | de 21 89 16 1f d1 9a 83 |...!\"..|.!......|
|000027d0| 7d 00 e0 16 1f 82 83 00 | e1 0e 1f 21 16 1f ce e2 |}.......|...!....|
|000027e0| 21 89 16 23 d1 9a 83 95 | 00 c8 89 16 23 82 9c 00 |!..#....|....#...|
|000027f0| e1 0e 23 21 89 16 23 2a | 87 22 20 5b 6d 68 2d 66 |..#!..#*|." [mh-f|
|00002800| 69 6e 64 2d 70 72 6f 67 | 73 20 65 78 70 61 6e 64 |ind-prog|s expand|
|00002810| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 67 65 74 65 6e |-file-na|me geten|
|00002820| 76 20 22 4d 48 22 20 22 | 7e 2f 2e 6d 68 5f 70 72 |v "MH" "|~/.mh_pr|
|00002830| 6f 66 69 6c 65 22 20 70 | 72 6f 66 69 6c 65 20 67 |ofile" p|rofile g|
|00002840| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00002850| 20 22 20 2a 6d 68 2d 74 | 65 6d 70 2a 22 20 6e 69 | " *mh-t|emp*" ni|
|00002860| 6c 20 62 75 66 66 65 72 | 2d 6f 66 66 65 72 2d 73 |l buffer|-offer-s|
|00002870| 61 76 65 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |ave eras|e-buffer|
|00002880| 20 65 72 72 20 28 69 6e | 73 65 72 74 2d 66 69 6c | err (in|sert-fil|
|00002890| 65 2d 63 6f 6e 74 65 6e | 74 73 20 70 72 6f 66 69 |e-conten|ts profi|
|000028a0| 6c 65 29 20 28 28 66 69 | 6c 65 2d 65 72 72 6f 72 |le) ((fi|le-error|
|000028b0| 20 28 6d 68 2d 69 6e 73 | 74 61 6c 6c 20 70 72 6f | (mh-ins|tall pro|
|000028c0| 66 69 6c 65 20 65 72 72 | 29 29 29 20 6d 68 2d 67 |file err|))) mh-g|
|000028d0| 65 74 2d 66 69 65 6c 64 | 20 22 44 72 61 66 74 2d |et-field| "Draft-|
|000028e0| 46 6f 6c 64 65 72 3a 22 | 20 6d 68 2d 64 72 61 66 |Folder:"| mh-draf|
|000028f0| 74 2d 66 6f 6c 64 65 72 | 20 22 22 20 6d 68 2d 66 |t-folder| "" mh-f|
|00002900| 6f 6c 64 65 72 2d 6e 61 | 6d 65 2d 70 20 66 6f 72 |older-na|me-p for|
|00002910| 6d 61 74 20 22 2b 25 73 | 22 20 22 50 61 74 68 3a |mat "+%s|" "Path:|
|00002920| 22 20 6d 68 2d 75 73 65 | 72 2d 70 61 74 68 20 22 |" mh-use|r-path "|
|00002930| 4d 61 69 6c 22 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |Mail" fi|le-name-|
|00002940| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 22 7e 22 |as-direc|tory "~"|
|00002950| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 6d | file-ex|ists-p m|
|00002960| 68 2d 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |h-expand|-file-na|
|00002970| 6d 65 20 65 72 72 6f 72 | 20 22 44 72 61 66 74 20 |me error| "Draft |
|00002980| 66 6f 6c 64 65 72 20 5c | 22 25 73 5c 22 20 6e 6f |folder \|"%s\" no|
|00002990| 74 20 66 6f 75 6e 64 2e | 20 20 43 72 65 61 74 65 |t found.| Create|
|000029a0| 20 69 74 20 61 6e 64 20 | 74 72 79 20 61 67 61 69 | it and |try agai|
|000029b0| 6e 2e 22 20 22 55 6e 73 | 65 65 6e 2d 53 65 71 75 |n." "Uns|een-Sequ|
|000029c0| 65 6e 63 65 3a 22 20 6d | 68 2d 75 6e 73 65 65 6e |ence:" m|h-unseen|
|000029d0| 2d 73 65 71 20 75 6e 73 | 65 65 6e 20 69 6e 74 65 |-seq uns|een inte|
|000029e0| 72 6e 20 22 50 72 65 76 | 69 6f 75 73 2d 53 65 71 |rn "Prev|ious-Seq|
|000029f0| 75 65 6e 63 65 3a 22 20 | 6d 68 2d 70 72 65 76 69 |uence:" |mh-previ|
|00002a00| 6f 75 73 2d 73 65 71 5d | 20 36 5d 20 6d 68 2d 66 |ous-seq]| 6] mh-f|
|00002a10| 69 6e 64 2d 70 72 6f 67 | 73 20 23 5b 6e 69 6c 20 |ind-prog|s #[nil |
|00002a20| 22 c0 c1 c2 0b 5c 22 21 | 84 19 00 c4 0d c2 5c 22 |"....\"!|......\"|
|00002a30| 86 18 00 c4 c6 c2 5c 22 | 86 18 00 c7 13 c0 c1 c8 |......\"|........|
|00002a40| 0e 09 5c 22 21 86 35 00 | c4 ca c8 5c 22 86 32 00 |..\"!.5.|...\".2.|
|00002a50| c4 0d c8 5c 22 86 32 00 | cb 89 16 09 87 22 20 5b |...\".2.|....." [|
|00002a60| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 65 78 |file-exi|sts-p ex|
|00002a70| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 22 |pand-fil|e-name "|
|00002a80| 69 6e 63 22 20 6d 68 2d | 70 72 6f 67 73 20 6d 68 |inc" mh-|progs mh|
|00002a90| 2d 70 61 74 68 2d 73 65 | 61 72 63 68 20 65 78 65 |-path-se|arch exe|
|00002aa0| 63 2d 70 61 74 68 20 28 | 22 2f 75 73 72 2f 6c 6f |c-path (|"/usr/lo|
|00002ab0| 63 61 6c 2f 62 69 6e 2f | 6d 68 2f 22 20 22 2f 75 |cal/bin/|mh/" "/u|
|00002ac0| 73 72 2f 6c 6f 63 61 6c | 2f 6d 68 2f 22 20 22 2f |sr/local|/mh/" "/|
|00002ad0| 75 73 72 2f 62 69 6e 2f | 6d 68 2f 22 20 22 2f 75 |usr/bin/|mh/" "/u|
|00002ae0| 73 72 2f 6e 65 77 2f 6d | 68 2f 22 20 22 2f 75 73 |sr/new/m|h/" "/us|
|00002af0| 72 2f 63 6f 6e 74 72 69 | 62 2f 6d 68 2f 62 69 6e |r/contri|b/mh/bin|
|00002b00| 22 29 20 22 2f 75 73 72 | 2f 6c 6f 63 61 6c 2f 62 |") "/usr|/local/b|
|00002b10| 69 6e 2f 22 20 22 6d 68 | 6c 22 20 6d 68 2d 6c 69 |in/" "mh|l" mh-li|
|00002b20| 62 20 28 22 2f 75 73 72 | 2f 6c 6f 63 61 6c 2f 6c |b ("/usr|/local/l|
|00002b30| 69 62 2f 6d 68 2f 22 20 | 22 2f 75 73 72 2f 6c 69 |ib/mh/" |"/usr/li|
|00002b40| 62 2f 6d 68 2f 22 20 22 | 2f 75 73 72 2f 6e 65 77 |b/mh/" "|/usr/new|
|00002b50| 2f 6c 69 62 2f 6d 68 2f | 22 20 22 2f 75 73 72 2f |/lib/mh/|" "/usr/|
|00002b60| 63 6f 6e 74 72 69 62 2f | 6d 68 2f 6c 69 62 22 29 |contrib/|mh/lib")|
|00002b70| 20 22 2f 75 73 72 2f 6c | 6f 63 61 6c 2f 62 69 6e | "/usr/l|ocal/bin|
|00002b80| 2f 6d 68 2f 22 5d 20 34 | 5d 20 6d 68 2d 70 61 74 |/mh/"] 4|] mh-pat|
|00002b90| 68 2d 73 65 61 72 63 68 | 20 23 5b 28 70 61 74 68 |h-search| #[(path|
|00002ba0| 20 66 69 6c 65 29 20 22 | 08 83 15 00 c1 c2 0b 08 | file) "|........|
|00002bb0| 40 5c 22 21 84 15 00 08 | 41 89 10 84 04 00 08 40 |@\"!....|A......@|
|00002bc0| 87 22 20 5b 70 61 74 68 | 20 66 69 6c 65 2d 65 78 |." [path| file-ex|
|00002bd0| 69 73 74 73 2d 70 20 65 | 78 70 61 6e 64 2d 66 69 |ists-p e|xpand-fi|
|00002be0| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 5d 20 35 5d |le-name |file] 5]|
|00002bf0| 20 6d 68 2d 69 6e 73 74 | 61 6c 6c 20 23 5b 28 70 | mh-inst|all #[(p|
|00002c00| 72 6f 66 69 6c 65 20 65 | 72 72 6f 72 2d 76 61 6c |rofile e|rror-val|
|00002c10| 29 20 22 c0 c1 21 84 5c | 66 00 c2 0b 21 83 16 00 |) "..!.\|f...!...|
|00002c20| c4 c5 0b 0e 06 41 41 40 | 23 88 c7 c8 c9 0e 5c 6e |.....AA@|#.....\n|
|00002c30| 5c 22 cb 5c 22 88 cc 20 | 88 cd ce cf 8f 87 22 20 |\".\".. |......" |
|00002c40| 5b 67 65 74 65 6e 76 20 | 22 4d 48 22 20 66 69 6c |[getenv |"MH" fil|
|00002c50| 65 2d 65 78 69 73 74 73 | 2d 70 20 70 72 6f 66 69 |e-exists|-p profi|
|00002c60| 6c 65 20 65 72 72 6f 72 | 20 22 43 61 6e 6e 6f 74 |le error| "Cannot|
|00002c70| 20 72 65 61 64 20 4d 48 | 20 70 72 6f 66 69 6c 65 | read MH| profile|
|00002c80| 20 5c 22 25 73 5c 22 3a | 20 25 73 22 20 65 72 72 | \"%s\":| %s" err|
|00002c90| 6f 72 2d 76 61 6c 20 6d | 68 2d 65 78 65 63 2d 63 |or-val m|h-exec-c|
|00002ca0| 6d 64 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |md expan|d-file-n|
|00002cb0| 61 6d 65 20 22 69 6e 73 | 74 61 6c 6c 2d 6d 68 22 |ame "ins|tall-mh"|
|00002cc0| 20 6d 68 2d 6c 69 62 20 | 22 2d 61 75 74 6f 22 20 | mh-lib |"-auto" |
|00002cd0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 65 72 72 |erase-bu|ffer err|
|00002ce0| 20 28 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f | (insert|-file-co|
|00002cf0| 6e 74 65 6e 74 73 20 70 | 72 6f 66 69 6c 65 29 20 |ntents p|rofile) |
|00002d00| 28 28 66 69 6c 65 2d 65 | 72 72 6f 72 20 28 62 79 |((file-e|rror (by|
|00002d10| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 0b 41 41 |te-code |"..\n.AA|
|00002d20| 40 23 87 22 20 5b 65 72 | 72 6f 72 20 22 43 61 6e |@#." [er|ror "Can|
|00002d30| 6e 6f 74 20 72 65 61 64 | 20 4d 48 20 70 72 6f 66 |not read| MH prof|
|00002d40| 69 6c 65 20 5c 22 25 73 | 5c 22 3a 20 25 73 22 20 |ile \"%s|\": %s" |
|00002d50| 70 72 6f 66 69 6c 65 20 | 65 72 72 5d 20 34 29 29 |profile |err] 4))|
|00002d60| 29 5d 20 34 5d 5d 20 33 | 29 0a 28 64 65 66 61 6c |)] 4]] 3|).(defal|
|00002d70| 69 61 73 20 27 6d 68 2d | 73 65 74 2d 66 6f 6c 64 |ias 'mh-|set-fold|
|00002d80| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 23 5b |er-modif|ied-p #[|
|00002d90| 28 66 6c 61 67 29 20 22 | c0 09 21 87 22 20 5b 73 |(flag) "|..!." [s|
|00002da0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00002db0| 65 64 2d 70 20 66 6c 61 | 67 5d 20 32 20 22 5c 0a |ed-p fla|g] 2 "\.|
|00002dc0| 4d 61 72 6b 20 63 75 72 | 72 65 6e 74 20 66 6f 6c |Mark cur|rent fol|
|00002dd0| 64 65 72 20 61 73 20 6d | 6f 64 69 66 69 65 64 20 |der as m|odified |
|00002de0| 6f 72 20 75 6e 6d 6f 64 | 69 66 69 65 64 20 61 63 |or unmod|ified ac|
|00002df0| 63 6f 72 64 69 6e 67 20 | 74 6f 20 46 4c 41 47 2e |cording |to FLAG.|
|00002e00| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00002e10| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00002e20| 65 66 61 6c 69 61 73 20 | 6d 68 2d 66 69 6e 64 2d |efalias |mh-find-|
|00002e30| 73 65 71 20 23 5b 28 6e | 61 6d 65 29 20 22 c0 09 |seq #[(n|ame) "..|
|00002e40| 5c 6e 5c 22 87 22 20 5b | 61 73 73 6f 63 20 6e 61 |\n\"." [|assoc na|
|00002e50| 6d 65 20 6d 68 2d 73 65 | 71 2d 6c 69 73 74 5d 20 |me mh-se|q-list] |
|00002e60| 33 5d 20 6d 68 2d 6d 61 | 6b 65 2d 73 65 71 20 23 |3] mh-ma|ke-seq #|
|00002e70| 5b 28 6e 61 6d 65 20 6d | 73 67 73 29 20 22 08 09 |[(name m|sgs) "..|
|00002e80| 42 87 22 20 5b 6e 61 6d | 65 20 6d 73 67 73 5d 20 |B." [nam|e msgs] |
|00002e90| 32 5d 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |2]] 3).(|defalias|
|00002ea0| 20 27 6d 68 2d 73 65 71 | 2d 74 6f 2d 6d 73 67 73 | 'mh-seq|-to-msgs|
|00002eb0| 20 23 5b 28 73 65 71 29 | 20 22 c0 09 21 41 87 22 | #[(seq)| "..!A."|
|00002ec0| 20 5b 6d 68 2d 66 69 6e | 64 2d 73 65 71 20 73 65 | [mh-fin|d-seq se|
|00002ed0| 71 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 20 61 |q] 2 "\.|Return a|
|00002ee0| 20 6c 69 73 74 20 6f 66 | 20 74 68 65 20 6d 65 73 | list of| the mes|
|00002ef0| 73 61 67 65 73 20 69 6e | 20 53 45 51 55 45 4e 43 |sages in| SEQUENC|
|00002f00| 45 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |E."]).(b|yte-code|
|00002f10| 20 22 c0 c1 c2 5c 22 88 | c3 c4 c5 5c 22 88 c3 c6 | "...\".|...\"...|
|00002f20| c5 5c 22 88 c3 c7 c5 5c | 22 88 c3 c8 c5 5c 22 88 |.\"....\|"....\".|
|00002f30| c0 c9 ca 5c 22 88 c0 cb | cc 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00002f40| 65 66 61 6c 69 61 73 20 | 6d 68 2d 61 64 64 2d 6d |efalias |mh-add-m|
|00002f50| 73 67 73 2d 74 6f 2d 73 | 65 71 20 23 5b 28 6d 73 |sgs-to-s|eq #[(ms|
|00002f60| 67 73 20 73 65 71 20 26 | 6f 70 74 69 6f 6e 61 6c |gs seq &|optional|
|00002f70| 20 69 6e 74 65 72 6e 61 | 6c 2d 66 6c 61 67 29 20 | interna|l-flag) |
|00002f80| 22 c0 09 21 1a 0b 83 10 | 00 0b 3a 84 10 00 0b 43 |"..!....|..:....C|
|00002f90| 13 5c 6e 84 1e 00 c4 09 | 0b 5c 22 0d 42 15 82 2a |.\n.....|.\".B..*|
|00002fa0| 00 0b 83 2a 00 5c 6e c6 | 0b 5c 6e 41 5c 22 a1 88 |...*.\n.|.\nA\"..|
|00002fb0| 0e 07 3f 85 3c 00 c8 09 | 0b 5c 22 88 c9 09 ca 0e |..?.<...|.\".....|
|00002fc0| 0b 54 23 29 87 22 20 5b | 6d 68 2d 66 69 6e 64 2d |.T#)." [|mh-find-|
|00002fd0| 73 65 71 20 73 65 71 20 | 65 6e 74 72 79 20 6d 73 |seq seq |entry ms|
|00002fe0| 67 73 20 6d 68 2d 6d 61 | 6b 65 2d 73 65 71 20 6d |gs mh-ma|ke-seq m|
|00002ff0| 68 2d 73 65 71 2d 6c 69 | 73 74 20 61 70 70 65 6e |h-seq-li|st appen|
|00003000| 64 20 69 6e 74 65 72 6e | 61 6c 2d 66 6c 61 67 20 |d intern|al-flag |
|00003010| 6d 68 2d 61 64 64 2d 74 | 6f 2d 73 65 71 75 65 6e |mh-add-t|o-sequen|
|00003020| 63 65 20 6d 68 2d 6e 6f | 74 61 74 65 2d 73 65 71 |ce mh-no|tate-seq|
|00003030| 20 33 37 20 6d 68 2d 63 | 6d 64 2d 6e 6f 74 65 5d | 37 mh-c|md-note]|
|00003040| 20 34 5d 20 61 75 74 6f | 6c 6f 61 64 20 6d 68 2d | 4] auto|load mh-|
|00003050| 61 64 64 2d 74 6f 2d 73 | 65 71 75 65 6e 63 65 20 |add-to-s|equence |
|00003060| 22 6d 68 2d 73 65 71 22 | 20 6d 68 2d 6e 6f 74 61 |"mh-seq"| mh-nota|
|00003070| 74 65 2d 73 65 71 20 6d | 68 2d 72 65 61 64 2d 73 |te-seq m|h-read-s|
|00003080| 65 71 2d 64 65 66 61 75 | 6c 74 20 6d 68 2d 6d 61 |eq-defau|lt mh-ma|
|00003090| 70 2d 74 6f 2d 73 65 71 | 2d 6d 73 67 73 20 6d 68 |p-to-seq|-msgs mh|
|000030a0| 2d 73 65 74 2d 6d 6f 64 | 65 2d 6e 61 6d 65 20 23 |-set-mod|e-name #|
|000030b0| 5b 28 6d 6f 64 65 2d 6e | 61 6d 65 2d 73 74 72 69 |[(mode-n|ame-stri|
|000030c0| 6e 67 29 20 22 08 11 8a | c2 20 71 88 29 c3 c4 20 |ng) "...|. q.).. |
|000030d0| 21 87 22 20 5b 6d 6f 64 | 65 2d 6e 61 6d 65 2d 73 |!." [mod|e-name-s|
|000030e0| 74 72 69 6e 67 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |tring mo|de-name |
|000030f0| 6f 74 68 65 72 2d 62 75 | 66 66 65 72 20 73 65 74 |other-bu|ffer set|
|00003100| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|00003110| 2d 70 20 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |-p buffe|r-modifi|
|00003120| 65 64 2d 70 5d 20 32 5d | 20 6d 68 2d 70 72 6f 6d |ed-p] 2]| mh-prom|
|00003130| 70 74 2d 66 6f 72 2d 66 | 6f 6c 64 65 72 20 23 5b |pt-for-f|older #[|
|00003140| 28 70 72 6f 6d 70 74 20 | 64 65 66 61 75 6c 74 20 |(prompt |default |
|00003150| 63 61 6e 2d 63 72 65 61 | 74 65 29 20 22 08 84 06 |can-crea|te) "...|
|00003160| 00 c1 10 c2 c3 5c 66 08 | c1 9a 83 13 00 c5 82 17 |.....\f.|........|
|00003170| 00 c2 c6 08 5c 22 23 1c | c7 1e 08 c7 1e 09 0e 5c |....\"#.|.......\|
|00003180| 6e 84 27 00 cb 20 88 cc | 5c 66 0e 5c 6e c7 89 cd |n.'.. ..|\f.\n...|
|00003190| 25 89 16 08 83 42 00 0e | 08 c1 9a 83 42 00 08 c1 |%....B..|....B...|
|000031a0| 9a 84 27 00 0e 08 c1 9a | 84 50 00 0e 08 cd 9a 83 |..'.....|.P......|
|000031b0| 56 00 08 16 08 82 64 00 | ce 0e 08 21 84 64 00 c2 |V.....d.|...!.d..|
|000031c0| cf 0e 08 5c 22 16 08 0e | 08 89 16 09 47 d0 56 83 |...\"...|....G.V.|
|000031d0| 81 00 0e 09 89 47 53 48 | d1 3d 83 81 00 0e 09 d0 |.....GSH|.=......|
|000031e0| d2 4f 16 09 d3 d4 0e 09 | 21 21 3f 89 1e 15 83 ba |.O......|!!?.....|
|000031f0| 00 d6 c2 d7 0e 09 5c 22 | 21 83 ba 00 d8 d9 0e 09 |......\"|!.......|
|00003200| 5c 22 88 da db c7 89 89 | d4 0e 09 21 25 88 d8 dc |\"......|...!%...|
|00003210| 0e 09 5c 22 88 0e 08 43 | 0e 5c 6e 42 16 5c 6e 82 |..\"...C|.\nB.\n.|
|00003220| e4 00 0e 15 83 c8 00 dd | de 0e 09 5c 22 88 82 e4 |........|...\"...|
|00003230| 00 df 0e 08 0e 5c 6e 5c | 22 84 e4 00 df 0e 08 e0 |.....\n\|".......|
|00003240| 50 0e 5c 6e 5c 22 84 e4 | 00 0e 08 43 0e 5c 6e 42 |P.\n\"..|...C.\nB|
|00003250| 16 5c 6e 29 0e 09 2b 87 | 22 20 5b 64 65 66 61 75 |.\n)..+.|" [defau|
|00003260| 6c 74 20 22 22 20 66 6f | 72 6d 61 74 20 22 25 73 |lt "" fo|rmat "%s|
|00003270| 20 66 6f 6c 64 65 72 25 | 73 22 20 70 72 6f 6d 70 | folder%|s" promp|
|00003280| 74 20 22 3f 20 22 20 22 | 20 5b 25 73 5d 3f 20 22 |t "? " "| [%s]? "|
|00003290| 20 6e 69 6c 20 72 65 61 | 64 2d 6e 61 6d 65 20 66 | nil rea|d-name f|
|000032a0| 6f 6c 64 65 72 2d 6e 61 | 6d 65 20 6d 68 2d 66 6f |older-na|me mh-fo|
|000032b0| 6c 64 65 72 2d 6c 69 73 | 74 20 6d 68 2d 73 65 74 |lder-lis|t mh-set|
|000032c0| 2d 66 6f 6c 64 65 72 2d | 6c 69 73 74 20 63 6f 6d |-folder-|list com|
|000032d0| 70 6c 65 74 69 6e 67 2d | 72 65 61 64 20 22 2b 22 |pleting-|read "+"|
|000032e0| 20 6d 68 2d 66 6f 6c 64 | 65 72 2d 6e 61 6d 65 2d | mh-fold|er-name-|
|000032f0| 70 20 22 2b 25 73 22 20 | 30 20 34 37 20 2d 31 20 |p "+%s" |0 47 -1 |
|00003300| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 6d 68 |file-exi|sts-p mh|
|00003310| 2d 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d |-expand-|file-nam|
|00003320| 65 20 6e 65 77 2d 66 69 | 6c 65 2d 70 20 79 2d 6f |e new-fi|le-p y-o|
|00003330| 72 2d 6e 2d 70 20 22 46 | 6f 6c 64 65 72 20 25 73 |r-n-p "F|older %s|
|00003340| 20 64 6f 65 73 20 6e 6f | 74 20 65 78 69 73 74 2e | does no|t exist.|
|00003350| 20 20 43 72 65 61 74 65 | 20 69 74 3f 20 22 20 6d | Create| it? " m|
|00003360| 65 73 73 61 67 65 20 22 | 43 72 65 61 74 69 6e 67 |essage "|Creating|
|00003370| 20 25 73 22 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 | %s" cal|l-proces|
|00003380| 73 20 22 6d 6b 64 69 72 | 22 20 22 43 72 65 61 74 |s "mkdir|" "Creat|
|00003390| 69 6e 67 20 25 73 2e 2e | 2e 64 6f 6e 65 22 20 65 |ing %s..|.done" e|
|000033a0| 72 72 6f 72 20 22 46 6f | 6c 64 65 72 20 25 73 20 |rror "Fo|lder %s |
|000033b0| 69 73 20 6e 6f 74 20 63 | 72 65 61 74 65 64 22 20 |is not c|reated" |
|000033c0| 61 73 73 6f 63 20 22 2f | 22 5d 20 38 5d 5d 20 33 |assoc "/|"] 8]] 3|
|000033d0| 29 0a 28 64 65 66 76 61 | 72 20 6d 68 2d 6d 61 6b |).(defva|r mh-mak|
|000033e0| 65 2d 66 6f 6c 64 65 72 | 2d 6c 69 73 74 2d 70 72 |e-folder|-list-pr|
|000033f0| 6f 63 65 73 73 20 6e 69 | 6c 20 22 5c 0a 54 68 65 |ocess ni|l "\.The|
|00003400| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 70 72 6f 63 | backgro|und proc|
|00003410| 65 73 73 20 63 6f 6c 6c | 65 63 74 69 6e 67 20 74 |ess coll|ecting t|
|00003420| 68 65 20 66 6f 6c 64 65 | 72 20 6c 69 73 74 2e 22 |he folde|r list."|
|00003430| 29 0a 28 64 65 66 76 61 | 72 20 6d 68 2d 66 6f 6c |).(defva|r mh-fol|
|00003440| 64 65 72 2d 6c 69 73 74 | 2d 74 65 6d 70 20 6e 69 |der-list|-temp ni|
|00003450| 6c 20 22 5c 0a 6d 68 2d | 66 6f 6c 64 65 72 2d 6c |l "\.mh-|folder-l|
|00003460| 69 73 74 20 61 73 20 69 | 74 20 69 73 20 62 65 69 |ist as i|t is bei|
|00003470| 6e 67 20 62 75 69 6c 74 | 2e 22 29 0a 28 64 65 66 |ng built|.").(def|
|00003480| 76 61 72 20 6d 68 2d 66 | 6f 6c 64 65 72 2d 6c 69 |var mh-f|older-li|
|00003490| 73 74 2d 70 61 72 74 69 | 61 6c 2d 6c 69 6e 65 20 |st-parti|al-line |
|000034a0| 22 22 20 22 5c 0a 53 74 | 61 72 74 20 6f 66 20 6c |"" "\.St|art of l|
|000034b0| 61 73 74 20 69 6e 63 6f | 6d 70 6c 65 74 65 20 6c |ast inco|mplete l|
|000034c0| 69 6e 65 20 66 72 6f 6d | 20 66 6f 6c 64 65 72 20 |ine from| folder |
|000034d0| 70 72 6f 63 65 73 73 2e | 22 29 0a 28 64 65 66 61 |process.|").(defa|
|000034e0| 6c 69 61 73 20 27 6d 68 | 2d 73 65 74 2d 66 6f 6c |lias 'mh|-set-fol|
|000034f0| 64 65 72 2d 6c 69 73 74 | 20 23 5b 6e 69 6c 20 22 |der-list| #[nil "|
|00003500| c0 c1 21 88 5c 6e 84 0b | 00 c3 20 88 c4 5c 6e 21 |..!.\n..|.. ..\n!|
|00003510| c5 3d 83 1a 00 c6 5c 6e | 21 88 82 0b 00 0e 07 16 |.=....\n|!.......|
|00003520| 08 c9 16 07 ca 5c 6e 21 | 88 c9 12 c0 cb 21 87 22 |.....\n!|.....!."|
|00003530| 20 5b 6d 65 73 73 61 67 | 65 20 22 43 6f 6c 6c 65 | [messag|e "Colle|
|00003540| 63 74 69 6e 67 20 66 6f | 6c 64 65 72 20 6e 61 6d |cting fo|lder nam|
|00003550| 65 73 2e 2e 2e 22 20 6d | 68 2d 6d 61 6b 65 2d 66 |es..." m|h-make-f|
|00003560| 6f 6c 64 65 72 2d 6c 69 | 73 74 2d 70 72 6f 63 65 |older-li|st-proce|
|00003570| 73 73 20 6d 68 2d 6d 61 | 6b 65 2d 66 6f 6c 64 65 |ss mh-ma|ke-folde|
|00003580| 72 2d 6c 69 73 74 2d 62 | 61 63 6b 67 72 6f 75 6e |r-list-b|ackgroun|
|00003590| 64 20 70 72 6f 63 65 73 | 73 2d 73 74 61 74 75 73 |d proces|s-status|
|000035a0| 20 72 75 6e 20 61 63 63 | 65 70 74 2d 70 72 6f 63 | run acc|ept-proc|
|000035b0| 65 73 73 2d 6f 75 74 70 | 75 74 20 6d 68 2d 66 6f |ess-outp|ut mh-fo|
|000035c0| 6c 64 65 72 2d 6c 69 73 | 74 2d 74 65 6d 70 20 6d |lder-lis|t-temp m|
|000035d0| 68 2d 66 6f 6c 64 65 72 | 2d 6c 69 73 74 20 6e 69 |h-folder|-list ni|
|000035e0| 6c 20 64 65 6c 65 74 65 | 2d 70 72 6f 63 65 73 73 |l delete|-process|
|000035f0| 20 22 43 6f 6c 6c 65 63 | 74 69 6e 67 20 66 6f 6c | "Collec|ting fol|
|00003600| 64 65 72 20 6e 61 6d 65 | 73 2e 2e 2e 64 6f 6e 65 |der name|s...done|
|00003610| 22 5d 20 32 20 22 5c 0a | 53 65 74 73 20 6d 68 2d |"] 2 "\.|Sets mh-|
|00003620| 66 6f 6c 64 65 72 2d 6c | 69 73 74 20 63 6f 72 72 |folder-l|ist corr|
|00003630| 65 63 74 6c 79 2e 0a 41 | 20 75 73 65 66 75 6c 20 |ectly..A| useful |
|00003640| 66 75 6e 63 74 69 6f 6e | 20 66 6f 72 20 74 68 65 |function| for the|
|00003650| 20 63 6f 6d 6d 61 6e 64 | 20 6c 69 6e 65 20 6f 72 | command| line or|
|00003660| 20 66 6f 72 20 77 68 65 | 6e 20 79 6f 75 20 6e 65 | for whe|n you ne|
|00003670| 65 64 20 74 6f 20 73 79 | 6e 63 20 62 79 20 68 61 |ed to sy|nc by ha|
|00003680| 6e 64 2e 0a 46 6f 72 6d | 61 74 20 69 73 20 69 6e |nd..Form|at is in|
|00003690| 20 61 20 66 6f 72 6d 20 | 73 75 69 74 61 62 6c 65 | a form |suitable|
|000036a0| 20 66 6f 72 20 63 6f 6d | 70 6c 65 74 69 6e 67 20 | for com|pleting |
|000036b0| 72 65 61 64 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |read."])|.(defali|
|000036c0| 61 73 20 27 6d 68 2d 6d | 61 6b 65 2d 66 6f 6c 64 |as 'mh-m|ake-fold|
|000036d0| 65 72 2d 6c 69 73 74 2d | 62 61 63 6b 67 72 6f 75 |er-list-|backgrou|
|000036e0| 6e 64 20 23 5b 6e 69 6c | 20 22 08 3f 85 28 00 c1 |nd #[nil| ".?.(..|
|000036f0| 20 88 c2 1b c4 c5 c2 c6 | c5 0e 07 5c 22 c8 0e 09 | .......|...\"...|
|00003700| 83 1c 00 ca 82 1d 00 cb | 25 10 cc 08 cd 5c 22 88 |........|%....\".|
|00003710| ce 08 21 29 87 22 20 5b | 6d 68 2d 6d 61 6b 65 2d |..!)." [|mh-make-|
|00003720| 66 6f 6c 64 65 72 2d 6c | 69 73 74 2d 70 72 6f 63 |folder-l|ist-proc|
|00003730| 65 73 73 20 6d 68 2d 66 | 69 6e 64 2d 70 72 6f 67 |ess mh-f|ind-prog|
|00003740| 73 20 6e 69 6c 20 70 72 | 6f 63 65 73 73 2d 63 6f |s nil pr|ocess-co|
|00003750| 6e 6e 65 63 74 69 6f 6e | 2d 74 79 70 65 20 73 74 |nnection|-type st|
|00003760| 61 72 74 2d 70 72 6f 63 | 65 73 73 20 22 66 6f 6c |art-proc|ess "fol|
|00003770| 64 65 72 73 22 20 65 78 | 70 61 6e 64 2d 66 69 6c |ders" ex|pand-fil|
|00003780| 65 2d 6e 61 6d 65 20 6d | 68 2d 70 72 6f 67 73 20 |e-name m|h-progs |
|00003790| 22 2d 66 61 73 74 22 20 | 6d 68 2d 72 65 63 75 72 |"-fast" |mh-recur|
|000037a0| 73 69 76 65 2d 66 6f 6c | 64 65 72 73 20 22 2d 72 |sive-fol|ders "-r|
|000037b0| 65 63 75 72 73 65 22 20 | 22 2d 6e 6f 72 65 63 75 |ecurse" |"-norecu|
|000037c0| 72 73 65 22 20 73 65 74 | 2d 70 72 6f 63 65 73 73 |rse" set|-process|
|000037d0| 2d 66 69 6c 74 65 72 20 | 6d 68 2d 6d 61 6b 65 2d |-filter |mh-make-|
|000037e0| 66 6f 6c 64 65 72 2d 6c | 69 73 74 2d 66 69 6c 74 |folder-l|ist-filt|
|000037f0| 65 72 20 70 72 6f 63 65 | 73 73 2d 6b 69 6c 6c 2d |er proce|ss-kill-|
|00003800| 77 69 74 68 6f 75 74 2d | 71 75 65 72 79 5d 20 36 |without-|query] 6|
|00003810| 20 22 5c 0a 53 74 61 72 | 74 20 61 20 62 61 63 6b | "\.Star|t a back|
|00003820| 67 72 6f 75 6e 64 20 70 | 72 6f 63 65 73 73 20 74 |ground p|rocess t|
|00003830| 6f 20 63 6f 6d 70 75 74 | 65 20 61 20 6c 69 73 74 |o comput|e a list|
|00003840| 20 6f 66 20 74 68 65 20 | 75 73 65 72 27 73 20 66 | of the |user's f|
|00003850| 6f 6c 64 65 72 73 2e 0a | 43 61 6c 6c 20 6d 68 2d |olders..|Call mh-|
|00003860| 73 65 74 2d 66 6f 6c 64 | 65 72 2d 6c 69 73 74 20 |set-fold|er-list |
|00003870| 74 6f 20 77 61 69 74 20 | 66 6f 72 20 74 68 65 20 |to wait |for the |
|00003880| 72 65 73 75 6c 74 2e 22 | 5d 29 0a 28 62 79 74 65 |result."|]).(byte|
|00003890| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|000038a0| 5c 22 88 c0 c5 c6 5c 22 | 88 c0 c7 c8 5c 22 88 c0 |\"....\"|....\"..|
|000038b0| c9 ca 5c 22 88 c0 cb cc | 5c 22 88 c0 cd ce 5c 22 |..\"....|\"....\"|
|000038c0| 88 c0 cf d0 5c 22 88 c0 | d1 d2 5c 22 88 c0 d3 d4 |....\"..|..\"....|
|000038d0| 5c 22 87 22 20 5b 64 65 | 66 61 6c 69 61 73 20 6d |\"." [de|falias m|
|000038e0| 68 2d 6d 61 6b 65 2d 66 | 6f 6c 64 65 72 2d 6c 69 |h-make-f|older-li|
|000038f0| 73 74 2d 66 69 6c 74 65 | 72 20 23 5b 28 70 72 6f |st-filte|r #[(pro|
|00003900| 63 65 73 73 20 6f 75 74 | 70 75 74 29 20 22 c0 c1 |cess out|put) "..|
|00003910| c2 1b 1c 1d 5c 66 83 56 | 00 c6 c7 0e 08 0d 23 89 |....\f.V|......#.|
|00003920| 14 83 06 00 c9 ca 0e 0b | 0e 08 0d 5c 66 4f 23 13 |........|...\fO#.|
|00003930| cc 16 0b 0e 0d 83 49 00 | c6 ce 0e 0d 40 40 cf 50 |......I.|....@@.P|
|00003940| 21 0b 5c 22 83 49 00 0b | 43 0e 0d 40 40 cf 50 43 |!.\".I..|C..@@.PC|
|00003950| 0e 0d 41 42 42 16 0d 82 | 50 00 0b 43 0e 0d 42 16 |..ABB...|P..C..B.|
|00003960| 0d 5c 66 54 15 82 06 00 | 0e 08 0d c2 4f 89 16 0b |.\fT....|....O...|
|00003970| 2b 87 22 20 5b 30 20 74 | 20 6e 69 6c 20 6e 65 77 |+." [0 t| nil new|
|00003980| 2d 66 6f 6c 64 65 72 20 | 6c 69 6e 65 2d 65 6e 64 |-folder |line-end|
|00003990| 20 70 6f 73 69 74 69 6f | 6e 20 73 74 72 69 6e 67 | positio|n string|
|000039a0| 2d 6d 61 74 63 68 20 22 | 5c 6e 22 20 6f 75 74 70 |-match "|\n" outp|
|000039b0| 75 74 20 66 6f 72 6d 61 | 74 20 22 2b 25 73 25 73 |ut forma|t "+%s%s|
|000039c0| 22 20 6d 68 2d 66 6f 6c | 64 65 72 2d 6c 69 73 74 |" mh-fol|der-list|
|000039d0| 2d 70 61 72 74 69 61 6c | 2d 6c 69 6e 65 20 22 22 |-partial|-line ""|
|000039e0| 20 6d 68 2d 66 6f 6c 64 | 65 72 2d 6c 69 73 74 2d | mh-fold|er-list-|
|000039f0| 74 65 6d 70 20 72 65 67 | 65 78 70 2d 71 75 6f 74 |temp reg|exp-quot|
|00003a00| 65 20 22 2f 22 5d 20 37 | 5d 20 6d 68 2d 66 6f 6c |e "/"] 7|] mh-fol|
|00003a10| 64 65 72 2d 6e 61 6d 65 | 2d 70 20 23 5b 28 6e 61 |der-name|-p #[(na|
|00003a20| 6d 65 29 20 22 08 39 83 | 0d 00 c1 08 21 c2 48 c3 |me) ".9.|....!.H.|
|00003a30| 3d 87 08 47 c2 56 85 19 | 00 08 c2 48 c3 3d 87 22 |=..G.V..|...H.=."|
|00003a40| 20 5b 6e 61 6d 65 20 73 | 79 6d 62 6f 6c 2d 6e 61 | [name s|ymbol-na|
|00003a50| 6d 65 20 30 20 34 33 5d | 20 32 5d 20 6d 68 2d 65 |me 0 43]| 2] mh-e|
|00003a60| 78 65 63 2d 63 6d 64 20 | 23 5b 28 63 6f 6d 6d 61 |xec-cmd |#[(comma|
|00003a70| 6e 64 20 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |nd &rest| args) "|
|00003a80| 8a c0 c1 21 71 88 c2 20 | 88 c3 c4 c5 0e 06 0e 07 |...!q.. |........|
|00003a90| 5c 22 c8 c9 c8 ca 0e 0b | 21 26 06 88 cc 20 cd 56 |\"......|!&... .V|
|00003aa0| 85 24 00 ce 8b 29 87 22 | 20 5b 67 65 74 2d 62 75 |.$...)."| [get-bu|
|00003ab0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 20 2a 6d |ffer-cre|ate " *m|
|00003ac0| 68 2d 74 65 6d 70 2a 22 | 20 65 72 61 73 65 2d 62 |h-temp*"| erase-b|
|00003ad0| 75 66 66 65 72 20 61 70 | 70 6c 79 20 63 61 6c 6c |uffer ap|ply call|
|00003ae0| 2d 70 72 6f 63 65 73 73 | 20 65 78 70 61 6e 64 2d |-process| expand-|
|00003af0| 66 69 6c 65 2d 6e 61 6d | 65 20 63 6f 6d 6d 61 6e |file-nam|e comman|
|00003b00| 64 20 6d 68 2d 70 72 6f | 67 73 20 6e 69 6c 20 74 |d mh-pro|gs nil t|
|00003b10| 20 6d 68 2d 6c 69 73 74 | 2d 74 6f 2d 73 74 72 69 | mh-list|-to-stri|
|00003b20| 6e 67 20 61 72 67 73 20 | 62 75 66 66 65 72 2d 73 |ng args |buffer-s|
|00003b30| 69 7a 65 20 30 20 28 28 | 62 79 74 65 2d 63 6f 64 |ize 0 ((|byte-cod|
|00003b40| 65 20 22 c0 c1 21 88 c2 | c3 21 87 22 20 5b 73 77 |e "..!..|.!." [sw|
|00003b50| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 2d 6f |itch-to-|buffer-o|
|00003b60| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 22 20 2a 6d |ther-win|dow " *m|
|00003b70| 68 2d 74 65 6d 70 2a 22 | 20 73 69 74 2d 66 6f 72 |h-temp*"| sit-for|
|00003b80| 20 35 5d 20 32 29 29 5d | 20 38 5d 20 6d 68 2d 65 | 5] 2))]| 8] mh-e|
|00003b90| 78 65 63 2d 63 6d 64 2d | 65 72 72 6f 72 20 23 5b |xec-cmd-|error #[|
|00003ba0| 28 65 6e 76 20 63 6f 6d | 6d 61 6e 64 20 26 72 65 |(env com|mand &re|
|00003bb0| 73 74 20 61 72 67 73 29 | 20 22 8a c0 c1 21 71 88 |st args)| "...!q.|
|00003bc0| c2 20 88 0b 83 29 00 c4 | c5 c6 c7 c8 c7 c9 ca cb |. ...)..|........|
|00003bd0| 0b cc 0e 0d 0e 0e 5c 22 | 23 0e 0d cf 0e 10 21 26 |......\"|#.....!&|
|00003be0| 09 82 3a 00 c4 c5 cc 0e | 0d 0e 0e 5c 22 c7 c8 c7 |..:.....|...\"...|
|00003bf0| cf 0e 10 21 26 06 1e 11 | d2 0e 0d 0e 11 5c 22 2a |...!&...|.....\"*|
|00003c00| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 2d 63 |." [get-|buffer-c|
|00003c10| 72 65 61 74 65 20 22 20 | 2a 6d 68 2d 74 65 6d 70 |reate " |*mh-temp|
|00003c20| 2a 22 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |*" erase|-buffer |
|00003c30| 65 6e 76 20 61 70 70 6c | 79 20 63 61 6c 6c 2d 70 |env appl|y call-p|
|00003c40| 72 6f 63 65 73 73 20 22 | 2f 62 69 6e 2f 73 68 22 |rocess "|/bin/sh"|
|00003c50| 20 6e 69 6c 20 74 20 22 | 2d 63 22 20 66 6f 72 6d | nil t "|-c" form|
|00003c60| 61 74 20 22 25 73 20 25 | 73 20 24 7b 31 2b 5c 22 |at "%s %|s ${1+\"|
|00003c70| 24 40 5c 22 7d 22 20 65 | 78 70 61 6e 64 2d 66 69 |$@\"}" e|xpand-fi|
|00003c80| 6c 65 2d 6e 61 6d 65 20 | 63 6f 6d 6d 61 6e 64 20 |le-name |command |
|00003c90| 6d 68 2d 70 72 6f 67 73 | 20 6d 68 2d 6c 69 73 74 |mh-progs| mh-list|
|00003ca0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 61 72 67 73 20 |-to-stri|ng args |
|00003cb0| 73 74 61 74 75 73 20 6d | 68 2d 68 61 6e 64 6c 65 |status m|h-handle|
|00003cc0| 2d 70 72 6f 63 65 73 73 | 2d 65 72 72 6f 72 5d 20 |-process|-error] |
|00003cd0| 31 33 5d 20 6d 68 2d 65 | 78 65 63 2d 63 6d 64 2d |13] mh-e|xec-cmd-|
|00003ce0| 64 61 65 6d 6f 6e 20 23 | 5b 28 63 6f 6d 6d 61 6e |daemon #|[(comman|
|00003cf0| 64 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 8a |d &rest |args) ".|
|00003d00| c0 c1 21 71 88 c2 20 88 | 29 c3 1c c5 c6 0e 07 c3 |..!q.. .|).......|
|00003d10| c8 0e 07 0e 09 5c 22 ca | 0e 0b 21 25 1e 5c 66 cd |.....\".|..!%.\f.|
|00003d20| 0e 5c 66 ce 5c 22 2a 87 | 22 20 5b 67 65 74 2d 62 |.\f.\"*.|" [get-b|
|00003d30| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 20 2a |uffer-cr|eate " *|
|00003d40| 6d 68 2d 74 65 6d 70 2a | 22 20 65 72 61 73 65 2d |mh-temp*|" erase-|
|00003d50| 62 75 66 66 65 72 20 6e | 69 6c 20 70 72 6f 63 65 |buffer n|il proce|
|00003d60| 73 73 2d 63 6f 6e 6e 65 | 63 74 69 6f 6e 2d 74 79 |ss-conne|ction-ty|
|00003d70| 70 65 20 61 70 70 6c 79 | 20 73 74 61 72 74 2d 70 |pe apply| start-p|
|00003d80| 72 6f 63 65 73 73 20 63 | 6f 6d 6d 61 6e 64 20 65 |rocess c|ommand e|
|00003d90| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00003da0| 6d 68 2d 70 72 6f 67 73 | 20 6d 68 2d 6c 69 73 74 |mh-progs| mh-list|
|00003db0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 61 72 67 73 20 |-to-stri|ng args |
|00003dc0| 70 72 6f 63 65 73 73 20 | 73 65 74 2d 70 72 6f 63 |process |set-proc|
|00003dd0| 65 73 73 2d 66 69 6c 74 | 65 72 20 6d 68 2d 70 72 |ess-filt|er mh-pr|
|00003de0| 6f 63 65 73 73 2d 64 61 | 65 6d 6f 6e 5d 20 37 5d |ocess-da|emon] 7]|
|00003df0| 20 6d 68 2d 70 72 6f 63 | 65 73 73 2d 64 61 65 6d | mh-proc|ess-daem|
|00003e00| 6f 6e 20 23 5b 28 70 72 | 6f 63 65 73 73 20 6f 75 |on #[(pr|ocess ou|
|00003e10| 74 70 75 74 29 20 22 c0 | c1 21 71 88 c2 0b 21 88 |tput) ".|.!q...!.|
|00003e20| c4 c1 21 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |..!." [g|et-buffe|
|00003e30| 72 2d 63 72 65 61 74 65 | 20 22 20 2a 6d 68 2d 74 |r-create| " *mh-t|
|00003e40| 65 6d 70 2a 22 20 69 6e | 73 65 72 74 2d 62 65 66 |emp*" in|sert-bef|
|00003e50| 6f 72 65 2d 6d 61 72 6b | 65 72 73 20 6f 75 74 70 |ore-mark|ers outp|
|00003e60| 75 74 20 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |ut displ|ay-buffe|
|00003e70| 72 5d 20 32 5d 20 6d 68 | 2d 65 78 65 63 2d 63 6d |r] 2] mh|-exec-cm|
|00003e80| 64 2d 71 75 69 65 74 20 | 23 5b 28 72 61 69 73 65 |d-quiet |#[(raise|
|00003e90| 2d 65 72 72 6f 72 20 63 | 6f 6d 6d 61 6e 64 20 26 |-error c|ommand &|
|00003ea0| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 c1 21 71 |rest arg|s) "..!q|
|00003eb0| 88 c2 20 88 c3 c4 c5 0e | 06 0e 07 5c 22 c8 c9 c8 |.. .....|...\"...|
|00003ec0| 0e 5c 6e 26 06 1e 0b 65 | 62 88 0e 5c 66 83 2a 00 |.\n&...e|b..\f.*.|
|00003ed0| cd 0e 06 0e 0b 5c 22 82 | 2c 00 0e 0b 29 87 22 20 |.....\".|,...)." |
|00003ee0| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |[get-buf|fer-crea|
|00003ef0| 74 65 20 22 20 2a 6d 68 | 2d 74 65 6d 70 2a 22 20 |te " *mh|-temp*" |
|00003f00| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 61 70 70 |erase-bu|ffer app|
|00003f10| 6c 79 20 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 20 |ly call-|process |
|00003f20| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00003f30| 20 63 6f 6d 6d 61 6e 64 | 20 6d 68 2d 70 72 6f 67 | command| mh-prog|
|00003f40| 73 20 6e 69 6c 20 74 20 | 61 72 67 73 20 76 61 6c |s nil t |args val|
|00003f50| 75 65 20 72 61 69 73 65 | 2d 65 72 72 6f 72 20 6d |ue raise|-error m|
|00003f60| 68 2d 68 61 6e 64 6c 65 | 2d 70 72 6f 63 65 73 73 |h-handle|-process|
|00003f70| 2d 65 72 72 6f 72 5d 20 | 37 5d 20 6d 68 2d 65 78 |-error] |7] mh-ex|
|00003f80| 65 63 2d 63 6d 64 2d 6f | 75 74 70 75 74 20 23 5b |ec-cmd-o|utput #[|
|00003f90| 28 63 6f 6d 6d 61 6e 64 | 20 64 69 73 70 6c 61 79 |(command| display|
|00003fa0| 20 26 72 65 73 74 20 61 | 72 67 73 29 20 22 c0 60 | &rest a|rgs) ".`|
|00003fb0| c1 5c 22 88 c2 c3 c4 0d | 0e 06 5c 22 c7 c1 0e 08 |.\".....|..\"....|
|00003fc0| c9 0e 5c 6e 21 26 06 88 | cb 20 87 22 20 5b 70 75 |..\n!&..|. ." [pu|
|00003fd0| 73 68 2d 6d 61 72 6b 20 | 74 20 61 70 70 6c 79 20 |sh-mark |t apply |
|00003fe0| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 65 78 70 |call-pro|cess exp|
|00003ff0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 63 6f |and-file|-name co|
|00004000| 6d 6d 61 6e 64 20 6d 68 | 2d 70 72 6f 67 73 20 6e |mmand mh|-progs n|
|00004010| 69 6c 20 64 69 73 70 6c | 61 79 20 6d 68 2d 6c 69 |il displ|ay mh-li|
|00004020| 73 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 61 72 67 |st-to-st|ring arg|
|00004030| 73 20 65 78 63 68 61 6e | 67 65 2d 70 6f 69 6e 74 |s exchan|ge-point|
|00004040| 2d 61 6e 64 2d 6d 61 72 | 6b 5d 20 38 5d 20 6d 68 |-and-mar|k] 8] mh|
|00004050| 2d 65 78 65 63 2d 6c 69 | 62 2d 63 6d 64 2d 6f 75 |-exec-li|b-cmd-ou|
|00004060| 74 70 75 74 20 23 5b 28 | 63 6f 6d 6d 61 6e 64 20 |tput #[(|command |
|00004070| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 c0 c1 c2 |&rest ar|gs) "...|
|00004080| 0b 5c 66 5c 22 c5 0e 06 | 24 87 22 20 5b 61 70 70 |.\f\"...|$." [app|
|00004090| 6c 79 20 6d 68 2d 65 78 | 65 63 2d 63 6d 64 2d 6f |ly mh-ex|ec-cmd-o|
|000040a0| 75 74 70 75 74 20 65 78 | 70 61 6e 64 2d 66 69 6c |utput ex|pand-fil|
|000040b0| 65 2d 6e 61 6d 65 20 63 | 6f 6d 6d 61 6e 64 20 6d |e-name c|ommand m|
|000040c0| 68 2d 6c 69 62 20 6e 69 | 6c 20 61 72 67 73 5d 20 |h-lib ni|l args] |
|000040d0| 35 5d 20 6d 68 2d 68 61 | 6e 64 6c 65 2d 70 72 6f |5] mh-ha|ndle-pro|
|000040e0| 63 65 73 73 2d 65 72 72 | 6f 72 20 23 5b 28 63 6f |cess-err|or #[(co|
|000040f0| 6d 6d 61 6e 64 20 73 74 | 61 74 75 73 29 20 22 08 |mmand st|atus) ".|
|00004100| c1 3d 83 08 00 08 87 08 | 3b 83 15 00 c2 c3 c4 0d |.=......|;.......|
|00004110| 08 23 21 87 c6 20 c1 55 | 83 24 00 c2 c3 c7 0d 08 |.#!.. .U|.$......|
|00004120| 23 21 87 c8 c9 21 88 c6 | 20 ca 20 57 83 40 00 6d |#!...!..| . W.@.m|
|00004130| 83 40 00 c2 cb 89 62 88 | cc 7f 88 60 7b 21 87 cd |.@....b.|...`{!..|
|00004140| 70 21 88 c2 c3 ce 0d 08 | 23 21 87 22 20 5b 73 74 |p!......|#!." [st|
|00004150| 61 74 75 73 20 30 20 65 | 72 72 6f 72 20 66 6f 72 |atus 0 e|rror for|
|00004160| 6d 61 74 20 22 25 73 3a | 20 25 73 22 20 63 6f 6d |mat "%s:| %s" com|
|00004170| 6d 61 6e 64 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |mand buf|fer-size|
|00004180| 20 22 25 73 3a 20 65 78 | 69 74 20 63 6f 64 65 20 | "%s: ex|it code |
|00004190| 25 64 22 20 67 6f 74 6f | 2d 6c 69 6e 65 20 32 20 |%d" goto|-line 2 |
|000041a0| 73 63 72 65 65 6e 2d 77 | 69 64 74 68 20 31 20 6e |screen-w|idth 1 n|
|000041b0| 69 6c 20 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |il displ|ay-buffe|
|000041c0| 72 20 22 25 73 20 66 61 | 69 6c 65 64 20 77 69 74 |r "%s fa|iled wit|
|000041d0| 68 20 73 74 61 74 75 73 | 20 25 64 2e 20 20 53 65 |h status| %d. Se|
|000041e0| 65 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 20 |e error |message |
|000041f0| 69 6e 20 6f 74 68 65 72 | 20 77 69 6e 64 6f 77 2e |in other| window.|
|00004200| 22 5d 20 35 5d 5d 20 33 | 29 0a 28 64 65 66 61 6c |"] 5]] 3|).(defal|
|00004210| 69 61 73 20 27 6d 68 2d | 65 78 70 61 6e 64 2d 66 |ias 'mh-|expand-f|
|00004220| 69 6c 65 2d 6e 61 6d 65 | 20 23 5b 28 66 69 6c 65 |ile-name| #[(file|
|00004230| 6e 61 6d 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 64 |name &op|tional d|
|00004240| 65 66 61 75 6c 74 29 20 | 22 c0 09 21 83 0e 00 c2 |efault) |"..!....|
|00004250| 09 c3 c4 4f 0d 5c 22 87 | c2 09 0e 06 5c 22 87 22 |...O.\".|....\"."|
|00004260| 20 5b 6d 68 2d 66 6f 6c | 64 65 72 2d 6e 61 6d 65 | [mh-fol|der-name|
|00004270| 2d 70 20 66 69 6c 65 6e | 61 6d 65 20 65 78 70 61 |-p filen|ame expa|
|00004280| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 31 20 6e |nd-file-|name 1 n|
|00004290| 69 6c 20 6d 68 2d 75 73 | 65 72 2d 70 61 74 68 20 |il mh-us|er-path |
|000042a0| 64 65 66 61 75 6c 74 5d | 20 34 20 22 5c 0a 4a 75 |default]| 4 "\.Ju|
|000042b0| 73 74 20 6c 69 6b 65 20 | 60 65 78 70 61 6e 64 2d |st like |`expand-|
|000042c0| 66 69 6c 65 2d 6e 61 6d | 65 27 2c 20 62 75 74 20 |file-nam|e', but |
|000042d0| 61 6c 73 6f 20 68 61 6e | 64 6c 65 73 20 4d 48 20 |also han|dles MH |
|000042e0| 66 6f 6c 64 65 72 20 6e | 61 6d 65 73 2e 0a 41 73 |folder n|ames..As|
|000042f0| 73 75 6d 65 73 20 74 68 | 61 74 20 61 6e 79 20 66 |sumes th|at any f|
|00004300| 69 6c 65 6e 61 6d 65 20 | 74 68 61 74 20 73 74 61 |ilename |that sta|
|00004310| 72 74 73 20 77 69 74 68 | 20 27 2b 27 20 69 73 20 |rts with| '+' is |
|00004320| 61 20 66 6f 6c 64 65 72 | 20 6e 61 6d 65 2e 22 5d |a folder| name."]|
|00004330| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00004340| c2 5c 22 88 c0 c3 c4 5c | 22 88 c5 c6 21 88 0e 07 |.\"....\|"...!...|
|00004350| 84 1b 00 0e 08 83 1b 00 | c9 20 88 c0 87 22 20 5b |........|. ..." [|
|00004360| 64 65 66 61 6c 69 61 73 | 20 6d 68 2d 6c 69 73 74 |defalias| mh-list|
|00004370| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 23 5b 28 6c 29 |-to-stri|ng #[(l)|
|00004380| 20 22 c0 09 21 9f 87 22 | 20 5b 6d 68 2d 6c 69 73 | "..!.."| [mh-lis|
|00004390| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 2d 31 20 6c 5d |t-to-str|ing-1 l]|
|000043a0| 20 32 5d 20 6d 68 2d 6c | 69 73 74 2d 74 6f 2d 73 | 2] mh-l|ist-to-s|
|000043b0| 74 72 69 6e 67 2d 31 20 | 23 5b 28 6c 29 20 22 c0 |tring-1 |#[(l) ".|
|000043c0| 19 5c 6e 83 5d 00 5c 6e | 40 83 56 00 5c 6e 40 39 |.\n.].\n|@.V.\n@9|
|000043d0| 83 1b 00 c3 5c 6e 40 21 | 09 42 11 82 56 00 5c 6e |....\n@!|.B..V.\n|
|000043e0| 40 a7 83 2b 00 c4 5c 6e | 40 21 09 42 11 82 56 00 |@..+..\n|@!.B..V.|
|000043f0| 5c 6e 40 c5 9a 84 56 00 | 5c 6e 40 3b 83 40 00 5c |\n@...V.|\n@;.@.\|
|00004400| 6e 40 09 42 11 82 56 00 | 5c 6e 40 3c 83 50 00 c6 |n@.B..V.|\n@<.P..|
|00004410| 5c 6e 40 21 09 a4 11 82 | 56 00 c7 c8 5c 6e 40 5c |\n@!....|V...\n@\|
|00004420| 22 88 5c 6e 41 89 12 84 | 06 00 09 29 87 22 20 5b |".\nA...|...)." [|
|00004430| 6e 69 6c 20 6e 65 77 2d | 6c 69 73 74 20 6c 20 73 |nil new-|list l s|
|00004440| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 69 6e 74 2d 74 |ymbol-na|me int-t|
|00004450| 6f 2d 73 74 72 69 6e 67 | 20 22 22 20 6d 68 2d 6c |o-string| "" mh-l|
|00004460| 69 73 74 2d 74 6f 2d 73 | 74 72 69 6e 67 2d 31 20 |ist-to-s|tring-1 |
|00004470| 65 72 72 6f 72 20 22 42 | 61 64 20 65 6c 65 6d 65 |error "B|ad eleme|
|00004480| 6e 74 20 69 6e 20 6d 68 | 2d 6c 69 73 74 2d 74 6f |nt in mh|-list-to|
|00004490| 2d 73 74 72 69 6e 67 3a | 20 25 73 22 5d 20 34 5d |-string:| %s"] 4]|
|000044a0| 20 70 72 6f 76 69 64 65 | 20 6d 68 2d 75 74 69 6c | provide| mh-util|
|000044b0| 73 20 6e 6f 6e 69 6e 74 | 65 72 61 63 74 69 76 65 |s nonint|eractive|
|000044c0| 20 6d 68 2d 61 75 74 6f | 2d 66 6f 6c 64 65 72 2d | mh-auto|-folder-|
|000044d0| 63 6f 6c 6c 65 63 74 20 | 6d 68 2d 6d 61 6b 65 2d |collect |mh-make-|
|000044e0| 66 6f 6c 64 65 72 2d 6c | 69 73 74 2d 62 61 63 6b |folder-l|ist-back|
|000044f0| 67 72 6f 75 6e 64 5d 20 | 33 29 0a |ground] |3). |
+--------+-------------------------+-------------------------+--------+--------+
