home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-03-15 | 3.5 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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 72 20 31 35 20 30 | on Tue |Mar 15 0|
|00000040| 31 3a 34 33 3a 34 36 20 | 31 39 39 34 0a 3b 3b 3b |1:43:46 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6d 68 2d 70 69 63 | 6b 2e 65 6c 0a 3b 3b 3b |p/mh-pic|k.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 38 35 2e | 0a 3b 3b 3b 20 62 79 74 |9.22.85.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|00000190| 72 72 6f 72 20 22 60 2f | 68 6f 6d 65 2f 66 73 66 |rror "`/|home/fsf|
|000001a0| 2f 72 6d 73 2f 65 31 39 | 2f 6c 69 73 70 2f 6d 68 |/rms/e19|/lisp/mh|
|000001b0| 2d 70 69 63 6b 2e 65 6c | 27 20 77 61 73 20 63 6f |-pick.el|' was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 20 31 39 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f | 19"))..|(byte-co|
|000001e0| 64 65 20 22 c0 c1 21 88 | c2 c3 21 87 22 20 5b 70 |de "..!.|..!." [p|
|000001f0| 72 6f 76 69 64 65 20 6d | 68 2d 70 69 63 6b 20 72 |rovide m|h-pick r|
|00000200| 65 71 75 69 72 65 20 6d | 68 2d 65 5d 20 32 29 0a |equire m|h-e] 2).|
|00000210| 28 64 65 66 76 61 72 20 | 6d 68 2d 70 69 63 6b 2d |(defvar |mh-pick-|
|00000220| 6d 6f 64 65 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 |mode-map| (make-s|
|00000230| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 20 22 5c |parse-ke|ymap) "\|
|00000240| 0a 4b 65 79 6d 61 70 20 | 66 6f 72 20 73 65 61 72 |.Keymap |for sear|
|00000250| 63 68 69 6e 67 20 66 6f | 6c 64 65 72 2e 22 29 0a |ching fo|lder.").|
|00000260| 28 64 65 66 76 61 72 20 | 6d 68 2d 70 69 63 6b 2d |(defvar |mh-pick-|
|00000270| 6d 6f 64 65 2d 68 6f 6f | 6b 20 6e 69 6c 20 22 5c |mode-hoo|k nil "\|
|00000280| 0a 49 6e 76 6f 6b 65 64 | 20 69 6e 20 60 6d 68 2d |.Invoked| in `mh-|
|00000290| 70 69 63 6b 2d 6d 6f 64 | 65 27 20 6f 6e 20 61 20 |pick-mod|e' on a |
|000002a0| 6e 65 77 20 70 61 74 74 | 65 72 6e 2e 22 29 0a 28 |new patt|ern.").(|
|000002b0| 64 65 66 76 61 72 20 6d | 68 2d 73 65 61 72 63 68 |defvar m|h-search|
|000002c0| 69 6e 67 2d 66 6f 6c 64 | 65 72 20 6e 69 6c 20 22 |ing-fold|er nil "|
|000002d0| 5c 0a 46 6f 6c 64 65 72 | 20 74 68 69 73 20 70 69 |\.Folder| this pi|
|000002e0| 63 6b 20 69 73 20 73 65 | 61 72 63 68 69 6e 67 2e |ck is se|arching.|
|000002f0| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 68 |").(defa|lias 'mh|
|00000300| 2d 73 65 61 72 63 68 2d | 66 6f 6c 64 65 72 20 23 |-search-|folder #|
|00000310| 5b 28 66 6f 6c 64 65 72 | 29 20 22 c0 c1 21 88 c2 |[(folder|) "..!..|
|00000320| 20 c3 55 84 11 00 c4 c5 | 21 84 17 00 c6 20 88 82 | .U.....|!.... ..|
|00000330| 1b 00 c7 c8 21 88 0e 09 | 89 16 5c 6e 87 22 20 5b |....!...|..\n." [|
|00000340| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00000350| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 22 70 |-other-w|indow "p|
|00000360| 69 63 6b 2d 70 61 74 74 | 65 72 6e 22 20 62 75 66 |ick-patt|ern" buf|
|00000370| 66 65 72 2d 73 69 7a 65 | 20 30 20 79 2d 6f 72 2d |fer-size| 0 y-or-|
|00000380| 6e 2d 70 20 22 52 65 75 | 73 65 20 70 61 74 74 65 |n-p "Reu|se patte|
|00000390| 72 6e 3f 20 22 20 6d 68 | 2d 6d 61 6b 65 2d 70 69 |rn? " mh|-make-pi|
|000003a0| 63 6b 2d 74 65 6d 70 6c | 61 74 65 20 6d 65 73 73 |ck-templ|ate mess|
|000003b0| 61 67 65 20 22 22 20 66 | 6f 6c 64 65 72 20 6d 68 |age "" f|older mh|
|000003c0| 2d 73 65 61 72 63 68 69 | 6e 67 2d 66 6f 6c 64 65 |-searchi|ng-folde|
|000003d0| 72 5d 20 32 20 22 5c 0a | 53 65 61 72 63 68 20 46 |r] 2 "\.|Search F|
|000003e0| 4f 4c 44 45 52 20 66 6f | 72 20 6d 65 73 73 61 67 |OLDER fo|r messag|
|000003f0| 65 73 20 6d 61 74 63 68 | 69 6e 67 20 61 20 70 61 |es match|ing a pa|
|00000400| 74 74 65 72 6e 2e 22 20 | 28 6c 69 73 74 20 28 6d |ttern." |(list (m|
|00000410| 68 2d 70 72 6f 6d 70 74 | 2d 66 6f 72 2d 66 6f 6c |h-prompt|-for-fol|
|00000420| 64 65 72 20 22 53 65 61 | 72 63 68 22 20 6d 68 2d |der "Sea|rch" mh-|
|00000430| 63 75 72 72 65 6e 74 2d | 66 6f 6c 64 65 72 20 74 |current-|folder t|
|00000440| 29 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))]).(by|te-code |
|00000450| 22 c0 c1 c2 5c 22 88 c3 | c4 c5 c6 23 87 22 20 5b |"...\"..|...#." [|
|00000460| 64 65 66 61 6c 69 61 73 | 20 6d 68 2d 6d 61 6b 65 |defalias| mh-make|
|00000470| 2d 70 69 63 6b 2d 74 65 | 6d 70 6c 61 74 65 20 23 |-pick-te|mplate #|
|00000480| 5b 6e 69 6c 20 22 c0 20 | 88 c1 c2 c3 c4 c5 c6 b1 |[nil ". |........|
|00000490| 06 88 c7 20 88 65 62 88 | c8 7f 87 22 20 5b 65 72 |... .eb.|..." [er|
|000004a0| 61 73 65 2d 62 75 66 66 | 65 72 20 22 46 72 6f 6d |ase-buff|er "From|
|000004b0| 3a 20 5c 6e 22 20 22 54 | 6f 3a 20 5c 6e 22 20 22 |: \n" "T|o: \n" "|
|000004c0| 43 63 3a 20 5c 6e 22 20 | 22 44 61 74 65 3a 20 5c |Cc: \n" |"Date: \|
|000004d0| 6e 22 20 22 53 75 62 6a | 65 63 74 3a 20 5c 6e 22 |n" "Subj|ect: \n"|
|000004e0| 20 22 2d 2d 2d 2d 2d 2d | 2d 2d 2d 5c 6e 22 20 6d | "------|---\n" m|
|000004f0| 68 2d 70 69 63 6b 2d 6d | 6f 64 65 20 6e 69 6c 5d |h-pick-m|ode nil]|
|00000500| 20 36 5d 20 70 75 74 20 | 6d 68 2d 70 69 63 6b 2d | 6] put |mh-pick-|
|00000510| 6d 6f 64 65 20 6d 6f 64 | 65 2d 63 6c 61 73 73 20 |mode mod|e-class |
|00000520| 73 70 65 63 69 61 6c 5d | 20 34 29 0a 28 64 65 66 |special]| 4).(def|
|00000530| 61 6c 69 61 73 20 27 6d | 68 2d 70 69 63 6b 2d 6d |alias 'm|h-pick-m|
|00000540| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 c2 |ode #[ni|l ". ...|
|00000550| 21 88 c3 5c 66 21 88 c5 | 16 06 c7 c8 21 88 c9 ca |!..\f!..|....!...|
|00000560| 21 87 22 20 5b 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f |!." [kil|l-all-lo|
|00000570| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 20 6d 61 |cal-vari|ables ma|
|00000580| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00000590| 65 20 6d 68 2d 73 65 61 | 72 63 68 69 6e 67 2d 66 |e mh-sea|rching-f|
|000005a0| 6f 6c 64 65 72 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |older us|e-local-|
|000005b0| 6d 61 70 20 6d 68 2d 70 | 69 63 6b 2d 6d 6f 64 65 |map mh-p|ick-mode|
|000005c0| 2d 6d 61 70 20 6d 68 2d | 70 69 63 6b 2d 6d 6f 64 |-map mh-|pick-mod|
|000005d0| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 6d 68 2d |e major-|mode mh-|
|000005e0| 73 65 74 2d 6d 6f 64 65 | 2d 6e 61 6d 65 20 22 4d |set-mode|-name "M|
|000005f0| 48 2d 50 69 63 6b 22 20 | 72 75 6e 2d 68 6f 6f 6b |H-Pick" |run-hook|
|00000600| 73 20 6d 68 2d 70 69 63 | 6b 2d 6d 6f 64 65 2d 68 |s mh-pic|k-mode-h|
|00000610| 6f 6f 6b 5d 20 32 20 22 | 5c 0a 4d 6f 64 65 20 66 |ook] 2 "|\.Mode f|
|00000620| 6f 72 20 63 72 65 61 74 | 69 6e 67 20 73 65 61 72 |or creat|ing sear|
|00000630| 63 68 20 74 65 6d 70 6c | 61 74 65 73 20 69 6e 20 |ch templ|ates in |
|00000640| 6d 68 2d 65 2e 5c 5c 3c | 6d 68 2d 70 69 63 6b 2d |mh-e.\\<|mh-pick-|
|00000650| 6d 6f 64 65 2d 6d 61 70 | 3e 0a 41 66 74 65 72 20 |mode-map|>.After |
|00000660| 65 61 63 68 20 66 69 65 | 6c 64 20 6e 61 6d 65 2c |each fie|ld name,|
|00000670| 20 65 6e 74 65 72 20 74 | 68 65 20 70 61 74 74 65 | enter t|he patte|
|00000680| 72 6e 20 74 6f 20 73 65 | 61 72 63 68 20 66 6f 72 |rn to se|arch for|
|00000690| 2e 20 20 54 6f 20 73 65 | 61 72 63 68 0a 74 68 65 |. To se|arch.the|
|000006a0| 20 65 6e 74 69 72 65 20 | 6d 65 73 73 61 67 65 2c | entire |message,|
|000006b0| 20 73 75 70 70 6c 79 20 | 74 68 65 20 70 61 74 74 | supply |the patt|
|000006c0| 65 72 6e 20 69 6e 20 74 | 68 65 20 5c 22 62 6f 64 |ern in t|he \"bod|
|000006d0| 79 5c 22 20 6f 66 20 74 | 68 65 20 74 65 6d 70 6c |y\" of t|he templ|
|000006e0| 61 74 65 2e 0a 57 68 65 | 6e 20 79 6f 75 20 68 61 |ate..Whe|n you ha|
|000006f0| 76 65 20 66 69 6e 69 73 | 68 65 64 2c 20 74 79 70 |ve finis|hed, typ|
|00000700| 65 20 20 5c 5c 5b 6d 68 | 2d 64 6f 2d 70 69 63 6b |e \\[mh|-do-pick|
|00000710| 2d 73 65 61 72 63 68 5d | 20 20 74 6f 20 64 6f 20 |-search]| to do |
|00000720| 74 68 65 20 73 65 61 72 | 63 68 2e 0a 5c 5c 7b 6d |the sear|ch..\\{m|
|00000730| 68 2d 70 69 63 6b 2d 6d | 6f 64 65 2d 6d 61 70 7d |h-pick-m|ode-map}|
|00000740| 0a 54 75 72 6e 69 6e 67 | 20 6f 6e 20 6d 68 2d 70 |.Turning| on mh-p|
|00000750| 69 63 6b 2d 6d 6f 64 65 | 20 63 61 6c 6c 73 20 74 |ick-mode| calls t|
|00000760| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|00000770| 76 61 72 69 61 62 6c 65 | 20 6d 68 2d 70 69 63 6b |variable| mh-pick|
|00000780| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 0a 69 66 20 74 68 |-mode-ho|ok.if th|
|00000790| 61 74 20 76 61 6c 75 65 | 20 69 73 20 6e 6f 6e 2d |at value| is non-|
|000007a0| 6e 69 6c 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |nil." ni|l]).(def|
|000007b0| 61 6c 69 61 73 20 27 6d | 68 2d 64 6f 2d 70 69 63 |alias 'm|h-do-pic|
|000007c0| 6b 2d 73 65 61 72 63 68 | 20 23 5b 6e 69 6c 20 22 |k-search| #[nil "|
|000007d0| c0 20 09 c2 89 89 89 1b | 1c 1d 1e 06 1e 07 1e 08 |. ......|........|
|000007e0| 8a c9 0e 07 21 83 28 00 | 0e 07 71 88 ca cb 0e 5c |....!.(.|..q....\|
|000007f0| 66 0e 0d 23 16 06 82 32 | 00 ce 0e 07 21 88 cf 16 |f..#...2|....!...|
|00000800| 06 d0 13 29 d1 d2 21 88 | 65 62 88 d3 0e 08 21 89 |...)..!.|eb....!.|
|00000810| 14 83 5c 5c 00 d4 0e 07 | d5 d6 5c 66 42 0e 07 0e |..\\....|..\fB...|
|00000820| 06 d7 d8 d9 af 05 a4 23 | 15 d8 16 06 82 3a 00 d1 |.......#|.....:..|
|00000830| da 21 88 0b 83 6d 00 db | 0e 07 0d 5c 22 88 82 72 |.!...m..|...\"..r|
|00000840| 00 dc 0e 07 21 88 dd 20 | 88 de d5 df 0e 20 54 23 |....!.. |..... T#|
|00000850| 2e 06 87 22 20 5b 62 75 | 66 66 65 72 2d 6e 61 6d |..." [bu|ffer-nam|
|00000860| 65 20 6d 68 2d 73 65 61 | 72 63 68 69 6e 67 2d 66 |e mh-sea|rching-f|
|00000870| 6f 6c 64 65 72 20 6e 69 | 6c 20 6e 65 77 2d 62 75 |older ni|l new-bu|
|00000880| 66 66 65 72 20 70 61 74 | 74 65 72 6e 20 6d 73 67 |ffer pat|tern msg|
|00000890| 73 20 72 61 6e 67 65 20 | 73 65 61 72 63 68 69 6e |s range |searchin|
|000008a0| 67 2d 62 75 66 66 65 72 | 20 70 61 74 74 65 72 6e |g-buffer| pattern|
|000008b0| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|000008c0| 65 72 20 66 6f 72 6d 61 | 74 20 22 25 64 2d 25 64 |er forma|t "%d-%d|
|000008d0| 22 20 6d 68 2d 66 69 72 | 73 74 2d 6d 73 67 2d 6e |" mh-fir|st-msg-n|
|000008e0| 75 6d 20 6d 68 2d 6c 61 | 73 74 2d 6d 73 67 2d 6e |um mh-la|st-msg-n|
|000008f0| 75 6d 20 6d 68 2d 6d 61 | 6b 65 2d 66 6f 6c 64 65 |um mh-ma|ke-folde|
|00000900| 72 20 22 61 6c 6c 22 20 | 74 20 6d 65 73 73 61 67 |r "all" |t messag|
|00000910| 65 20 22 53 65 61 72 63 | 68 69 6e 67 2e 2e 2e 22 |e "Searc|hing..."|
|00000920| 20 6d 68 2d 6e 65 78 74 | 2d 70 69 63 6b 2d 66 69 | mh-next|-pick-fi|
|00000930| 65 6c 64 20 6d 68 2d 73 | 65 71 2d 66 72 6f 6d 2d |eld mh-s|eq-from-|
|00000940| 63 6f 6d 6d 61 6e 64 20 | 73 65 61 72 63 68 20 22 |command |search "|
|00000950| 70 69 63 6b 22 20 22 2d | 73 65 71 75 65 6e 63 65 |pick" "-|sequence|
|00000960| 22 20 22 73 65 61 72 63 | 68 22 20 22 2d 6c 69 73 |" "searc|h" "-lis|
|00000970| 74 22 20 22 53 65 61 72 | 63 68 69 6e 67 2e 2e 2e |t" "Sear|ching...|
|00000980| 64 6f 6e 65 22 20 6d 68 | 2d 73 63 61 6e 2d 66 6f |done" mh|-scan-fo|
|00000990| 6c 64 65 72 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |lder swi|tch-to-b|
|000009a0| 75 66 66 65 72 20 64 65 | 6c 65 74 65 2d 6f 74 68 |uffer de|lete-oth|
|000009b0| 65 72 2d 77 69 6e 64 6f | 77 73 20 6d 68 2d 6e 6f |er-windo|ws mh-no|
|000009c0| 74 61 74 65 2d 73 65 71 | 20 33 37 20 6d 68 2d 63 |tate-seq| 37 mh-c|
|000009d0| 6d 64 2d 6e 6f 74 65 5d | 20 39 20 22 5c 0a 46 69 |md-note]| 9 "\.Fi|
|000009e0| 6e 64 20 6d 65 73 73 61 | 67 65 73 20 74 68 61 74 |nd messa|ges that|
|000009f0| 20 6d 61 74 63 68 20 74 | 68 65 20 71 75 61 6c 69 | match t|he quali|
|00000a00| 66 69 63 61 74 69 6f 6e | 73 20 69 6e 20 74 68 65 |fication|s in the|
|00000a10| 20 63 75 72 72 65 6e 74 | 20 70 61 74 74 65 72 6e | current| pattern|
|00000a20| 20 62 75 66 66 65 72 2e | 0a 4d 65 73 73 61 67 65 | buffer.|.Message|
|00000a30| 73 20 61 72 65 20 73 65 | 61 72 63 68 65 64 20 66 |s are se|arched f|
|00000a40| 6f 72 20 69 6e 20 74 68 | 65 20 66 6f 6c 64 65 72 |or in th|e folder|
|00000a50| 20 6e 61 6d 65 64 20 69 | 6e 20 6d 68 2d 73 65 61 | named i|n mh-sea|
|00000a60| 72 63 68 69 6e 67 2d 66 | 6f 6c 64 65 72 2e 0a 41 |rching-f|older..A|
|00000a70| 64 64 20 6d 65 73 73 61 | 67 65 73 20 66 6f 75 6e |dd messa|ges foun|
|00000a80| 64 20 74 6f 20 74 68 65 | 20 73 65 71 75 65 6e 63 |d to the| sequenc|
|00000a90| 65 20 6e 61 6d 65 64 20 | 60 73 65 61 72 63 68 27 |e named |`search'|
|00000aa0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 62 79 74 65 2d 63 |." nil])|.(byte-c|
|00000ab0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00000ac0| 88 c5 0e 06 c7 c8 23 88 | c5 0e 06 c9 ca 23 88 c5 |......#.|.....#..|
|00000ad0| 0e 06 cb ca 23 88 c5 0e | 06 cc ca 23 88 c5 0e 06 |....#...|...#....|
|00000ae0| cd ca 23 88 c5 0e 06 ce | ca 23 88 c5 0e 06 cf ca |..#.....|.#......|
|00000af0| 23 88 c5 0e 06 d0 ca 23 | 88 c5 0e 06 d1 ca 23 88 |#......#|......#.|
|00000b00| c5 0e 06 d2 ca 23 88 c5 | 0e 06 d3 ca 23 88 c5 0e |.....#..|....#...|
|00000b10| 06 d4 d5 23 87 22 20 5b | 64 65 66 61 6c 69 61 73 |...#." [|defalias|
|00000b20| 20 6d 68 2d 73 65 71 2d | 66 72 6f 6d 2d 63 6f 6d | mh-seq-|from-com|
|00000b30| 6d 61 6e 64 20 23 5b 28 | 66 6f 6c 64 65 72 20 73 |mand #[(|folder s|
|00000b40| 65 71 20 73 65 71 2d 63 | 6f 6d 6d 61 6e 64 29 20 |eq seq-c|ommand) |
|00000b50| 22 c0 89 c1 1a 1b 1c 8a | c5 8b 88 0e 06 71 88 0b |".......|.....q..|
|00000b60| 9f 13 c7 0e 08 0b 5c 22 | 0e 09 42 16 09 0b 2c 87 |......\"|..B...,.|
|00000b70| 22 20 5b 6e 69 6c 20 74 | 20 63 61 73 65 2d 66 6f |" [nil t| case-fo|
|00000b80| 6c 64 2d 73 65 61 72 63 | 68 20 6d 73 67 73 20 6d |ld-searc|h msgs m|
|00000b90| 73 67 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |sg ((byt|e-code "|
|00000ba0| c0 c1 c2 0b 23 c4 3d 83 | 20 00 c5 20 40 89 16 06 |....#.=.| .. @...|
|00000bb0| 83 20 00 0e 06 0e 07 42 | 16 07 c8 79 88 82 5c 6e |. .....B|...y..\n|
|00000bc0| 00 c2 87 22 20 5b 61 70 | 70 6c 79 20 6d 68 2d 65 |..." [ap|ply mh-e|
|00000bd0| 78 65 63 2d 63 6d 64 2d | 71 75 69 65 74 20 6e 69 |xec-cmd-|quiet ni|
|00000be0| 6c 20 73 65 71 2d 63 6f | 6d 6d 61 6e 64 20 30 20 |l seq-co|mmand 0 |
|00000bf0| 6d 68 2d 72 65 61 64 2d | 6d 73 67 2d 6c 69 73 74 |mh-read-|msg-list|
|00000c00| 20 6d 73 67 20 6d 73 67 | 73 20 31 5d 20 34 29 29 | msg msg|s 1] 4))|
|00000c10| 20 66 6f 6c 64 65 72 20 | 6d 68 2d 6d 61 6b 65 2d | folder |mh-make-|
|00000c20| 73 65 71 20 73 65 71 20 | 6d 68 2d 73 65 71 2d 6c |seq seq |mh-seq-l|
|00000c30| 69 73 74 5d 20 33 5d 20 | 6d 68 2d 6e 65 78 74 2d |ist] 3] |mh-next-|
|00000c40| 70 69 63 6b 2d 66 69 65 | 6c 64 20 23 5b 28 62 75 |pick-fie|ld #[(bu|
|00000c50| 66 66 65 72 29 20 22 08 | 71 88 c1 1a 6d 83 0d 00 |ffer) ".|q...m...|
|00000c60| c3 82 5b 00 c4 c5 c3 c1 | 23 83 33 00 c6 c7 c8 94 |..[.....|#.3.....|
|00000c70| c8 95 7b 97 5c 22 1e 09 | ca 94 ca 95 7b 1e 0b c8 |..{.\"..|....{...|
|00000c80| 79 88 0e 09 0e 0b 2a 44 | 82 5b 00 c4 cc c3 c1 23 |y.....*D|.[.....#|
|00000c90| 83 5a 00 c8 75 88 60 64 | 7b 89 1e 0d 47 ce 56 85 |.Z..u.`d|{...G.V.|
|00000ca0| 56 00 0e 0d cf 9a 3f 85 | 56 00 d0 0e 0d 44 29 82 |V.....?.|V....D).|
|00000cb0| 5b 00 c3 29 87 22 20 5b | 62 75 66 66 65 72 20 74 |[..)." [|buffer t|
|00000cc0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00000cd0| 68 20 6e 69 6c 20 72 65 | 2d 73 65 61 72 63 68 2d |h nil re|-search-|
|00000ce0| 66 6f 72 77 61 72 64 20 | 22 5e 5c 5c 28 5b 61 2d |forward |"^\\([a-|
|00000cf0| 7a 5d 5b 5e 3a 20 09 5c | 6e 5d 2a 5c 5c 29 3a 5b |z][^: .\|n]*\\):[|
|00000d00| 20 09 5d 2a 5c 5c 28 5b | 61 2d 7a 30 2d 39 5d 2e | .]*\\([|a-z0-9].|
|00000d10| 2a 5c 5c 29 24 22 20 66 | 6f 72 6d 61 74 20 22 2d |*\\)$" f|ormat "-|
|00000d20| 2d 25 73 22 20 31 20 63 | 6f 6d 70 6f 6e 65 6e 74 |-%s" 1 c|omponent|
|00000d30| 20 32 20 70 61 74 20 22 | 5e 2d 2a 24 22 20 62 6f | 2 pat "|^-*$" bo|
|00000d40| 64 79 20 30 20 22 5c 6e | 22 20 22 2d 73 65 61 72 |dy 0 "\n|" "-sear|
|00000d50| 63 68 22 5d 20 35 5d 20 | 64 65 66 69 6e 65 2d 6b |ch"] 5] |define-k|
|00000d60| 65 79 20 6d 68 2d 70 69 | 63 6b 2d 6d 6f 64 65 2d |ey mh-pi|ck-mode-|
|00000d70| 6d 61 70 20 22 03 03 22 | 20 6d 68 2d 64 6f 2d 70 |map ".."| mh-do-p|
|00000d80| 69 63 6b 2d 73 65 61 72 | 63 68 20 22 03 06 02 22 |ick-sear|ch "..."|
|00000d90| 20 6d 68 2d 74 6f 2d 66 | 69 65 6c 64 20 22 03 06 | mh-to-f|ield "..|
|00000da0| 03 22 20 22 03 06 06 22 | 20 22 03 06 13 22 20 22 |." "..."| "..." "|
|00000db0| 03 06 14 22 20 22 03 06 | 62 22 20 22 03 06 63 22 |..." "..|b" "..c"|
|00000dc0| 20 22 03 06 66 22 20 22 | 03 06 73 22 20 22 03 06 | "..f" "|..s" "..|
|00000dd0| 74 22 20 22 03 17 22 20 | 6d 68 2d 63 68 65 63 6b |t" ".." |mh-check|
|00000de0| 2d 77 68 6f 6d 5d 20 34 | 29 0a |-whom] 4|). |
+--------+-------------------------+-------------------------+--------+--------+
