home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 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 |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 33 3a 33 32 3a 31 | 34 20 31 39 39 33 0a 3b | 23:32:1|4 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 6d 61 69 | 6c 2d 75 74 69 6c 73 2e |lisp/mai|l-utils.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 31 35 2e 31 36 2e 0a 3b |sion 19.|15.16..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001a0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 22 |ed for E|macs 19"|
|000001c0| 29 29 0a 0a 28 72 65 71 | 75 69 72 65 20 28 71 75 |))..(req|uire (qu|
|000001d0| 6f 74 65 20 6c 69 73 70 | 2d 6d 6f 64 65 29 29 0a |ote lisp|-mode)).|
|000001e0| 28 64 65 66 76 61 72 20 | 6d 61 69 6c 2d 75 73 65 |(defvar |mail-use|
|000001f0| 2d 72 66 63 38 32 32 20 | 6e 69 6c 20 22 5c 0a 2a |-rfc822 |nil "\.*|
|00000200| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 75 73 65 20 |If non-n|il, use |
|00000210| 61 20 66 75 6c 6c 2c 20 | 68 61 69 72 79 20 52 46 |a full, |hairy RF|
|00000220| 43 38 32 32 20 70 61 72 | 73 65 72 20 6f 6e 20 6d |C822 par|ser on m|
|00000230| 61 69 6c 20 61 64 64 72 | 65 73 73 65 73 2e 0a 4f |ail addr|esses..O|
|00000240| 74 68 65 72 77 69 73 65 | 2c 20 28 74 68 65 20 64 |therwise|, (the d|
|00000250| 65 66 61 75 6c 74 29 20 | 75 73 65 20 61 20 73 6d |efault) |use a sm|
|00000260| 61 6c 6c 65 72 2c 20 73 | 6f 6d 65 77 68 61 74 20 |aller, s|omewhat |
|00000270| 66 61 73 74 65 72 2c 20 | 61 6e 64 0a 6f 66 74 65 |faster, |and.ofte|
|00000280| 6e 20 63 6f 72 72 65 63 | 74 20 70 61 72 73 65 72 |n correc|t parser|
|00000290| 2e 22 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |.").(def|alias 'm|
|000002a0| 61 69 6c 2d 73 74 72 69 | 6e 67 2d 64 65 6c 65 74 |ail-stri|ng-delet|
|000002b0| 65 20 23 5b 28 73 74 72 | 69 6e 67 20 73 74 61 72 |e #[(str|ing star|
|000002c0| 74 20 65 6e 64 29 20 22 | 08 84 09 00 09 c2 0b 4f |t end) "|.......O|
|000002d0| 87 09 c2 0b 4f 09 08 c4 | 4f 50 87 22 20 5b 65 6e |....O...|OP." [en|
|000002e0| 64 20 73 74 72 69 6e 67 | 20 30 20 73 74 61 72 74 |d string| 0 start|
|000002f0| 20 6e 69 6c 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 | nil] 4 |"\.Retur|
|00000300| 6e 73 20 61 20 73 74 72 | 69 6e 67 20 63 6f 6e 74 |ns a str|ing cont|
|00000310| 61 69 6e 69 6e 67 20 61 | 6c 6c 20 6f 66 20 53 54 |aining a|ll of ST|
|00000320| 52 49 4e 47 20 65 78 63 | 65 70 74 20 74 68 65 20 |RING exc|ept the |
|00000330| 70 61 72 74 0a 66 72 6f | 6d 20 53 54 41 52 54 20 |part.fro|m START |
|00000340| 28 69 6e 63 6c 75 73 69 | 76 65 29 20 74 6f 20 45 |(inclusi|ve) to E|
|00000350| 4e 44 20 28 65 78 63 6c | 75 73 69 76 65 29 2e 22 |ND (excl|usive)."|
|00000360| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |]).(defa|lias 'ma|
|00000370| 69 6c 2d 73 74 72 69 70 | 2d 71 75 6f 74 65 64 2d |il-strip|-quoted-|
|00000380| 6e 61 6d 65 73 20 23 5b | 28 61 64 64 72 65 73 73 |names #[|(address|
|00000390| 29 20 22 08 3f 3f 85 df | 00 09 83 16 00 c2 c3 21 |) ".??..|.......!|
|000003a0| 88 c4 c5 c6 08 21 c7 23 | 87 c8 1e 09 ca cb 08 5c |.....!.#|.......\|
|000003b0| 22 88 08 cc 95 ca cd 08 | cc 95 23 4f 10 ca ce 08 |".......|..#O....|
|000003c0| 5c 22 83 6b 00 8a cf d0 | 21 71 88 d1 20 88 08 63 |\".k....|!q.. ..c|
|000003d0| 88 d2 0e 13 21 88 d4 62 | 88 d5 d6 c8 d7 23 83 61 |....!..b|.....#.a|
|000003e0| 00 d8 75 88 d9 c8 78 88 | 60 8a c8 da db 8f 88 60 |..u...x.|`......`|
|000003f0| 29 7c 88 82 44 00 dc 20 | 10 d1 20 88 29 82 80 00 |)|..D.. |.. .)...|
|00000400| ca dd 08 5c 22 89 16 09 | 83 80 00 de 08 0e 09 cc |...\"...|........|
|00000410| 95 23 10 82 6b 00 cc 16 | 09 ca df 08 0e 09 23 89 |.#..k...|......#.|
|00000420| 16 09 83 b2 00 08 47 cc | 95 56 83 a7 00 08 cc 95 |......G.|.V......|
|00000430| 48 e0 55 83 a7 00 cc 95 | 16 09 82 83 00 de 08 0e |H.U.....|........|
|00000440| 09 cc 95 23 10 82 83 00 | ca e1 08 5c 22 89 16 09 |...#....|...\"...|
|00000450| 83 dd 00 d4 95 e2 94 cc | 95 1e 23 1e 24 1e 25 de |........|..#.$.%.|
|00000460| 08 0e 23 53 0e 23 23 10 | de 08 0e 25 0e 24 23 10 |..#S.##.|...%.$#.|
|00000470| 2b 82 b2 00 08 29 87 22 | 20 5b 61 64 64 72 65 73 |+....)."| [addres|
|00000480| 73 20 6d 61 69 6c 2d 75 | 73 65 2d 72 66 63 38 32 |s mail-u|se-rfc82|
|00000490| 32 20 72 65 71 75 69 72 | 65 20 72 66 63 38 32 32 |2 requir|e rfc822|
|000004a0| 20 6d 61 70 63 6f 6e 63 | 61 74 20 69 64 65 6e 74 | mapconc|at ident|
|000004b0| 69 74 79 20 72 66 63 38 | 32 32 2d 61 64 64 72 65 |ity rfc8|22-addre|
|000004c0| 73 73 65 73 20 22 2c 20 | 22 20 6e 69 6c 20 70 6f |sses ", |" nil po|
|000004d0| 73 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |s string|-match "|
|000004e0| 5c 5c 60 5b 20 09 5c 6e | 5d 2a 22 20 30 20 22 5b |\\`[ .\n|]*" 0 "[|
|000004f0| 20 09 5c 6e 5d 2a 5c 5c | 27 22 20 22 5b 20 09 5d | .\n]*\\|'" "[ .]|
|00000500| 2a 28 5c 5c 28 5b 5e 29 | 5c 22 5c 5c 5d 5c 5c 7c |*(\\([^)|\"\\]\\||
|00000510| 5c 5c 5c 5c 2e 5c 5c 7c | 5c 5c 5c 5c 5c 6e 5c 5c |\\\\.\\||\\\\\n\\|
|00000520| 29 2a 28 22 20 67 65 74 | 2d 62 75 66 66 65 72 2d |)*(" get|-buffer-|
|00000530| 63 72 65 61 74 65 20 22 | 20 2a 74 65 6d 70 2a 22 |create "| *temp*"|
|00000540| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 73 65 | erase-b|uffer se|
|00000550| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6c |t-syntax|-table l|
|00000560| 69 73 70 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |isp-mode|-syntax-|
|00000570| 74 61 62 6c 65 20 31 20 | 73 65 61 72 63 68 2d 66 |table 1 |search-f|
|00000580| 6f 72 77 61 72 64 20 22 | 28 22 20 74 20 2d 31 20 |orward "|(" t -1 |
|00000590| 22 20 09 22 20 28 66 6f | 72 77 61 72 64 2d 73 65 |" ." (fo|rward-se|
|000005a0| 78 70 20 31 29 20 28 28 | 65 72 72 6f 72 20 28 62 |xp 1) ((|error (b|
|000005b0| 79 74 65 2d 63 6f 64 65 | 20 22 64 62 87 22 20 5b |yte-code| "db." [|
|000005c0| 5d 20 31 29 29 29 20 62 | 75 66 66 65 72 2d 73 74 |] 1))) b|uffer-st|
|000005d0| 72 69 6e 67 20 22 5b 20 | 09 5d 2a 28 5c 5c 28 5b |ring "[ |.]*(\\([|
|000005e0| 5e 29 5c 22 5c 5c 5d 5c | 5c 7c 5c 5c 5c 5c 2e 5c |^)\"\\]\|\|\\\\.\|
|000005f0| 5c 7c 5c 5c 5c 5c 5c 6e | 5c 5c 29 2a 29 22 20 6d |\|\\\\\n|\\)*)" m|
|00000600| 61 69 6c 2d 73 74 72 69 | 6e 67 2d 64 65 6c 65 74 |ail-stri|ng-delet|
|00000610| 65 20 22 5b 20 09 5d 2a | 5c 22 5c 5c 28 5b 5e 5c |e "[ .]*|\"\\([^\|
|00000620| 22 5c 5c 5d 5c 5c 7c 5c | 5c 5c 5c 2e 5c 5c 7c 5c |"\\]\\|\|\\\.\\|\|
|00000630| 5c 5c 5c 5c 6e 5c 5c 29 | 2a 5c 22 5b 20 09 5c 6e |\\\\n\\)|*\"[ .\n|
|00000640| 5d 2a 22 20 36 34 20 22 | 5c 5c 28 2c 5c 5c 7c 5c |]*" 64 "|\\(,\\|\|
|00000650| 5c 60 5c 5c 29 5b 5e 2c | 5d 2a 3c 5c 5c 28 5b 5e |\`\\)[^,|]*<\\([^|
|00000660| 3e 2c 5d 2a 3e 5c 5c 29 | 22 20 32 20 63 6c 6f 73 |>,]*>\\)|" 2 clos|
|00000670| 65 20 6a 75 6e 6b 2d 65 | 6e 64 20 6a 75 6e 6b 2d |e junk-e|nd junk-|
|00000680| 62 65 67 5d 20 36 20 22 | 5c 0a 44 65 6c 65 74 65 |beg] 6 "|\.Delete|
|00000690| 20 63 6f 6d 6d 65 6e 74 | 73 20 61 6e 64 20 71 75 | comment|s and qu|
|000006a0| 6f 74 65 64 20 73 74 72 | 69 6e 67 73 20 69 6e 20 |oted str|ings in |
|000006b0| 61 6e 20 61 64 64 72 65 | 73 73 20 6c 69 73 74 20 |an addre|ss list |
|000006c0| 41 44 44 52 45 53 53 2e | 0a 41 6c 73 6f 20 64 65 |ADDRESS.|.Also de|
|000006d0| 6c 65 74 65 20 6c 65 61 | 64 69 6e 67 2f 74 72 61 |lete lea|ding/tra|
|000006e0| 69 6c 69 6e 67 20 77 68 | 69 74 65 73 70 61 63 65 |iling wh|itespace|
|000006f0| 20 61 6e 64 20 72 65 70 | 6c 61 63 65 20 46 4f 4f | and rep|lace FOO|
|00000700| 20 3c 42 41 52 3e 20 77 | 69 74 68 20 6a 75 73 74 | <BAR> w|ith just|
|00000710| 20 42 41 52 2e 0a 52 65 | 74 75 72 6e 20 61 20 6d | BAR..Re|turn a m|
|00000720| 6f 64 69 66 69 65 64 20 | 61 64 64 72 65 73 73 20 |odified |address |
|00000730| 6c 69 73 74 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |list."])|.(byte-c|
|00000740| 6f 64 65 20 22 c0 c1 21 | 83 5c 6e 00 09 84 0c 00 |ode "..!|.\n.....|
|00000750| c2 11 c0 87 22 20 5b 62 | 6f 75 6e 64 70 20 72 6d |...." [b|oundp rm|
|00000760| 61 69 6c 2d 64 65 66 61 | 75 6c 74 2d 64 6f 6e 74 |ail-defa|ult-dont|
|00000770| 2d 72 65 70 6c 79 2d 74 | 6f 2d 6e 61 6d 65 73 20 |-reply-t|o-names |
|00000780| 22 69 6e 66 6f 2d 22 5d | 20 32 29 0a 28 64 65 66 |"info-"]| 2).(def|
|00000790| 61 6c 69 61 73 20 27 72 | 6d 61 69 6c 2d 64 6f 6e |alias 'r|mail-don|
|000007a0| 74 2d 72 65 70 6c 79 2d | 74 6f 20 23 5b 28 75 73 |t-reply-|to #[(us|
|000007b0| 65 72 69 64 73 29 20 22 | 08 84 17 00 09 83 0e 00 |erids) "|........|
|000007c0| 09 c2 50 82 0f 00 c3 c4 | c5 20 21 c6 50 50 10 c7 |..P.....|. !.PP..|
|000007d0| 08 c8 51 c9 ca 89 1e 0b | 1e 0c 1e 0d 1e 0e cf 0e |..Q.....|........|
|000007e0| 0e 0e 10 5c 22 89 16 0c | 83 5f 00 0e 0c d1 56 83 |...\"...|._....V.|
|000007f0| 3e 00 0e 0c 54 16 0c cf | d2 0e 10 d1 95 23 83 4d |>...T...|.....#.M|
|00000800| 00 d1 95 82 50 00 0e 10 | 47 16 0b d3 0e 10 0e 0c |....P...|G.......|
|00000810| 0e 0b 23 16 10 82 26 00 | cf d4 0e 10 5c 22 89 16 |..#...&.|....\"..|
|00000820| 0c 83 72 00 0e 10 d1 0e | 0c 4f 16 10 cf d5 0e 10 |..r.....|.O......|
|00000830| 5c 22 83 83 00 0e 10 d1 | 95 ca 4f 82 85 00 0e 10 |\"......|..O.....|
|00000840| 2c 87 22 20 5b 72 6d 61 | 69 6c 2d 64 6f 6e 74 2d |,." [rma|il-dont-|
|00000850| 72 65 70 6c 79 2d 74 6f | 2d 6e 61 6d 65 73 20 72 |reply-to|-names r|
|00000860| 6d 61 69 6c 2d 64 65 66 | 61 75 6c 74 2d 64 6f 6e |mail-def|ault-don|
|00000870| 74 2d 72 65 70 6c 79 2d | 74 6f 2d 6e 61 6d 65 73 |t-reply-|to-names|
|00000880| 20 22 5c 5c 7c 22 20 22 | 22 20 72 65 67 65 78 70 | "\\|" "|" regexp|
|00000890| 2d 71 75 6f 74 65 20 75 | 73 65 72 2d 6f 72 69 67 |-quote u|ser-orig|
|000008a0| 69 6e 61 6c 2d 6c 6f 67 | 69 6e 2d 6e 61 6d 65 20 |inal-log|in-name |
|000008b0| 22 5c 5c 3e 22 20 22 5c | 5c 28 5e 5c 5c 7c 2c 5c |"\\>" "\|\(^\\|,\|
|000008c0| 5c 29 5b 20 09 5c 6e 5d | 2a 5c 5c 28 5b 5e 2c 5c |\)[ .\n]|*\\([^,\|
|000008d0| 6e 5d 2a 21 5c 5c 7c 5c | 5c 29 5c 5c 28 22 20 22 |n]*!\\|\|\)\\(" "|
|000008e0| 5c 5c 29 22 20 74 20 6e | 69 6c 20 65 70 6f 73 20 |\\)" t n|il epos |
|000008f0| 70 6f 73 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |pos case|-fold-se|
|00000900| 61 72 63 68 20 6d 61 74 | 63 68 20 73 74 72 69 6e |arch mat|ch strin|
|00000910| 67 2d 6d 61 74 63 68 20 | 75 73 65 72 69 64 73 20 |g-match |userids |
|00000920| 30 20 22 5b 20 09 5c 6e | 2c 5d 2b 22 20 6d 61 69 |0 "[ .\n|,]+" mai|
|00000930| 6c 2d 73 74 72 69 6e 67 | 2d 64 65 6c 65 74 65 20 |l-string|-delete |
|00000940| 22 5b 20 2c 09 5c 6e 5d | 2a 5c 5c 27 22 20 22 5c |"[ ,.\n]|*\\'" "\|
|00000950| 5c 73 20 2a 22 5d 20 34 | 20 22 5c 0a 52 65 74 75 |\s *"] 4| "\.Retu|
|00000960| 72 6e 73 20 73 74 72 69 | 6e 67 20 6f 66 20 6d 61 |rns stri|ng of ma|
|00000970| 69 6c 20 61 64 64 72 65 | 73 73 65 73 20 55 53 45 |il addre|sses USE|
|00000980| 52 49 44 53 20 73 61 6e | 73 20 61 6e 79 20 72 65 |RIDS san|s any re|
|00000990| 63 69 70 69 65 6e 74 73 | 0a 74 68 61 74 20 73 74 |cipients|.that st|
|000009a0| 61 72 74 20 77 69 74 68 | 20 6d 61 74 63 68 65 73 |art with| matches|
|000009b0| 20 66 6f 72 20 60 72 6d | 61 69 6c 2d 64 6f 6e 74 | for `rm|ail-dont|
|000009c0| 2d 72 65 70 6c 79 2d 74 | 6f 2d 6e 61 6d 65 73 27 |-reply-t|o-names'|
|000009d0| 2e 0a 55 73 65 6e 65 74 | 20 70 61 74 68 73 20 65 |..Usenet| paths e|
|000009e0| 6e 64 69 6e 67 20 69 6e | 20 61 6e 20 65 6c 65 6d |nding in| an elem|
|000009f0| 65 6e 74 20 74 68 61 74 | 20 6d 61 74 63 68 65 73 |ent that| matches|
|00000a00| 20 61 72 65 20 72 65 6d | 6f 76 65 64 20 61 6c 73 | are rem|oved als|
|00000a10| 6f 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |o."]).(d|efalias |
|00000a20| 27 6d 61 69 6c 2d 66 65 | 74 63 68 2d 66 69 65 6c |'mail-fe|tch-fiel|
|00000a30| 64 20 23 5b 28 66 69 65 | 6c 64 2d 6e 61 6d 65 20 |d #[(fie|ld-name |
|00000a40| 26 6f 70 74 69 6f 6e 61 | 6c 20 6c 61 73 74 20 61 |&optiona|l last a|
|00000a50| 6c 6c 29 20 22 8a 65 62 | 88 c0 c1 c2 0b 21 c4 51 |ll) ".eb|.....!.Q|
|00000a60| 1d 1e 06 65 62 88 0e 07 | 83 54 00 c8 1e 09 ca 0d |...eb...|.T......|
|00000a70| cb c0 23 83 46 00 60 1e | 0c cd 79 88 ce cf 21 84 |..#.F.`.|..y...!.|
|00000a80| 24 00 0e 09 89 c8 98 83 | 39 00 c8 82 3a 00 d0 0e |$.......|9...:...|
|00000a90| 0c 60 53 7b 51 16 09 29 | 82 19 00 0e 09 c8 98 3f |.`S{Q..)|.......?|
|00000aa0| 85 50 00 0e 09 29 82 7b | 00 ca 0d cb c0 23 85 7b |.P...).{|.....#.{|
|00000ab0| 00 0e 11 83 69 00 ca 0d | cb c0 23 84 61 00 60 1e |....i...|..#.a.`.|
|00000ac0| 0c cd 79 88 ce cf 21 84 | 6c 00 0e 0c 60 53 7b 29 |..y...!.|l...`S{)|
|00000ad0| 2b 87 22 20 5b 74 20 22 | 5e 22 20 72 65 67 65 78 |+." [t "|^" regex|
|00000ae0| 70 2d 71 75 6f 74 65 20 | 66 69 65 6c 64 2d 6e 61 |p-quote |field-na|
|00000af0| 6d 65 20 22 5b 20 09 5d | 2a 3a 5b 20 09 5d 2a 22 |me "[ .]|*:[ .]*"|
|00000b00| 20 6e 61 6d 65 20 63 61 | 73 65 2d 66 6f 6c 64 2d | name ca|se-fold-|
|00000b10| 73 65 61 72 63 68 20 61 | 6c 6c 20 22 22 20 76 61 |search a|ll "" va|
|00000b20| 6c 75 65 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |lue re-s|earch-fo|
|00000b30| 72 77 61 72 64 20 6e 69 | 6c 20 6f 70 6f 69 6e 74 |rward ni|l opoint|
|00000b40| 20 31 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5b | 1 looki|ng-at "[|
|00000b50| 20 09 5d 22 20 22 2c 20 | 22 20 6c 61 73 74 5d 20 | .]" ", |" last] |
|00000b60| 34 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |4 "\.Ret|urn the |
|00000b70| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 68 65 61 |value of| the hea|
|00000b80| 64 65 72 20 66 69 65 6c | 64 20 46 49 45 4c 44 2d |der fiel|d FIELD-|
|00000b90| 4e 41 4d 45 2e 0a 54 68 | 65 20 62 75 66 66 65 72 |NAME..Th|e buffer|
|00000ba0| 20 69 73 20 65 78 70 65 | 63 74 65 64 20 74 6f 20 | is expe|cted to |
|00000bb0| 62 65 20 6e 61 72 72 6f | 77 65 64 20 74 6f 20 6a |be narro|wed to j|
|00000bc0| 75 73 74 20 74 68 65 20 | 68 65 61 64 65 72 73 20 |ust the |headers |
|00000bd0| 6f 66 20 74 68 65 20 6d | 65 73 73 61 67 65 2e 0a |of the m|essage..|
|00000be0| 49 66 20 73 65 63 6f 6e | 64 20 61 72 67 20 4c 41 |If secon|d arg LA|
|00000bf0| 53 54 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2c 20 75 |ST is no|n-nil, u|
|00000c00| 73 65 20 74 68 65 20 6c | 61 73 74 20 73 75 63 68 |se the l|ast such|
|00000c10| 20 66 69 65 6c 64 20 69 | 66 20 74 68 65 72 65 20 | field i|f there |
|00000c20| 61 72 65 20 73 65 76 65 | 72 61 6c 2e 0a 49 66 20 |are seve|ral..If |
|00000c30| 74 68 69 72 64 20 61 72 | 67 20 41 4c 4c 20 69 73 |third ar|g ALL is|
|00000c40| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 63 6f 6e 63 61 74 | non-nil|, concat|
|00000c50| 65 6e 61 74 65 20 61 6c | 6c 20 73 75 63 68 20 66 |enate al|l such f|
|00000c60| 69 65 6c 64 73 20 77 69 | 74 68 20 63 6f 6d 6d 61 |ields wi|th comma|
|00000c70| 73 20 62 65 74 77 65 65 | 6e 2e 22 5d 29 0a 28 62 |s betwee|n."]).(b|
|00000c80| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00000c90| c0 c3 c4 5c 22 88 c5 c6 | 21 87 22 20 5b 64 65 66 |...\"...|!." [def|
|00000ca0| 61 6c 69 61 73 20 6d 61 | 69 6c 2d 70 61 72 73 65 |alias ma|il-parse|
|00000cb0| 2d 63 6f 6d 6d 61 2d 6c | 69 73 74 20 23 5b 6e 69 |-comma-l|ist #[ni|
|00000cc0| 6c 20 22 c0 89 19 1a c3 | c0 77 88 6d 84 27 00 60 |l ".....|.w.m.'.`|
|00000cd0| 11 c4 c0 77 88 c3 c0 78 | 88 09 60 7b 5c 6e 42 12 |...w...x|..`{\nB.|
|00000ce0| c4 c0 77 88 c5 c0 77 88 | 82 08 00 5c 6e 2a 87 22 |..w...w.|...\n*."|
|00000cf0| 20 5b 6e 69 6c 20 62 65 | 67 20 61 63 63 75 6d 75 | [nil be|g accumu|
|00000d00| 6c 61 74 65 64 20 22 20 | 22 20 22 5e 2c 22 20 22 |lated " |" "^," "|
|00000d10| 2c 20 22 5d 20 32 5d 20 | 6d 61 69 6c 2d 63 6f 6d |, "] 2] |mail-com|
|00000d20| 6d 61 2d 6c 69 73 74 2d | 72 65 67 65 78 70 20 23 |ma-list-|regexp #|
|00000d30| 5b 28 6c 61 62 65 6c 73 | 29 20 22 c0 19 c2 c3 0c |[(labels|) ".....|
|00000d40| 5c 22 86 5c 6e 00 c5 11 | 0c 09 c2 c6 0c 09 23 4f |\".\n...|......#O|
|00000d50| 14 c2 c7 0c 5c 22 89 11 | 83 2c 00 0c c5 09 4f c8 |....\"..|.,....O.|
|00000d60| 0c c5 95 c0 4f 51 14 82 | 14 00 29 0c 87 22 20 5b |....OQ..|..).." [|
|00000d70| 6e 69 6c 20 70 6f 73 20 | 73 74 72 69 6e 67 2d 6d |nil pos |string-m|
|00000d80| 61 74 63 68 20 22 5b 5e | 20 09 5d 22 20 6c 61 62 |atch "[^| .]" lab|
|00000d90| 65 6c 73 20 30 20 22 5b | 20 09 5d 2a 24 22 20 22 |els 0 "[| .]*$" "|
|00000da0| 5b 20 09 5d 2a 2c 5b 20 | 09 5d 2a 22 20 22 5c 5c |[ .]*,[ |.]*" "\\|
|00000db0| 7c 22 5d 20 36 5d 20 70 | 72 6f 76 69 64 65 20 6d ||"] 6] p|rovide m|
|00000dc0| 61 69 6c 2d 75 74 69 6c | 73 5d 20 33 29 0a |ail-util|s] 3). |
+--------+-------------------------+-------------------------+--------+--------+
