/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / mail-utils.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 6d 6f |piled by| kwzh@mo|
|00000020| 6c 65 2e 67 6e 75 2e 61 | 69 2e 6d 69 74 2e 65 64 |le.gnu.a|i.mit.ed|
|00000030| 75 20 6f 6e 20 46 72 69 | 20 46 65 62 20 31 31 20 |u on Fri| Feb 11 |
|00000040| 31 37 3a 31 39 3a 34 34 | 20 31 39 39 34 0a 3b 3b |17:19:44| 1994.;;|
|00000050| 3b 20 66 72 6f 6d 20 66 | 69 6c 65 20 2f 67 64 2f |; from f|ile /gd/|
|00000060| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|00000070| 69 73 70 2f 6d 61 69 6c | 2d 75 74 69 6c 73 2e 65 |isp/mail|-utils.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 32 | 32 2e 35 36 2e 0a 3b 3b |ion 19.2|2.56..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001a0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001b0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001c0| 29 0a 0a 28 72 65 71 75 | 69 72 65 20 28 71 75 6f |)..(requ|ire (quo|
|000001d0| 74 65 20 6c 69 73 70 2d | 6d 6f 64 65 29 29 0a 28 |te lisp-|mode)).(|
|000001e0| 64 65 66 76 61 72 20 6d | 61 69 6c 2d 75 73 65 2d |defvar m|ail-use-|
|000001f0| 72 66 63 38 32 32 20 6e | 69 6c 20 22 5c 0a 2a 49 |rfc822 n|il "\.*I|
|00000200| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 75 73 65 20 61 |f non-ni|l, use a|
|00000210| 20 66 75 6c 6c 2c 20 68 | 61 69 72 79 20 52 46 43 | full, h|airy RFC|
|00000220| 38 32 32 20 70 61 72 73 | 65 72 20 6f 6e 20 6d 61 |822 pars|er on ma|
|00000230| 69 6c 20 61 64 64 72 65 | 73 73 65 73 2e 0a 4f 74 |il addre|sses..Ot|
|00000240| 68 65 72 77 69 73 65 2c | 20 28 74 68 65 20 64 65 |herwise,| (the de|
|00000250| 66 61 75 6c 74 29 20 75 | 73 65 20 61 20 73 6d 61 |fault) u|se a sma|
|00000260| 6c 6c 65 72 2c 20 73 6f | 6d 65 77 68 61 74 20 66 |ller, so|mewhat f|
|00000270| 61 73 74 65 72 2c 20 61 | 6e 64 0a 6f 66 74 65 6e |aster, a|nd.often|
|00000280| 20 63 6f 72 72 65 63 74 | 20 70 61 72 73 65 72 2e | correct| parser.|
|00000290| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |").(defa|lias 'ma|
|000002a0| 69 6c 2d 73 74 72 69 6e | 67 2d 64 65 6c 65 74 65 |il-strin|g-delete|
|000002b0| 20 23 5b 28 73 74 72 69 | 6e 67 20 73 74 61 72 74 | #[(stri|ng start|
|000002c0| 20 65 6e 64 29 20 22 08 | 84 09 00 09 c2 0b 4f 87 | end) ".|......O.|
|000002d0| 09 c2 0b 4f 09 08 c4 4f | 50 87 22 20 5b 65 6e 64 |...O...O|P." [end|
|000002e0| 20 73 74 72 69 6e 67 20 | 30 20 73 74 61 72 74 20 | string |0 start |
|000002f0| 6e 69 6c 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |nil] 4 "|\.Return|
|00000300| 73 20 61 20 73 74 72 69 | 6e 67 20 63 6f 6e 74 61 |s a stri|ng conta|
|00000310| 69 6e 69 6e 67 20 61 6c | 6c 20 6f 66 20 53 54 52 |ining al|l of STR|
|00000320| 49 4e 47 20 65 78 63 65 | 70 74 20 74 68 65 20 70 |ING exce|pt the p|
|00000330| 61 72 74 0a 66 72 6f 6d | 20 53 54 41 52 54 20 28 |art.from| START (|
|00000340| 69 6e 63 6c 75 73 69 76 | 65 29 20 74 6f 20 45 4e |inclusiv|e) to EN|
|00000350| 44 20 28 65 78 63 6c 75 | 73 69 76 65 29 2e 22 5d |D (exclu|sive)."]|
|00000360| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 69 |).(defal|ias 'mai|
|00000370| 6c 2d 73 74 72 69 70 2d | 71 75 6f 74 65 64 2d 6e |l-strip-|quoted-n|
|00000380| 61 6d 65 73 20 23 5b 28 | 61 64 64 72 65 73 73 29 |ames #[(|address)|
|00000390| 20 22 08 3f 3f 85 df 00 | 09 83 16 00 c2 c3 21 88 | ".??...|......!.|
|000003a0| c4 c5 c6 08 21 c7 23 87 | c8 1e 09 ca cb 08 5c 22 |....!.#.|......\"|
|000003b0| 88 08 cc 95 ca cd 08 cc | 95 23 4f 10 ca ce 08 5c |........|.#O....\|
|000003c0| 22 83 6b 00 8a cf d0 21 | 71 88 d1 20 88 08 63 88 |".k....!|q.. ..c.|
|000003d0| d2 0e 13 21 88 d4 62 88 | d5 d6 c8 d7 23 83 61 00 |...!..b.|....#.a.|
|000003e0| d8 75 88 d9 c8 78 88 60 | 8a c8 da db 8f 88 60 29 |.u...x.`|......`)|
|000003f0| 7c 88 82 44 00 dc 20 10 | d1 20 88 29 82 80 00 ca ||..D.. .|. .)....|
|00000400| dd 08 5c 22 89 16 09 83 | 80 00 de 08 0e 09 cc 95 |..\"....|........|
|00000410| 23 10 82 6b 00 cc 16 09 | ca df 08 0e 09 23 89 16 |#..k....|.....#..|
|00000420| 09 83 b2 00 08 47 cc 95 | 56 83 a7 00 08 cc 95 48 |.....G..|V......H|
|00000430| e0 55 83 a7 00 cc 95 16 | 09 82 83 00 de 08 0e 09 |.U......|........|
|00000440| cc 95 23 10 82 83 00 ca | e1 08 5c 22 89 16 09 83 |..#.....|..\"....|
|00000450| dd 00 d4 95 e2 94 cc 95 | 1e 23 1e 24 1e 25 de 08 |........|.#.$.%..|
|00000460| 0e 23 53 0e 23 23 10 de | 08 0e 25 0e 24 23 10 2b |.#S.##..|..%.$#.+|
|00000470| 82 b2 00 08 29 87 22 20 | 5b 61 64 64 72 65 73 73 |....)." |[address|
|00000480| 20 6d 61 69 6c 2d 75 73 | 65 2d 72 66 63 38 32 32 | mail-us|e-rfc822|
|00000490| 20 72 65 71 75 69 72 65 | 20 72 66 63 38 32 32 20 | require| rfc822 |
|000004a0| 6d 61 70 63 6f 6e 63 61 | 74 20 69 64 65 6e 74 69 |mapconca|t identi|
|000004b0| 74 79 20 72 66 63 38 32 | 32 2d 61 64 64 72 65 73 |ty rfc82|2-addres|
|000004c0| 73 65 73 20 22 2c 20 22 | 20 6e 69 6c 20 70 6f 73 |ses ", "| nil pos|
|000004d0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c | string-|match "\|
|000004e0| 5c 60 5b 20 09 5c 6e 5d | 2a 22 20 30 20 22 5b 20 |\`[ .\n]|*" 0 "[ |
|000004f0| 09 5c 6e 5d 2a 5c 5c 27 | 22 20 22 5b 20 09 5d 2a |.\n]*\\'|" "[ .]*|
|00000500| 28 5c 5c 28 5b 5e 29 5c | 22 5c 5c 5d 5c 5c 7c 5c |(\\([^)\|"\\]\\|\|
|00000510| 5c 5c 5c 2e 5c 5c 7c 5c | 5c 5c 5c 5c 6e 5c 5c 29 |\\\.\\|\|\\\\n\\)|
|00000520| 2a 28 22 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |*(" get-|buffer-c|
|00000530| 72 65 61 74 65 20 22 20 | 2a 74 65 6d 70 2a 22 20 |reate " |*temp*" |
|00000540| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 73 65 74 |erase-bu|ffer set|
|00000550| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6c 69 |-syntax-|table li|
|00000560| 73 70 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |sp-mode-|syntax-t|
|00000570| 61 62 6c 65 20 31 20 73 | 65 61 72 63 68 2d 66 6f |able 1 s|earch-fo|
|00000580| 72 77 61 72 64 20 22 28 | 22 20 74 20 2d 31 20 22 |rward "(|" t -1 "|
|00000590| 20 09 22 20 28 66 6f 72 | 77 61 72 64 2d 73 65 78 | ." (for|ward-sex|
|000005a0| 70 20 31 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |p 1) ((e|rror (by|
|000005b0| 74 65 2d 63 6f 64 65 20 | 22 64 62 87 22 20 5b 5d |te-code |"db." []|
|000005c0| 20 31 29 29 29 20 62 75 | 66 66 65 72 2d 73 74 72 | 1))) bu|ffer-str|
|000005d0| 69 6e 67 20 22 5b 20 09 | 5d 2a 28 5c 5c 28 5b 5e |ing "[ .|]*(\\([^|
|000005e0| 29 5c 22 5c 5c 5d 5c 5c | 7c 5c 5c 5c 5c 2e 5c 5c |)\"\\]\\||\\\\.\\|
|000005f0| 7c 5c 5c 5c 5c 5c 6e 5c | 5c 29 2a 29 22 20 6d 61 ||\\\\\n\|\)*)" ma|
|00000600| 69 6c 2d 73 74 72 69 6e | 67 2d 64 65 6c 65 74 65 |il-strin|g-delete|
|00000610| 20 22 5b 20 09 5d 2a 5c | 22 5c 5c 28 5b 5e 5c 22 | "[ .]*\|"\\([^\"|
|00000620| 5c 5c 5d 5c 5c 7c 5c 5c | 5c 5c 2e 5c 5c 7c 5c 5c |\\]\\|\\|\\.\\|\\|
|00000630| 5c 5c 5c 6e 5c 5c 29 2a | 5c 22 5b 20 09 5c 6e 5d |\\\n\\)*|\"[ .\n]|
|00000640| 2a 22 20 36 34 20 22 5c | 5c 28 2c 5c 5c 7c 5c 5c |*" 64 "\|\(,\\|\\|
|00000650| 60 5c 5c 29 5b 5e 2c 5d | 2a 3c 5c 5c 28 5b 5e 3e |`\\)[^,]|*<\\([^>|
|00000660| 2c 5d 2a 3e 5c 5c 29 22 | 20 32 20 63 6c 6f 73 65 |,]*>\\)"| 2 close|
|00000670| 20 6a 75 6e 6b 2d 65 6e | 64 20 6a 75 6e 6b 2d 62 | junk-en|d junk-b|
|00000680| 65 67 5d 20 36 20 22 5c | 0a 44 65 6c 65 74 65 20 |eg] 6 "\|.Delete |
|00000690| 63 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 20 71 75 6f |comments| and quo|
|000006a0| 74 65 64 20 73 74 72 69 | 6e 67 73 20 69 6e 20 61 |ted stri|ngs in a|
|000006b0| 6e 20 61 64 64 72 65 73 | 73 20 6c 69 73 74 20 41 |n addres|s list A|
|000006c0| 44 44 52 45 53 53 2e 0a | 41 6c 73 6f 20 64 65 6c |DDRESS..|Also del|
|000006d0| 65 74 65 20 6c 65 61 64 | 69 6e 67 2f 74 72 61 69 |ete lead|ing/trai|
|000006e0| 6c 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |ling whi|tespace |
|000006f0| 61 6e 64 20 72 65 70 6c | 61 63 65 20 46 4f 4f 20 |and repl|ace FOO |
|00000700| 3c 42 41 52 3e 20 77 69 | 74 68 20 6a 75 73 74 20 |<BAR> wi|th just |
|00000710| 42 41 52 2e 0a 52 65 74 | 75 72 6e 20 61 20 6d 6f |BAR..Ret|urn a mo|
|00000720| 64 69 66 69 65 64 20 61 | 64 64 72 65 73 73 20 6c |dified a|ddress l|
|00000730| 69 73 74 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ist."]).|(byte-co|
|00000740| 64 65 20 22 c0 c1 21 83 | 5c 6e 00 09 84 5c 66 00 |de "..!.|\n...\f.|
|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 5c 66 1e 0d 1e 0e cf |..Q.....|.\f.....|
|000007e0| 0e 0e 0e 10 5c 22 89 16 | 5c 66 83 5f 00 0e 5c 66 |....\"..|\f._..\f|
|000007f0| d1 56 83 3e 00 0e 5c 66 | 54 16 5c 66 cf d2 0e 10 |.V.>..\f|T.\f....|
|00000800| d1 95 23 83 4d 00 d1 95 | 82 50 00 0e 10 47 16 0b |..#.M...|.P...G..|
|00000810| d3 0e 10 0e 5c 66 0e 0b | 23 16 10 82 26 00 cf d4 |....\f..|#...&...|
|00000820| 0e 10 5c 22 89 16 5c 66 | 83 72 00 0e 10 d1 0e 5c |..\"..\f|.r.....\|
|00000830| 66 4f 16 10 cf d5 0e 10 | 5c 22 83 83 00 0e 10 d1 |fO......|\"......|
|00000840| 95 ca 4f 82 85 00 0e 10 | 2c 87 22 20 5b 72 6d 61 |..O.....|,." [rma|
|00000850| 69 6c 2d 64 6f 6e 74 2d | 72 65 70 6c 79 2d 74 6f |il-dont-|reply-to|
|00000860| 2d 6e 61 6d 65 73 20 72 | 6d 61 69 6c 2d 64 65 66 |-names r|mail-def|
|00000870| 61 75 6c 74 2d 64 6f 6e | 74 2d 72 65 70 6c 79 2d |ault-don|t-reply-|
|00000880| 74 6f 2d 6e 61 6d 65 73 | 20 22 5c 5c 7c 22 20 22 |to-names| "\\|" "|
|00000890| 22 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 75 |" regexp|-quote u|
|000008a0| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 22 |ser-logi|n-name "|
|000008b0| 5c 5c 3e 22 20 22 5c 5c | 28 5e 5c 5c 7c 2c 5c 5c |\\>" "\\|(^\\|,\\|
|000008c0| 29 5b 20 09 5c 6e 5d 2a | 5c 5c 28 5b 5e 2c 5c 6e |)[ .\n]*|\\([^,\n|
|000008d0| 5d 2a 21 5c 5c 7c 5c 5c | 29 5c 5c 28 22 20 22 5c |]*!\\|\\|)\\(" "\|
|000008e0| 5c 29 22 20 74 20 6e 69 | 6c 20 65 70 6f 73 20 70 |\)" t ni|l epos p|
|000008f0| 6f 73 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |os case-|fold-sea|
|00000900| 72 63 68 20 6d 61 74 63 | 68 20 73 74 72 69 6e 67 |rch matc|h string|
|00000910| 2d 6d 61 74 63 68 20 75 | 73 65 72 69 64 73 20 30 |-match u|serids 0|
|00000920| 20 22 5b 20 09 5c 6e 2c | 5d 2b 22 20 6d 61 69 6c | "[ .\n,|]+" mail|
|00000930| 2d 73 74 72 69 6e 67 2d | 64 65 6c 65 74 65 20 22 |-string-|delete "|
|00000940| 5b 20 2c 09 5c 6e 5d 2a | 5c 5c 27 22 20 22 5c 5c |[ ,.\n]*|\\'" "\\|
|00000950| 73 20 2a 22 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |s *"] 4 |"\.Retur|
|00000960| 6e 73 20 73 74 72 69 6e | 67 20 6f 66 20 6d 61 69 |ns strin|g of mai|
|00000970| 6c 20 61 64 64 72 65 73 | 73 65 73 20 55 53 45 52 |l addres|ses USER|
|00000980| 49 44 53 20 73 61 6e 73 | 20 61 6e 79 20 72 65 63 |IDS sans| any rec|
|00000990| 69 70 69 65 6e 74 73 0a | 74 68 61 74 20 73 74 61 |ipients.|that sta|
|000009a0| 72 74 20 77 69 74 68 20 | 6d 61 74 63 68 65 73 20 |rt with |matches |
|000009b0| 66 6f 72 20 60 72 6d 61 | 69 6c 2d 64 6f 6e 74 2d |for `rma|il-dont-|
|000009c0| 72 65 70 6c 79 2d 74 6f | 2d 6e 61 6d 65 73 27 2e |reply-to|-names'.|
|000009d0| 0a 55 73 65 6e 65 74 20 | 70 61 74 68 73 20 65 6e |.Usenet |paths en|
|000009e0| 64 69 6e 67 20 69 6e 20 | 61 6e 20 65 6c 65 6d 65 |ding in |an eleme|
|000009f0| 6e 74 20 74 68 61 74 20 | 6d 61 74 63 68 65 73 20 |nt that |matches |
|00000a00| 61 72 65 20 72 65 6d 6f | 76 65 64 20 61 6c 73 6f |are remo|ved also|
|00000a10| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000a20| 6d 61 69 6c 2d 66 65 74 | 63 68 2d 66 69 65 6c 64 |mail-fet|ch-field|
|00000a30| 20 23 5b 28 66 69 65 6c | 64 2d 6e 61 6d 65 20 26 | #[(fiel|d-name &|
|00000a40| 6f 70 74 69 6f 6e 61 6c | 20 6c 61 73 74 20 61 6c |optional| last al|
|00000a50| 6c 29 20 22 8a 65 62 88 | c0 c1 c2 0b 21 c4 51 1d |l) ".eb.|....!.Q.|
|00000a60| 1e 06 0e 07 83 5f 00 c8 | 1e 09 ca 0d cb c0 23 83 |....._..|......#.|
|00000a70| 51 00 60 1e 5c 66 cd 79 | 88 ce cf 21 84 21 00 d0 |Q.`.\f.y|...!.!..|
|00000a80| 75 88 68 d1 9d 83 39 00 | d0 75 88 82 2d 00 0e 09 |u.h...9.|.u..-...|
|00000a90| 89 c8 98 83 45 00 c8 82 | 46 00 d2 0e 5c 66 60 7b |....E...|F...\f`{|
|00000aa0| 51 16 09 29 82 16 00 0e | 09 c8 98 3f 85 5b 00 0e |Q..)....|...?.[..|
|00000ab0| 09 29 82 94 00 ca 0d cb | c0 23 85 94 00 0e 13 83 |.)......|.#......|
|00000ac0| 74 00 ca 0d cb c0 23 84 | 6c 00 60 1e 5c 66 cd 79 |t.....#.|l.`.\f.y|
|00000ad0| 88 ce cf 21 84 77 00 d0 | 75 88 68 d4 9d 83 8f 00 |...!.w..|u.h.....|
|00000ae0| d0 75 88 82 83 00 0e 5c | 66 60 7b 29 2b 87 22 20 |.u.....\|f`{)+." |
|00000af0| 5b 74 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |[t "^" r|egexp-qu|
|00000b00| 6f 74 65 20 66 69 65 6c | 64 2d 6e 61 6d 65 20 22 |ote fiel|d-name "|
|00000b10| 5b 20 09 5d 2a 3a 5b 20 | 09 5d 2a 22 20 6e 61 6d |[ .]*:[ |.]*" nam|
|00000b20| 65 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |e case-f|old-sear|
|00000b30| 63 68 20 61 6c 6c 20 22 | 22 20 76 61 6c 75 65 20 |ch all "|" value |
|00000b40| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000b50| 64 20 6e 69 6c 20 6f 70 | 6f 69 6e 74 20 31 20 6c |d nil op|oint 1 l|
|00000b60| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 20 09 5d 22 |ooking-a|t "[ .]"|
|00000b70| 20 2d 31 20 28 33 32 20 | 39 29 20 22 2c 20 22 20 | -1 (32 |9) ", " |
|00000b80| 6c 61 73 74 20 28 33 32 | 20 39 29 5d 20 34 20 22 |last (32| 9)] 4 "|
|00000b90| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 76 61 6c |\.Return| the val|
|00000ba0| 75 65 20 6f 66 20 74 68 | 65 20 68 65 61 64 65 72 |ue of th|e header|
|00000bb0| 20 66 69 65 6c 64 20 46 | 49 45 4c 44 2d 4e 41 4d | field F|IELD-NAM|
|00000bc0| 45 2e 0a 54 68 65 20 62 | 75 66 66 65 72 20 69 73 |E..The b|uffer is|
|00000bd0| 20 65 78 70 65 63 74 65 | 64 20 74 6f 20 62 65 20 | expecte|d to be |
|00000be0| 6e 61 72 72 6f 77 65 64 | 20 74 6f 20 6a 75 73 74 |narrowed| to just|
|00000bf0| 20 74 68 65 20 68 65 61 | 64 65 72 73 20 6f 66 20 | the hea|ders of |
|00000c00| 74 68 65 20 6d 65 73 73 | 61 67 65 2e 0a 49 66 20 |the mess|age..If |
|00000c10| 73 65 63 6f 6e 64 20 61 | 72 67 20 4c 41 53 54 20 |second a|rg LAST |
|00000c20| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 75 73 65 20 |is non-n|il, use |
|00000c30| 74 68 65 20 6c 61 73 74 | 20 73 75 63 68 20 66 69 |the last| such fi|
|00000c40| 65 6c 64 20 69 66 20 74 | 68 65 72 65 20 61 72 65 |eld if t|here are|
|00000c50| 20 73 65 76 65 72 61 6c | 2e 0a 49 66 20 74 68 69 | several|..If thi|
|00000c60| 72 64 20 61 72 67 20 41 | 4c 4c 20 69 73 20 6e 6f |rd arg A|LL is no|
|00000c70| 6e 2d 6e 69 6c 2c 20 63 | 6f 6e 63 61 74 65 6e 61 |n-nil, c|oncatena|
|00000c80| 74 65 20 61 6c 6c 20 73 | 75 63 68 20 66 69 65 6c |te all s|uch fiel|
|00000c90| 64 73 20 77 69 74 68 20 | 63 6f 6d 6d 61 73 20 62 |ds with |commas b|
|00000ca0| 65 74 77 65 65 6e 2e 22 | 5d 29 0a 28 62 79 74 65 |etween."|]).(byte|
|00000cb0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|00000cc0| 5c 22 88 c0 c5 c6 5c 22 | 88 c0 c7 c8 5c 22 88 c9 |\"....\"|....\"..|
|00000cd0| ca 21 87 22 20 5b 64 65 | 66 61 6c 69 61 73 20 6d |.!." [de|falias m|
|00000ce0| 61 69 6c 2d 70 61 72 73 | 65 2d 63 6f 6d 6d 61 2d |ail-pars|e-comma-|
|00000cf0| 6c 69 73 74 20 23 5b 6e | 69 6c 20 22 c0 89 19 1a |list #[n|il "....|
|00000d00| c3 c0 77 88 6d 84 27 00 | 60 11 c4 c0 77 88 c3 c0 |..w.m.'.|`...w...|
|00000d10| 78 88 09 60 7b 5c 6e 42 | 12 c4 c0 77 88 c5 c0 77 |x..`{\nB|...w...w|
|00000d20| 88 82 08 00 5c 6e 2a 87 | 22 20 5b 6e 69 6c 20 62 |....\n*.|" [nil b|
|00000d30| 65 67 20 61 63 63 75 6d | 75 6c 61 74 65 64 20 22 |eg accum|ulated "|
|00000d40| 20 22 20 22 5e 2c 22 20 | 22 2c 20 22 5d 20 32 5d | " "^," |", "] 2]|
|00000d50| 20 6d 61 69 6c 2d 63 6f | 6d 6d 61 2d 6c 69 73 74 | mail-co|mma-list|
|00000d60| 2d 72 65 67 65 78 70 20 | 23 5b 28 6c 61 62 65 6c |-regexp |#[(label|
|00000d70| 73 29 20 22 c0 19 c2 c3 | 5c 66 5c 22 86 5c 6e 00 |s) "....|\f\".\n.|
|00000d80| c5 11 5c 66 09 c2 c6 5c | 66 09 23 4f 14 c2 c7 5c |..\f...\|f.#O...\|
|00000d90| 66 5c 22 89 11 83 2c 00 | 5c 66 c5 09 4f c8 5c 66 |f\"...,.|\f..O.\f|
|00000da0| c5 95 c0 4f 51 14 82 14 | 00 29 5c 66 87 22 20 5b |...OQ...|.)\f." [|
|00000db0| 6e 69 6c 20 70 6f 73 20 | 73 74 72 69 6e 67 2d 6d |nil pos |string-m|
|00000dc0| 61 74 63 68 20 22 5b 5e | 20 09 5d 22 20 6c 61 62 |atch "[^| .]" lab|
|00000dd0| 65 6c 73 20 30 20 22 5b | 20 09 5d 2a 24 22 20 22 |els 0 "[| .]*$" "|
|00000de0| 5b 20 09 5d 2a 2c 5b 20 | 09 5d 2a 22 20 22 5c 5c |[ .]*,[ |.]*" "\\|
|00000df0| 7c 22 5d 20 36 5d 20 6d | 61 69 6c 2d 72 66 63 38 ||"] 6] m|ail-rfc8|
|00000e00| 32 32 2d 74 69 6d 65 2d | 7a 6f 6e 65 20 23 5b 28 |22-time-|zone #[(|
|00000e10| 74 69 6d 65 29 20 22 c0 | 09 21 40 86 08 00 c2 1b |time) ".|.!@.....|
|00000e20| c4 0b 21 c5 a5 1e 06 c7 | c8 0b c2 57 83 1c 00 c9 |..!.....|...W....|
|00000e30| 82 1d 00 ca 0e 06 c5 a5 | 0e 06 c5 a6 24 2a 87 22 |........|....$*."|
|00000e40| 20 5b 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 7a | [curren|t-time-z|
|00000e50| 6f 6e 65 20 74 69 6d 65 | 20 30 20 73 65 63 20 61 |one time| 0 sec a|
|00000e60| 62 73 20 36 30 20 61 62 | 73 6d 69 6e 20 66 6f 72 |bs 60 ab|smin for|
|00000e70| 6d 61 74 20 22 25 63 25 | 30 32 64 25 30 32 64 22 |mat "%c%|02d%02d"|
|00000e80| 20 34 35 20 34 33 5d 20 | 36 5d 20 6d 61 69 6c 2d | 45 43] |6] mail-|
|00000e90| 72 66 63 38 32 32 2d 64 | 61 74 65 20 23 5b 6e 69 |rfc822-d|ate #[ni|
|00000ea0| 6c 20 22 c0 20 19 c2 09 | 21 1b c4 c5 0b 5c 22 88 |l ". ...|!....\".|
|00000eb0| 0b c6 94 c6 95 4f c7 0b | c8 94 c8 95 4f c7 0b c9 |.....O..|....O...|
|00000ec0| 94 c9 95 4f c7 0b ca 94 | ca 95 4f c7 cb 09 21 b0 |...O....|..O...!.|
|00000ed0| 09 2a 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 74 69 |.*." [cu|rrent-ti|
|00000ee0| 6d 65 20 74 69 6d 65 20 | 63 75 72 72 65 6e 74 2d |me time |current-|
|00000ef0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 73 20 73 74 |time-str|ing s st|
|00000f00| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 5e 20 5d |ring-mat|ch "[^ ]|
|00000f10| 2b 20 2b 5c 5c 28 5b 5e | 20 5d 2b 5c 5c 29 20 2b |+ +\\([^| ]+\\) +|
|00000f20| 5c 5c 28 5b 5e 20 5d 2b | 5c 5c 29 20 5c 5c 28 5b |\\([^ ]+|\\) \\([|
|00000f30| 5e 20 5d 2b 5c 5c 29 20 | 5c 5c 28 5b 5e 20 5d 2b |^ ]+\\) |\\([^ ]+|
|00000f40| 5c 5c 29 22 20 32 20 22 | 20 22 20 31 20 34 20 33 |\\)" 2 "| " 1 4 3|
|00000f50| 20 6d 61 69 6c 2d 72 66 | 63 38 32 32 2d 74 69 6d | mail-rf|c822-tim|
|00000f60| 65 2d 7a 6f 6e 65 5d 20 | 31 30 5d 20 70 72 6f 76 |e-zone] |10] prov|
|00000f70| 69 64 65 20 6d 61 69 6c | 2d 75 74 69 6c 73 5d 20 |ide mail|-utils] |
|00000f80| 33 29 0a                |                         |3).     |        |
+--------+-------------------------+-------------------------+--------+--------+