|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: r
Length: 4213 (0x1075)
Names: »rfc822.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/rfc822.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 72 66 63 38 32 32 29 29 0a 0a 28 64 65 66 75 ┆ (provide (quote rfc822)) (defu┆
0x0020…0040 6e 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 28 72 65 61 73 6f 6e 29 20 28 62 ┆n rfc822-bad-address (reason) (b┆
0x0040…0060 79 74 65 2d 63 6f 64 65 20 22 8c c5 63 88 c6 08 c7 c8 c1 c2 23 83 15 00 65 60 53 5d 82 16 00 64 ┆yte-code " c # e`S] d┆
0x0060…0080 5c 22 88 c9 1b 0b 85 41 00 65 62 88 ca 0b 40 c1 c2 23 85 38 00 cb cc 21 88 cd 63 88 ce cc 21 88 ┆\" A eb @ # 8 ! c ! ┆
0x0080…00a0 82 21 00 88 0b 41 89 13 88 82 1a 00 29 88 65 62 88 cf d0 0c d1 23 88 64 62 88 d2 63 29 88 d3 20 ┆ ! A ) eb # db c) ┆
0x00a0…00c0 88 d4 d5 d6 08 60 5c 22 5c 22 87 22 20 5b 61 64 64 72 65 73 73 2d 73 74 61 72 74 20 6e 69 6c 20 ┆ `\"\" " [address-start nil ┆
0x00c0…00e0 74 20 6c 6f 73 65 72 73 20 72 65 61 73 6f 6e 20 22 5f 5e 5f 22 20 6e 61 72 72 6f 77 2d 74 6f 2d ┆t losers reason "_^_" narrow-to-┆
0x00e0…0100 72 65 67 69 6f 6e 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 2c 3b 5d 22 20 ┆region re-search-forward "[,;]" ┆
0x0100…0120 28 22 5c 5c 22 20 22 28 22 20 22 29 22 20 22 0a 22 29 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 ┆("\\" "(" ")" " ") search-forwar┆
0x0120…0140 64 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 31 20 39 32 20 66 6f 72 77 61 72 64 2d 63 68 61 ┆d backward-char 1 92 forward-cha┆
0x0140…0160 72 20 69 6e 73 65 72 74 20 22 28 55 6e 70 61 72 73 61 62 6c 65 20 61 64 64 72 65 73 73 20 2d 2d ┆r insert "(Unparsable address --┆
0x0160…0180 20 22 20 22 3a 0a 09 20 20 5c 22 22 20 22 5c 22 29 22 20 72 66 63 38 32 32 2d 6e 75 6b 65 2d 77 ┆ " ": \"" "\")" rfc822-nuke-w┆
0x0180…01a0 68 69 74 65 73 70 61 63 65 20 74 68 72 6f 77 20 61 64 64 72 65 73 73 20 62 75 66 66 65 72 2d 73 ┆hitespace throw address buffer-s┆
0x01a0…01c0 75 62 73 74 72 69 6e 67 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 6e 75 ┆ubstring] 12)) (defun rfc822-nu┆
0x01c0…01e0 6b 65 2d 77 68 69 74 65 73 70 61 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 65 61 76 65 2d 73 ┆ke-whitespace (&optional leave-s┆
0x01e0…0200 70 61 63 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 18 6d 83 0a 00 c1 82 75 00 67 89 10 c4 ┆pace) (byte-code " m u g ┆
0x0200…0220 55 83 61 00 c5 c6 21 88 6d 83 20 00 c7 c8 21 82 26 00 c9 67 89 10 ca 5c 22 85 54 00 cb cc 21 83 ┆U a ! m ! & g \" T ! ┆
0x0220…0240 35 00 cd ce 21 82 50 00 08 c4 55 83 40 00 cf 20 82 50 00 60 64 53 57 83 4d 00 d0 d1 21 82 50 00 ┆5 ! P U @ P `dSW M ! P ┆
0x0240…0260 c7 d2 21 88 82 16 00 88 c5 d3 21 88 d0 d1 21 88 c2 82 75 00 08 d4 3e 83 74 00 d5 60 d6 d7 21 88 ┆ ! ! ! u > t ` ! ┆
0x0260…0280 60 5c 22 88 c2 82 75 00 c1 85 7d 00 c1 88 82 02 00 88 0b 3f 86 93 00 6d 86 93 00 6f 86 93 00 68 ┆`\" u } ? m o h┆
0x0280…02a0 d8 55 86 93 00 d8 63 29 87 22 20 5b 63 68 20 6e 69 6c 20 74 20 6c 65 61 76 65 2d 73 70 61 63 65 ┆ U c) " [ch nil t leave-space┆
0x02a0…02c0 20 34 30 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 ┆ 40 forward-char 1 rfc822-bad-ad┆
0x02c0…02e0 64 72 65 73 73 20 22 55 6e 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 20 28 2e 2e 2e 29 22 ┆dress "Unbalanced comment (...)"┆
0x02e0…0300 20 2f 3d 20 34 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5e 28 29 5c 5c 5d 2b 22 20 72 65 70 ┆ /= 41 looking-at "[^()\\]+" rep┆
0x0300…0320 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 72 66 63 38 32 32 2d 6e 75 6b 65 2d 77 68 69 74 65 73 ┆lace-match "" rfc822-nuke-whites┆
0x0320…0340 70 61 63 65 20 64 65 6c 65 74 65 2d 63 68 61 72 20 32 20 22 6f 72 70 68 61 6e 65 64 20 62 61 63 ┆pace delete-char 2 "orphaned bac┆
0x0340…0360 6b 73 6c 61 73 68 22 20 2d 31 20 28 33 32 20 39 20 31 30 29 20 64 65 6c 65 74 65 2d 72 65 67 69 ┆kslash" -1 (32 9 10) delete-regi┆
0x0360…0380 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 0a 22 20 33 32 5d 20 ┆on skip-chars-forward " " 32] ┆
0x0380…03a0 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 ┆14)) (defun rfc822-looking-at (┆
0x03a0…03c0 72 65 67 65 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 65 61 76 65 2d 73 70 61 63 65 29 20 28 62 79 ┆regex &optional leave-space) (by┆
0x03c0…03e0 74 65 2d 63 6f 64 65 20 22 08 3b 83 14 00 c4 08 21 85 11 00 c5 c6 21 62 88 c1 82 24 00 6d 3f 85 ┆te-code " ; ! !b $ m? ┆
0x03e0…0400 1c 00 67 08 55 85 24 00 c7 c8 21 88 c1 85 34 00 c9 20 1a ca 0b 21 88 cb 0a 21 88 c1 29 87 22 20 ┆ g U $ ! 4 ! ! ) " ┆
0x0400…0420 5b 72 65 67 65 78 20 74 20 74 65 6d 20 6c 65 61 76 65 2d 73 70 61 63 65 20 6c 6f 6f 6b 69 6e 67 ┆[regex t tem leave-space looking┆
0x0420…0440 2d 61 74 20 6d 61 74 63 68 2d 65 6e 64 20 30 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 6d ┆-at match-end 0 forward-char 1 m┆
0x0440…0460 61 74 63 68 2d 64 61 74 61 20 72 66 63 38 32 32 2d 6e 75 6b 65 2d 77 68 69 74 65 73 70 61 63 65 ┆atch-data rfc822-nuke-whitespace┆
0x0460…0480 20 73 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61 74 61 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 72 ┆ store-match-data] 7)) (defun r┆
0x0480…04a0 66 63 38 32 32 2d 73 6e 61 72 66 2d 77 6f 72 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆fc822-snarf-word nil (byte-code ┆
0x04a0…04c0 22 67 c1 55 83 12 00 c2 c3 21 86 0f 00 c4 c5 21 82 1b 00 c2 c6 21 86 1b 00 c4 c7 21 87 22 20 5b ┆"g U ! ! ! ! " [┆
0x04c0…04e0 74 20 33 34 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 22 5c 5c 28 5b 5e 5c ┆t 34 rfc822-looking-at "\"\\([^\┆
0x04e0…0500 22 5c 5c 0a 5d 5c 5c 7c 5c 5c 5c 5c 2e 5c 5c 7c 5c 5c 5c 5c 0a 5c 5c 29 2a 5c 22 22 20 72 66 63 ┆"\\ ]\\|\\\\.\\|\\\\ \\)*\"" rfc┆
0x0500…0520 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 55 6e 74 65 72 6d 69 6e 61 74 65 64 20 71 75 ┆822-bad-address "Unterminated qu┆
0x0520…0540 6f 74 65 64 20 73 74 72 69 6e 67 22 20 22 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 3c 3e 40 2c 3b ┆oted string" "[^][ - - ()<>@,;┆
0x0540…0560 3a 5c 5c 5c 22 2e 5d 2b 22 20 22 52 75 62 62 69 73 68 20 69 6e 20 61 64 64 72 65 73 73 22 5d 20 ┆:\\\".]+" "Rubbish in address"] ┆
0x0560…0580 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 77 6f 72 64 73 20 6e ┆5)) (defun rfc822-snarf-words n┆
0x0580…05a0 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 88 c1 c2 21 85 0f 00 c0 20 88 82 03 00 87 22 ┆il (byte-code " ! "┆
0x05a0…05c0 20 5b 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 77 6f 72 64 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 ┆ [rfc822-snarf-word rfc822-looki┆
0x05c0…05e0 6e 67 2d 61 74 20 34 36 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 73 6e 61 ┆ng-at 46] 5)) (defun rfc822-sna┆
0x05e0…0600 72 66 2d 73 75 62 64 6f 6d 61 69 6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 67 c1 55 ┆rf-subdomain nil (byte-code "g U┆
0x0600…0620 83 12 00 c2 c3 21 86 0f 00 c4 c5 21 82 1b 00 c2 c6 21 86 1b 00 c4 c7 21 87 22 20 5b 74 20 39 31 ┆ ! ! ! ! " [t 91┆
0x0620…0640 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 5b 5c 5c 28 5b 5e 5d 5b 5c 5c ┆ rfc822-looking-at "\\[\\([^][\\┆
0x0640…0660 0a 5d 5c 5c 7c 5c 5c 5c 5c 2e 5c 5c 7c 5c 5c 5c 5c 0a 5c 5c 29 2a 5c 5c 5d 22 20 72 66 63 38 32 ┆ ]\\|\\\\.\\|\\\\ \\)*\\]" rfc82┆
0x0660…0680 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 55 6e 74 65 72 6d 69 6e 61 74 65 64 20 64 6f 6d 61 ┆2-bad-address "Unterminated doma┆
0x0680…06a0 69 6e 20 6c 69 74 65 72 61 6c 20 5b 2e 2e 2e 5d 22 20 22 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 ┆in literal [...]" "[^][ - - ()┆
0x06a0…06c0 3c 3e 40 2c 3b 3a 5c 5c 5c 22 2e 5d 2b 22 20 22 52 75 62 62 69 73 68 20 69 6e 20 68 6f 73 74 2f ┆<>@,;:\\\".]+" "Rubbish in host/┆
0x06c0…06e0 64 6f 6d 61 69 6e 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 22 5d 20 35 29 29 0a 0a 28 64 65 66 ┆domain specification"] 5)) (def┆
0x06e0…0700 75 6e 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 64 6f 6d 61 69 6e 20 6e 69 6c 20 28 62 79 74 65 ┆un rfc822-snarf-domain nil (byte┆
0x0700…0720 2d 63 6f 64 65 20 22 c0 20 88 c1 c2 21 85 0f 00 c0 20 88 82 03 00 87 22 20 5b 72 66 63 38 32 32 ┆-code " ! " [rfc822┆
0x0720…0740 2d 73 6e 61 72 66 2d 73 75 62 64 6f 6d 61 69 6e 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d ┆-snarf-subdomain rfc822-looking-┆
0x0740…0760 61 74 20 34 36 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d ┆at 46] 5)) (defun rfc822-snarf-┆
0x0760…0780 66 72 6f 62 2d 6c 69 73 74 20 28 6e 61 6d 65 20 73 65 70 61 72 61 74 6f 72 20 74 65 72 6d 69 6e ┆frob-list (name separator termin┆
0x0780…07a0 61 74 6f 72 20 73 6e 61 72 66 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 74 75 72 6e 29 20 28 ┆ator snarfer &optional return) (┆
0x07a0…07c0 62 79 74 65 2d 63 6f 64 65 20 22 c1 c3 c3 1c 1a 18 6d 83 13 00 ca cb cc 0d 5c 22 21 82 44 00 cd ┆byte-code " m \"! D ┆
0x07c0…07e0 0e 06 21 83 1e 00 c3 82 44 00 cd 0e 07 21 83 36 00 cd 0e 07 21 85 31 00 c3 88 82 25 00 88 c1 82 ┆ ! D ! 6 ! 1 % ┆
0x07e0…0800 44 00 08 83 3e 00 c1 82 44 00 ca cb ce 0d 5c 22 21 85 70 00 cf 0e 08 21 14 c3 89 10 88 0e 09 85 ┆D > D \"! p ! ┆
0x0800…0820 6c 00 0c 85 6c 00 0c 3c 83 67 00 d0 d1 0c 21 0a 5c 22 82 6a 00 0c 0a 42 89 12 88 82 06 00 88 d2 ┆l l < g ! \" j B ┆
0x0820…0840 0a 21 2b 87 22 20 5b 66 69 72 73 74 20 74 20 6c 69 73 74 20 6e 69 6c 20 74 65 6d 20 6e 61 6d 65 ┆ !+ " [first t list nil tem name┆
0x0840…0860 20 74 65 72 6d 69 6e 61 74 6f 72 20 73 65 70 61 72 61 74 6f 72 20 73 6e 61 72 66 65 72 20 72 65 ┆ terminator separator snarfer re┆
0x0860…0880 74 75 72 6e 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 66 6f 72 6d 61 74 20 22 ┆turn rfc822-bad-address format "┆
0x0880…08a0 45 6e 64 20 6f 66 20 61 64 64 72 65 73 73 65 73 20 69 6e 20 6d 69 64 64 6c 65 20 6f 66 20 25 73 ┆End of addresses in middle of %s┆
0x08a0…08c0 22 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 47 75 62 62 69 73 68 20 69 6e 20 ┆" rfc822-looking-at "Gubbish in ┆
0x08c0…08e0 6d 69 64 64 6c 65 20 6f 66 20 25 73 22 20 66 75 6e 63 61 6c 6c 20 6e 63 6f 6e 63 20 72 65 76 65 ┆middle of %s" funcall nconc reve┆
0x08e0…0900 72 73 65 20 6e 72 65 76 65 72 73 65 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 ┆rse nreverse] 13)) (defun rfc82┆
0x0900…0920 32 2d 61 64 64 72 65 73 73 65 73 2d 31 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 6c 6f 77 2d 67 ┆2-addresses-1 (&optional allow-g┆
0x0920…0940 72 6f 75 70 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 c2 19 18 c3 c4 8d 2a 87 22 20 5b 61 ┆roups) (byte-code "` * " [a┆
0x0940…0960 64 64 72 65 73 73 2d 73 74 61 72 74 20 6e 20 30 20 61 64 64 72 65 73 73 20 28 62 79 74 65 2d 63 ┆ddress-start n 0 address (byte-c┆
0x0960…0980 6f 64 65 20 22 c8 c9 c0 5c 22 85 0e 00 6d 86 0e 00 c8 ca 21 85 29 00 6f 86 1f 00 cb 68 cc 5c 22 ┆ode " \" m ! ) o h \"┆
0x0980…09a0 86 1f 00 cd ce 21 88 cf d0 d1 09 d2 d3 21 5c 22 5c 22 88 09 62 88 c0 85 3c 01 0a d4 55 85 3a 00 ┆ ! !\"\" b < U : ┆
0x09a0…09c0 c8 d5 21 83 4a 00 d6 20 88 cf d0 d1 09 60 5c 22 5c 22 82 38 01 c8 d7 21 83 72 00 0b 3f 83 5b 00 ┆ ! J `\"\" 8 ! r ? [ ┆
0x09c0…09e0 d8 d9 21 82 64 00 0a d3 55 85 64 00 d8 da 21 88 cf d0 db dc ca dd de c0 25 5c 22 82 38 01 c8 df ┆ ! d U d ! %\" 8 ┆
0x09e0…0a00 21 83 e9 00 60 c0 1d 1c c8 e0 21 83 86 00 c6 82 b9 00 6d 3f 85 8e 00 67 d5 55 83 ae 00 db e1 ca ┆! ` ! m? g U ┆
0x0a00…0a20 d7 e2 24 88 e3 20 88 c8 d5 21 86 a4 00 d8 e4 21 88 d6 20 88 c6 89 15 82 b9 00 e3 20 88 c8 d5 21 ┆ $ ! ! !┆
0x0a20…0a40 85 b9 00 d6 20 88 60 1e 07 c8 e0 21 83 e1 00 cf d0 d1 0d 83 ce 00 0c 82 d0 00 0c 53 0d 83 d9 00 ┆ ` ! S ┆
0x0a40…0a60 0e 07 82 dc 00 0e 07 54 5c 22 5c 22 82 e4 00 d8 e5 21 29 2a 82 38 01 e6 e7 21 83 08 01 0a d3 55 ┆ T\"\" !)* 8 ! U┆
0x0a60…0a80 86 fd 00 68 cc 55 86 fd 00 cc 63 88 e3 20 88 0a 54 89 12 82 38 01 0a d3 55 83 15 01 cf d0 c6 5c ┆ h U c T 8 U \┆
0x0a80…0aa0 22 82 38 01 0a d4 55 83 25 01 cf d0 d1 09 60 5c 22 5c 22 82 38 01 6d 86 2c 01 e6 e8 21 83 35 01 ┆" 8 U % `\"\" 8 m , ! 5 ┆
0x0aa0…0ac0 d8 e9 21 82 38 01 d8 ea 21 88 82 2d 00 87 22 20 5b 74 20 61 64 64 72 65 73 73 2d 73 74 61 72 74 ┆ ! 8 ! - " [t address-start┆
0x0ac0…0ae0 20 6e 20 61 6c 6c 6f 77 2d 67 72 6f 75 70 73 20 73 74 61 72 74 20 73 74 72 69 70 20 6e 69 6c 20 ┆ n allow-groups start strip nil ┆
0x0ae0…0b00 65 6e 64 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5e 5d 5b 00 2d 1f 7f 2d ┆end rfc822-looking-at "[^][ - -┆
0x0b00…0b20 ff 20 28 29 3c 3e 40 2c 3b 3a 5c 5c 5c 22 5d 2b 5c 5c 28 5c 5c 7c 40 5b 5e 5d 5b 00 2d 1f 7f 2d ┆ ()<>@,;:\\\"]+\\(\\|@[^][ - -┆
0x0b20…0b40 ff 20 28 29 3c 3e 40 2c 3b 3a 5c 5c 5c 22 5d 2b 5c 5c 29 22 20 34 34 20 2f 3d 20 33 32 20 64 65 ┆ ()<>@,;:\\\"]+\\)" 44 /= 32 de┆
0x0b40…0b60 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 74 68 72 6f 77 20 61 64 64 72 65 73 73 20 62 75 66 66 65 ┆lete-char -1 throw address buffe┆
0x0b60…0b80 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 74 63 68 2d 65 6e 64 20 30 20 31 20 36 34 20 72 66 63 ┆r-substring match-end 0 1 64 rfc┆
0x0b80…0ba0 38 32 32 2d 73 6e 61 72 66 2d 64 6f 6d 61 69 6e 20 35 38 20 72 66 63 38 32 32 2d 62 61 64 2d 61 ┆822-snarf-domain 58 rfc822-bad-a┆
0x0ba0…0bc0 64 64 72 65 73 73 20 22 41 20 67 72 6f 75 70 20 6e 61 6d 65 20 6d 61 79 20 6e 6f 74 20 61 70 70 ┆ddress "A group name may not app┆
0x0bc0…0be0 65 61 72 20 68 65 72 65 22 20 22 4e 6f 20 6e 61 6d 65 20 66 6f 72 20 3a 2e 2e 2e 3b 20 67 72 6f ┆ear here" "No name for :...; gro┆
0x0be0…0c00 75 70 22 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 66 72 6f 62 2d 6c 69 73 74 20 22 3a 2e 2e 2e ┆up" rfc822-snarf-frob-list ":...┆
0x0c00…0c20 3b 20 67 72 6f 75 70 22 20 35 39 20 72 66 63 38 32 32 2d 61 64 64 72 65 73 73 65 73 2d 31 20 36 ┆; group" 59 rfc822-addresses-1 6┆
0x0c20…0c40 30 20 36 32 20 22 3c 2e 2e 2e 3e 20 61 64 64 72 65 73 73 22 20 28 6c 61 6d 62 64 61 20 6e 69 6c ┆0 62 "<...> address" (lambda nil┆
0x0c40…0c60 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 83 0b 00 c2 20 82 0e 00 c3 c4 21 87 22 20 5b 72 ┆ (byte-code " ! ! " [r┆
0x0c60…0c80 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 36 34 20 72 66 63 38 32 32 2d 73 6e 61 72 66 ┆fc822-looking-at 64 rfc822-snarf┆
0x0c80…0ca0 2d 64 6f 6d 61 69 6e 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 47 75 62 62 ┆-domain rfc822-bad-address "Gubb┆
0x0ca0…0cc0 69 73 68 20 69 6e 20 72 6f 75 74 65 2d 61 64 64 72 22 5d 20 34 29 29 20 72 66 63 38 32 32 2d 73 ┆ish in route-addr"] 4)) rfc822-s┆
0x0cc0…0ce0 6e 61 72 66 2d 77 6f 72 64 73 20 22 4d 61 6c 66 6f 72 6d 65 64 20 3c 2e 2e 40 2e 2e 3e 20 61 64 ┆narf-words "Malformed <..@..> ad┆
0x0ce0…0d00 64 72 65 73 73 22 20 22 55 6e 74 65 72 6d 69 6e 61 74 65 64 20 3c 2e 2e 2e 3e 20 61 64 64 72 65 ┆dress" "Unterminated <...> addre┆
0x0d00…0d20 73 73 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 3c 3e 40 ┆ss" looking-at "[^][ - - ()<>@┆
0x0d20…0d40 2c 3b 3a 5c 5c 2e 5d 22 20 22 2c 22 20 22 4d 69 73 73 69 6e 67 20 63 6f 6d 6d 61 20 6f 72 20 72 ┆,;:\\.]" "," "Missing comma or r┆
0x0d40…0d60 6f 75 74 65 2d 73 70 65 63 22 20 22 53 74 72 61 6e 67 65 20 63 68 61 72 61 63 74 65 72 20 6f 72 ┆oute-spec" "Strange character or┆
0x0d60…0d80 20 6d 69 73 73 69 6e 67 20 63 6f 6d 6d 61 22 5d 20 34 30 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 ┆ missing comma"] 40)] 2)) (defu┆
0x0d80…0da0 6e 20 72 66 63 38 32 32 2d 61 64 64 72 65 73 73 65 73 20 28 68 65 61 64 65 72 2d 74 65 78 74 29 ┆n rfc822-addresses (header-text)┆
0x0da0…0dc0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 c9 08 5c 22 83 13 00 08 ca cb 21 cc cb 21 4f 43 82 85 ┆ (byte-code " \" ! !OC ┆
0x0dc0…0de0 00 cd ce 21 19 cf 8e 8a 09 71 88 d0 c2 21 88 c3 89 12 88 08 63 88 65 62 88 d1 d2 c3 c4 23 85 3b ┆ ! q ! c eb # ;┆
0x0de0…0e00 00 d3 d4 c4 5c 22 88 82 2b 00 88 65 62 88 d5 20 88 c3 c3 c3 1e 07 1e 06 1d 6d 3f 85 7d 00 60 89 ┆ \" + eb m? } ` ┆
0x0e00…0e20 16 07 88 d6 d7 8d 89 16 06 88 0e 06 3f 86 79 00 0e 06 3b 83 70 00 0e 06 0d 42 89 15 82 79 00 d8 ┆ ? y ; p B y ┆
0x0e20…0e40 d9 0e 06 21 0d 5c 22 89 15 88 82 4a 00 88 d9 0d 21 2b 29 29 29 87 22 20 5b 68 65 61 64 65 72 2d ┆ ! \" J !+))) " [header-┆
0x0e40…0e60 74 65 78 74 20 62 75 66 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 74 20 ┆text buf case-fold-search nil t ┆
0x0e60…0e80 6c 69 73 74 20 74 65 6d 20 61 64 64 72 65 73 73 2d 73 74 61 72 74 20 73 74 72 69 6e 67 2d 6d 61 ┆list tem address-start string-ma┆
0x0e80…0ea0 74 63 68 20 22 5c 5c 60 5b 20 09 5d 2a 5c 5c 28 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 3c 3e 40 ┆tch "\\`[ ]*\\([^][ - - ()<>@┆
0x0ea0…0ec0 2c 3b 3a 5c 5c 5c 22 2e 5d 2b 5c 5c 29 5b 20 09 5d 2a 5c 5c 27 22 20 6d 61 74 63 68 2d 62 65 67 ┆,;:\\\".]+\\)[ ]*\\'" match-beg┆
0x0ec0…0ee0 69 6e 6e 69 6e 67 20 31 20 6d 61 74 63 68 2d 65 6e 64 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d ┆inning 1 match-end generate-new-┆
0x0ee0…0f00 62 75 66 66 65 72 20 22 20 72 66 63 38 32 32 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 ┆buffer " rfc822" ((byte-code " ┆
0x0f00…0f20 07 00 c1 08 21 87 22 20 5b 62 75 66 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 29 29 20 6d 61 ┆ ! " [buf kill-buffer] 2)) ma┆
0x0f20…0f40 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 ┆ke-local-variable re-search-forw┆
0x0f40…0f60 61 72 64 20 22 5c 5c 28 5b 5e 5c 5c 5d 5c 5c 28 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 29 2a 5c 5c 29 0a ┆ard "\\([^\\]\\(\\\\\\\\\\)*\\) ┆
0x0f60…0f80 5b 20 09 5d 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 5c 5c 31 20 22 20 72 66 63 38 32 ┆[ ]" replace-match "\\1 " rfc82┆
0x0f80…0fa0 32 2d 6e 75 6b 65 2d 77 68 69 74 65 73 70 61 63 65 20 61 64 64 72 65 73 73 20 28 62 79 74 65 2d ┆2-nuke-whitespace address (byte-┆
0x0fa0…0fc0 63 6f 64 65 20 22 c2 c3 21 83 0a 00 c0 82 1f 00 c4 c5 21 83 1c 00 c6 20 88 c7 c8 c9 68 5c 22 21 ┆code " ! ! h\"!┆
0x0fc0…0fe0 82 1f 00 ca c1 21 87 22 20 5b 6e 69 6c 20 74 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 ┆ ! " [nil t rfc822-looking-a┆
0x0fe0…1000 74 20 34 34 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5d 5b 00 2d 1f 7f 2d ff 40 3b 3a 5c 5c 2e ┆t 44 looking-at "[][ - - @;:\\.┆
0x1000…1020 5d 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 ┆]" forward-char rfc822-bad-addre┆
0x1020…1040 73 73 20 66 6f 72 6d 61 74 20 22 53 74 72 61 6e 67 65 20 63 68 61 72 61 63 74 65 72 20 5c 5c 25 ┆ss format "Strange character \\%┆
0x1040…1060 63 20 66 6f 75 6e 64 22 20 72 66 63 38 32 32 2d 61 64 64 72 65 73 73 65 73 2d 31 5d 20 37 29 20 ┆c found" rfc822-addresses-1] 7) ┆
0x1060…1075 6e 63 6f 6e 63 20 6e 72 65 76 65 72 73 65 5d 20 31 33 29 29 0a ┆nconc nreverse] 13)) ┆