|
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 - downloadIndex: ┃ r ┃
Length: 4150 (0x1036)
Names: »rfc822.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/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 7d 00 67 89 10 c4 ┆pace) (byte-code " m } g ┆
0x0200…0220 55 83 65 00 c5 c6 21 88 6d 83 20 00 c7 c8 21 82 26 00 c9 67 89 10 ca 5c 22 85 58 00 cb cc 21 83 ┆U e ! m ! & g \" X ! ┆
0x0220…0240 35 00 cd ce 21 82 54 00 08 c4 55 83 40 00 cf 20 82 54 00 60 64 53 57 83 4d 00 d0 d1 21 82 54 00 ┆5 ! T U @ T `dSW M ! T ┆
0x0240…0260 c2 85 54 00 c7 d2 21 88 82 16 00 88 c5 d3 21 88 d0 d1 21 88 c2 82 7d 00 08 d4 3e 83 78 00 d5 60 ┆ T ! ! ! } > x `┆
0x0260…0280 d6 d7 21 88 60 5c 22 88 c2 82 7d 00 c2 85 7d 00 c1 85 85 00 c1 88 82 02 00 88 0b 3f 86 9b 00 6d ┆ ! `\" } } ? m┆
0x0280…02a0 86 9b 00 6f 86 9b 00 68 d8 55 86 9b 00 d8 63 29 87 22 20 5b 63 68 20 6e 69 6c 20 74 20 6c 65 61 ┆ o h U c) " [ch nil t lea┆
0x02a0…02c0 76 65 2d 73 70 61 63 65 20 34 30 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 72 66 63 38 32 ┆ve-space 40 forward-char 1 rfc82┆
0x02c0…02e0 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 55 6e 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e ┆2-bad-address "Unbalanced commen┆
0x02e0…0300 74 20 28 2e 2e 2e 29 22 20 2f 3d 20 34 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5e 28 29 5c ┆t (...)" /= 41 looking-at "[^()\┆
0x0300…0320 5c 5d 2b 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 72 66 63 38 32 32 2d 6e 75 6b ┆\]+" replace-match "" rfc822-nuk┆
0x0320…0340 65 2d 77 68 69 74 65 73 70 61 63 65 20 64 65 6c 65 74 65 2d 63 68 61 72 20 32 20 22 6f 72 70 68 ┆e-whitespace delete-char 2 "orph┆
0x0340…0360 61 6e 65 64 20 62 61 63 6b 73 6c 61 73 68 22 20 2d 31 20 28 33 32 20 39 20 31 30 29 20 64 65 6c ┆aned backslash" -1 (32 9 10) del┆
0x0360…0380 65 74 65 2d 72 65 67 69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 ┆ete-region skip-chars-forward " ┆
0x0380…03a0 09 0a 22 20 33 32 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 6c 6f 6f 6b ┆ " 32] 14)) (defun rfc822-look┆
0x03a0…03c0 69 6e 67 2d 61 74 20 28 72 65 67 65 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 65 61 76 65 2d 73 70 ┆ing-at (regex &optional leave-sp┆
0x03c0…03e0 61 63 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3b 83 18 00 c4 08 21 83 14 00 c5 c6 21 62 ┆ace) (byte-code " ; ! !b┆
0x03e0…0400 88 c1 82 15 00 c7 82 30 00 c1 85 30 00 6d 3f 85 24 00 67 08 55 83 2f 00 c8 c9 21 88 c1 82 30 00 ┆ 0 0 m? $ g U / ! 0 ┆
0x0400…0420 c7 83 43 00 ca 20 1a cb 0b 21 88 cc 0a 21 88 c1 29 82 44 00 c7 87 22 20 5b 72 65 67 65 78 20 74 ┆ C ! ! ) D " [regex t┆
0x0420…0440 20 74 65 6d 20 6c 65 61 76 65 2d 73 70 61 63 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6d 61 74 63 ┆ tem leave-space looking-at matc┆
0x0440…0460 68 2d 65 6e 64 20 30 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 6d 61 74 63 68 ┆h-end 0 nil forward-char 1 match┆
0x0460…0480 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 20 73 74 6f ┆-data rfc822-nuke-whitespace sto┆
0x0480…04a0 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 66 63 38 32 ┆re-match-data] 7)) (defun rfc82┆
0x04a0…04c0 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 22 67 c1 55 ┆2-snarf-word nil (byte-code "g U┆
0x04c0…04e0 83 12 00 c2 c3 21 86 0f 00 c4 c5 21 82 1f 00 c2 c6 21 86 1f 00 c0 85 1f 00 c4 c7 21 87 22 20 5b ┆ ! ! ! ! " [┆
0x04e0…0500 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 "\"\\([^\┆
0x0500…0520 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┆
0x0520…0540 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┆
0x0540…0560 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" "[^][ - - ()<>@,;┆
0x0560…0580 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"] ┆
0x0580…05a0 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┆
0x05a0…05c0 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 " ! "┆
0x05c0…05e0 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┆
0x05e0…0600 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┆
0x0600…0620 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┆
0x0620…0640 83 12 00 c2 c3 21 86 0f 00 c4 c5 21 82 1f 00 c2 c6 21 86 1f 00 c0 85 1f 00 c4 c7 21 87 22 20 5b ┆ ! ! ! ! " [┆
0x0640…0660 74 20 39 31 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 ┆t 91 rfc822-looking-at "\\[\\([^┆
0x0660…0680 5d 5b 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 5c 5d 22 20 72 ┆][\\ ]\\|\\\\.\\|\\\\ \\)*\\]" r┆
0x0680…06a0 66 63 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 ┆fc822-bad-address "Unterminated ┆
0x06a0…06c0 64 6f 6d 61 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 ┆domain literal [...]" "[^][ - -┆
0x06c0…06e0 ff 20 28 29 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 ┆ ()<>@,;:\\\".]+" "Rubbish in h┆
0x06e0…0700 6f 73 74 2f 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 ┆ost/domain specification"] 5)) ┆
0x0700…0720 28 64 65 66 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 ┆(defun rfc822-snarf-domain nil (┆
0x0720…0740 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 20 5b 72 66 ┆byte-code " ! " [rf┆
0x0740…0760 63 38 32 32 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 ┆c822-snarf-subdomain rfc822-look┆
0x0760…0780 69 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 ┆ing-at 46] 5)) (defun rfc822-sn┆
0x0780…07a0 61 72 66 2d 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 ┆arf-frob-list (name separator te┆
0x07a0…07c0 72 6d 69 6e 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 ┆rminator snarfer &optional retur┆
0x07c0…07e0 6e 29 20 28 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 ┆n) (byte-code " m \"!┆
0x07e0…0800 82 48 00 cd 0e 06 21 83 1e 00 c3 82 48 00 cd 0e 07 21 83 36 00 cd 0e 07 21 85 31 00 c3 88 82 25 ┆ H ! H ! 6 ! 1 %┆
0x0800…0820 00 88 c1 82 48 00 08 83 3e 00 c1 82 48 00 c1 85 48 00 ca cb ce 0d 5c 22 21 85 74 00 cf 0e 08 21 ┆ H > H H \"! t !┆
0x0820…0840 14 c3 89 10 88 0e 09 85 70 00 0c 85 70 00 0c 3c 83 6b 00 d0 d1 0c 21 0a 5c 22 82 6e 00 0c 0a 42 ┆ p p < k ! \" n B┆
0x0840…0860 89 12 88 82 06 00 88 d2 0a 21 2b 87 22 20 5b 66 69 72 73 74 20 74 20 6c 69 73 74 20 6e 69 6c 20 ┆ !+ " [first t list nil ┆
0x0860…0880 74 65 6d 20 6e 61 6d 65 20 74 65 72 6d 69 6e 61 74 6f 72 20 73 65 70 61 72 61 74 6f 72 20 73 6e ┆tem name terminator separator sn┆
0x0880…08a0 61 72 66 65 72 20 72 65 74 75 72 6e 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 ┆arfer return rfc822-bad-address ┆
0x08a0…08c0 66 6f 72 6d 61 74 20 22 45 6e 64 20 6f 66 20 61 64 64 72 65 73 73 65 73 20 69 6e 20 6d 69 64 64 ┆format "End of addresses in midd┆
0x08c0…08e0 6c 65 20 6f 66 20 25 73 22 20 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 47 75 62 ┆le of %s" rfc822-looking-at "Gub┆
0x08e0…0900 62 69 73 68 20 69 6e 20 6d 69 64 64 6c 65 20 6f 66 20 25 73 22 20 66 75 6e 63 61 6c 6c 20 6e 63 ┆bish in middle of %s" funcall nc┆
0x0900…0920 6f 6e 63 20 72 65 76 65 72 73 65 20 6e 72 65 76 65 72 73 65 5d 20 31 33 29 29 0a 0a 28 64 65 66 ┆onc reverse nreverse] 13)) (def┆
0x0920…0940 75 6e 20 72 66 63 38 32 32 2d 61 64 64 72 65 73 73 65 73 2d 31 20 28 26 6f 70 74 69 6f 6e 61 6c ┆un rfc822-addresses-1 (&optional┆
0x0940…0960 20 61 6c 6c 6f 77 2d 67 72 6f 75 70 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 c8 19 18 c9 ┆ allow-groups) (byte-code "` ┆
0x0960…0980 ca 8d 2a 87 22 20 5b 61 64 64 72 65 73 73 2d 73 74 61 72 74 20 6e 20 74 20 61 6c 6c 6f 77 2d 67 ┆ * " [address-start n t allow-g┆
0x0980…09a0 72 6f 75 70 73 20 73 74 61 72 74 20 73 74 72 69 70 20 6e 69 6c 20 65 6e 64 20 30 20 61 64 64 72 ┆roups start strip nil end 0 addr┆
0x09a0…09c0 65 73 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 c9 c0 5c 22 85 0e 00 6d 86 0e 00 c8 ca 21 83 ┆ess (byte-code " \" m ! ┆
0x09c0…09e0 2c 00 6f 86 1f 00 cb 68 cc 5c 22 86 1f 00 cd ce 21 88 cf d0 d1 09 d2 d3 21 5c 22 5c 22 82 2d 00 ┆, o h \" ! !\"\" - ┆
0x09e0…0a00 c6 88 09 62 88 c0 85 44 01 0a d4 55 85 3e 00 c8 d5 21 83 4e 00 d6 20 88 cf d0 d1 09 60 5c 22 5c ┆ b D U > ! N `\"\┆
0x0a00…0a20 22 82 40 01 c8 d7 21 83 76 00 0b 3f 83 5f 00 d8 d9 21 82 68 00 0a d3 55 85 68 00 d8 da 21 88 cf ┆" @ ! v ? _ ! h U h ! ┆
0x0a20…0a40 d0 db dc ca dd de c0 25 5c 22 82 40 01 c8 df 21 83 ed 00 60 c0 1d 1c c8 e0 21 83 8a 00 c6 82 bd ┆ %\" @ ! ` ! ┆
0x0a40…0a60 00 6d 3f 85 92 00 67 d5 55 83 b2 00 db e1 ca d7 e2 24 88 e3 20 88 c8 d5 21 86 a8 00 d8 e4 21 88 ┆ m? g U $ ! ! ┆
0x0a60…0a80 d6 20 88 c6 89 15 82 bd 00 e3 20 88 c8 d5 21 85 bd 00 d6 20 88 60 1e 07 c8 e0 21 83 e5 00 cf d0 ┆ ! ` ! ┆
0x0a80…0aa0 d1 0d 83 d2 00 0c 82 d4 00 0c 53 0d 83 dd 00 0e 07 82 e0 00 0e 07 54 5c 22 5c 22 82 e8 00 d8 e5 ┆ S T\"\" ┆
0x0aa0…0ac0 21 29 2a 82 40 01 e6 e7 21 83 0c 01 0a d3 55 86 01 01 68 cc 55 86 01 01 cc 63 88 e3 20 88 0a 54 ┆!)* @ ! U h U c T┆
0x0ac0…0ae0 89 12 82 40 01 0a d3 55 83 19 01 cf d0 c6 5c 22 82 40 01 0a d4 55 83 29 01 cf d0 d1 09 60 5c 22 ┆ @ U \" @ U ) `\"┆
0x0ae0…0b00 5c 22 82 40 01 6d 86 30 01 e6 e8 21 83 39 01 d8 e9 21 82 40 01 c0 85 40 01 d8 ea 21 88 82 31 00 ┆\" @ m 0 ! 9 ! @ @ ! 1 ┆
0x0b00…0b20 87 22 20 5b 74 20 61 64 64 72 65 73 73 2d 73 74 61 72 74 20 6e 20 61 6c 6c 6f 77 2d 67 72 6f 75 ┆ " [t address-start n allow-grou┆
0x0b20…0b40 70 73 20 73 74 61 72 74 20 73 74 72 69 70 20 6e 69 6c 20 65 6e 64 20 72 66 63 38 32 32 2d 6c 6f ┆ps start strip nil end rfc822-lo┆
0x0b40…0b60 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 2c 3b 3a 5c 5c 5c ┆oking-at "[^][ - - ()<>@,;:\\\┆
0x0b60…0b80 22 5d 2b 5c 5c 28 5c 5c 7c 40 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 3c 3e 40 2c 3b 3a 5c 5c 5c ┆"]+\\(\\|@[^][ - - ()<>@,;:\\\┆
0x0b80…0ba0 22 5d 2b 5c 5c 29 22 20 34 34 20 2f 3d 20 33 32 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 ┆"]+\\)" 44 /= 32 delete-char -1 ┆
0x0ba0…0bc0 74 68 72 6f 77 20 61 64 64 72 65 73 73 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d ┆throw address buffer-substring m┆
0x0bc0…0be0 61 74 63 68 2d 65 6e 64 20 30 20 31 20 36 34 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 64 6f 6d ┆atch-end 0 1 64 rfc822-snarf-dom┆
0x0be0…0c00 61 69 6e 20 35 38 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 41 20 67 72 6f ┆ain 58 rfc822-bad-address "A gro┆
0x0c00…0c20 75 70 20 6e 61 6d 65 20 6d 61 79 20 6e 6f 74 20 61 70 70 65 61 72 20 68 65 72 65 22 20 22 4e 6f ┆up name may not appear here" "No┆
0x0c20…0c40 20 6e 61 6d 65 20 66 6f 72 20 3a 2e 2e 2e 3b 20 67 72 6f 75 70 22 20 72 66 63 38 32 32 2d 73 6e ┆ name for :...; group" rfc822-sn┆
0x0c40…0c60 61 72 66 2d 66 72 6f 62 2d 6c 69 73 74 20 22 3a 2e 2e 2e 3b 20 67 72 6f 75 70 22 20 35 39 20 72 ┆arf-frob-list ":...; group" 59 r┆
0x0c60…0c80 66 63 38 32 32 2d 61 64 64 72 65 73 73 65 73 2d 31 20 36 30 20 36 32 20 22 3c 2e 2e 2e 3e 20 61 ┆fc822-addresses-1 60 62 "<...> a┆
0x0c80…0ca0 64 64 72 65 73 73 22 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ddress" (lambda nil (byte-code "┆
0x0ca0…0cc0 c0 c1 21 83 0b 00 c2 20 82 0e 00 c3 c4 21 87 22 20 5b 72 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 ┆ ! ! " [rfc822-looking┆
0x0cc0…0ce0 2d 61 74 20 36 34 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 64 6f 6d 61 69 6e 20 72 66 63 38 32 ┆-at 64 rfc822-snarf-domain rfc82┆
0x0ce0…0d00 32 2d 62 61 64 2d 61 64 64 72 65 73 73 20 22 47 75 62 62 69 73 68 20 69 6e 20 72 6f 75 74 65 2d ┆2-bad-address "Gubbish in route-┆
0x0d00…0d20 61 64 64 72 22 5d 20 34 29 29 20 72 66 63 38 32 32 2d 73 6e 61 72 66 2d 77 6f 72 64 73 20 22 4d ┆addr"] 4)) rfc822-snarf-words "M┆
0x0d20…0d40 61 6c 66 6f 72 6d 65 64 20 3c 2e 2e 40 2e 2e 3e 20 61 64 64 72 65 73 73 22 20 22 55 6e 74 65 72 ┆alformed <..@..> address" "Unter┆
0x0d40…0d60 6d 69 6e 61 74 65 64 20 3c 2e 2e 2e 3e 20 61 64 64 72 65 73 73 22 20 6c 6f 6f 6b 69 6e 67 2d 61 ┆minated <...> address" looking-a┆
0x0d60…0d80 74 20 22 5b 5e 5d 5b 00 2d 1f 7f 2d ff 20 28 29 3c 3e 40 2c 3b 3a 5c 5c 2e 5d 22 20 22 2c 22 20 ┆t "[^][ - - ()<>@,;:\\.]" "," ┆
0x0d80…0da0 22 4d 69 73 73 69 6e 67 20 63 6f 6d 6d 61 20 6f 72 20 72 6f 75 74 65 2d 73 70 65 63 22 20 22 53 ┆"Missing comma or route-spec" "S┆
0x0da0…0dc0 74 72 61 6e 67 65 20 63 68 61 72 61 63 74 65 72 20 6f 72 20 6d 69 73 73 69 6e 67 20 63 6f 6d 6d ┆trange character or missing comm┆
0x0dc0…0de0 61 22 5d 20 34 30 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 72 66 63 38 32 32 2d 61 64 64 72 ┆a"] 40)] 2)) (defun rfc822-addr┆
0x0de0…0e00 65 73 73 65 73 20 28 68 65 61 64 65 72 2d 74 65 78 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆esses (header-text) (byte-code "┆
0x0e00…0e20 c8 c9 21 c2 19 18 ca 8e 8a 08 71 88 0b 63 88 65 62 88 cb cc c2 c4 23 85 5c 22 00 cd ce c4 5c 22 ┆ ! q c eb # \" \"┆
0x0e20…0e40 88 82 12 00 88 65 62 88 cf 20 88 c2 c2 c2 1e 07 1e 06 1d 6d 3f 85 68 00 60 89 16 07 88 d0 d1 8d ┆ eb m? h ` ┆
0x0e40…0e60 89 16 06 88 0e 06 3f 86 64 00 0e 06 3b 83 57 00 0e 06 0d 42 89 15 82 64 00 c4 85 64 00 d2 d3 0e ┆ ? d ; W B d d ┆
0x0e60…0e80 06 21 0d 5c 22 89 15 88 82 31 00 88 d3 0d 21 2b 29 29 2a 87 22 20 5b 62 75 66 20 63 61 73 65 2d ┆ ! \" 1 !+))* " [buf case-┆
0x0e80…0ea0 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 68 65 61 64 65 72 2d 74 65 78 74 20 74 20 6c 69 ┆fold-search nil header-text t li┆
0x0ea0…0ec0 73 74 20 74 65 6d 20 61 64 64 72 65 73 73 2d 73 74 61 72 74 20 67 65 6e 65 72 61 74 65 2d 6e 65 ┆st tem address-start generate-ne┆
0x0ec0…0ee0 77 2d 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 ┆w-buffer " rfc822" ((byte-code "┆
0x0ee0…0f00 08 85 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 ┆ ! " [buf kill-buffer] 2)) ┆
0x0f00…0f20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 28 5b 5e 5c 5c 5d 5c 5c 28 5c 5c ┆re-search-forward "\\([^\\]\\(\\┆
0x0f20…0f40 5c 5c 5c 5c 5c 5c 5c 5c 29 2a 5c 5c 29 0a 5b 20 09 5d 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 ┆\\\\\\\\)*\\) [ ]" replace-matc┆
0x0f40…0f60 68 20 22 5c 5c 31 20 22 20 72 66 63 38 32 32 2d 6e 75 6b 65 2d 77 68 69 74 65 73 70 61 63 65 20 ┆h "\\1 " rfc822-nuke-whitespace ┆
0x0f60…0f80 61 64 64 72 65 73 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 83 0a 00 c0 82 20 00 c4 c5 ┆address (byte-code " ! ┆
0x0f80…0fa0 21 83 19 00 c6 c7 c8 67 5c 22 21 82 20 00 c1 85 20 00 c9 c1 21 87 22 20 5b 6e 69 6c 20 74 20 72 ┆! g\"! ! " [nil t r┆
0x0fa0…0fc0 66 63 38 32 32 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 20 34 34 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 ┆fc822-looking-at 44 looking-at "┆
0x0fc0…0fe0 5b 5d 5b 00 2d 1f 7f 2d ff 40 3b 3a 5c 5c 2e 5d 22 20 72 66 63 38 32 32 2d 62 61 64 2d 61 64 64 ┆[][ - - @;:\\.]" rfc822-bad-add┆
0x0fe0…1000 72 65 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 ┆ress format "Strange character \┆
0x1000…1020 5c 25 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 36 ┆\%c found" rfc822-addresses-1] 6┆
0x1020…1036 29 20 6e 63 6f 6e 63 20 6e 72 65 76 65 72 73 65 5d 20 39 29 29 0a ┆) nconc nreverse] 9)) ┆