Mercurial > emacs
annotate lisp/mail/mail-extr.el @ 28678:b132db55ef7e
(struct Lisp_Buffer_Cons): Remove.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 21 Apr 2000 13:00:58 +0000 |
parents | f597d85734d7 |
children | aca2b7839d21 |
rev | line source |
---|---|
809 | 1 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header. |
2 | |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
809
diff
changeset
|
4 |
809 | 5 ;; Author: Joe Wells <jbw@cs.bu.edu> |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
6 ;; Maintainer: FSF |
809 | 7 ;; Keywords: mail |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
809 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
809 | 25 |
26 ;;; Commentary: | |
27 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
28 ;; The entry point of this code is |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
29 ;; |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
30 ;; mail-extract-address-components: (address &optional all) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
31 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
32 ;; Given an RFC-822 ADDRESS, extract full name and canonical address. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
33 ;; Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
34 ;; If no name can be extracted, FULL-NAME will be nil. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
35 ;; ADDRESS may be a string or a buffer. If it is a buffer, the visible |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
36 ;; (narrowed) portion of the buffer will be interpreted as the address. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
37 ;; (This feature exists so that the clever caller might be able to avoid |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
38 ;; consing a string.) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
39 ;; If ADDRESS contains more than one RFC-822 address, only the first is |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
40 ;; returned. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
41 ;; |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
42 ;; If ALL is non-nil, that means return info about all the addresses |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
43 ;; that are found in ADDRESS. The value is a list of elements of |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
44 ;; the form (FULL-NAME CANONICAL-ADDRESS), one per address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
45 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
46 ;; This code is more correct (and more heuristic) parser than the code in |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
47 ;; rfc822.el. And despite its size, it's fairly fast. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
48 ;; |
809 | 49 ;; There are two main benefits: |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
50 ;; |
809 | 51 ;; 1. Higher probability of getting the correct full name for a human than |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
52 ;; any other package we know of. (On the other hand, it will cheerfully |
809 | 53 ;; mangle non-human names/comments.) |
54 ;; 2. Address part is put in a canonical form. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
55 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
56 ;; The interface is not yet carved in stone; please give us suggestions. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
57 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
58 ;; We have an extensive test-case collection of funny addresses if you want to |
809 | 59 ;; work with the code. Developing this code requires frequent testing to |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
60 ;; make sure you're not breaking functionality. The test cases aren't included |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
61 ;; because they are over 100K. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
62 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
63 ;; If you find an address that mail-extr fails on, please send it to the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
64 ;; maintainer along with what you think the correct results should be. We do |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
65 ;; not consider it a bug if mail-extr mangles a comment that does not |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
66 ;; correspond to a real human full name, although we would prefer that |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
67 ;; mail-extr would return the comment as-is. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
68 ;; |
809 | 69 ;; Features: |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
70 ;; |
809 | 71 ;; * Full name handling: |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
72 ;; |
809 | 73 ;; * knows where full names can be found in an address. |
74 ;; * avoids using empty comments and quoted text. | |
75 ;; * extracts full names from mailbox names. | |
76 ;; * recognizes common formats for comments after a full name. | |
77 ;; * puts a period and a space after each initial. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
78 ;; * understands & referring to the mailbox name, capitalized. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
79 ;; * strips name prefixes like "Prof.", etc. |
809 | 80 ;; * understands what characters can occur in names (not just letters). |
81 ;; * figures out middle initial from mailbox name. | |
82 ;; * removes funny nicknames. | |
83 ;; * keeps suffixes such as Jr., Sr., III, etc. | |
84 ;; * reorders "Last, First" type names. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
85 ;; |
809 | 86 ;; * Address handling: |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
87 ;; |
809 | 88 ;; * parses rfc822 quoted text, comments, and domain literals. |
89 ;; * parses rfc822 multi-line headers. | |
90 ;; * does something reasonable with rfc822 GROUP addresses. | |
91 ;; * handles many rfc822 noncompliant and garbage addresses. | |
92 ;; * canonicalizes addresses (after stripping comments/phrases outside <>). | |
93 ;; * converts ! addresses into .UUCP and %-style addresses. | |
94 ;; * converts rfc822 ROUTE addresses to %-style addresses. | |
95 ;; * truncates %-style addresses at leftmost fully qualified domain name. | |
96 ;; * handles local relative precedence of ! vs. % and @ (untested). | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
97 ;; |
809 | 98 ;; It does almost no string creation. It primarily uses the built-in |
99 ;; parsing routines with the appropriate syntax tables. This should | |
100 ;; result in greater speed. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
101 ;; |
809 | 102 ;; TODO: |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
103 ;; |
809 | 104 ;; * handle all test cases. (This will take forever.) |
105 ;; * software to pick the correct header to use (eg., "Senders-Name:"). | |
106 ;; * multiple addresses in the "From:" header (almost all of the necessary | |
107 ;; code is there). | |
108 ;; * flag to not treat `,' as an address separator. (This is useful when | |
109 ;; there is a "From:" header but no "Sender:" header, because then there | |
110 ;; is only allowed to be one address.) | |
111 ;; * mailbox name does not necessarily contain full name. | |
112 ;; * fixing capitalization when it's all upper or lowercase. (Hard!) | |
113 ;; * some of the domain literal handling is missing. (But I've never even | |
114 ;; seen one of these in a mail address, so maybe no big deal.) | |
115 ;; * arrange to have syntax tables byte-compiled. | |
116 ;; * speed hacks. | |
117 ;; * delete unused variables. | |
118 ;; * arrange for testing with different relative precedences of ! vs. @ | |
119 ;; and %. | |
120 ;; * insert documentation strings! | |
121 ;; * handle X.400-gatewayed addresses according to RFC 1148. | |
122 | |
123 ;;; Change Log: | |
124 ;; | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
125 ;; Thu Feb 17 17:57:33 1994 Jamie Zawinski (jwz@lucid.com) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
126 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
127 ;; * merged with jbw's latest version |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
128 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
129 ;; Wed Feb 9 21:56:27 1994 Jamie Zawinski (jwz@lucid.com) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
130 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
131 ;; * high-bit chars in comments weren't treated as word syntax |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
132 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
133 ;; Sat Feb 5 03:13:40 1994 Jamie Zawinski (jwz@lucid.com) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
134 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
135 ;; * call replace-match with fixed-case arg |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
136 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
137 ;; Thu Dec 16 21:56:45 1993 Jamie Zawinski (jwz@lucid.com) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
138 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
139 ;; * some more cleanup, doc, added provide |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
140 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
141 ;; Tue Mar 23 21:23:18 1993 Joe Wells (jbw at csd.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
142 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
143 ;; * Made mail-full-name-prefixes a user-customizable variable. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
144 ;; Allow passing the address as a buffer as well as as a string. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
145 ;; Allow [ and ] as name characters (Finnish character set). |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
146 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
147 ;; Mon Mar 22 21:20:56 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
148 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
149 ;; * Handle "null" addresses. Handle = used for spacing in mailbox |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
150 ;; name. Fix bug in handling of ROUTE-ADDR-type addresses that are |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
151 ;; missing their brackets. Handle uppercase "JR". Extract full |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
152 ;; names from X.400 addresses encoded in RFC-822. Fix bug in |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
153 ;; handling of multiple addresses where first has trailing comment. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
154 ;; Handle more kinds of telephone extension lead-ins. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
155 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
156 ;; Mon Mar 22 20:16:57 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
157 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
158 ;; * Handle HZ encoding for embedding GB encoded chinese characters. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
159 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
160 ;; Mon Mar 22 00:46:12 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
161 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
162 ;; * Fixed too broad matching of ham radio call signs. Fixed bug in |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
163 ;; handling an unmatched ' in a name string. Enhanced recognition |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
164 ;; of when . in the mailbox name terminates the name portion. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
165 ;; Narrowed conversion of . to space to only the necessary |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
166 ;; situation. Deal with VMS's stupid date stamps. Handle a unique |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
167 ;; way of introducing an alternate address. Fixed spacing bug I |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
168 ;; introduced in switching last name order. Fixed bug in handling |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
169 ;; address with ! and % but no @. Narrowed the cases in which |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
170 ;; certain trailing words are discarded. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
171 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
172 ;; Sun Mar 21 21:41:06 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
173 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
174 ;; * Fixed bugs in handling GROUP addresses. Certain words in the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
175 ;; middle of a name no longer terminate it. Handle LISTSERV list |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
176 ;; names. Ignore comment field containing mailbox name. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
177 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
178 ;; Sun Mar 21 14:39:38 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
179 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
180 ;; * Moved variant-method code back into main function. Handle |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
181 ;; underscores as spaces in comments. Handle leading nickname. Add |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
182 ;; flag to ignore single-word names. Other changes. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
183 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
184 ;; Mon Feb 1 22:23:31 1993 Joe Wells (jbw at bigbird.bu.edu) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
185 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
186 ;; * Added in changes by Rod Whitby and Jamie Zawinski. This |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
187 ;; includes the flag mail-extr-guess-middle-initial and the fix for |
7133 | 188 ;; handling multiple addresses correctly. (Whitby just changed |
189 ;; a > to a <.) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
190 ;; |
809 | 191 ;; Mon Apr 6 23:59:09 1992 Joe Wells (jbw at bigbird.bu.edu) |
192 ;; | |
193 ;; * Cleaned up some more. Release version 1.0 to world. | |
194 ;; | |
195 ;; Sun Apr 5 19:39:08 1992 Joe Wells (jbw at bigbird.bu.edu) | |
196 ;; | |
197 ;; * Cleaned up full name extraction extensively. | |
198 ;; | |
199 ;; Sun Feb 2 14:45:24 1992 Joe Wells (jbw at bigbird.bu.edu) | |
200 ;; | |
201 ;; * Total rewrite. Integrated mail-canonicalize-address into | |
202 ;; mail-extract-address-components. Now handles GROUP addresses more | |
203 ;; or less correctly. Better handling of lots of different cases. | |
204 ;; | |
205 ;; Fri Jun 14 19:39:50 1991 | |
206 ;; * Created. | |
207 | |
208 ;;; Code: | |
209 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
210 |
20962 | 211 (defgroup mail-extr nil |
212 "Extract full name and address from RFC 822 mail header." | |
213 :prefix "mail-extr-" | |
214 :group 'mail) | |
215 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
216 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
217 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
218 ;; User configuration variable definitions. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
219 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
220 |
20962 | 221 (defcustom mail-extr-guess-middle-initial nil |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
222 "*Whether to try to guess middle initial from mail address. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
223 If true, then when we see an address like \"John Smith <jqs@host.com>\" |
20962 | 224 we will assume that \"John Q. Smith\" is the fellow's name." |
225 :type 'boolean | |
226 :group 'mail-extr) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
227 |
20962 | 228 (defcustom mail-extr-ignore-single-names t |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
229 "*Whether to ignore a name that is just a single word. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
230 If true, then when we see an address like \"Idiot <dumb@stupid.com>\" |
20962 | 231 we will act as though we couldn't find a full name in the address." |
232 :type 'boolean | |
233 :group 'mail-extr) | |
809 | 234 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
235 ;; Matches a leading title that is not part of the name (does not |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
236 ;; contribute to uniquely identifying the person). |
20962 | 237 (defcustom mail-extr-full-name-prefixes |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
238 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
239 "\\(Prof\\|D[Rr]\\|Mrs?\\|Rev\\|Rabbi\\|SysOp\\|LCDR\\)\\.?[ \t\n]") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
240 "*Matches prefixes to the full name that identify a person's position. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
241 These are stripped from the full name because they do not contribute to |
20962 | 242 uniquely identifying the person." |
243 :type 'regexp | |
244 :group 'mail-extr) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
245 |
20962 | 246 (defcustom mail-extr-@-binds-tighter-than-! nil |
247 "*Whether the local mail transport agent looks at ! before @." | |
248 :type 'boolean | |
249 :group 'mail-extr) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
250 |
20962 | 251 (defcustom mail-extr-mangle-uucp nil |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
252 "*Whether to throw away information in UUCP addresses |
20962 | 253 by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." |
254 :type 'boolean | |
255 :group 'mail-extr) | |
809 | 256 |
257 ;;---------------------------------------------------------------------- | |
258 ;; what orderings are meaningful????? | |
259 ;;(defvar mail-operator-precedence-list '(?! ?% ?@)) | |
260 ;; Right operand of a % or a @ must be a domain name, period. No other | |
261 ;; operators allowed. Left operand of a @ is an address relative to that | |
262 ;; site. | |
263 | |
264 ;; Left operand of a ! must be a domain name. Right operand is an | |
265 ;; arbitrary address. | |
266 ;;---------------------------------------------------------------------- | |
267 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
268 |
809 | 269 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
270 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
271 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
272 ;; Constant definitions. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
273 ;; |
809 | 274 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
275 ;; Codes in |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
276 ;; Names in ISO 8859-1 Name |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
277 ;; ISO 10XXX ISO 8859-2 in |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
278 ;; ISO 6937 ISO 10646 RFC Swedish |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
279 ;; etc. Hex Oct 1345 TeX Split ASCII Description |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
280 ;; --------- ---------- ---- --- ----- ----- ------------------------------- |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
281 ;; %a E4 344 a: \"a ae { latin small a + diaeresis d |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
282 ;; %o F6 366 o: \"o oe | latin small o + diaeresis v |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
283 ;; @a E5 345 aa \oa aa } latin small a + ring above e |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
284 ;; %u FC 374 u: \"u ue ~ latin small u + diaeresis | |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
285 ;; /e E9 351 e' \'e ` latin small e + acute i |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
286 ;; %A C4 304 A: \"A AE [ latin capital a + diaeresis D |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
287 ;; %O D6 326 O: \"O OE \ latin capital o + diaeresis V |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
288 ;; @A C5 305 AA \oA AA ] latin capital a + ring above E |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
289 ;; %U DC 334 U: \"U UE ^ latin capital u + diaeresis \ |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
290 ;; /E C9 311 E' \'E @ latin capital e + acute I |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
291 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
292 ;; NOTE: @a and @A are not in ISO 8859-2 (the codes mentioned above invoke |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
293 ;; /l and /L). Some of this data was retrieved from |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
294 ;; listserv@jhuvm.hcf.jhu.edu. |
809 | 295 |
296 ;; Any character that can occur in a name, not counting characters that | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
297 ;; separate parts of a multipart name (hyphen and period). |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
298 ;; Yes, there are weird people with digits in their names. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
299 ;; You will also notice the consideration for the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
300 ;; Swedish/Finnish/Norwegian character set. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
301 (defconst mail-extr-all-letters-but-separators |
25439
f597d85734d7
(mail-extr-all-letters-but-separators)
Richard M. Stallman <rms@gnu.org>
parents:
21477
diff
changeset
|
302 (purecopy "][[:alnum:]{|}'~`")) |
809 | 303 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
304 ;; Any character that can occur in a name in an RFC822 address including |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
305 ;; the separator (hyphen and possibly period) for multipart names. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
306 ;; #### should . be in here? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
307 (defconst mail-extr-all-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
308 (purecopy (concat mail-extr-all-letters-but-separators "---"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
309 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
310 ;; Any character that can start a name. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
311 ;; Keep this set as minimal as possible. |
25439
f597d85734d7
(mail-extr-all-letters-but-separators)
Richard M. Stallman <rms@gnu.org>
parents:
21477
diff
changeset
|
312 (defconst mail-extr-first-letters (purecopy "[:alpha:]")) |
809 | 313 |
314 ;; Any character that can end a name. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
315 ;; Keep this set as minimal as possible. |
25439
f597d85734d7
(mail-extr-all-letters-but-separators)
Richard M. Stallman <rms@gnu.org>
parents:
21477
diff
changeset
|
316 (defconst mail-extr-last-letters (purecopy "[:alpha:]`'.")) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
317 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
318 (defconst mail-extr-leading-garbage |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
319 (purecopy (format "[^%s]+" mail-extr-first-letters))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
320 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
321 ;; (defconst mail-extr-non-name-chars |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
322 ;; (purecopy (concat "^" mail-extr-all-letters "."))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
323 ;; (defconst mail-extr-non-begin-name-chars |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
324 ;; (purecopy (concat "^" mail-extr-first-letters))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
325 ;; (defconst mail-extr-non-end-name-chars |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
326 ;; (purecopy (concat "^" mail-extr-last-letters))) |
809 | 327 |
328 ;; Matches an initial not followed by both a period and a space. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
329 ;; (defconst mail-extr-bad-initials-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
330 ;; (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
331 ;; (format "\\(\\([^%s]\\|\\`\\)[%s]\\)\\(\\.\\([^ ]\\)\\| \\|\\([^%s .]\\)\\|\\'\\)" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
332 ;; mail-extr-all-letters mail-extr-first-letters mail-extr-all-letters))) |
809 | 333 |
334 ;; Matches periods used instead of spaces. Must not match the period | |
335 ;; following an initial. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
336 (defconst mail-extr-bad-dot-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
337 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
338 (format "\\([%s][%s]\\)\\.+\\([%s]\\)" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
339 mail-extr-all-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
340 mail-extr-last-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
341 mail-extr-first-letters))) |
809 | 342 |
343 ;; Matches an embedded or leading nickname that should be removed. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
344 ;; (defconst mail-extr-nickname-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
345 ;; (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
346 ;; (format "\\([ .]\\|\\`\\)[\"'`\[\(]\\([ .%s]+\\)[\]\"'\)] " |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
347 ;; mail-extr-all-letters))) |
809 | 348 |
349 ;; Matches the occurrence of a generational name suffix, and the last | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
350 ;; character of the preceding name. This is important because we want to |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
351 ;; keep such suffixes: they help to uniquely identify the person. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
352 ;; *** Perhaps this should be a user-customizable variable. However, the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
353 ;; *** regular expression is fairly tricky to alter, so maybe not. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
354 (defconst mail-extr-full-name-suffix-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
355 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
356 (format |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
357 "\\(,? ?\\([JjSs][Rr]\\.?\\|V?I+V?\\)\\)\\([^%s]\\([^%s]\\|\\'\\)\\|\\'\\)" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
358 mail-extr-all-letters mail-extr-all-letters))) |
809 | 359 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
360 (defconst mail-extr-roman-numeral-pattern (purecopy "V?I+V?\\b")) |
809 | 361 |
362 ;; Matches a trailing uppercase (with other characters possible) acronym. | |
363 ;; Must not match a trailing uppercase last name or trailing initial | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
364 (defconst mail-extr-weird-acronym-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
365 (purecopy "\\([A-Z]+[-_/]\\|[A-Z][A-Z][A-Z]?\\b\\)")) |
809 | 366 |
367 ;; Matches a mixed-case or lowercase name (not an initial). | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
368 ;; #### Match Latin1 lower case letters here too? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
369 ;; (defconst mail-extr-mixed-case-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
370 ;; (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
371 ;; (format |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
372 ;; "\\b\\([a-z][%s]*[%s]\\|[%s][%s]*[a-z][%s]*[%s]\\|[%s][%s]*[a-z]\\)" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
373 ;; mail-extr-all-letters mail-extr-last-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
374 ;; mail-extr-first-letters mail-extr-all-letters mail-extr-all-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
375 ;; mail-extr-last-letters mail-extr-first-letters mail-extr-all-letters))) |
809 | 376 |
377 ;; Matches a trailing alternative address. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
378 ;; #### Match Latin1 letters here too? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
379 ;; #### Match _ before @ here too? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
380 (defconst mail-extr-alternative-address-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
381 (purecopy "\\(aka *\\)?[a-zA-Z.]+[!@][a-zA-Z.]")) |
809 | 382 |
383 ;; Matches a variety of trailing comments not including comma-delimited | |
384 ;; comments. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
385 (defconst mail-extr-trailing-comment-start-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
386 (purecopy " [-{]\\|--\\|[+@#></\;]")) |
809 | 387 |
388 ;; Matches a name (not an initial). | |
389 ;; This doesn't force a word boundary at the end because sometimes a | |
390 ;; comment is separated by a `-' with no preceding space. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
391 (defconst mail-extr-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
392 (purecopy (format "\\b[%s][%s]*[%s]" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
393 mail-extr-first-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
394 mail-extr-all-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
395 mail-extr-last-letters))) |
809 | 396 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
397 (defconst mail-extr-initial-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
398 (purecopy (format "\\b[%s]\\([. ]\\|\\b\\)" mail-extr-first-letters))) |
809 | 399 |
400 ;; Matches a single name before a comma. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
401 ;; (defconst mail-extr-last-name-first-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
402 ;; (purecopy (concat "\\`" mail-extr-name-pattern ","))) |
809 | 403 |
404 ;; Matches telephone extensions. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
405 (defconst mail-extr-telephone-extension-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
406 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
407 "\\(\\([Ee]xt\\|\\|[Tt]ph\\|[Tt]el\\|[Xx]\\).?\\)? *\\+?[0-9][- 0-9]+")) |
809 | 408 |
409 ;; Matches ham radio call signs. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
410 ;; Help from: Mat Maessen N2NJZ <maessm@rpi.edu>, Mark Feit |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
411 ;; <mark@era.com>, Michael Covington <mcovingt@ai.uga.edu>. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
412 ;; Examples: DX504 DX515 K5MRU K8DHK KA9WGN KA9WGN KD3FU KD6EUI KD6HBW |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
413 ;; KE9TV KF0NV N1API N3FU N3GZE N3IGS N4KCC N7IKQ N9HHU W4YHF W6ANK WA2SUH |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
414 ;; WB7VZI N2NJZ NR3G KJ4KK AB4UM AL7NI KH6OH WN3KBT N4TMI W1A N0NZO |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
415 (defconst mail-extr-ham-call-sign-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
416 (purecopy "\\b\\(DX[0-9]+\\|[AKNW][A-Z]?[0-9][A-Z][A-Z]?[A-Z]?\\)")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
417 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
418 ;; Possible trailing suffixes: "\\(/\\(KT\\|A[AEG]\\|[R0-9]\\)\\)?" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
419 ;; /KT == Temporary Technician (has CSC but not "real" license) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
420 ;; /AA == Temporary Advanced |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
421 ;; /AE == Temporary Extra |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
422 ;; /AG == Temporary General |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
423 ;; /R == repeater |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
424 ;; /# == stations operating out of home district |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
425 ;; I don't include these in the regexp above because I can't imagine |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
426 ;; anyone putting them with their name in an e-mail address. |
809 | 427 |
428 ;; Matches normal single-part name | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
429 (defconst mail-extr-normal-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
430 (purecopy (format "\\b[%s][%s]+[%s]" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
431 mail-extr-first-letters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
432 mail-extr-all-letters-but-separators |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
433 mail-extr-last-letters))) |
809 | 434 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
435 ;; Matches a single word name. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
436 ;; (defconst mail-extr-one-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
437 ;; (purecopy (concat "\\`" mail-extr-normal-name-pattern "\\'"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
438 |
809 | 439 ;; Matches normal two names with missing middle initial |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
440 ;; The first name is not allowed to have a hyphen because this can cause |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
441 ;; false matches where the "middle initial" is actually the first letter |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
442 ;; of the second part of the first name. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
443 (defconst mail-extr-two-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
444 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
445 (concat "\\`\\(" mail-extr-normal-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
446 "\\|" mail-extr-initial-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
447 "\\) +\\(" mail-extr-name-pattern "\\)\\(,\\|\\'\\)"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
448 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
449 (defconst mail-extr-listserv-list-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
450 (purecopy "Multiple recipients of list \\([-A-Z]+\\)")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
451 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
452 (defconst mail-extr-stupid-vms-date-stamp-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
453 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
454 "[0-9][0-9]-[JFMASOND][aepuco][nbrylgptvc]-[0-9][0-9][0-9][0-9] [0-9]+ *")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
455 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
456 ;;; HZ -- GB (PRC Chinese character encoding) in ASCII embedding protocol |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
457 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
458 ;; In ASCII mode, a byte is interpreted as an ASCII character, unless a '~' is |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
459 ;; encountered. The character '~' is an escape character. By convention, it |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
460 ;; must be immediately followed ONLY by '~', '{' or '\n' (<LF>), with the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
461 ;; following special meaning. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
462 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
463 ;; o The escape sequence '~~' is interpreted as a '~'. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
464 ;; o The escape-to-GB sequence '~{' switches the mode from ASCII to GB. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
465 ;; o The escape sequence '~\n' is a line-continuation marker to be consumed |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
466 ;; with no output produced. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
467 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
468 ;; In GB mode, characters are interpreted two bytes at a time as (pure) GB |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
469 ;; codes until the escape-from-GB code '~}' is read. This code switches the |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
470 ;; mode from GB back to ASCII. (Note that the escape-from-GB code '~}' |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
471 ;; ($7E7D) is outside the defined GB range.) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
472 (defconst mail-extr-hz-embedded-gb-encoded-chinese-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
473 (purecopy "~{\\([^~].\\|~[^\}]\\)+~}")) |
809 | 474 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
475 ;; The leading optional lowercase letters are for a bastardized version of |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
476 ;; the encoding, as is the optional nature of the final slash. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
477 (defconst mail-extr-x400-encoded-address-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
478 (purecopy "[a-z]?[a-z]?\\(/[A-Za-z]+\\(\\.[A-Za-z]+\\)?=[^/]+\\)+/?\\'")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
479 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
480 (defconst mail-extr-x400-encoded-address-field-pattern-format |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
481 (purecopy "/%s=\\([^/]+\\)\\(/\\|\\'\\)")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
482 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
483 (defconst mail-extr-x400-encoded-address-surname-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
484 ;; S stands for Surname (family name). |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
485 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
486 (format mail-extr-x400-encoded-address-field-pattern-format "[Ss]"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
487 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
488 (defconst mail-extr-x400-encoded-address-given-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
489 ;; G stands for Given name. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
490 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
491 (format mail-extr-x400-encoded-address-field-pattern-format "[Gg]"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
492 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
493 (defconst mail-extr-x400-encoded-address-full-name-pattern |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
494 ;; PN stands for Personal Name. When used it represents the combination |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
495 ;; of the G and S fields. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
496 ;; "The one system I used having this field asked it with the prompt |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
497 ;; `Personal Name'. But they mapped it into G and S on outgoing real |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
498 ;; X.400 addresses. As they mapped G and S into PN on incoming..." |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
499 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
500 (format mail-extr-x400-encoded-address-field-pattern-format "[Pp][Nn]"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
501 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
502 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
503 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
504 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
505 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
506 ;; Syntax tables used for quick parsing. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
507 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
508 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
509 (defconst mail-extr-address-syntax-table (make-syntax-table)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
510 (defconst mail-extr-address-comment-syntax-table (make-syntax-table)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
511 (defconst mail-extr-address-domain-literal-syntax-table (make-syntax-table)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
512 (defconst mail-extr-address-text-comment-syntax-table (make-syntax-table)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
513 (defconst mail-extr-address-text-syntax-table (make-syntax-table)) |
809 | 514 (mapcar |
515 (function | |
516 (lambda (pair) | |
517 (let ((syntax-table (symbol-value (car pair)))) | |
518 (mapcar | |
519 (function | |
520 (lambda (item) | |
521 (if (eq 2 (length item)) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
522 ;; modifying syntax of a single character |
809 | 523 (modify-syntax-entry (car item) (car (cdr item)) syntax-table) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
524 ;; modifying syntax of a range of characters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
525 (let ((char (nth 0 item)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
526 (bound (nth 1 item)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
527 (syntax (nth 2 item))) |
809 | 528 (while (<= char bound) |
529 (modify-syntax-entry char syntax syntax-table) | |
530 (setq char (1+ char))))))) | |
531 (cdr pair))))) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
532 '((mail-extr-address-syntax-table |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
533 (?\000 ?\037 "w") ;control characters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
534 (?\040 " ") ;SPC |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
535 (?! ?~ "w") ;printable characters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
536 (?\177 "w") ;DEL |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
537 (?\200 ?\377 "w") ;high-bit-on characters |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
538 (?\240 " ") ;nobreakspace |
809 | 539 (?\t " ") |
540 (?\r " ") | |
541 (?\n " ") | |
542 (?\( ".") | |
543 (?\) ".") | |
544 (?< ".") | |
545 (?> ".") | |
546 (?@ ".") | |
547 (?, ".") | |
548 (?\; ".") | |
549 (?: ".") | |
550 (?\\ "\\") | |
551 (?\" "\"") | |
552 (?. ".") | |
553 (?\[ ".") | |
554 (?\] ".") | |
555 ;; % and ! aren't RFC822 characters, but it is convenient to pretend | |
556 (?% ".") | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
557 (?! ".") ;; this needs to be word-constituent when not in .UUCP mode |
809 | 558 ) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
559 (mail-extr-address-comment-syntax-table |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
560 (?\000 ?\377 "w") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
561 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
562 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
563 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
564 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
565 (?\n " ") |
809 | 566 (?\( "\(\)") |
567 (?\) "\)\(") | |
568 (?\\ "\\")) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
569 (mail-extr-address-domain-literal-syntax-table |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
570 (?\000 ?\377 "w") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
571 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
572 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
573 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
574 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
575 (?\n " ") |
809 | 576 (?\[ "\(\]") ;?????? |
577 (?\] "\)\[") ;?????? | |
578 (?\\ "\\")) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
579 (mail-extr-address-text-comment-syntax-table |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
580 (?\000 ?\377 "w") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
581 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
582 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
583 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
584 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
585 (?\n " ") |
809 | 586 (?\( "\(\)") |
587 (?\) "\)\(") | |
588 (?\[ "\(\]") | |
589 (?\] "\)\[") | |
590 (?\{ "\(\}") | |
591 (?\} "\)\{") | |
592 (?\\ "\\") | |
593 (?\" "\"") | |
594 ;; (?\' "\)\`") | |
595 ;; (?\` "\(\'") | |
596 ) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
597 (mail-extr-address-text-syntax-table |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
598 (?\000 ?\177 ".") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
599 (?\200 ?\377 "w") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
600 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
601 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
602 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
603 (?\n " ") |
809 | 604 (?A ?Z "w") |
605 (?a ?z "w") | |
606 (?- "w") | |
607 (?\} "w") | |
608 (?\{ "w") | |
609 (?| "w") | |
610 (?\' "w") | |
611 (?~ "w") | |
612 (?0 ?9 "w")) | |
613 )) | |
614 | |
615 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
616 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
617 ;; |
809 | 618 ;; Utility functions and macros. |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
619 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
620 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
621 (defmacro mail-extr-delete-char (n) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
622 ;; in v19, delete-char is compiled as a function call, but delete-region |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
623 ;; is byte-coded, so it's much much faster. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
624 (list 'delete-region '(point) (list '+ '(point) n))) |
809 | 625 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
626 (defmacro mail-extr-skip-whitespace-forward () |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
627 ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
628 '(skip-chars-forward " \t\n\r\240")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
629 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
630 (defmacro mail-extr-skip-whitespace-backward () |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
631 ;; v19 fn skip-syntax-backward is more tasteful, but not byte-coded. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
632 '(skip-chars-backward " \t\n\r\240")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
633 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
634 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
635 (defmacro mail-extr-undo-backslash-quoting (beg end) |
809 | 636 (`(save-excursion |
637 (save-restriction | |
638 (narrow-to-region (, beg) (, end)) | |
639 (goto-char (point-min)) | |
640 ;; undo \ quoting | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
641 (while (search-forward "\\" nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
642 (mail-extr-delete-char -1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
643 (or (eobp) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
644 (forward-char 1)) |
809 | 645 ))))) |
646 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
647 (defmacro mail-extr-nuke-char-at (pos) |
809 | 648 (` (save-excursion |
649 (goto-char (, pos)) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
650 (mail-extr-delete-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
651 (insert ?\ )))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
652 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
653 (put 'mail-extr-nuke-outside-range |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
654 'edebug-form-spec '(symbolp &optional form form atom)) |
809 | 655 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
656 (defmacro mail-extr-nuke-outside-range (list-symbol |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
657 beg-symbol end-symbol |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
658 &optional no-replace) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
659 ;; LIST-SYMBOL names a variable holding a list of buffer positions |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
660 ;; BEG-SYMBOL and END-SYMBOL name variables delimiting a range |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
661 ;; Each element of LIST-SYMBOL which lies outside of the range is |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
662 ;; deleted from the list. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
663 ;; Unless NO-REPLACE is true, at each of the positions in LIST-SYMBOL |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
664 ;; which lie outside of the range, one character at that position is |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
665 ;; replaced with a SPC. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
666 (or (memq no-replace '(t nil)) |
14029
8812f5ef65db
(mail-extr-nuke-outside-range): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
13959
diff
changeset
|
667 (error "no-replace must be t or nil, evaluable at macroexpand-time")) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
668 (` (let ((temp (, list-symbol)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
669 ch) |
809 | 670 (while temp |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
671 (setq ch (car temp)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
672 (cond ((or (> ch (, end-symbol)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
673 (< ch (, beg-symbol))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
674 (,@ (if no-replace |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
675 nil |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
676 (` ((mail-extr-nuke-char-at ch))))) |
809 | 677 (setcar temp nil))) |
678 (setq temp (cdr temp))) | |
679 (setq (, list-symbol) (delq nil (, list-symbol)))))) | |
680 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
681 (defun mail-extr-demarkerize (marker) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
682 ;; if arg is a marker, destroys the marker, then returns the old value. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
683 ;; otherwise returns the arg. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
684 (if (markerp marker) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
685 (let ((temp (marker-position marker))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
686 (set-marker marker nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
687 temp) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
688 marker)) |
809 | 689 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
690 (defun mail-extr-markerize (pos) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
691 ;; coerces pos to a marker if non-nil. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
692 (if (or (markerp pos) (null pos)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
693 pos |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
694 (copy-marker pos))) |
809 | 695 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
696 (defmacro mail-extr-last (list) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
697 ;; Returns last element of LIST. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
698 ;; Could be a subst. |
809 | 699 (` (let ((list (, list))) |
700 (while (not (null (cdr list))) | |
701 (setq list (cdr list))) | |
702 (car list)))) | |
703 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
704 (defmacro mail-extr-safe-move-sexp (arg) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
705 ;; Safely skip over one balanced sexp, if there is one. Return t if success. |
809 | 706 (` (condition-case error |
707 (progn | |
16176
f2728b5d7085
(mail-extr-safe-move-sexp): Make sure this doesn't
Richard M. Stallman <rms@gnu.org>
parents:
15520
diff
changeset
|
708 (goto-char (or (scan-sexps (point) (, arg)) (point))) |
809 | 709 t) |
710 (error | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
711 ;; #### kludge kludge kludge kludge kludge kludge kludge !!! |
809 | 712 (if (string-equal (nth 1 error) "Unbalanced parentheses") |
713 nil | |
714 (while t | |
715 (signal (car error) (cdr error)))))))) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
716 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
717 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
718 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
719 ;; The main function to grind addresses |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
720 ;; |
809 | 721 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
722 (defvar disable-initial-guessing-flag) ; dynamic assignment |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
723 (defvar cbeg) ; dynamic assignment |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
724 (defvar cend) ; dynamic assignment |
809 | 725 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
726 ;;;###autoload |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
727 (defun mail-extract-address-components (address &optional all) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
728 "Given an RFC-822 address ADDRESS, extract full name and canonical address. |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
729 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
730 If no name can be extracted, FULL-NAME will be nil. |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
731 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
732 If the optional argument ALL is non-nil, then ADDRESS can contain zero |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
733 or more recipients, separated by commas, and we return a list of |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
734 the form ((FULL-NAME CANONICAL-ADDRESS) ...) with one element for |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
735 each recipient. If ALL is nil, then if ADDRESS contains more than |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
736 one recipients, all but the first is ignored. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
737 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
738 ADDRESS may be a string or a buffer. If it is a buffer, the visible |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
739 (narrowed) portion of the buffer will be interpreted as the address. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
740 (This feature exists so that the clever caller might be able to avoid |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
741 consing a string.)" |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
742 (let ((canonicalization-buffer (get-buffer-create " *canonical address*")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
743 (extraction-buffer (get-buffer-create " *extract address components*")) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
744 value-list) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
745 |
809 | 746 (save-excursion |
747 (set-buffer extraction-buffer) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
748 (fundamental-mode) |
923 | 749 (buffer-disable-undo extraction-buffer) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
750 (set-syntax-table mail-extr-address-syntax-table) |
809 | 751 (widen) |
752 (erase-buffer) | |
753 (setq case-fold-search nil) | |
754 | |
755 ;; Insert extra space at beginning to allow later replacement with < | |
756 ;; without having to move markers. | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
757 (insert ?\ ) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
758 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
759 ;; Insert the address itself. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
760 (cond ((stringp address) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
761 (insert address)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
762 ((bufferp address) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
763 (insert-buffer-substring address)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
764 (t |
14029
8812f5ef65db
(mail-extr-nuke-outside-range): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
13959
diff
changeset
|
765 (error "Invalid address: %s" address))) |
16727
45d9891b03b2
(mail-extract-address-components): Clear text props
Richard M. Stallman <rms@gnu.org>
parents:
16699
diff
changeset
|
766 |
45d9891b03b2
(mail-extract-address-components): Clear text props
Richard M. Stallman <rms@gnu.org>
parents:
16699
diff
changeset
|
767 (set-text-properties (point-min) (point-max) nil) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
768 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
769 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
770 (set-buffer canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
771 (fundamental-mode) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
772 (buffer-disable-undo canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
773 (set-syntax-table mail-extr-address-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
774 (setq case-fold-search nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
775 |
809 | 776 |
777 ;; Unfold multiple lines. | |
778 (goto-char (point-min)) | |
779 (while (re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ \t]" nil t) | |
780 (replace-match "\\1 " t)) | |
781 | |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
782 ;; Loop over addresses until we have as many as we want. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
783 (while (and (or all (null value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
784 (progn (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
785 (skip-chars-forward " \t") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
786 (not (eobp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
787 (let (char |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
788 end-of-address |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
789 <-pos >-pos @-pos colon-pos comma-pos !-pos %-pos \;-pos |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
790 group-:-pos group-\;-pos route-addr-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
791 record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
792 first-real-pos last-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
793 phrase-beg phrase-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
794 cbeg cend ; dynamically set from -voodoo |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
795 quote-beg quote-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
796 atom-beg atom-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
797 mbox-beg mbox-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
798 \.-ends-name |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
799 temp |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
800 ;; name-suffix |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
801 fi mi li ; first, middle, last initial |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
802 saved-%-pos saved-!-pos saved-@-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
803 domain-pos \.-pos insert-point |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
804 ;; mailbox-name-processed-flag |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
805 disable-initial-guessing-flag) ; dynamically set from -voodoo |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
806 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
807 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
808 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
809 ;; Insert extra space at beginning to allow later replacement with < |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
810 ;; without having to move markers. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
811 (or (eq (following-char) ?\ ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
812 (insert ?\ )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
813 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
814 ;; First pass grabs useful information about address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
815 (while (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
816 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
817 (not (eobp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
818 (setq char (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
819 (or first-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
820 (if (not (eq char ?\()) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
821 (setq first-real-pos (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
822 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
823 ;; comment |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
824 ((eq char ?\() |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
825 (set-syntax-table mail-extr-address-comment-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
826 ;; only record the first non-empty comment's position |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
827 (if (and (not cbeg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
828 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
829 (forward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
830 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
831 (not (eq ?\) (char-after (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
832 (setq cbeg (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
833 ;; TODO: don't record if unbalanced |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
834 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
835 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
836 (set-syntax-table mail-extr-address-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
837 (if (and cbeg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
838 (not cend)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
839 (setq cend (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
840 ;; quoted text |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
841 ((eq char ?\") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
842 ;; only record the first non-empty quote's position |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
843 (if (and (not quote-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
844 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
845 (forward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
846 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
847 (not (eq ?\" (char-after (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
848 (setq quote-beg (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
849 ;; TODO: don't record if unbalanced |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
850 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
851 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
852 (if (and quote-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
853 (not quote-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
854 (setq quote-end (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
855 ;; domain literals |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
856 ((eq char ?\[) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
857 (set-syntax-table mail-extr-address-domain-literal-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
858 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
859 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
860 (set-syntax-table mail-extr-address-syntax-table)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
861 ;; commas delimit addresses when outside < > pairs. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
862 ((and (eq char ?,) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
863 (or (and (null <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
864 ;; Handle ROUTE-ADDR address that is missing its <. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
865 (not (eq ?@ (char-after (1+ (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
866 (and >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
867 ;; handle weird munged addresses |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
868 ;; BUG FIX: This test was reversed. Thanks to the |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
869 ;; brilliant Rod Whitby <rwhitby@research.canon.oz.au> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
870 ;; for discovering this! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
871 (< (mail-extr-last <-pos) (car >-pos))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
872 ;; The argument contains more than one address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
873 ;; Temporarily hide everything after this one. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
874 (setq end-of-address (copy-marker (1+ (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
875 (narrow-to-region (point-min) (1+ (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
876 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
877 (setq char ?\() ; HAVE I NO SHAME?? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
878 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
879 ;; record the position of various interesting chars, determine |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
880 ;; legality later. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
881 ((setq record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
882 (cdr (assq char |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
883 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
884 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
885 (?% . %-pos) (?\; . \;-pos))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
886 (set record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
887 (cons (point) (symbol-value record-pos-symbol))) |
809 | 888 (forward-char 1)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
889 ((eq char ?.) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
890 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
891 ((memq char '( |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
892 ;; comment terminator illegal |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
893 ?\) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
894 ;; domain literal terminator illegal |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
895 ?\] |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
896 ;; \ allowed only within quoted strings, |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
897 ;; domain literals, and comments |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
898 ?\\ |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
899 )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
900 (mail-extr-nuke-char-at (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
901 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
902 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
903 (forward-word 1))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
904 (or (eq char ?\() |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
905 ;; At the end of first address of a multiple address header. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
906 (and (eq char ?,) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
907 (eobp)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
908 (setq last-real-pos (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
909 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
910 ;; Use only the leftmost <, if any. Replace all others with spaces. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
911 (while (cdr <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
912 (mail-extr-nuke-char-at (car <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
913 (setq <-pos (cdr <-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
914 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
915 ;; Use only the rightmost >, if any. Replace all others with spaces. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
916 (while (cdr >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
917 (mail-extr-nuke-char-at (nth 1 >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
918 (setcdr >-pos (nthcdr 2 >-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
919 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
920 ;; If multiple @s and a :, but no < and >, insert around buffer. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
921 ;; Example: @foo.bar.dom,@xxx.yyy.zzz:mailbox@aaa.bbb.ccc |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
922 ;; This commonly happens on the UUCP "From " line. Ugh. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
923 (cond ((and (> (length @-pos) 1) |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
924 (eq 1 (length colon-pos)) ;TODO: check if between last two @s |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
925 (not \;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
926 (not <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
927 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
928 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
929 (setq <-pos (list (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
930 (insert ?<))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
931 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
932 ;; If < but no >, insert > in rightmost possible position |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
933 (cond ((and <-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
934 (null >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
935 (goto-char (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
936 (setq >-pos (list (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
937 (insert ?>))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
938 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
939 ;; If > but no <, replace > with space. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
940 (cond ((and >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
941 (null <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
942 (mail-extr-nuke-char-at (car >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
943 (setq >-pos nil))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
944 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
945 ;; Turn >-pos and <-pos into non-lists |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
946 (setq >-pos (car >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
947 <-pos (car <-pos)) |
809 | 948 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
949 ;; Trim other punctuation lists of items outside < > pair to handle |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
950 ;; stupid MTAs. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
951 (cond (<-pos ; don't need to check >-pos also |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
952 ;; handle bozo software that violates RFC 822 by sticking |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
953 ;; punctuation marks outside of a < > pair |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
954 (mail-extr-nuke-outside-range @-pos <-pos >-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
955 ;; RFC 822 says nothing about these two outside < >, but |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
956 ;; remove those positions from the lists to make things |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
957 ;; easier. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
958 (mail-extr-nuke-outside-range !-pos <-pos >-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
959 (mail-extr-nuke-outside-range %-pos <-pos >-pos t))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
960 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
961 ;; Check for : that indicates GROUP list and for : part of |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
962 ;; ROUTE-ADDR spec. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
963 ;; Can't possibly be more than two :. Nuke any extra. |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
964 (while colon-pos |
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
965 (setq temp (car colon-pos) |
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
966 colon-pos (cdr colon-pos)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
967 (cond ((and <-pos >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
968 (> temp <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
969 (< temp >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
970 (if (or route-addr-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
971 (< (length @-pos) 2) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
972 (> temp (car @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
973 (< temp (nth 1 @-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
974 (mail-extr-nuke-char-at temp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
975 (setq route-addr-:-pos temp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
976 ((or (not <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
977 (and <-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
978 (< temp <-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
979 (setq group-:-pos temp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
980 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
981 ;; Nuke any ; that is in or to the left of a < > pair or to the left |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
982 ;; of a GROUP starting :. Also, there may only be one ;. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
983 (while \;-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
984 (setq temp (car \;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
985 \;-pos (cdr \;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
986 (cond ((and <-pos >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
987 (> temp <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
988 (< temp >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
989 (mail-extr-nuke-char-at temp)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
990 ((and (or (not group-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
991 (> temp group-:-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
992 (not group-\;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
993 (setq group-\;-pos temp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
994 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
995 ;; Nuke unmatched GROUP syntax characters. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
996 (cond ((and group-:-pos (not group-\;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
997 ;; *** Do I really need to erase it? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
998 (mail-extr-nuke-char-at group-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
999 (setq group-:-pos nil))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1000 (cond ((and group-\;-pos (not group-:-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1001 ;; *** Do I really need to erase it? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1002 (mail-extr-nuke-char-at group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1003 (setq group-\;-pos nil))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1004 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1005 ;; Handle junk like ";@host.company.dom" that sendmail adds. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1006 ;; **** should I remember comment positions? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1007 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1008 (group-\;-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1009 ;; this is fine for now |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1010 (mail-extr-nuke-outside-range !-pos group-:-pos group-\;-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1011 (mail-extr-nuke-outside-range @-pos group-:-pos group-\;-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1012 (mail-extr-nuke-outside-range %-pos group-:-pos group-\;-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1013 (mail-extr-nuke-outside-range comma-pos group-:-pos group-\;-pos t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1014 (and last-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1015 (> last-real-pos (1+ group-\;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1016 (setq last-real-pos (1+ group-\;-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1017 ;; *** This may be wrong: |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1018 (and cend |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1019 (> cend group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1020 (setq cend nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1021 cbeg nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1022 (and quote-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1023 (> quote-end group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1024 (setq quote-end nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1025 quote-beg nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1026 ;; This was both wrong and unnecessary: |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1027 ;;(narrow-to-region (point-min) group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1028 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1029 ;; *** The entire handling of GROUP addresses seems rather lame. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1030 ;; *** It deserves a complete rethink, except that these addresses |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1031 ;; *** are hardly ever seen. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1032 )) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1033 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1034 ;; Any commas must be between < and : of ROUTE-ADDR. Nuke any |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1035 ;; others. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1036 ;; Hell, go ahead an nuke all of the commas. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1037 ;; **** This will cause problems when we start handling commas in |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1038 ;; the PHRASE part .... no it won't ... yes it will ... ????? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1039 (mail-extr-nuke-outside-range comma-pos 1 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1040 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1041 ;; can only have multiple @s inside < >. The fact that some MTAs |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1042 ;; put de-bracketed ROUTE-ADDRs in the UUCP-style "From " line is |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1043 ;; handled above. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1044 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1045 ;; Locate PHRASE part of ROUTE-ADDR. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1046 (cond (<-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1047 (goto-char <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1048 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1049 (setq phrase-end (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1050 (goto-char (or ;;group-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1051 (point-min))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1052 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1053 (if (< (point) phrase-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1054 (setq phrase-beg (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1055 (setq phrase-end nil)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1056 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1057 ;; handle ROUTE-ADDRS with real ROUTEs. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1058 ;; If there are multiple @s, then we assume ROUTE-ADDR syntax, and |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1059 ;; any % or ! must be semantically meaningless. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1060 ;; TODO: do this processing into canonicalization buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1061 (cond (route-addr-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1062 (setq !-pos nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1063 %-pos nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1064 >-pos (copy-marker >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1065 route-addr-:-pos (copy-marker route-addr-:-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1066 (goto-char >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1067 (insert-before-markers ?X) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1068 (goto-char (car @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1069 (while (setq @-pos (cdr @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1070 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1071 (setq %-pos (cons (point-marker) %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1072 (insert "%") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1073 (goto-char (1- >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1074 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1075 (insert-buffer-substring extraction-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1076 (car @-pos) route-addr-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1077 (delete-region (car @-pos) route-addr-:-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1078 (or (cdr @-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1079 (setq saved-@-pos (list (point))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1080 (setq @-pos saved-@-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1081 (goto-char >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1082 (mail-extr-delete-char -1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1083 (mail-extr-nuke-char-at route-addr-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1084 (mail-extr-demarkerize route-addr-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1085 (setq route-addr-:-pos nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1086 >-pos (mail-extr-demarkerize >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1087 %-pos (mapcar 'mail-extr-demarkerize %-pos)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1088 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1089 ;; de-listify @-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1090 (setq @-pos (car @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1091 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1092 ;; TODO: remove comments in the middle of an address |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1093 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1094 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1095 (set-buffer canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1096 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1097 (widen) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1098 (erase-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1099 (insert-buffer-substring extraction-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1100 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1101 (if <-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1102 (narrow-to-region (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1103 (goto-char (1+ <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1104 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1105 (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1106 >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1107 (if (and first-real-pos last-real-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1108 (narrow-to-region first-real-pos last-real-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1109 ;; ****** Oh no! What if the address is completely empty! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1110 ;; *** Is this correct? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1111 (narrow-to-region (point-max) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1112 )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1113 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1114 (and @-pos %-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1115 (mail-extr-nuke-outside-range %-pos (point-min) @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1116 (and %-pos !-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1117 (mail-extr-nuke-outside-range !-pos (point-min) (car %-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1118 (and @-pos !-pos (not %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1119 (mail-extr-nuke-outside-range !-pos (point-min) @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1120 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1121 ;; Error condition:?? (and %-pos (not @-pos)) |
809 | 1122 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1123 ;; WARNING: THIS CODE IS DUPLICATED BELOW. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1124 (cond ((and %-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1125 (not @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1126 (goto-char (car %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1127 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1128 (setq @-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1129 (insert "@") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1130 (setq %-pos (cdr %-pos)))) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1131 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1132 (if mail-extr-mangle-uucp |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1133 (cond (!-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1134 ;; **** I don't understand this save-restriction and the |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1135 ;; narrow-to-region inside it. Why did I do that? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1136 (save-restriction |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1137 (cond ((and @-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1138 mail-extr-@-binds-tighter-than-!) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1139 (goto-char @-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1140 (setq %-pos (cons (point) %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1141 @-pos nil) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1142 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1143 (insert "%") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1144 (setq insert-point (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1145 (mail-extr-@-binds-tighter-than-! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1146 (setq insert-point (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1147 (%-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1148 (setq insert-point (mail-extr-last %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1149 saved-%-pos (mapcar 'mail-extr-markerize %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1150 %-pos nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1151 @-pos (mail-extr-markerize @-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1152 (@-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1153 (setq insert-point @-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1154 (setq @-pos (mail-extr-markerize @-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1155 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1156 (setq insert-point (point-max)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1157 (narrow-to-region (point-min) insert-point) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1158 (setq saved-!-pos (car !-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1159 (while !-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1160 (goto-char (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1161 (cond ((and (not @-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1162 (not (cdr !-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1163 (setq @-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1164 (insert-before-markers "@ ")) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1165 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1166 (setq %-pos (cons (point) %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1167 (insert-before-markers "% "))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1168 (backward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1169 (insert-buffer-substring |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1170 (current-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1171 (if (nth 1 !-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1172 (1+ (nth 1 !-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1173 (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1174 (car !-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1175 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1176 (or (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1177 (mail-extr-safe-move-sexp -1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1178 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1179 (eq ?. (preceding-char))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1180 (insert-before-markers |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1181 (if (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1182 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1183 (eq ?. (preceding-char))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1184 "" |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1185 ".") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1186 "uucp")) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1187 (setq !-pos (cdr !-pos)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1188 (and saved-%-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1189 (setq %-pos (append (mapcar 'mail-extr-demarkerize |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1190 saved-%-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1191 %-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1192 (setq @-pos (mail-extr-demarkerize @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1193 (narrow-to-region (1+ saved-!-pos) (point-max))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1194 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1195 ;; WARNING: THIS CODE IS DUPLICATED ABOVE. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1196 (cond ((and %-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1197 (not @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1198 (goto-char (car %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1199 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1200 (setq @-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1201 (insert "@") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1202 (setq %-pos (cdr %-pos)))) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1203 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1204 (setq %-pos (nreverse %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1205 (cond (%-pos ; implies @-pos valid |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1206 (setq temp %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1207 (catch 'truncated |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1208 (while temp |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1209 (goto-char (or (nth 1 temp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1210 @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1211 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1212 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1213 (mail-extr-safe-move-sexp -1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1214 (setq domain-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1215 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1216 (setq \.-pos (eq ?. (preceding-char)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1217 (cond ((and \.-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1218 ;; #### string consing |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1219 (let ((s (intern-soft |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1220 (buffer-substring domain-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1221 mail-extr-all-top-level-domains))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1222 (and s (get s 'domain-name)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1223 (narrow-to-region (point-min) (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1224 (goto-char (car temp)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1225 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1226 (setq @-pos (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1227 (setcdr temp nil) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1228 (setq %-pos (delq @-pos %-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1229 (insert "@") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1230 (throw 'truncated t))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1231 (setq temp (cdr temp)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1232 (setq mbox-beg (point-min) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1233 mbox-end (if %-pos (car %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1234 (or @-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1235 (point-max))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1236 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1237 ;; Done canonicalizing address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1238 ;; We are now back in extraction-buffer. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1239 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1240 ;; Decide what part of the address to search to find the full name. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1241 (cond ( |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1242 ;; Example: "First M. Last" <fml@foo.bar.dom> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1243 (and phrase-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1244 (eq quote-beg phrase-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1245 (<= quote-end phrase-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1246 (narrow-to-region (1+ quote-beg) (1- quote-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1247 (mail-extr-undo-backslash-quoting (point-min) (point-max))) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1248 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1249 ;; Example: First Last <fml@foo.bar.dom> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1250 (phrase-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1251 (narrow-to-region phrase-beg phrase-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1252 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1253 ;; Example: fml@foo.bar.dom (First M. Last) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1254 (cbeg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1255 (narrow-to-region (1+ cbeg) (1- cend)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1256 (mail-extr-undo-backslash-quoting (point-min) (point-max)) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1257 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1258 ;; Deal with spacing problems |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1259 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1260 ;;; (cond ((not (search-forward " " nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1261 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1262 ;;; (cond ((search-forward "_" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1263 ;;; ;; Handle the *idiotic* use of underlines as spaces. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1264 ;;; ;; Example: fml@foo.bar.dom (First_M._Last) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1265 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1266 ;;; (while (search-forward "_" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1267 ;;; (replace-match " " t))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1268 ;;; ((search-forward "." nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1269 ;;; ;; Fix . used as space |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1270 ;;; ;; Example: danj1@cb.att.com (daniel.jacobson) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1271 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1272 ;;; (while (re-search-forward mail-extr-bad-dot-pattern nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1273 ;;; (replace-match "\\1 \\2" t)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1274 ) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1275 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1276 ;; Otherwise we try to get the name from the mailbox portion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1277 ;; of the address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1278 ;; Example: First_M_Last@foo.bar.dom |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1279 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1280 ;; *** Work in canon buffer instead? No, can't. Hmm. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1281 (goto-char (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1282 (narrow-to-region (point) (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1283 (insert-buffer-substring canonicalization-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1284 mbox-beg mbox-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1285 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1286 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1287 ;; Example: First_Last.XXX@foo.bar.dom |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1288 (setq \.-ends-name (re-search-forward "[_0-9]" nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1289 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1290 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1291 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1292 (if (not mail-extr-mangle-uucp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1293 (modify-syntax-entry ?! "w" (syntax-table))) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1294 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1295 (while (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1296 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1297 (not (eobp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1298 (setq char (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1299 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1300 ((eq char ?\") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1301 (setq quote-beg (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1302 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1303 ;; TODO: handle this error condition!!!!! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1304 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1305 ;; take into account deletions |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1306 (setq quote-end (- (point) 2)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1307 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1308 (backward-char 1) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1309 (mail-extr-delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1310 (goto-char quote-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1311 (or (eobp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1312 (mail-extr-delete-char 1))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1313 (mail-extr-undo-backslash-quoting quote-beg quote-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1314 (or (eq ?\ (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1315 (insert " ")) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1316 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1317 (setq \.-ends-name t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1318 ((eq char ?.) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1319 (if (memq (char-after (1+ (point))) '(?_ ?=)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1320 (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1321 (forward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1322 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1323 (insert ?\ )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1324 (if \.-ends-name |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1325 (narrow-to-region (point-min) (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1326 (mail-extr-delete-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1327 (insert " "))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1328 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1329 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1330 ((memq (char-syntax char) '(?. ?\\)) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1331 (mail-extr-delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1332 (insert " ") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1333 ;; (setq mailbox-name-processed-flag t) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1334 ) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1335 (t |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1336 (setq atom-beg (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1337 (forward-word 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1338 (setq atom-end (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1339 (goto-char atom-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1340 (save-restriction |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1341 (narrow-to-region atom-beg atom-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1342 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1343 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1344 ;; Handle X.400 addresses encoded in RFC-822. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1345 ;; *** Shit! This has to handle the case where it is |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1346 ;; *** embedded in a quote too! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1347 ;; *** Shit! The input is being broken up into atoms |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1348 ;; *** by periods! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1349 ((looking-at mail-extr-x400-encoded-address-pattern) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1350 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1351 ;; Copy the contents of the individual fields that |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1352 ;; might hold name data to the beginning. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1353 (mapcar |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1354 (function |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1355 (lambda (field-pattern) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1356 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1357 ((save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1358 (re-search-forward field-pattern nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1359 (insert-buffer-substring (current-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1360 (match-beginning 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1361 (match-end 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1362 (insert " "))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1363 (list mail-extr-x400-encoded-address-given-name-pattern |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1364 mail-extr-x400-encoded-address-surname-pattern |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1365 mail-extr-x400-encoded-address-full-name-pattern)) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1366 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1367 ;; Discard the rest, since it contains stuff like |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1368 ;; routing information, not part of a name. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1369 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1370 (delete-region (point) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1371 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1372 ;; Handle periods used for spacing. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1373 (while (re-search-forward mail-extr-bad-dot-pattern nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1374 (replace-match "\\1 \\2" t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1375 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1376 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1377 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1378 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1379 ;; Handle normal addresses. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1380 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1381 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1382 ;; Handle _ and = used for spacing. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1383 (while (re-search-forward "\\([^_=]+\\)[_=]" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1384 (replace-match "\\1 " t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1385 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1386 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1387 (goto-char (point-max)))))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1388 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1389 ;; undo the dirty deed |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1390 (if (not mail-extr-mangle-uucp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1391 (modify-syntax-entry ?! "." (syntax-table))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1392 ;; |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1393 ;; If we derived the name from the mailbox part of the address, |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1394 ;; and we only got one word out of it, don't treat that as a |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1395 ;; name. "foo@bar" --> (nil "foo@bar"), not ("foo" "foo@bar") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1396 ;; (if (not mailbox-name-processed-flag) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1397 ;; (delete-region (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1398 )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1399 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1400 (set-syntax-table mail-extr-address-text-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1401 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1402 (mail-extr-voodoo mbox-beg mbox-end canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1403 (goto-char (point-min)) |
809 | 1404 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1405 ;; If name is "First Last" and userid is "F?L", then assume |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1406 ;; the middle initial is the second letter in the userid. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1407 ;; Initial code by Jamie Zawinski <jwz@lucid.com> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1408 ;; *** Make it work when there's a suffix as well. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1409 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1410 (cond ((and mail-extr-guess-middle-initial |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1411 (not disable-initial-guessing-flag) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1412 (eq 3 (- mbox-end mbox-beg)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1413 (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1414 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1415 (looking-at mail-extr-two-name-pattern))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1416 (setq fi (char-after (match-beginning 0)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1417 li (char-after (match-beginning 3))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1418 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1419 (set-buffer canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1420 ;; char-equal is ignoring case here, so no need to upcase |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1421 ;; or downcase. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1422 (let ((case-fold-search t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1423 (and (char-equal fi (char-after mbox-beg)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1424 (char-equal li (char-after (1- mbox-end))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1425 (setq mi (char-after (1+ mbox-beg)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1426 (cond ((and mi |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1427 ;; TODO: use better table than syntax table |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1428 (eq ?w (char-syntax mi))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1429 (goto-char (match-beginning 3)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1430 (insert (upcase mi) ". "))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1431 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1432 ;; Nuke name if it is the same as mailbox name. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1433 (let ((buffer-length (- (point-max) (point-min))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1434 (i 0) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1435 (names-match-flag t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1436 (cond ((and (> buffer-length 0) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1437 (eq buffer-length (- mbox-end mbox-beg))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1438 (goto-char (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1439 (insert-buffer-substring canonicalization-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1440 mbox-beg mbox-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1441 (while (and names-match-flag |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1442 (< i buffer-length)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1443 (or (eq (downcase (char-after (+ i (point-min)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1444 (downcase |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1445 (char-after (+ i buffer-length (point-min))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1446 (setq names-match-flag nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1447 (setq i (1+ i))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1448 (delete-region (+ (point-min) buffer-length) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1449 (if names-match-flag |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1450 (narrow-to-region (point) (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1451 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1452 ;; Nuke name if it's just one word. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1453 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1454 (and mail-extr-ignore-single-names |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1455 (not (re-search-forward "[- ]" nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1456 (narrow-to-region (point) (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1457 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1458 ;; Record the result |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1459 (setq value-list |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1460 (cons (list (if (not (= (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1461 (buffer-string)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1462 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1463 (set-buffer canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1464 (if (not (= (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1465 (buffer-string)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1466 value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1467 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1468 ;; Unless one address is all we wanted, |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1469 ;; delete this one from extraction-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1470 ;; and get ready to extract the next address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1471 (when all |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1472 (if end-of-address |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1473 (narrow-to-region 1 end-of-address) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1474 (widen)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1475 (delete-region (point-min) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1476 (widen)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1477 ))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1478 (if all (nreverse value-list) (car value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1479 )) |
809 | 1480 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1481 (defun mail-extr-voodoo (mbox-beg mbox-end canonicalization-buffer) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1482 (let ((word-count 0) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1483 (case-fold-search nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1484 mixed-case-flag lower-case-flag ;;upper-case-flag |
809 | 1485 suffix-flag last-name-comma-flag |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1486 ;;cbeg cend |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1487 initial |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1488 begin-again-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1489 drop-this-word-if-trailing-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1490 drop-last-word-if-trailing-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1491 word-found-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1492 this-word-beg last-word-beg |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1493 name-beg name-end |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1494 name-done-flag |
809 | 1495 ) |
1496 (save-excursion | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1497 (set-syntax-table mail-extr-address-text-syntax-table) |
18816
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1498 |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1499 ;; Get rid of comments. |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1500 (goto-char (point-min)) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1501 (while (not (eobp)) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1502 ;; Initialize for this iteration of the loop. |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1503 (skip-chars-forward "^({[\"'`") |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1504 (let ((cbeg (point))) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1505 (set-syntax-table mail-extr-address-text-comment-syntax-table) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1506 (cond ((memq (following-char) '(?\' ?\`)) |
19006
8a0265f609ff
(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.
Richard M. Stallman <rms@gnu.org>
parents:
18816
diff
changeset
|
1507 (search-forward "'" nil 'move |
18816
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1508 (if (eq ?\' (following-char)) 2 1))) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1509 (t |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1510 (or (mail-extr-safe-move-sexp 1) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1511 (goto-char (point-max))))) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1512 (set-syntax-table mail-extr-address-text-syntax-table) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1513 (when (eq (char-after cbeg) ?\() |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1514 ;; Delete the comment itself. |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1515 (delete-region cbeg (point)) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1516 ;; Canonicalize whitespace where the comment was. |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1517 (skip-chars-backward " \t") |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1518 (if (looking-at "\\([ \t]+$\\|[ \t]+,\\)") |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1519 (replace-match "") |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1520 (setq cbeg (point)) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1521 (skip-chars-forward " \t") |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1522 (if (bobp) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1523 (delete-region (point) cbeg) |
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1524 (just-one-space)))))) |
809 | 1525 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1526 ;; This was moved above. |
809 | 1527 ;; Fix . used as space |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1528 ;; But it belongs here because it occurs not only as |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1529 ;; rypens@reks.uia.ac.be (Piet.Rypens) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1530 ;; but also as |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1531 ;; "Piet.Rypens" <rypens@reks.uia.ac.be> |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1532 ;;(goto-char (point-min)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1533 ;;(while (re-search-forward mail-extr-bad-dot-pattern nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1534 ;; (replace-match "\\1 \\2" t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1535 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1536 (cond ((not (search-forward " " nil t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1537 (goto-char (point-min)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1538 (cond ((search-forward "_" nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1539 ;; Handle the *idiotic* use of underlines as spaces. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1540 ;; Example: fml@foo.bar.dom (First_M._Last) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1541 (goto-char (point-min)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1542 (while (search-forward "_" nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1543 (replace-match " " t))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1544 ((search-forward "." nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1545 ;; Fix . used as space |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1546 ;; Example: danj1@cb.att.com (daniel.jacobson) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1547 (goto-char (point-min)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1548 (while (re-search-forward mail-extr-bad-dot-pattern nil t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1549 (replace-match "\\1 \\2" t)))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1550 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1551 ;; Loop over the words (and other junk) in the name. |
809 | 1552 (goto-char (point-min)) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1553 (while (not name-done-flag) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1554 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1555 (cond (word-found-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1556 ;; Last time through this loop we skipped over a word. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1557 (setq last-word-beg this-word-beg) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1558 (setq drop-last-word-if-trailing-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1559 drop-this-word-if-trailing-flag) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1560 (setq word-found-flag nil))) |
809 | 1561 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1562 (cond (begin-again-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1563 ;; Last time through the loop we found something that |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1564 ;; indicates we should pretend we are beginning again from |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1565 ;; the start. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1566 (setq word-count 0) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1567 (setq last-word-beg nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1568 (setq drop-last-word-if-trailing-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1569 (setq mixed-case-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1570 (setq lower-case-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1571 ;; (setq upper-case-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1572 (setq begin-again-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1573 )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1574 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1575 ;; Initialize for this iteration of the loop. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1576 (mail-extr-skip-whitespace-forward) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1577 (if (eq word-count 0) (narrow-to-region (point) (point-max))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1578 (setq this-word-beg (point)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1579 (setq drop-this-word-if-trailing-flag nil) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1580 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1581 ;; Decide what to do based on what we are looking at. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1582 (cond |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1583 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1584 ;; Delete title |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1585 ((and (eq word-count 0) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1586 (looking-at mail-extr-full-name-prefixes)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1587 (goto-char (match-end 0)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1588 (narrow-to-region (point) (point-max))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1589 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1590 ;; Stop after name suffix |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1591 ((and (>= word-count 2) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1592 (looking-at mail-extr-full-name-suffix-pattern)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1593 (mail-extr-skip-whitespace-backward) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1594 (setq suffix-flag (point)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1595 (if (eq ?, (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1596 (forward-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1597 (insert ?,)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1598 ;; Enforce at least one space after comma |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1599 (or (eq ?\ (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1600 (insert ?\ )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1601 (mail-extr-skip-whitespace-forward) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1602 (cond ((memq (following-char) '(?j ?J ?s ?S)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1603 (capitalize-word 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1604 (if (eq (following-char) ?.) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1605 (forward-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1606 (insert ?.))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1607 (t |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1608 (upcase-word 1))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1609 (setq word-found-flag t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1610 (setq name-done-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1611 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1612 ;; Handle SCA names |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1613 ((looking-at "MKA \\(.+\\)") ; "Mundanely Known As" |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1614 (goto-char (match-beginning 1)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1615 (narrow-to-region (point) (point-max)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1616 (setq begin-again-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1617 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1618 ;; Check for initial last name followed by comma |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1619 ((and (eq ?, (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1620 (eq word-count 1)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1621 (forward-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1622 (setq last-name-comma-flag t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1623 (or (eq ?\ (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1624 (insert ?\ ))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1625 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1626 ;; Stop before trailing comma-separated comment |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1627 ;; THIS CASE MUST BE AFTER THE PRECEDING CASES. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1628 ;; *** This case is redundant??? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1629 ;;((eq ?, (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1630 ;; (setq name-done-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1631 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1632 ;; Delete parenthesized/quoted comment/nickname |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1633 ((memq (following-char) '(?\( ?\{ ?\[ ?\" ?\' ?\`)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1634 (setq cbeg (point)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1635 (set-syntax-table mail-extr-address-text-comment-syntax-table) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1636 (cond ((memq (following-char) '(?\' ?\`)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1637 (or (search-forward "'" nil t |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1638 (if (eq ?\' (following-char)) 2 1)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1639 (mail-extr-delete-char 1))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1640 (t |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1641 (or (mail-extr-safe-move-sexp 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1642 (goto-char (point-max))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1643 (set-syntax-table mail-extr-address-text-syntax-table) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1644 (setq cend (point)) |
809 | 1645 (cond |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1646 ;; Handle case of entire name being quoted |
809 | 1647 ((and (eq word-count 0) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1648 (looking-at " *\\'") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1649 (>= (- cend cbeg) 2)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1650 (narrow-to-region (1+ cbeg) (1- cend)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1651 (goto-char (point-min))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1652 (t |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1653 ;; Handle case of quoted initial |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1654 (if (and (or (= 3 (- cend cbeg)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1655 (and (= 4 (- cend cbeg)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1656 (eq ?. (char-after (+ 2 cbeg))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1657 (not (looking-at " *\\'"))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1658 (setq initial (char-after (1+ cbeg))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1659 (setq initial nil)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1660 (delete-region cbeg cend) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1661 (if initial |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1662 (insert initial ". "))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1663 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1664 ;; Handle *Stupid* VMS date stamps |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1665 ((looking-at mail-extr-stupid-vms-date-stamp-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1666 (replace-match "" t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1667 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1668 ;; Handle Chinese characters. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1669 ((looking-at mail-extr-hz-embedded-gb-encoded-chinese-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1670 (goto-char (match-end 0)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1671 (setq word-found-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1672 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1673 ;; Skip initial garbage characters. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1674 ;; THIS CASE MUST BE AFTER THE PRECEDING CASES. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1675 ((and (eq word-count 0) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1676 (looking-at mail-extr-leading-garbage)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1677 (goto-char (match-end 0)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1678 ;; *** Skip backward over these??? |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1679 ;; (skip-chars-backward "& \"") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1680 (narrow-to-region (point) (point-max))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1681 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1682 ;; Various stopping points |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1683 ((or |
809 | 1684 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1685 ;; Stop before ALL CAPS acronyms, if preceded by mixed-case |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1686 ;; words. Example: XT-DEM. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1687 (and (>= word-count 2) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1688 mixed-case-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1689 (looking-at mail-extr-weird-acronym-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1690 (not (looking-at mail-extr-roman-numeral-pattern))) |
809 | 1691 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1692 ;; Stop before trailing alternative address |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1693 (looking-at mail-extr-alternative-address-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1694 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1695 ;; Stop before trailing comment not introduced by comma |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1696 ;; THIS CASE MUST BE AFTER AN EARLIER CASE. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1697 (looking-at mail-extr-trailing-comment-start-pattern) |
809 | 1698 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1699 ;; Stop before telephone numbers |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1700 (looking-at mail-extr-telephone-extension-pattern)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1701 (setq name-done-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1702 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1703 ;; Delete ham radio call signs |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1704 ((looking-at mail-extr-ham-call-sign-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1705 (delete-region (match-beginning 0) (match-end 0))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1706 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1707 ;; Fixup initials |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1708 ((looking-at mail-extr-initial-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1709 (or (eq (following-char) (upcase (following-char))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1710 (setq lower-case-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1711 (forward-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1712 (if (eq ?. (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1713 (forward-char 1) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1714 (insert ?.)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1715 (or (eq ?\ (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1716 (insert ?\ )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1717 (setq word-found-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1718 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1719 ;; Handle BITNET LISTSERV list names. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1720 ((and (eq word-count 0) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1721 (looking-at mail-extr-listserv-list-name-pattern)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1722 (narrow-to-region (match-beginning 1) (match-end 1)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1723 (setq word-found-flag t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1724 (setq name-done-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1725 |
20400
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1726 ;; Handle & substitution, when & is last and is not first. |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1727 ((and (> word-count 0) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1728 (eq ?\ (preceding-char)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1729 (eq (following-char) ?&) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1730 (eq (1+ (point)) (point-max))) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1731 (mail-extr-delete-char 1) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1732 (capitalize-region |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1733 (point) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1734 (progn |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1735 (insert-buffer-substring canonicalization-buffer |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1736 mbox-beg mbox-end) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1737 (point))) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1738 (setq disable-initial-guessing-flag t) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1739 (setq word-found-flag t)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1740 |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1741 ;; Handle & between names, as in "Bob & Susie". |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1742 ((and (> word-count 0) (eq (following-char) ?\&)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1743 (setq name-beg (point)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1744 (setq name-end (1+ name-beg)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1745 (setq word-found-flag t) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1746 (goto-char name-end)) |
fd74979309d3
(mail-extr-voodoo): Allow & between names.
Richard M. Stallman <rms@gnu.org>
parents:
20285
diff
changeset
|
1747 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1748 ;; Regular name words |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1749 ((looking-at mail-extr-name-pattern) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1750 (setq name-beg (point)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1751 (setq name-end (match-end 0)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1752 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1753 ;; Certain words will be dropped if they are at the end. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1754 (and (>= word-count 2) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1755 (not lower-case-flag) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1756 (or |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1757 ;; A trailing 4-or-more letter lowercase words preceded by |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1758 ;; mixed case or uppercase words will be dropped. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1759 (looking-at "[a-z][a-z][a-z][a-z]+[ \t]*\\'") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1760 ;; Drop a trailing word which is terminated with a period. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1761 (eq ?. (char-after (1- name-end)))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1762 (setq drop-this-word-if-trailing-flag t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1763 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1764 ;; Set the flags that indicate whether we have seen a lowercase |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1765 ;; word, a mixed case word, and an uppercase word. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1766 (if (re-search-forward "[a-z]" name-end t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1767 (if (progn |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1768 (goto-char name-beg) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1769 (re-search-forward "[A-Z]" name-end t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1770 (setq mixed-case-flag t) |
809 | 1771 (setq lower-case-flag t)) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1772 ;; (setq upper-case-flag t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1773 ) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1774 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1775 (goto-char name-end) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1776 (setq word-found-flag t)) |
809 | 1777 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1778 (t |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1779 (setq name-done-flag t) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1780 )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1781 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1782 ;; Count any word that we skipped over. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1783 (if word-found-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1784 (setq word-count (1+ word-count)))) |
809 | 1785 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1786 ;; If the last thing in the name is 2 or more periods, or one or more |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1787 ;; other sentence terminators (but not a single period) then keep them |
13959 | 1788 ;; and the preceding word. This is for the benefit of whole sentences |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1789 ;; in the name field: it's better behavior than dropping the last word |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1790 ;; of the sentence... |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1791 (if (and (not suffix-flag) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1792 (looking-at "\\(\\.+\\|[?!;:.][?!;:.]+\\|[?!;:][?!;:.]*\\)\\'")) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1793 (goto-char (setq suffix-flag (point-max)))) |
809 | 1794 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1795 ;; Drop everything after point and certain trailing words. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1796 (narrow-to-region (point-min) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1797 (or (and drop-last-word-if-trailing-flag |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1798 last-word-beg) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1799 (point))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1800 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1801 ;; Xerox's mailers SUCK!!!!!! |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1802 ;; We simply refuse to believe that any last name is PARC or ADOC. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1803 ;; If it looks like that is the last name, that there is no meaningful |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1804 ;; here at all. Actually I guess it would be best to map patterns |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1805 ;; like foo.hoser@xerox.com into foo@hoser.xerox.com, but I don't |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1806 ;; actually know that that is what's going on. |
809 | 1807 (cond ((not suffix-flag) |
1808 (goto-char (point-min)) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1809 (let ((case-fold-search t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1810 (if (looking-at "[-A-Za-z_]+[. ]\\(PARC\\|ADOC\\)\\'") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1811 (erase-buffer))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1812 |
809 | 1813 ;; If last name first put it at end (but before suffix) |
1814 (cond (last-name-comma-flag | |
1815 (goto-char (point-min)) | |
1816 (search-forward ",") | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1817 (setq name-end (1- (point))) |
809 | 1818 (goto-char (or suffix-flag (point-max))) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1819 (or (eq ?\ (preceding-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1820 (insert ?\ )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1821 (insert-buffer-substring (current-buffer) (point-min) name-end) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1822 (goto-char name-end) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1823 (skip-chars-forward "\t ,") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1824 (narrow-to-region (point) (point-max)))) |
809 | 1825 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1826 ;; Delete leading and trailing junk characters. |
13959 | 1827 ;; *** This is probably completely unneeded now. |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1828 ;;(goto-char (point-max)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1829 ;;(skip-chars-backward mail-extr-non-end-name-chars) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1830 ;;(if (eq ?. (following-char)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1831 ;; (forward-char 1)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1832 ;;(narrow-to-region (point) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1833 ;; (progn |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1834 ;; (goto-char (point-min)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1835 ;; (skip-chars-forward mail-extr-non-begin-name-chars) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1836 ;; (point))) |
809 | 1837 |
1838 ;; Compress whitespace | |
1839 (goto-char (point-min)) | |
1840 (while (re-search-forward "[ \t\n]+" nil t) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1841 (replace-match (if (eobp) "" " ") t)) |
809 | 1842 ))) |
1843 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1844 |
809 | 1845 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1846 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1847 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1848 ;; Table of top-level domain names. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1849 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1850 ;; This is used during address canonicalization; be careful of format changes. |
809 | 1851 ;; Keep in mind that the country abbreviations follow ISO-3166. There is |
1852 ;; a U.S. FIPS that specifies a different set of two-letter country | |
1853 ;; abbreviations. | |
1854 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1855 (defconst mail-extr-all-top-level-domains |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1856 (let ((ob (make-vector 509 0))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1857 (mapcar |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1858 (function |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1859 (lambda (x) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1860 (put (intern (downcase (car x)) ob) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1861 'domain-name |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1862 (if (nth 2 x) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1863 (format (nth 2 x) (nth 1 x)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1864 (nth 1 x))))) |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1865 '( |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1866 ;; ISO 3166 codes: |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1867 ("ad" "Andorra") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1868 ("ae" "United Arab Emirates") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1869 ("ag" "Antigua and Barbuda") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1870 ("al" "Albania") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1871 ("am" "Armenia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1872 ("ao" "Angola") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1873 ("aq" "Antarctica") ; continent |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1874 ("ar" "Argentina" "Argentine Republic") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1875 ("at" "Austria" "The Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1876 ("au" "Australia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1877 ("az" "Azerbaijan") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1878 ("ba" "Bosnia-Herzegovina") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1879 ("bb" "Barbados") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1880 ("bd" "Bangladesh") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1881 ("be" "Belgium" "The Kingdom of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1882 ("bf" "Burkina Faso") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1883 ("bg" "Bulgaria") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1884 ("bh" "Bahrain") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1885 ("bm" "Bermuda") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1886 ("bo" "Bolivia" "Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1887 ("br" "Brazil" "The Federative Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1888 ("bs" "Bahamas") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1889 ("bw" "Botswana") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1890 ("by" "Belarus") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1891 ("bz" "Belize") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1892 ("ca" "Canada") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1893 ("cg" "Congo") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1894 ("ch" "Switzerland" "The Swiss Confederation") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1895 ("ci" "Ivory Coast") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1896 ("cl" "Chile" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1897 ("cm" "Cameroon") ; In .fr domain |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1898 ("cn" "China" "The People's Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1899 ("co" "Colombia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1900 ("cr" "Costa Rica" "The Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1901 ("cs" "Czechoslovakia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1902 ("cu" "Cuba") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1903 ("cy" "Cyprus") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1904 ("cz" "Czech Republic") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1905 ("de" "Germany") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1906 ("dk" "Denmark") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1907 ("dm" "Dominica") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1908 ("do" "Dominican Republic" "The %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1909 ("dz" "Algeria") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1910 ("ec" "Ecuador" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1911 ("ee" "Estonia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1912 ("eg" "Egypt" "The Arab Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1913 ("er" "Eritrea") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1914 ("es" "Spain" "The Kingdom of %s") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1915 ("et" "Ethiopia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1916 ("fi" "Finland" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1917 ("fo" "Faroe Islands") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1918 ("fr" "France") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1919 ("ga" "Gabon") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1920 ("gb" "United Kingdom") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1921 ("gd" "Grenada") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1922 ("ge" "Georgia") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1923 ("gf" "Guyana (Fr.)") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1924 ("gj" "Fiji") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1925 ("gl" "Greenland") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1926 ("gm" "Gambia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1927 ("gp" "Guadeloupe (Fr.)") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1928 ("gr" "Greece" "The Hellenic Republic (%s)") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1929 ("gt" "Guatemala") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1930 ("gu" "Guam (U.S.)") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1931 ("hk" "Hong Kong") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1932 ("hn" "Honduras") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1933 ("hr" "Croatia" "Croatia (Hrvatska)") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1934 ("ht" "Haiti") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1935 ("hu" "Hungary" "The Hungarian Republic") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1936 ("id" "Indonesia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1937 ("ie" "Ireland") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1938 ("il" "Israel" "The State of %s") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1939 ("im" "Isle of Man" "The %s") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1940 ("in" "India" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1941 ("ir" "Iran") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1942 ("is" "Iceland" "The Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1943 ("it" "Italy" "The Italian Republic") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1944 ("jm" "Jamaica") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1945 ("jo" "Jordan") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1946 ("jp" "Japan") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1947 ("ke" "Kenya") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1948 ("kn" "St. Kitts, Nevis, and Anguilla") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1949 ("kp" "Korea (North)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1950 ("kr" "Korea (South)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1951 ("kw" "Kuwait") |
13959 | 1952 ("kz" "Kazakhstan") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1953 ("lb" "Lebanon") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1954 ("lc" "St. Lucia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1955 ("li" "Liechtenstein") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1956 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1957 ("ls" "Lesotho") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1958 ("lt" "Lithuania") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1959 ("lu" "Luxembourg") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1960 ("lv" "Latvia") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1961 ("ma" "Morocco") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1962 ("mc" "Monaco") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1963 ("md" "Moldova" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1964 ("mg" "Madagascar") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1965 ("mk" "Macedonia") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1966 ("ml" "Mali") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1967 ("mo" "Macau") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1968 ("mt" "Malta") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1969 ("mu" "Mauritius") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1970 ("mv" "Maldives") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1971 ("mw" "Malawi") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1972 ("mx" "Mexico" "The United Mexican States") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1973 ("my" "Malaysia" "%s (changed to Myanmar?)") ;??? |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1974 ("mz" "Mozambique") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1975 ("na" "Namibia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1976 ("nc" "New Caledonia (Fr.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1977 ("ne" "Niger") ; In .fr domain |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1978 ("ni" "Nicaragua" "The Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1979 ("nl" "Netherlands" "The Kingdom of the %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1980 ("no" "Norway" "The Kingdom of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1981 ("np" "Nepal") ; Via .in domain |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1982 ("nu" "Niue") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1983 ("nz" "New Zealand") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1984 ("pa" "Panama") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1985 ("pe" "Peru") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1986 ("pf" "Polynesia (Fr.)") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1987 ("pg" "Papua New Guinea") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1988 ("ph" "Philippines" "The Republic of the %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1989 ("pk" "Pakistan") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1990 ("pl" "Poland") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1991 ("pr" "Puerto Rico (U.S.)") |
13959 | 1992 ("pt" "Portugal" "The Portuguese Republic") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1993 ("py" "Paraguay") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1994 ("qa" "Qatar") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1995 ("re" "Reunion (Fr.)") ; In .fr domain |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1996 ("ro" "Romania") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1997 ("ru" "Russian Federation") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1998 ("sa" "Saudi Arabia") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1999 ("sc" "Seychelles") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2000 ("sd" "Sudan") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2001 ("se" "Sweden" "The Kingdom of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2002 ("sg" "Singapore" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2003 ("si" "Slovenia") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2004 ("sj" "Svalbard and Jan Mayen Is.") ; In .no domain |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2005 ("sk" "Slovakia" "The Slovak Republic") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2006 ("sm" "San Marino") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2007 ("sn" "Senegal") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2008 ("sr" "Suriname") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2009 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2010 ("sz" "Swaziland") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2011 ("tg" "Togo") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2012 ("th" "Thailand" "The Kingdom of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2013 ("tm" "Turkmenistan") ; In .su domain |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2014 ("tn" "Tunisia") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2015 ("to" "Tonga") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2016 ("tr" "Turkey" "The Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2017 ("tt" "Trinidad and Tobago") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2018 ("tw" "Taiwan") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2019 ("ua" "Ukraine") |
8318
3fc49ff2ea03
(mail-extr-all-top-level-domains): Update a few long names.
Richard M. Stallman <rms@gnu.org>
parents:
7133
diff
changeset
|
2020 ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2021 ("us" "United States" "The %s of America") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2022 ("uy" "Uruguay" "The Eastern Republic of %s") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2023 ("vc" "St. Vincent and the Grenadines") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2024 ("ve" "Venezuela" "The Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2025 ("vi" "Virgin Islands (U.S.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2026 ("vn" "Vietnam") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2027 ("vu" "Vanuatu") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2028 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2029 ("za" "South Africa" "The Republic of %s") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2030 ("zw" "Zimbabwe" "Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2031 ;; Special top-level domains: |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2032 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2033 ("bitnet" t "Because It's Time NET") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2034 ("com" t "Commercial") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2035 ("edu" t "Educational") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2036 ("gov" t "Government (U.S.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2037 ("int" t "International (NATO)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2038 ("mil" t "Military (U.S.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2039 ("nato" t "North Atlantic Treaty Organization") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2040 ("net" t "Network") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2041 ("org" t "Non-profit Organization") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2042 ;;("unter-dom" t "? (Ger.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2043 ("uucp" t "Unix to Unix CoPy") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2044 ;;("fipnet" nil "?") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2045 )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2046 ob)) |
809 | 2047 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2048 ;;;###autoload |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2049 (defun what-domain (domain) |
8356 | 2050 "Convert mail domain DOMAIN to the country it corresponds to." |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2051 (interactive |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2052 (let ((completion-ignore-case t)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2053 (list (completing-read "Domain: " |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2054 mail-extr-all-top-level-domains nil t)))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2055 (or (setq domain (intern-soft (downcase domain) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2056 mail-extr-all-top-level-domains)) |
14029
8812f5ef65db
(mail-extr-nuke-outside-range): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
13959
diff
changeset
|
2057 (error "No such domain")) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2058 (message "%s: %s" (upcase (symbol-name domain)) (get domain 'domain-name))) |
809 | 2059 |
2060 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2061 ;(let ((all nil)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2062 ; (mapatoms #'(lambda (x) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2063 ; (if (and (boundp x) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2064 ; (string-match "^mail-extr-" (symbol-name x))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2065 ; (setq all (cons x all))))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2066 ; (setq all (sort all #'string-lessp)) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2067 ; (cons 'setq |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2068 ; (apply 'nconc (mapcar #'(lambda (x) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2069 ; (list x (symbol-value x))) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2070 ; all)))) |
809 | 2071 |
2072 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2073 (provide 'mail-extr) |
809 | 2074 |
2075 ;;; mail-extr.el ends here |