Mercurial > emacs
annotate lisp/mail/mail-extr.el @ 108222:ca0eca33fb40
Fix typo.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 03 May 2010 14:46:56 +0200 |
parents | 1d1d5d9bd884 |
children | 280c8ae2476d 376148b31b5e |
rev | line source |
---|---|
51081
a4bb96832880
Use explicit coding tag.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47939
diff
changeset
|
1 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header -*- coding: utf-8 -*- |
809 | 2 |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
809
diff
changeset
|
5 |
809 | 6 ;; Author: Joe Wells <jbw@cs.bu.edu> |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
7 ;; Maintainer: FSF |
809 | 8 ;; Keywords: mail |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
809 | 13 ;; it under the terms of the GNU General Public License as published by |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
809 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
809 | 24 |
25 ;;; Commentary: | |
26 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
27 ;; 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
|
28 ;; |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
29 ;; mail-extract-address-components: (address &optional all) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
30 ;; |
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 ;; 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
|
32 ;; 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
|
33 ;; If no name can be extracted, FULL-NAME will be nil. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
34 ;; ADDRESS may be a string or a buffer. If it is a buffer, the visible |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
35 ;; (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
|
36 ;; (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
|
37 ;; 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
|
38 ;; 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
|
39 ;; returned. |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
40 ;; |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
41 ;; 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
|
42 ;; 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
|
43 ;; the form (FULL-NAME CANONICAL-ADDRESS), one per address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
44 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
45 ;; 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
|
46 ;; 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
|
47 ;; |
809 | 48 ;; 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
|
49 ;; |
809 | 50 ;; 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
|
51 ;; any other package we know of. (On the other hand, it will cheerfully |
809 | 52 ;; mangle non-human names/comments.) |
53 ;; 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
|
54 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
55 ;; 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
|
56 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
57 ;; We have an extensive test-case collection of funny addresses if you want to |
809 | 58 ;; 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
|
59 ;; 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
|
60 ;; 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
|
61 ;; |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
62 ;; If you find an address that mail-extr fails on, please send it to the |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
63 ;; 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
|
64 ;; not consider it a bug if mail-extr mangles a comment that does not |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
65 ;; correspond to a real human full name, although we would prefer 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
|
66 ;; 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
|
67 ;; |
809 | 68 ;; 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
|
69 ;; |
809 | 70 ;; * 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
|
71 ;; |
809 | 72 ;; * knows where full names can be found in an address. |
73 ;; * avoids using empty comments and quoted text. | |
74 ;; * extracts full names from mailbox names. | |
75 ;; * recognizes common formats for comments after a full name. | |
76 ;; * 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
|
77 ;; * 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
|
78 ;; * strips name prefixes like "Prof.", etc. |
809 | 79 ;; * understands what characters can occur in names (not just letters). |
80 ;; * figures out middle initial from mailbox name. | |
81 ;; * removes funny nicknames. | |
82 ;; * keeps suffixes such as Jr., Sr., III, etc. | |
83 ;; * 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
|
84 ;; |
809 | 85 ;; * 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
|
86 ;; |
809 | 87 ;; * parses rfc822 quoted text, comments, and domain literals. |
88 ;; * parses rfc822 multi-line headers. | |
89 ;; * does something reasonable with rfc822 GROUP addresses. | |
90 ;; * handles many rfc822 noncompliant and garbage addresses. | |
91 ;; * canonicalizes addresses (after stripping comments/phrases outside <>). | |
92 ;; * converts ! addresses into .UUCP and %-style addresses. | |
93 ;; * converts rfc822 ROUTE addresses to %-style addresses. | |
94 ;; * truncates %-style addresses at leftmost fully qualified domain name. | |
95 ;; * 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
|
96 ;; |
809 | 97 ;; It does almost no string creation. It primarily uses the built-in |
98 ;; parsing routines with the appropriate syntax tables. This should | |
99 ;; 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
|
100 ;; |
809 | 101 ;; 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
|
102 ;; |
809 | 103 ;; * handle all test cases. (This will take forever.) |
104 ;; * software to pick the correct header to use (eg., "Senders-Name:"). | |
105 ;; * multiple addresses in the "From:" header (almost all of the necessary | |
106 ;; code is there). | |
107 ;; * flag to not treat `,' as an address separator. (This is useful when | |
108 ;; there is a "From:" header but no "Sender:" header, because then there | |
109 ;; is only allowed to be one address.) | |
110 ;; * mailbox name does not necessarily contain full name. | |
111 ;; * fixing capitalization when it's all upper or lowercase. (Hard!) | |
112 ;; * some of the domain literal handling is missing. (But I've never even | |
113 ;; seen one of these in a mail address, so maybe no big deal.) | |
114 ;; * arrange to have syntax tables byte-compiled. | |
115 ;; * speed hacks. | |
116 ;; * delete unused variables. | |
117 ;; * arrange for testing with different relative precedences of ! vs. @ | |
118 ;; and %. | |
119 ;; * insert documentation strings! | |
120 ;; * handle X.400-gatewayed addresses according to RFC 1148. | |
121 | |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
122 ;;; Change Log: |
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
123 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
124 ;; 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
|
125 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
126 ;; * 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
|
127 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
128 ;; 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
|
129 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
130 ;; * 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
|
131 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
132 ;; 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
|
133 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
134 ;; * 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
|
135 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
136 ;; 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
|
137 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
138 ;; * 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
|
139 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
140 ;; Tue Mar 23 21:23:18 1993 Joe Wells (jbw at csd.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
141 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
142 ;; * Made mail-full-name-prefixes a user-customizable variable. |
46255
503a8e2a9054
Fix typo in comments, not worthy of a changelog entry.
Simon Josefsson <jas@extundo.com>
parents:
41300
diff
changeset
|
143 ;; Allow passing the address as a buffer as well as 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
|
144 ;; Allow [ and ] as name characters (Finnish character set). |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
145 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
146 ;; Mon Mar 22 21:20:56 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
147 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
148 ;; * 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
|
149 ;; 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
|
150 ;; 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
|
151 ;; 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
|
152 ;; 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
|
153 ;; Handle more kinds of telephone extension lead-ins. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
154 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
155 ;; Mon Mar 22 20:16:57 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
156 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
157 ;; * Handle HZ encoding for embedding GB encoded chinese characters. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
158 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
159 ;; Mon Mar 22 00:46:12 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
160 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
161 ;; * 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
|
162 ;; 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
|
163 ;; 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
|
164 ;; 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
|
165 ;; 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
|
166 ;; 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
|
167 ;; 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
|
168 ;; 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
|
169 ;; certain trailing words are discarded. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
170 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
171 ;; Sun Mar 21 21:41:06 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
172 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
173 ;; * 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
|
174 ;; 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
|
175 ;; names. Ignore comment field containing mailbox name. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
176 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
177 ;; Sun Mar 21 14:39:38 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
178 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
179 ;; * 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
|
180 ;; 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
|
181 ;; flag to ignore single-word names. Other changes. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
182 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
183 ;; Mon Feb 1 22:23:31 1993 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
184 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
185 ;; * 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
|
186 ;; includes the flag mail-extr-guess-middle-initial and the fix for |
7133 | 187 ;; handling multiple addresses correctly. (Whitby just changed |
188 ;; a > to a <.) | |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
189 ;; |
809 | 190 ;; Mon Apr 6 23:59:09 1992 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
191 ;; |
809 | 192 ;; * Cleaned up some more. Release version 1.0 to world. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
193 ;; |
809 | 194 ;; Sun Apr 5 19:39:08 1992 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
195 ;; |
809 | 196 ;; * Cleaned up full name extraction extensively. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
197 ;; |
809 | 198 ;; Sun Feb 2 14:45:24 1992 Joe Wells (jbw at bigbird.bu.edu) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
199 ;; |
809 | 200 ;; * Total rewrite. Integrated mail-canonicalize-address into |
201 ;; mail-extract-address-components. Now handles GROUP addresses more | |
202 ;; or less correctly. Better handling of lots of different cases. | |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
203 ;; |
809 | 204 ;; Fri Jun 14 19:39:50 1991 |
205 ;; * Created. | |
206 | |
207 ;;; Code: | |
208 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
209 |
20962 | 210 (defgroup mail-extr nil |
211 "Extract full name and address from RFC 822 mail header." | |
212 :prefix "mail-extr-" | |
213 :group 'mail) | |
214 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
215 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
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 ;; 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
|
218 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
219 |
20962 | 220 (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
|
221 "*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
|
222 If true, then when we see an address like \"John Smith <jqs@host.com>\" |
20962 | 223 we will assume that \"John Q. Smith\" is the fellow's name." |
224 :type 'boolean | |
225 :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
|
226 |
47615
a298684644ca
(mail-extr-ignore-single-names): Change default.
Simon Josefsson <jas@extundo.com>
parents:
46273
diff
changeset
|
227 (defcustom mail-extr-ignore-single-names 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
|
228 "*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
|
229 If true, then when we see an address like \"Idiot <dumb@stupid.com>\" |
20962 | 230 we will act as though we couldn't find a full name in the address." |
231 :type 'boolean | |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57391
diff
changeset
|
232 :version "22.1" |
20962 | 233 :group 'mail-extr) |
809 | 234 |
57391
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
235 (defcustom mail-extr-ignore-realname-equals-mailbox-name t |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
236 "*Whether to ignore a name that is equal to the mailbox name. |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
237 If true, then when the address is like \"Single <single@address.com>\" |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
238 we will act as though we couldn't find a full name in the address." |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
239 :type 'boolean |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
240 :group 'mail-extr) |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
241 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
242 ;; 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
|
243 ;; contribute to uniquely identifying the person). |
20962 | 244 (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
|
245 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
246 "\\(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
|
247 "*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
|
248 These are stripped from the full name because they do not contribute to |
20962 | 249 uniquely identifying the person." |
250 :type 'regexp | |
251 :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
|
252 |
20962 | 253 (defcustom mail-extr-@-binds-tighter-than-! nil |
254 "*Whether the local mail transport agent looks at ! before @." | |
255 :type 'boolean | |
256 :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
|
257 |
20962 | 258 (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
|
259 "*Whether to throw away information in UUCP addresses |
20962 | 260 by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." |
261 :type 'boolean | |
262 :group 'mail-extr) | |
809 | 263 |
264 ;;---------------------------------------------------------------------- | |
265 ;; what orderings are meaningful????? | |
266 ;;(defvar mail-operator-precedence-list '(?! ?% ?@)) | |
267 ;; Right operand of a % or a @ must be a domain name, period. No other | |
268 ;; operators allowed. Left operand of a @ is an address relative to that | |
269 ;; site. | |
270 | |
271 ;; Left operand of a ! must be a domain name. Right operand is an | |
272 ;; arbitrary address. | |
273 ;;---------------------------------------------------------------------- | |
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 |
809 | 276 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
277 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
278 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
279 ;; 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
|
280 ;; |
809 | 281 |
282 ;; 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
|
283 ;; 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
|
284 ;; 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
|
285 ;; 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
|
286 ;; 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
|
287 (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
|
288 (purecopy "][[:alnum:]{|}'~`")) |
809 | 289 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
290 ;; 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
|
291 ;; 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
|
292 ;; #### 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
|
293 (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
|
294 (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
|
295 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
296 ;; 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
|
297 ;; 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
|
298 (defconst mail-extr-first-letters (purecopy "[:alpha:]")) |
809 | 299 |
300 ;; 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
|
301 ;; 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
|
302 (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
|
303 |
41159
5f754d04a4d0
(mail-extr-voodoo): Treat a number as a word
Richard M. Stallman <rms@gnu.org>
parents:
38412
diff
changeset
|
304 (defconst mail-extr-leading-garbage "\\W+") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
305 |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
306 ;; (defconst mail-extr-non-name-chars |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
307 ;; (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
|
308 ;; (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
|
309 ;; (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
|
310 ;; (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
|
311 ;; (purecopy (concat "^" mail-extr-last-letters))) |
809 | 312 |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
313 ;; 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
|
314 ;; (defconst mail-extr-bad-initials-pattern |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
315 ;; (purecopy |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
316 ;; (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
|
317 ;; mail-extr-all-letters mail-extr-first-letters mail-extr-all-letters))) |
809 | 318 |
319 ;; Matches periods used instead of spaces. Must not match the period | |
320 ;; 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
|
321 (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
|
322 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
323 (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
|
324 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
|
325 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
|
326 mail-extr-first-letters))) |
809 | 327 |
328 ;; 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
|
329 ;; (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
|
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]+\\)[\]\"'\)] " |
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))) |
809 | 333 |
334 ;; 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
|
335 ;; 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
|
336 ;; 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
|
337 ;; *** 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
|
338 ;; *** 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
|
339 (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
|
340 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
341 (format |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
342 "\\(,? ?\\([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
|
343 mail-extr-all-letters mail-extr-all-letters))) |
809 | 344 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
345 (defconst mail-extr-roman-numeral-pattern (purecopy "V?I+V?\\b")) |
809 | 346 |
347 ;; Matches a trailing uppercase (with other characters possible) acronym. | |
348 ;; 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
|
349 (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
|
350 (purecopy "\\([A-Z]+[-_/]\\|[A-Z][A-Z][A-Z]?\\b\\)")) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
351 |
809 | 352 ;; 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
|
353 ;; #### 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
|
354 ;; (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
|
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 ;; "\\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
|
358 ;; 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
|
359 ;; 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
|
360 ;; mail-extr-last-letters mail-extr-first-letters mail-extr-all-letters))) |
809 | 361 |
362 ;; 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
|
363 ;; #### Match Latin1 letters here too? |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
364 ;; #### Match _ before @ here too? |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
365 (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
|
366 (purecopy "\\(aka *\\)?[a-zA-Z.]+[!@][a-zA-Z.]")) |
809 | 367 |
368 ;; Matches a variety of trailing comments not including comma-delimited | |
369 ;; 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
|
370 (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
|
371 (purecopy " [-{]\\|--\\|[+@#></\;]")) |
809 | 372 |
373 ;; Matches a name (not an initial). | |
374 ;; This doesn't force a word boundary at the end because sometimes a | |
375 ;; 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
|
376 (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
|
377 (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
|
378 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
|
379 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
|
380 mail-extr-last-letters))) |
809 | 381 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
382 (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
|
383 (purecopy (format "\\b[%s]\\([. ]\\|\\b\\)" mail-extr-first-letters))) |
809 | 384 |
385 ;; 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
|
386 ;; (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
|
387 ;; (purecopy (concat "\\`" mail-extr-name-pattern ","))) |
809 | 388 |
389 ;; 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
|
390 (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
|
391 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
392 "\\(\\([Ee]xt\\|\\|[Tt]ph\\|[Tt]el\\|[Xx]\\).?\\)? *\\+?[0-9][- 0-9]+")) |
809 | 393 |
394 ;; 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
|
395 ;; 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
|
396 ;; <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
|
397 ;; 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
|
398 ;; 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
|
399 ;; 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
|
400 (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
|
401 (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
|
402 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
403 ;; 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
|
404 ;; /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
|
405 ;; /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
|
406 ;; /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
|
407 ;; /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
|
408 ;; /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
|
409 ;; /# == 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
|
410 ;; 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
|
411 ;; anyone putting them with their name in an e-mail address. |
809 | 412 |
413 ;; 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
|
414 (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
|
415 (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
|
416 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
|
417 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
|
418 mail-extr-last-letters))) |
809 | 419 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
420 ;; 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
|
421 ;; (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
|
422 ;; (purecopy (concat "\\`" mail-extr-normal-name-pattern "\\'"))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
423 |
809 | 424 ;; 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
|
425 ;; 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
|
426 ;; 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
|
427 ;; 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
|
428 (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
|
429 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
430 (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
|
431 "\\|" 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
|
432 "\\) +\\(" 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
|
433 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
434 (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
|
435 (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
|
436 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
437 (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
|
438 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
439 "[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
|
440 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
441 ;;; 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
|
442 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
443 ;; 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
|
444 ;; 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
|
445 ;; 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
|
446 ;; following special meaning. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
447 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
448 ;; 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
|
449 ;; 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
|
450 ;; 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
|
451 ;; with no output produced. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
452 ;; |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
453 ;; 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
|
454 ;; 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
|
455 ;; 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
|
456 ;; ($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
|
457 (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
|
458 (purecopy "~{\\([^~].\\|~[^\}]\\)+~}")) |
809 | 459 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
460 ;; 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
|
461 ;; 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
|
462 (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
|
463 (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
|
464 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
465 (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
|
466 (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
|
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 (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
|
469 ;; 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
|
470 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
471 (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
|
472 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
473 (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
|
474 ;; 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
|
475 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
476 (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
|
477 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
478 (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
|
479 ;; 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
|
480 ;; 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
|
481 ;; "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
|
482 ;; `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
|
483 ;; 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
|
484 (purecopy |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
485 (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
|
486 |
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 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
489 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
490 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
491 ;; 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
|
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 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
494 (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
|
495 (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
|
496 (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
|
497 (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
|
498 (defconst mail-extr-address-text-syntax-table (make-syntax-table)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
499 (mapc |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
500 (lambda (pair) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
501 (let ((syntax-table (symbol-value (car pair)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
502 (dolist (item (cdr pair)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
503 (if (eq 2 (length item)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
504 ;; modifying syntax of a single character |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
505 (modify-syntax-entry (car item) (car (cdr item)) syntax-table) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
506 ;; modifying syntax of a range of characters |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
507 (let ((char (nth 0 item)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
508 (bound (nth 1 item)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
509 (syntax (nth 2 item))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
510 (while (<= char bound) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
511 (modify-syntax-entry char syntax syntax-table) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
512 (setq char (1+ 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
|
513 '((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
|
514 (?\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
|
515 (?\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
|
516 (?! ?~ "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
|
517 (?\177 "w") ;DEL |
809 | 518 (?\t " ") |
519 (?\r " ") | |
520 (?\n " ") | |
521 (?\( ".") | |
522 (?\) ".") | |
523 (?< ".") | |
524 (?> ".") | |
525 (?@ ".") | |
526 (?, ".") | |
527 (?\; ".") | |
528 (?: ".") | |
529 (?\\ "\\") | |
530 (?\" "\"") | |
531 (?. ".") | |
532 (?\[ ".") | |
533 (?\] ".") | |
534 ;; % and ! aren't RFC822 characters, but it is convenient to pretend | |
535 (?% ".") | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
536 (?! ".") ;; this needs to be word-constituent when not in .UUCP mode |
809 | 537 ) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
538 (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
|
539 (?\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
|
540 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
541 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
542 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
543 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
544 (?\n " ") |
809 | 545 (?\( "\(\)") |
546 (?\) "\)\(") | |
547 (?\\ "\\")) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
548 (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
|
549 (?\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
|
550 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
551 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
552 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
553 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
554 (?\n " ") |
809 | 555 (?\[ "\(\]") ;?????? |
556 (?\] "\)\[") ;?????? | |
557 (?\\ "\\")) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
558 (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
|
559 (?\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
|
560 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
561 (?\240 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
562 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
563 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
564 (?\n " ") |
809 | 565 (?\( "\(\)") |
566 (?\) "\)\(") | |
567 (?\[ "\(\]") | |
568 (?\] "\)\[") | |
569 (?\{ "\(\}") | |
570 (?\} "\)\{") | |
571 (?\\ "\\") | |
572 (?\" "\"") | |
573 ;; (?\' "\)\`") | |
574 ;; (?\` "\(\'") | |
575 ) | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
576 (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
|
577 (?\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
|
578 (?\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
|
579 (?\040 " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
580 (?\t " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
581 (?\r " ") |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
582 (?\n " ") |
809 | 583 (?A ?Z "w") |
584 (?a ?z "w") | |
585 (?- "w") | |
586 (?\} "w") | |
587 (?\{ "w") | |
588 (?| "w") | |
589 (?\' "w") | |
590 (?~ "w") | |
591 (?0 ?9 "w")) | |
592 )) | |
593 | |
594 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
595 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
596 ;; |
809 | 597 ;; 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
|
598 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
599 |
52916
7302d194fccb
(mail-extr-ignore-single-names): Add :version.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
600 ;; Fixme: There are Latin-1 nbsp below. If such characters should be |
7302d194fccb
(mail-extr-ignore-single-names): Add :version.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
601 ;; included, this is the wrong thing to do -- it should use syntax (or |
7302d194fccb
(mail-extr-ignore-single-names): Add :version.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
602 ;; regexp char classes). |
7302d194fccb
(mail-extr-ignore-single-names): Add :version.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
603 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
604 (defsubst mail-extr-skip-whitespace-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
|
605 ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. |
51081
a4bb96832880
Use explicit coding tag.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47939
diff
changeset
|
606 (skip-chars-forward " \t\n\r ")) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
607 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
608 (defsubst mail-extr-skip-whitespace-backward () |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
609 ;; v19 fn skip-syntax-backward is more tasteful, but not byte-coded. |
51081
a4bb96832880
Use explicit coding tag.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47939
diff
changeset
|
610 (skip-chars-backward " \t\n\r ")) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
611 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
612 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
613 (defsubst mail-extr-undo-backslash-quoting (beg end) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
614 (save-excursion |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
615 (save-restriction |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
616 (narrow-to-region beg end) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
617 (goto-char (point-min)) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
618 ;; undo \ quoting |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
619 (while (search-forward "\\" nil t) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
620 (delete-char -1) |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
621 (or (eobp) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
622 (forward-char 1)))))) |
809 | 623 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
624 (defsubst mail-extr-nuke-char-at (pos) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
625 (save-excursion |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
626 (goto-char pos) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
627 (delete-char 1) |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
628 (insert ?\ ))) |
7060
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 (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
|
631 'edebug-form-spec '(symbolp &optional form form atom)) |
809 | 632 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
633 (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
|
634 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
|
635 &optional no-replace) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
636 "Delete all elements outside BEG..END in LIST. |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
637 LIST-SYMBOL names a variable holding a list of buffer positions |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
638 BEG-SYMBOL and END-SYMBOL name variables delimiting a range |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
639 Each element of LIST-SYMBOL which lies outside of the range is |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
640 deleted from the list. |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
641 Unless NO-REPLACE is true, at each of the positions in LIST-SYMBOL |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
642 which lie outside of the range, one character at that position is |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
643 replaced with a SPC." |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
644 (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
|
645 (error "no-replace must be t or nil, evaluable at macroexpand-time")) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
646 `(let ((temp ,list-symbol) |
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 ch) |
809 | 648 (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
|
649 (setq ch (car temp)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
650 (when (or (> ch ,end-symbol) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
651 (< ch ,beg-symbol)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
652 ,@(if no-replace |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
653 nil |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
654 `((mail-extr-nuke-char-at ch))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
655 (setcar temp nil)) |
809 | 656 (setq temp (cdr temp))) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
657 (setq ,list-symbol (delq nil ,list-symbol)))) |
809 | 658 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
659 (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
|
660 ;; 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
|
661 ;; 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
|
662 (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
|
663 (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
|
664 (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
|
665 temp) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
666 marker)) |
809 | 667 |
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 (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
|
669 ;; 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
|
670 (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
|
671 pos |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
672 (copy-marker pos))) |
809 | 673 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
674 (defsubst mail-extr-safe-move-sexp (arg) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
675 ;; Safely skip over one balanced sexp, if there is one. Return t if success. |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
676 (condition-case error |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
677 (progn |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
678 (goto-char (or (scan-sexps (point) arg) (point))) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
679 t) |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
680 (error |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
681 ;; #### kludge kludge kludge kludge kludge kludge kludge !!! |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
682 (if (string-equal (nth 1 error) "Unbalanced parentheses") |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
683 nil |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
684 (while t |
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
685 (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
|
686 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
687 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
688 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
689 ;; 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
|
690 ;; |
809 | 691 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
692 (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
|
693 (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
|
694 (defvar cend) ; dynamic assignment |
56764
57c8c9029251
(mail-extr-all-top-level-domains): Add forward defvar.
Richard M. Stallman <rms@gnu.org>
parents:
56600
diff
changeset
|
695 (defvar mail-extr-all-top-level-domains) ; Defined below. |
809 | 696 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
697 ;;;###autoload |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
698 (defun mail-extract-address-components (address &optional all) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
699 "Given an RFC-822 address ADDRESS, extract full name and canonical address. |
67435
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
64754
diff
changeset
|
700 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no |
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
64754
diff
changeset
|
701 name can be extracted, FULL-NAME will be nil. Also see |
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
64754
diff
changeset
|
702 `mail-extr-ignore-single-names' and |
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
64754
diff
changeset
|
703 `mail-extr-ignore-realname-equals-mailbox-name'. |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
704 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
705 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
|
706 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
|
707 the form ((FULL-NAME CANONICAL-ADDRESS) ...) with one element for |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
708 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
|
709 one recipients, all but the first is ignored. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
710 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
711 ADDRESS may be a string or a buffer. If it is a buffer, the visible |
47615
a298684644ca
(mail-extr-ignore-single-names): Change default.
Simon Josefsson <jas@extundo.com>
parents:
46273
diff
changeset
|
712 \(narrowed) portion of the buffer will be interpreted as the address. |
a298684644ca
(mail-extr-ignore-single-names): Change default.
Simon Josefsson <jas@extundo.com>
parents:
46273
diff
changeset
|
713 \(This feature exists so that the clever caller might be able to avoid |
a298684644ca
(mail-extr-ignore-single-names): Change default.
Simon Josefsson <jas@extundo.com>
parents:
46273
diff
changeset
|
714 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
|
715 (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
|
716 (extraction-buffer (get-buffer-create " *extract address components*")) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
717 value-list) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
718 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
719 (with-current-buffer (get-buffer-create 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
|
720 (fundamental-mode) |
923 | 721 (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
|
722 (set-syntax-table mail-extr-address-syntax-table) |
809 | 723 (widen) |
724 (erase-buffer) | |
725 (setq case-fold-search nil) | |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
726 |
809 | 727 ;; Insert extra space at beginning to allow later replacement with < |
728 ;; 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
|
729 (insert ?\ ) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
730 |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
731 ;; 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
|
732 (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
|
733 (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
|
734 ((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
|
735 (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
|
736 (t |
14029
8812f5ef65db
(mail-extr-nuke-outside-range): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
13959
diff
changeset
|
737 (error "Invalid address: %s" address))) |
16727
45d9891b03b2
(mail-extract-address-components): Clear text props
Richard M. Stallman <rms@gnu.org>
parents:
16699
diff
changeset
|
738 |
45d9891b03b2
(mail-extract-address-components): Clear text props
Richard M. Stallman <rms@gnu.org>
parents:
16699
diff
changeset
|
739 (set-text-properties (point-min) (point-max) nil) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
740 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
741 (with-current-buffer (get-buffer-create canonicalization-buffer) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
742 (fundamental-mode) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
743 (buffer-disable-undo canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
744 (setq case-fold-search nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
745 |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
746 |
809 | 747 ;; Unfold multiple lines. |
748 (goto-char (point-min)) | |
749 (while (re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ \t]" nil t) | |
750 (replace-match "\\1 " t)) | |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
751 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
752 ;; 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
|
753 (while (and (or all (null value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
754 (progn (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
755 (skip-chars-forward " \t") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
756 (not (eobp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
757 (let (char |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
758 end-of-address |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
759 <-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
|
760 group-:-pos group-\;-pos route-addr-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
761 record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
762 first-real-pos last-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
763 phrase-beg phrase-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
764 cbeg cend ; dynamically set from -voodoo |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
765 quote-beg quote-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
766 atom-beg atom-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
767 mbox-beg mbox-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
768 \.-ends-name |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
769 temp |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
770 ;; name-suffix |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
771 fi mi li ; first, middle, last initial |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
772 saved-%-pos saved-!-pos saved-@-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
773 domain-pos \.-pos insert-point |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
774 ;; mailbox-name-processed-flag |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
775 disable-initial-guessing-flag) ; dynamically set from -voodoo |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
776 |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
777 (set-syntax-table mail-extr-address-syntax-table) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
778 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
779 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
780 ;; Insert extra space at beginning to allow later replacement with < |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
781 ;; without having to move markers. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
782 (or (eq (following-char) ?\ ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
783 (insert ?\ )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
784 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
785 ;; First pass grabs useful information about address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
786 (while (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
787 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
788 (not (eobp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
789 (setq char (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
790 (or first-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
791 (if (not (eq char ?\()) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
792 (setq first-real-pos (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
793 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
794 ;; comment |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
795 ((eq char ?\() |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
796 (set-syntax-table mail-extr-address-comment-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
797 ;; only record the first non-empty comment's position |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
798 (if (and (not cbeg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
799 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
800 (forward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
801 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
802 (not (eq ?\) (char-after (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
803 (setq cbeg (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
804 ;; TODO: don't record if unbalanced |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
805 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
806 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
807 (set-syntax-table mail-extr-address-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
808 (if (and cbeg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
809 (not cend)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
810 (setq cend (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
811 ;; quoted text |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
812 ((eq char ?\") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
813 ;; only record the first non-empty quote's position |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
814 (if (and (not quote-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
815 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
816 (forward-char 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
817 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
818 (not (eq ?\" (char-after (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
819 (setq quote-beg (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
820 ;; TODO: don't record if unbalanced |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
821 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
822 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
823 (if (and quote-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
824 (not quote-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
825 (setq quote-end (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
826 ;; domain literals |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
827 ((eq char ?\[) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
828 (set-syntax-table mail-extr-address-domain-literal-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
829 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
830 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
831 (set-syntax-table mail-extr-address-syntax-table)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
832 ;; commas delimit addresses when outside < > pairs. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
833 ((and (eq char ?,) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
834 (or (and (null <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
835 ;; Handle ROUTE-ADDR address that is missing its <. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
836 (not (eq ?@ (char-after (1+ (point)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
837 (and >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
838 ;; handle weird munged addresses |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
839 ;; BUG FIX: This test was reversed. Thanks to the |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
840 ;; brilliant Rod Whitby <rwhitby@research.canon.oz.au> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
841 ;; for discovering this! |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
842 (< (car (last <-pos)) (car >-pos))))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
843 ;; The argument contains more than one address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
844 ;; Temporarily hide everything after this one. |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
845 (setq end-of-address (copy-marker (1+ (point)) t)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
846 (narrow-to-region (point-min) (1+ (point))) |
37148
aca2b7839d21
(mail-extr-delete-char, mail-extr-safe-move-sexp)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25439
diff
changeset
|
847 (delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
848 (setq char ?\() ; HAVE I NO SHAME?? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
849 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
850 ;; record the position of various interesting chars, determine |
80051
86418444e2d1
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
79712
diff
changeset
|
851 ;; validity later. |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
852 ((setq record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
853 (cdr (assq char |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
854 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
855 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
856 (?% . %-pos) (?\; . \;-pos))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
857 (set record-pos-symbol |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
858 (cons (point) (symbol-value record-pos-symbol))) |
809 | 859 (forward-char 1)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
860 ((eq char ?.) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
861 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
862 ((memq char '( |
80051
86418444e2d1
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
79712
diff
changeset
|
863 ;; comment terminator invalid |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
864 ?\) |
80051
86418444e2d1
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
79712
diff
changeset
|
865 ;; domain literal terminator invalid |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
866 ?\] |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
867 ;; \ allowed only within quoted strings, |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
868 ;; domain literals, and comments |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
869 ?\\ |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
870 )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
871 (mail-extr-nuke-char-at (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
872 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
873 (t |
77894
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
874 ;; Do `(forward-word 1)', recognizing non-ASCII characters |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
875 ;; except Latin-1 nbsp as words. |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
876 (while (progn |
81020
6e1a357362af
(mail-extract-address-components): Recognize
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
877 (skip-chars-forward "^\000-\177Â ") |
77894
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
878 (and (not (eobp)) |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
879 (eq ?w (char-syntax (char-after))) |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
880 (progn |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
881 (forward-word 1) |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
882 (and (not (eobp)) |
d3e947ea638f
(mail-extract-address-components): Recognize non-ASCII characters
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
883 (> (char-after) ?\177) |
81020
6e1a357362af
(mail-extract-address-components): Recognize
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
884 (not (eq (char-after) ? ))))))))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
885 (or (eq char ?\() |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
886 ;; 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
|
887 (and (eq char ?,) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
888 (eobp)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
889 (setq last-real-pos (point)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
890 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
891 ;; 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
|
892 (while (cdr <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
893 (mail-extr-nuke-char-at (car <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
894 (setq <-pos (cdr <-pos))) |
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 ;; 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
|
897 (while (cdr >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
898 (mail-extr-nuke-char-at (nth 1 >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
899 (setcdr >-pos (nthcdr 2 >-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
900 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
901 ;; 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
|
902 ;; 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
|
903 ;; This commonly happens on the UUCP "From " line. Ugh. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
904 (when (and (> (length @-pos) 1) |
21477
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
905 (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
|
906 (not \;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
907 (not <-pos)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
908 (goto-char (point-min)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
909 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
910 (setq <-pos (list (point))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
911 (insert ?<)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
912 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
913 ;; If < but no >, insert > in rightmost possible position |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
914 (when (and <-pos (null >-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
915 (goto-char (point-max)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
916 (setq >-pos (list (point))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
917 (insert ?>)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
918 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
919 ;; If > but no <, replace > with space. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
920 (when (and >-pos (null <-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
921 (mail-extr-nuke-char-at (car >-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
922 (setq >-pos nil)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
923 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
924 ;; Turn >-pos and <-pos into non-lists |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
925 (setq >-pos (car >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
926 <-pos (car <-pos)) |
809 | 927 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
928 ;; Trim other punctuation lists of items outside < > pair to handle |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
929 ;; stupid MTAs. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
930 (when <-pos ; don't need to check >-pos also |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
931 ;; handle bozo software that violates RFC 822 by sticking |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
932 ;; punctuation marks outside of a < > pair |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
933 (mail-extr-nuke-outside-range @-pos <-pos >-pos t) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
934 ;; RFC 822 says nothing about these two outside < >, but |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
935 ;; remove those positions from the lists to make things |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
936 ;; easier. |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
937 (mail-extr-nuke-outside-range !-pos <-pos >-pos t) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
938 (mail-extr-nuke-outside-range %-pos <-pos >-pos t)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
939 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
940 ;; Check for : that indicates GROUP list and for : part of |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
941 ;; ROUTE-ADDR spec. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
942 ;; 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
|
943 (while colon-pos |
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
944 (setq temp (car colon-pos) |
a61dfbd23534
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20962
diff
changeset
|
945 colon-pos (cdr colon-pos)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
946 (cond ((and <-pos >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
947 (> temp <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
948 (< temp >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
949 (if (or route-addr-:-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
950 (< (length @-pos) 2) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
951 (> temp (car @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
952 (< temp (nth 1 @-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
953 (mail-extr-nuke-char-at temp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
954 (setq route-addr-:-pos temp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
955 ((or (not <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
956 (and <-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
957 (< temp <-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
958 (setq group-:-pos temp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
959 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
960 ;; 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
|
961 ;; of a GROUP starting :. Also, there may only be one ;. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
962 (while \;-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
963 (setq temp (car \;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
964 \;-pos (cdr \;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
965 (cond ((and <-pos >-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
966 (> temp <-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
967 (< temp >-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
968 (mail-extr-nuke-char-at temp)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
969 ((and (or (not group-:-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
970 (> temp group-:-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
971 (not group-\;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
972 (setq group-\;-pos temp)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
973 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
974 ;; Nuke unmatched GROUP syntax characters. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
975 (when (and group-:-pos (not group-\;-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
976 ;; *** Do I really need to erase it? |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
977 (mail-extr-nuke-char-at group-:-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
978 (setq group-:-pos nil)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
979 (when (and group-\;-pos (not group-:-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
980 ;; *** Do I really need to erase it? |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
981 (mail-extr-nuke-char-at group-\;-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
982 (setq group-\;-pos nil)) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
983 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
984 ;; Handle junk like ";@host.company.dom" that sendmail adds. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
985 ;; **** should I remember comment positions? |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
986 (when group-\;-pos |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
987 ;; this is fine for now |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
988 (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
|
989 (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
|
990 (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
|
991 (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
|
992 (and last-real-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
993 (> last-real-pos (1+ group-\;-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
994 (setq last-real-pos (1+ group-\;-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
995 ;; *** This may be wrong: |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
996 (and cend |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
997 (> cend group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
998 (setq cend nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
999 cbeg nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1000 (and quote-end |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1001 (> quote-end group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1002 (setq quote-end nil |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1003 quote-beg nil)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1004 ;; This was both wrong and unnecessary: |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1005 ;;(narrow-to-region (point-min) group-\;-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1006 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1007 ;; *** The entire handling of GROUP addresses seems rather lame. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1008 ;; *** It deserves a complete rethink, except that these addresses |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1009 ;; *** are hardly ever seen. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1010 ) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1011 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1012 ;; 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
|
1013 ;; others. |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1014 ;; Hell, go ahead and nuke all of the commas. |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1015 ;; **** This will cause problems when we start handling commas in |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1016 ;; the PHRASE part .... no it won't ... yes it will ... ????? |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1017 (mail-extr-nuke-outside-range comma-pos 1 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1018 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1019 ;; 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
|
1020 ;; 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
|
1021 ;; handled above. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1022 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1023 ;; Locate PHRASE part of ROUTE-ADDR. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1024 (when <-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1025 (goto-char <-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1026 (mail-extr-skip-whitespace-backward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1027 (setq phrase-end (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1028 (goto-char (or ;;group-:-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1029 (point-min))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1030 (mail-extr-skip-whitespace-forward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1031 (if (< (point) phrase-end) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1032 (setq phrase-beg (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1033 (setq phrase-end nil))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1034 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1035 ;; handle ROUTE-ADDRS with real ROUTEs. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1036 ;; 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
|
1037 ;; any % or ! must be semantically meaningless. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1038 ;; TODO: do this processing into canonicalization buffer |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1039 (when route-addr-:-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1040 (setq !-pos nil |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1041 %-pos nil |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1042 >-pos (copy-marker >-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1043 route-addr-:-pos (copy-marker route-addr-:-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1044 (goto-char >-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1045 (insert-before-markers ?X) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1046 (goto-char (car @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1047 (while (setq @-pos (cdr @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1048 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1049 (setq %-pos (cons (point-marker) %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1050 (insert "%") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1051 (goto-char (1- >-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1052 (save-excursion |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1053 (insert-buffer-substring extraction-buffer |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1054 (car @-pos) route-addr-:-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1055 (delete-region (car @-pos) route-addr-:-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1056 (or (cdr @-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1057 (setq saved-@-pos (list (point))))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1058 (setq @-pos saved-@-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1059 (goto-char >-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1060 (delete-char -1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1061 (mail-extr-nuke-char-at route-addr-:-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1062 (mail-extr-demarkerize route-addr-:-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1063 (setq route-addr-:-pos nil |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1064 >-pos (mail-extr-demarkerize >-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1065 %-pos (mapcar 'mail-extr-demarkerize %-pos))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1066 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1067 ;; de-listify @-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1068 (setq @-pos (car @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1069 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1070 ;; TODO: remove comments in the middle of an address |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1071 |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1072 (with-current-buffer canonicalization-buffer |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1073 (widen) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1074 (erase-buffer) |
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 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1077 (if <-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1078 (narrow-to-region (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1079 (goto-char (1+ <-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1080 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1081 (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1082 >-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1083 (if (and first-real-pos last-real-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1084 (narrow-to-region first-real-pos last-real-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1085 ;; ****** Oh no! What if the address is completely empty! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1086 ;; *** Is this correct? |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1087 (narrow-to-region (point-max) (point-max)))) |
20285
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 (and @-pos %-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1090 (mail-extr-nuke-outside-range %-pos (point-min) @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1091 (and %-pos !-pos |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1092 (mail-extr-nuke-outside-range !-pos (point-min) (car %-pos))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1093 (and @-pos !-pos (not %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1094 (mail-extr-nuke-outside-range !-pos (point-min) @-pos)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1095 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1096 ;; Error condition:?? (and %-pos (not @-pos)) |
809 | 1097 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1098 ;; WARNING: THIS CODE IS DUPLICATED BELOW. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1099 (when (and %-pos (not @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1100 (goto-char (car %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1101 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1102 (setq @-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1103 (insert "@") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1104 (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
|
1105 |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1106 (when (and mail-extr-mangle-uucp !-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1107 ;; **** I don't understand this save-restriction and the |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1108 ;; narrow-to-region inside it. Why did I do that? |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1109 (save-restriction |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1110 (cond ((and @-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1111 mail-extr-@-binds-tighter-than-!) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1112 (goto-char @-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1113 (setq %-pos (cons (point) %-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1114 @-pos nil) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1115 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1116 (insert "%") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1117 (setq insert-point (point-max))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1118 (mail-extr-@-binds-tighter-than-! |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1119 (setq insert-point (point-max))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1120 (%-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1121 (setq insert-point (car (last %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1122 saved-%-pos (mapcar 'mail-extr-markerize %-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1123 %-pos nil |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1124 @-pos (mail-extr-markerize @-pos))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1125 (@-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1126 (setq insert-point @-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1127 (setq @-pos (mail-extr-markerize @-pos))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1128 (t |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1129 (setq insert-point (point-max)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1130 (narrow-to-region (point-min) insert-point) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1131 (setq saved-!-pos (car !-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1132 (while !-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1133 (goto-char (point-max)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1134 (cond ((and (not @-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1135 (not (cdr !-pos))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1136 (setq @-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1137 (insert-before-markers "@ ")) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1138 (t |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1139 (setq %-pos (cons (point) %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1140 (insert-before-markers "% "))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1141 (backward-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1142 (insert-buffer-substring |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1143 (current-buffer) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1144 (if (nth 1 !-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1145 (1+ (nth 1 !-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1146 (point-min)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1147 (car !-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1148 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1149 (or (save-excursion |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1150 (mail-extr-safe-move-sexp -1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1151 (mail-extr-skip-whitespace-backward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1152 (eq ?. (preceding-char))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1153 (insert-before-markers |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1154 (if (save-excursion |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1155 (mail-extr-skip-whitespace-backward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1156 (eq ?. (preceding-char))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1157 "" |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1158 ".") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1159 "uucp")) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1160 (setq !-pos (cdr !-pos)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1161 (and saved-%-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1162 (setq %-pos (append (mapcar 'mail-extr-demarkerize |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1163 saved-%-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1164 %-pos))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1165 (setq @-pos (mail-extr-demarkerize @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1166 (narrow-to-region (1+ saved-!-pos) (point-max))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1167 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1168 ;; WARNING: THIS CODE IS DUPLICATED ABOVE. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1169 (when (and %-pos (not @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1170 (goto-char (car %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1171 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1172 (setq @-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1173 (insert "@") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1174 (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
|
1175 |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1176 (when (setq %-pos (nreverse %-pos)) ; implies @-pos valid |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1177 (setq temp %-pos) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1178 (catch 'truncated |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1179 (while temp |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1180 (goto-char (or (nth 1 temp) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1181 @-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1182 (mail-extr-skip-whitespace-backward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1183 (save-excursion |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1184 (mail-extr-safe-move-sexp -1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1185 (setq domain-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1186 (mail-extr-skip-whitespace-backward) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1187 (setq \.-pos (eq ?. (preceding-char)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1188 (when (and \.-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1189 ;; #### string consing |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1190 (let ((s (intern-soft |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1191 (buffer-substring domain-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1192 mail-extr-all-top-level-domains))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1193 (and s (get s 'domain-name)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1194 (narrow-to-region (point-min) (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1195 (goto-char (car temp)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1196 (delete-char 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1197 (setq @-pos (point)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1198 (setcdr temp nil) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1199 (setq %-pos (delq @-pos %-pos)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1200 (insert "@") |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1201 (throw 'truncated t)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1202 (setq temp (cdr temp))))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1203 (setq mbox-beg (point-min) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1204 mbox-end (if %-pos (car %-pos) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1205 (or @-pos |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1206 (point-max)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1207 |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1208 (when @-pos |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1209 ;; Make the domain-name part lowercase since it's case |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1210 ;; insensitive anyway. |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1211 (downcase-region (1+ @-pos) (point-max)))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1212 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1213 ;; Done canonicalizing address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1214 ;; We are now back in extraction-buffer. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1215 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1216 ;; 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
|
1217 (cond ( |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1218 ;; Example: "First M. Last" <fml@foo.bar.dom> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1219 (and phrase-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1220 (eq quote-beg phrase-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1221 (<= quote-end phrase-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1222 (narrow-to-region (1+ quote-beg) (1- quote-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1223 (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
|
1224 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1225 ;; Example: First Last <fml@foo.bar.dom> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1226 (phrase-beg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1227 (narrow-to-region phrase-beg phrase-end)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1228 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1229 ;; Example: fml@foo.bar.dom (First M. Last) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1230 (cbeg |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1231 (narrow-to-region (1+ cbeg) (1- cend)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1232 (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
|
1233 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1234 ;; Deal with spacing problems |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1235 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1236 ;;; (cond ((not (search-forward " " nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1237 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1238 ;;; (cond ((search-forward "_" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1239 ;;; ;; Handle the *idiotic* use of underlines as spaces. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1240 ;;; ;; Example: fml@foo.bar.dom (First_M._Last) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1241 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1242 ;;; (while (search-forward "_" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1243 ;;; (replace-match " " t))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1244 ;;; ((search-forward "." nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1245 ;;; ;; Fix . used as space |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1246 ;;; ;; Example: danj1@cb.att.com (daniel.jacobson) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1247 ;;; (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1248 ;;; (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
|
1249 ;;; (replace-match "\\1 \\2" t)))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1250 ) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1251 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1252 ;; 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
|
1253 ;; of the address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1254 ;; Example: First_M_Last@foo.bar.dom |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1255 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1256 ;; *** Work in canon buffer instead? No, can't. Hmm. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1257 (goto-char (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1258 (narrow-to-region (point) (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1259 (insert-buffer-substring canonicalization-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1260 mbox-beg mbox-end) |
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 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1263 ;; Example: First_Last.XXX@foo.bar.dom |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1264 (setq \.-ends-name (re-search-forward "[_0-9]" nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1265 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1266 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1267 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1268 (if (not mail-extr-mangle-uucp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1269 (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
|
1270 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1271 (while (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1272 (mail-extr-skip-whitespace-forward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1273 (not (eobp))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1274 (setq char (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1275 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1276 ((eq char ?\") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1277 (setq quote-beg (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1278 (or (mail-extr-safe-move-sexp 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1279 ;; TODO: handle this error condition!!!!! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1280 (forward-char 1)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1281 ;; take into account deletions |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1282 (setq quote-end (- (point) 2)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1283 (save-excursion |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1284 (backward-char 1) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1285 (delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1286 (goto-char quote-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1287 (or (eobp) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1288 (delete-char 1))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1289 (mail-extr-undo-backslash-quoting quote-beg quote-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1290 (or (eq ?\ (char-after (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1291 (insert " ")) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1292 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1293 (setq \.-ends-name t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1294 ((eq char ?.) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1295 (if (memq (char-after (1+ (point))) '(?_ ?=)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1296 (progn |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1297 (forward-char 1) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1298 (delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1299 (insert ?\ )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1300 (if \.-ends-name |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1301 (narrow-to-region (point-min) (point)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1302 (delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1303 (insert " "))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1304 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1305 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1306 ((memq (char-syntax char) '(?. ?\\)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1307 (delete-char 1) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1308 (insert " ") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1309 ;; (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
|
1310 ) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1311 (t |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1312 (setq atom-beg (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1313 (forward-word 1) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1314 (setq atom-end (point)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1315 (goto-char atom-beg) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1316 (save-restriction |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1317 (narrow-to-region atom-beg atom-end) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1318 (cond |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1319 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1320 ;; Handle X.400 addresses encoded in RFC-822. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1321 ;; *** Shit! This has to handle the case where it is |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1322 ;; *** embedded in a quote too! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1323 ;; *** Shit! The input is being broken up into atoms |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1324 ;; *** by periods! |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1325 ((looking-at mail-extr-x400-encoded-address-pattern) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1326 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1327 ;; Copy the contents of the individual fields that |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1328 ;; might hold name data to the beginning. |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1329 (mapc |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1330 (lambda (field-pattern) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1331 (when |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1332 (save-excursion |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1333 (re-search-forward field-pattern nil t)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1334 (insert-buffer-substring (current-buffer) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1335 (match-beginning 1) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1336 (match-end 1)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1337 (insert " "))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1338 (list mail-extr-x400-encoded-address-given-name-pattern |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1339 mail-extr-x400-encoded-address-surname-pattern |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1340 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
|
1341 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1342 ;; Discard the rest, since it contains stuff like |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1343 ;; routing information, not part of a name. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1344 (mail-extr-skip-whitespace-backward) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1345 (delete-region (point) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1346 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1347 ;; Handle periods used for spacing. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1348 (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
|
1349 (replace-match "\\1 \\2" t)) |
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 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1352 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1353 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1354 ;; Handle normal addresses. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1355 (t |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1356 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1357 ;; Handle _ and = used for spacing. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1358 (while (re-search-forward "\\([^_=]+\\)[_=]" nil t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1359 (replace-match "\\1 " t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1360 ;; (setq mailbox-name-processed-flag t) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1361 ) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1362 (goto-char (point-max)))))))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1363 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1364 ;; undo the dirty deed |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1365 (if (not mail-extr-mangle-uucp) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1366 (modify-syntax-entry ?! "." (syntax-table))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1367 ;; |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1368 ;; 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
|
1369 ;; 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
|
1370 ;; name. "foo@bar" --> (nil "foo@bar"), not ("foo" "foo@bar") |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1371 ;; (if (not mailbox-name-processed-flag) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1372 ;; (delete-region (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1373 )) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1374 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1375 (set-syntax-table mail-extr-address-text-syntax-table) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1376 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1377 (mail-extr-voodoo mbox-beg mbox-end canonicalization-buffer) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1378 (goto-char (point-min)) |
809 | 1379 |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1380 ;; 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
|
1381 ;; the middle initial is the second letter in the userid. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1382 ;; Initial code by Jamie Zawinski <jwz@lucid.com> |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1383 ;; *** Make it work when there's a suffix as well. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1384 (goto-char (point-min)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1385 (when (and mail-extr-guess-middle-initial |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1386 (not disable-initial-guessing-flag) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1387 (eq 3 (- mbox-end mbox-beg)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1388 (progn |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1389 (goto-char (point-min)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1390 (looking-at mail-extr-two-name-pattern))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1391 (setq fi (char-after (match-beginning 0)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1392 li (char-after (match-beginning 3))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1393 (with-current-buffer canonicalization-buffer |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1394 ;; char-equal is ignoring case here, so no need to upcase |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1395 ;; or downcase. |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1396 (let ((case-fold-search t)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1397 (and (char-equal fi (char-after mbox-beg)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1398 (char-equal li (char-after (1- mbox-end))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1399 (setq mi (char-after (1+ mbox-beg)))))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1400 (when (and mi |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1401 ;; TODO: use better table than syntax table |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1402 (eq ?w (char-syntax mi))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1403 (goto-char (match-beginning 3)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1404 (insert (upcase mi) ". "))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1405 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1406 ;; Nuke name if it is the same as mailbox name. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1407 (let ((buffer-length (- (point-max) (point-min))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1408 (i 0) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1409 (names-match-flag t)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1410 (when (and (> buffer-length 0) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1411 (eq buffer-length (- mbox-end mbox-beg))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1412 (goto-char (point-max)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1413 (insert-buffer-substring canonicalization-buffer |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1414 mbox-beg mbox-end) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1415 (while (and names-match-flag |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1416 (< i buffer-length)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1417 (or (eq (downcase (char-after (+ i (point-min)))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1418 (downcase |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1419 (char-after (+ i buffer-length (point-min))))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1420 (setq names-match-flag nil)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1421 (setq i (1+ i))) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1422 (delete-region (+ (point-min) buffer-length) (point-max)) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
57391
diff
changeset
|
1423 (and names-match-flag |
57391
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
1424 mail-extr-ignore-realname-equals-mailbox-name |
dd2896f4c2b7
(mail-extr-ignore-realname-equals-mailbox-name): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
56764
diff
changeset
|
1425 (narrow-to-region (point) (point))))) |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1426 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1427 ;; Nuke name if it's just one word. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1428 (goto-char (point-min)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1429 (and mail-extr-ignore-single-names |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1430 (not (re-search-forward "[- ]" nil t)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1431 (narrow-to-region (point) (point))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1432 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1433 ;; Record the result |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1434 (setq value-list |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1435 (cons (list (if (not (= (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1436 (buffer-string)) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1437 (with-current-buffer canonicalization-buffer |
20285
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1438 (if (not (= (point-min) (point-max))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1439 (buffer-string)))) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1440 value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1441 |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1442 ;; Unless one address is all we wanted, |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1443 ;; delete this one from extraction-buffer |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1444 ;; and get ready to extract the next address. |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1445 (when all |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1446 (if end-of-address |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1447 (narrow-to-region 1 end-of-address) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1448 (widen)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1449 (delete-region (point-min) (point-max)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1450 (widen)) |
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 (if all (nreverse value-list) (car value-list)) |
3b0ad3d46bde
(mail-extract-address-components):
Karl Heuer <kwzh@gnu.org>
parents:
20242
diff
changeset
|
1453 )) |
809 | 1454 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1455 (defcustom mail-extr-disable-voodoo "\\cj" |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1456 "*If it is a regexp, names matching it will never be modified. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1457 If it is neither nil nor a string, modifying of names will never take |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1458 place. It affects how `mail-extract-address-components' works." |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1459 :type '(choice (regexp :size 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1460 (const :tag "Always enabled" nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1461 (const :tag "Always disabled" t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1462 :group 'mail-extr) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1463 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1464 (defun mail-extr-voodoo (mbox-beg mbox-end canonicalization-buffer) |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1465 (unless (and mail-extr-disable-voodoo |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1466 (or (not (stringp mail-extr-disable-voodoo)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1467 (progn |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1468 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1469 (re-search-forward mail-extr-disable-voodoo nil t)))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1470 (let ((word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1471 (case-fold-search nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1472 mixed-case-flag lower-case-flag ;;upper-case-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1473 suffix-flag last-name-comma-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1474 ;;cbeg cend |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1475 initial |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1476 begin-again-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1477 drop-this-word-if-trailing-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1478 drop-last-word-if-trailing-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1479 word-found-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1480 this-word-beg last-word-beg |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1481 name-beg name-end |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1482 name-done-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1483 ) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1484 (save-excursion |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1485 (set-syntax-table mail-extr-address-text-syntax-table) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1486 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1487 ;; Get rid of comments. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1488 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1489 (while (not (eobp)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1490 ;; Initialize for this iteration of the loop. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1491 (skip-chars-forward "^({[\"'`") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1492 (let ((cbeg (point))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1493 (set-syntax-table mail-extr-address-text-comment-syntax-table) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1494 (if (memq (following-char) '(?\' ?\`)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1495 (search-forward "'" nil 'move |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1496 (if (eq ?\' (following-char)) 2 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1497 (or (mail-extr-safe-move-sexp 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1498 (goto-char (point-max)))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1499 (set-syntax-table mail-extr-address-text-syntax-table) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1500 (when (eq (char-after cbeg) ?\() |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1501 ;; Delete the comment itself. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1502 (delete-region cbeg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1503 ;; Canonicalize whitespace where the comment was. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1504 (skip-chars-backward " \t") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1505 (if (looking-at "\\([ \t]+$\\|[ \t]+,\\)") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1506 (replace-match "") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1507 (setq cbeg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1508 (skip-chars-forward " \t") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1509 (if (bobp) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1510 (delete-region (point) cbeg) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1511 (just-one-space)))))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1512 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1513 ;; This was moved above. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1514 ;; Fix . used as space |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1515 ;; But it belongs here because it occurs not only as |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1516 ;; rypens@reks.uia.ac.be (Piet.Rypens) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1517 ;; but also as |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1518 ;; "Piet.Rypens" <rypens@reks.uia.ac.be> |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1519 ;;(goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1520 ;;(while (re-search-forward mail-extr-bad-dot-pattern nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1521 ;; (replace-match "\\1 \\2" t)) |
18816
92913b38a478
(mail-extr-voodoo): Get rid of comments at an early stage.
Richard M. Stallman <rms@gnu.org>
parents:
16727
diff
changeset
|
1522 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1523 (unless (search-forward " " nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1524 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1525 (cond ((search-forward "_" nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1526 ;; Handle the *idiotic* use of underlines as spaces. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1527 ;; Example: fml@foo.bar.dom (First_M._Last) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1528 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1529 (while (search-forward "_" nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1530 (replace-match " " t))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1531 ((search-forward "." nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1532 ;; Fix . used as space |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1533 ;; Example: danj1@cb.att.com (daniel.jacobson) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1534 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1535 (while (re-search-forward mail-extr-bad-dot-pattern nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1536 (replace-match "\\1 \\2" t))))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1537 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1538 ;; Loop over the words (and other junk) in the name. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1539 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1540 (while (not name-done-flag) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1541 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1542 (when word-found-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1543 ;; Last time through this loop we skipped over a word. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1544 (setq last-word-beg this-word-beg) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1545 (setq drop-last-word-if-trailing-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1546 drop-this-word-if-trailing-flag) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1547 (setq word-found-flag nil)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1548 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1549 (when begin-again-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1550 ;; Last time through the loop we found something that |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1551 ;; indicates we should pretend we are beginning again from |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1552 ;; the start. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1553 (setq word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1554 (setq last-word-beg nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1555 (setq drop-last-word-if-trailing-flag nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1556 (setq mixed-case-flag nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1557 (setq lower-case-flag nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1558 ;; (setq upper-case-flag nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1559 (setq begin-again-flag nil)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1560 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1561 ;; Initialize for this iteration of the loop. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1562 (mail-extr-skip-whitespace-forward) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1563 (if (eq word-count 0) (narrow-to-region (point) (point-max))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1564 (setq this-word-beg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1565 (setq drop-this-word-if-trailing-flag nil) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1566 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1567 ;; Decide what to do based on what we are looking at. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1568 (cond |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1569 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1570 ;; Delete title |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1571 ((and (eq word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1572 (looking-at mail-extr-full-name-prefixes)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1573 (goto-char (match-end 0)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1574 (narrow-to-region (point) (point-max))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1575 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1576 ;; Stop after name suffix |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1577 ((and (>= word-count 2) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1578 (looking-at mail-extr-full-name-suffix-pattern)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1579 (mail-extr-skip-whitespace-backward) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1580 (setq suffix-flag (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1581 (if (eq ?, (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1582 (forward-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1583 (insert ?,)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1584 ;; Enforce at least one space after comma |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1585 (or (eq ?\ (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1586 (insert ?\ )) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1587 (mail-extr-skip-whitespace-forward) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1588 (cond ((memq (following-char) '(?j ?J ?s ?S)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1589 (capitalize-word 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1590 (if (eq (following-char) ?.) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1591 (forward-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1592 (insert ?.))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1593 (t |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1594 (upcase-word 1))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1595 (setq word-found-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1596 (setq name-done-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1597 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1598 ;; Handle SCA names |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1599 ((looking-at "MKA \\(.+\\)") ; "Mundanely Known As" |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1600 (goto-char (match-beginning 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1601 (narrow-to-region (point) (point-max)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1602 (setq begin-again-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1603 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1604 ;; Check for initial last name followed by comma |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1605 ((and (eq ?, (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1606 (eq word-count 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1607 (forward-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1608 (setq last-name-comma-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1609 (or (eq ?\ (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1610 (insert ?\ ))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1611 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1612 ;; Stop before trailing comma-separated comment |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1613 ;; THIS CASE MUST BE AFTER THE PRECEDING CASES. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1614 ;; *** This case is redundant??? |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1615 ;;((eq ?, (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1616 ;; (setq name-done-flag t)) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1617 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1618 ;; Delete parenthesized/quoted comment/nickname |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1619 ((memq (following-char) '(?\( ?\{ ?\[ ?\" ?\' ?\`)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1620 (setq cbeg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1621 (set-syntax-table mail-extr-address-text-comment-syntax-table) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1622 (cond ((memq (following-char) '(?\' ?\`)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1623 (or (search-forward "'" nil t |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1624 (if (eq ?\' (following-char)) 2 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1625 (delete-char 1))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1626 (t |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1627 (or (mail-extr-safe-move-sexp 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1628 (goto-char (point-max))))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1629 (set-syntax-table mail-extr-address-text-syntax-table) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1630 (setq cend (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1631 (cond |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1632 ;; Handle case of entire name being quoted |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1633 ((and (eq word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1634 (looking-at " *\\'") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1635 (>= (- cend cbeg) 2)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1636 (narrow-to-region (1+ cbeg) (1- cend)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1637 (goto-char (point-min))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1638 (t |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1639 ;; Handle case of quoted initial |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1640 (if (and (or (= 3 (- cend cbeg)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1641 (and (= 4 (- cend cbeg)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1642 (eq ?. (char-after (+ 2 cbeg))))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1643 (not (looking-at " *\\'"))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1644 (setq initial (char-after (1+ cbeg))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1645 (setq initial nil)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1646 (delete-region cbeg cend) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1647 (if initial |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1648 (insert initial ". "))))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1649 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1650 ;; Handle *Stupid* VMS date stamps |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1651 ((looking-at mail-extr-stupid-vms-date-stamp-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1652 (replace-match "" t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1653 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1654 ;; Handle Chinese characters. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1655 ((looking-at mail-extr-hz-embedded-gb-encoded-chinese-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1656 (goto-char (match-end 0)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1657 (setq word-found-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
|
1658 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1659 ;; Skip initial garbage characters. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1660 ;; THIS CASE MUST BE AFTER THE PRECEDING CASES. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1661 ((and (eq word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1662 (looking-at mail-extr-leading-garbage)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1663 (goto-char (match-end 0)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1664 ;; *** Skip backward over these??? |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1665 ;; (skip-chars-backward "& \"") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1666 (narrow-to-region (point) (point-max))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1667 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1668 ;; Various stopping points |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1669 ((or |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1670 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1671 ;; Stop before ALL CAPS acronyms, if preceded by mixed-case |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1672 ;; words. Example: XT-DEM. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1673 (and (>= word-count 2) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1674 mixed-case-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1675 (looking-at mail-extr-weird-acronym-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1676 (not (looking-at mail-extr-roman-numeral-pattern))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1677 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1678 ;; Stop before trailing alternative address |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1679 (looking-at mail-extr-alternative-address-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1680 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1681 ;; Stop before trailing comment not introduced by comma |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1682 ;; THIS CASE MUST BE AFTER AN EARLIER CASE. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1683 (looking-at mail-extr-trailing-comment-start-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
|
1684 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1685 ;; Stop before telephone numbers |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1686 (and (>= word-count 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1687 (looking-at mail-extr-telephone-extension-pattern))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1688 (setq name-done-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1689 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1690 ;; Delete ham radio call signs |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1691 ((looking-at mail-extr-ham-call-sign-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1692 (delete-region (match-beginning 0) (match-end 0))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1693 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1694 ;; Fixup initials |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1695 ((looking-at mail-extr-initial-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1696 (or (eq (following-char) (upcase (following-char))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1697 (setq lower-case-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1698 (forward-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1699 (if (eq ?. (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1700 (forward-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1701 (insert ?.)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1702 (or (eq ?\ (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1703 (insert ?\ )) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1704 (setq word-found-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1705 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1706 ;; Handle BITNET LISTSERV list names. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1707 ((and (eq word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1708 (looking-at mail-extr-listserv-list-name-pattern)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1709 (narrow-to-region (match-beginning 1) (match-end 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1710 (setq word-found-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1711 (setq name-done-flag t)) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1712 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1713 ;; Handle & substitution, when & is last and is not first. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1714 ((and (> word-count 0) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1715 (eq ?\ (preceding-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1716 (eq (following-char) ?&) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1717 (eq (1+ (point)) (point-max))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1718 (delete-char 1) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1719 (capitalize-region |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1720 (point) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1721 (progn |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1722 (insert-buffer-substring canonicalization-buffer |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1723 mbox-beg mbox-end) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1724 (point))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1725 (setq disable-initial-guessing-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1726 (setq word-found-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1727 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1728 ;; Handle & between names, as in "Bob & Susie". |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1729 ((and (> word-count 0) (eq (following-char) ?\&)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1730 (setq name-beg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1731 (setq name-end (1+ name-beg)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1732 (setq word-found-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1733 (goto-char name-end)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1734 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1735 ;; Regular name words |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1736 ((looking-at mail-extr-name-pattern) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1737 (setq name-beg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1738 (setq name-end (match-end 0)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1739 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1740 ;; Certain words will be dropped if they are at the end. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1741 (and (>= word-count 2) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1742 (not lower-case-flag) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1743 (or |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1744 ;; Trailing 4-or-more letter lowercase words preceded by |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1745 ;; mixed case or uppercase words will be dropped. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1746 (looking-at "[[:lower:]]\\{4,\\}[ \t]*\\'") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1747 ;; Drop a trailing word which is terminated with a period. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1748 (eq ?. (char-after (1- name-end)))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1749 (setq drop-this-word-if-trailing-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1750 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1751 ;; Set the flags that indicate whether we have seen a lowercase |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1752 ;; word, a mixed case word, and an uppercase word. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1753 (if (re-search-forward "[[:lower:]]" name-end t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1754 (if (progn |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1755 (goto-char name-beg) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1756 (re-search-forward "[[:upper:]]" name-end t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1757 (setq mixed-case-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1758 (setq lower-case-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1759 ;; (setq upper-case-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1760 ) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1761 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1762 (goto-char name-end) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1763 (setq word-found-flag t)) |
809 | 1764 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1765 ;; Allow a number as a word, if it doesn't mean anything else. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1766 ((looking-at "[0-9]+\\>") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1767 (setq name-beg (point)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1768 (setq name-end (match-end 0)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1769 (goto-char name-end) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1770 (setq word-found-flag t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1771 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1772 (t |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1773 (setq name-done-flag t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1774 )) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1775 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1776 ;; Count any word that we skipped over. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1777 (if word-found-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1778 (setq word-count (1+ word-count)))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1779 |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1780 ;; If the last thing in the name is 2 or more periods, or one or more |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1781 ;; other sentence terminators (but not a single period) then keep them |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1782 ;; and the preceding word. This is for the benefit of whole sentences |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1783 ;; in the name field: it's better behavior than dropping the last word |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1784 ;; of the sentence... |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1785 (if (and (not suffix-flag) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1786 (looking-at "\\(\\.+\\|[?!;:.][?!;:.]+\\|[?!;:][?!;:.]*\\)\\'")) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1787 (goto-char (setq suffix-flag (point-max)))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1788 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1789 ;; Drop everything after point and certain trailing words. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1790 (narrow-to-region (point-min) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1791 (or (and drop-last-word-if-trailing-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1792 last-word-beg) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1793 (point))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1794 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1795 ;; Xerox's mailers SUCK!!!!!! |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1796 ;; We simply refuse to believe that any last name is PARC or ADOC. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1797 ;; If it looks like that is the last name, that there is no meaningful |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1798 ;; here at all. Actually I guess it would be best to map patterns |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1799 ;; like foo.hoser@xerox.com into foo@hoser.xerox.com, but I don't |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1800 ;; actually know that that is what's going on. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1801 (unless suffix-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1802 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1803 (let ((case-fold-search t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1804 (if (looking-at "[-A-Za-z_]+[. ]\\(PARC\\|ADOC\\)\\'") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1805 (erase-buffer)))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1806 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1807 ;; If last name first put it at end (but before suffix) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1808 (when last-name-comma-flag |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1809 (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1810 (search-forward ",") |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1811 (setq name-end (1- (point))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1812 (goto-char (or suffix-flag (point-max))) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1813 (or (eq ?\ (preceding-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1814 (insert ?\ )) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1815 (insert-buffer-substring (current-buffer) (point-min) name-end) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1816 (goto-char name-end) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1817 (skip-chars-forward "\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
|
1818 (narrow-to-region (point) (point-max))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1819 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1820 ;; Delete leading and trailing junk characters. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1821 ;; *** This is probably completely unneeded now. |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1822 ;;(goto-char (point-max)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1823 ;;(skip-chars-backward mail-extr-non-end-name-chars) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1824 ;;(if (eq ?. (following-char)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1825 ;; (forward-char 1)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1826 ;;(narrow-to-region (point) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1827 ;; (progn |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1828 ;; (goto-char (point-min)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1829 ;; (skip-chars-forward mail-extr-non-begin-name-chars) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1830 ;; (point))) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
1831 |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1832 ;; Compress whitespace |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1833 (goto-char (point-min)) |
56600
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1834 (while (re-search-forward "[ \t\n]+" nil t) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1835 (replace-match (if (eobp) "" " ") t)) |
3e6748f33315
(mail-extr-disable-voodoo): New variable.
Kenichi Handa <handa@m17n.org>
parents:
52916
diff
changeset
|
1836 )))) |
809 | 1837 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1838 |
809 | 1839 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1840 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1841 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1842 ;; 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
|
1843 ;; |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1844 ;; This is used during address canonicalization; be careful of format changes. |
809 | 1845 ;; Keep in mind that the country abbreviations follow ISO-3166. There is |
1846 ;; a U.S. FIPS that specifies a different set of two-letter country | |
1847 ;; abbreviations. | |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1848 ;; |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1849 ;; Updated by the RIPE Network Coordination Centre. |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1850 ;; |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1851 ;; Source: ISO 3166 Maintenance Agency |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1852 ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1853 ;; http://www.iana.org/domain-names.htm |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1854 ;; http://www.iana.org/cctld/cctld-whois.htm |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1855 ;; Latest change: 2007/11/15 |
809 | 1856 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1857 (defconst mail-extr-all-top-level-domains |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1858 (let ((ob (make-vector 739 0))) |
41300
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1859 (mapc |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1860 (lambda (x) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1861 (put (intern (downcase (car x)) ob) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1862 'domain-name |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1863 (if (nth 2 x) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1864 (format (nth 2 x) (nth 1 x)) |
5f6710a130ca
Use backquote/dolist/mapc/when. Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41159
diff
changeset
|
1865 (nth 1 x)))) |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1866 '( |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1867 ;; ISO 3166 codes: |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1868 ("ac" "Ascension Island") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1869 ("ad" "Andorra") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1870 ("ae" "United Arab Emirates") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1871 ("af" "Afghanistan") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1872 ("ag" "Antigua and Barbuda") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1873 ("ai" "Anguilla") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1874 ("al" "Albania") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1875 ("am" "Armenia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1876 ("an" "Netherlands Antilles") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1877 ("ao" "Angola") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1878 ("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
|
1879 ("ar" "Argentina" "Argentine Republic") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1880 ("as" "American Samoa") |
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 ("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
|
1882 ("au" "Australia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1883 ("aw" "Aruba") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1884 ("ax" "Aland Islands") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1885 ("az" "Azerbaijan") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1886 ("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
|
1887 ("bb" "Barbados") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1888 ("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
|
1889 ("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
|
1890 ("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
|
1891 ("bg" "Bulgaria") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1892 ("bh" "Bahrain") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1893 ("bi" "Burundi") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1894 ("bj" "Benin") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1895 ("bl" "Saint Barthelemy") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1896 ("bm" "Bermuda") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1897 ("bn" "Brunei Darussalam") |
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 ("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
|
1899 ("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
|
1900 ("bs" "Bahamas") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1901 ("bt" "Bhutan") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1902 ("bv" "Bouvet Island") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1903 ("bw" "Botswana") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1904 ("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
|
1905 ("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
|
1906 ("ca" "Canada") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1907 ("cc" "Cocos (Keeling) Islands") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1908 ("cd" "Congo" "The Democratic Republic of the %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1909 ("cf" "Central African Republic") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1910 ("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
|
1911 ("ch" "Switzerland" "The Swiss Confederation") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1912 ("ci" "Ivory Coast") ; Cote D'ivoire |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1913 ("ck" "Cook 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
|
1914 ("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
|
1915 ("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
|
1916 ("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
|
1917 ("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
|
1918 ("cr" "Costa Rica" "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
|
1919 ("cu" "Cuba") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1920 ("cv" "Cape Verde") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1921 ("cx" "Christmas Island") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1922 ("cy" "Cyprus") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1923 ("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
|
1924 ("de" "Germany") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1925 ("dj" "Djibouti") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1926 ("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
|
1927 ("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
|
1928 ("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
|
1929 ("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
|
1930 ("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
|
1931 ("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
|
1932 ("eg" "Egypt" "The Arab Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1933 ("eh" "Western Sahara") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1934 ("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
|
1935 ("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
|
1936 ("et" "Ethiopia") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1937 ("eu" "European Union") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1938 ("fi" "Finland" "The Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1939 ("fj" "Fiji") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1940 ("fk" "Falkland Islands (Malvinas)") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1941 ("fm" "Micronesia" "Federated States of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1942 ("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
|
1943 ("fr" "France") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1944 ("ga" "Gabon") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1945 ("gb" "United Kingdom") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1946 ("gd" "Grenada") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1947 ("ge" "Georgia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1948 ("gf" "French Guiana") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1949 ("gg" "Guernsey") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1950 ("gh" "Ghana") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1951 ("gi" "Gibraltar") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1952 ("gl" "Greenland") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1953 ("gm" "Gambia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1954 ("gn" "Guinea") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1955 ("gp" "Guadeloupe (Fr.)") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1956 ("gq" "Equatorial Guinea") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1957 ("gr" "Greece" "The Hellenic Republic (%s)") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1958 ("gs" "South Georgia and The South Sandwich Islands") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1959 ("gt" "Guatemala") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1960 ("gu" "Guam (U.S.)") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1961 ("gw" "Guinea-Bissau") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1962 ("gy" "Guyana") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1963 ("hk" "Hong Kong") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1964 ("hm" "Heard Island and Mcdonald Islands") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1965 ("hn" "Honduras") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1966 ("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
|
1967 ("ht" "Haiti") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1968 ("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
|
1969 ("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
|
1970 ("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
|
1971 ("il" "Israel" "The State of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1972 ("im" "Isle of Man" "The %s") ; NOT in ISO 3166-1 of 2001-02-26 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1973 ("in" "India" "The Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1974 ("io" "British Indian Ocean Territory") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1975 ("iq" "Iraq") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1976 ("ir" "Iran" "Islamic 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
|
1977 ("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
|
1978 ("it" "Italy" "The Italian Republic") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
1979 ("je" "Jersey") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
1980 ("jm" "Jamaica") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
1981 ("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
|
1982 ("jp" "Japan") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1983 ("ke" "Kenya") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1984 ("kg" "Kyrgyzstan") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1985 ("kh" "Cambodia") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1986 ("ki" "Kiribati") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1987 ("km" "Comoros") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1988 ("kn" "Saint Kitts and Nevis") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1989 ("kp" "Korea (North)" "Democratic People's Republic of Korea") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1990 ("kr" "Korea (South)" "Republic of Korea") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1991 ("kw" "Kuwait") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1992 ("ky" "Cayman Islands") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
1993 ("kz" "Kazakhstan") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1994 ("la" "Lao People's Democratic Republic") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1995 ("lb" "Lebanon") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1996 ("lc" "Saint Lucia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
1997 ("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
|
1998 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
1999 ("lr" "Liberia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2000 ("ls" "Lesotho") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2001 ("lt" "Lithuania") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2002 ("lu" "Luxembourg") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2003 ("lv" "Latvia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2004 ("ly" "Libyan Arab Jamahiriya") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2005 ("ma" "Morocco") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2006 ("mc" "Monaco") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2007 ("md" "Moldova" "The Republic of %s") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2008 ("me" "Montenegro") |
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2009 ("mf" "Saint Martin (French part)") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2010 ("mg" "Madagascar") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2011 ("mh" "Marshall Islands") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2012 ("mk" "Macedonia" "The Former Yugoslav Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2013 ("ml" "Mali") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2014 ("mm" "Myanmar") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2015 ("mn" "Mongolia") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2016 ("mo" "Macao") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2017 ("mp" "Northern Mariana Islands") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2018 ("mq" "Martinique") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2019 ("mr" "Mauritania") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2020 ("ms" "Montserrat") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2021 ("mt" "Malta") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2022 ("mu" "Mauritius") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2023 ("mv" "Maldives") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2024 ("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
|
2025 ("mx" "Mexico" "The United Mexican States") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2026 ("my" "Malaysia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2027 ("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
|
2028 ("na" "Namibia") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2029 ("nc" "New Caledonia (Fr.)") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2030 ("ne" "Niger") ; In .fr domain |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2031 ("nf" "Norfolk Island") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2032 ("ng" "Nigeria") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2033 ("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
|
2034 ("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
|
2035 ("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
|
2036 ("np" "Nepal") ; Via .in domain |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2037 ("nr" "Nauru") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2038 ("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
|
2039 ("nz" "New Zealand") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2040 ("om" "Oman") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2041 ("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
|
2042 ("pe" "Peru") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2043 ("pf" "French Polynesia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2044 ("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
|
2045 ("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
|
2046 ("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
|
2047 ("pl" "Poland") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2048 ("pm" "Saint Pierre and Miquelon") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2049 ("pn" "Pitcairn") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2050 ("pr" "Puerto Rico (U.S.)") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2051 ("ps" "Palestinian Territory, Occupied") |
13959 | 2052 ("pt" "Portugal" "The Portuguese Republic") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2053 ("pw" "Palau") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2054 ("py" "Paraguay") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2055 ("qa" "Qatar") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2056 ("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
|
2057 ("ro" "Romania") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2058 ("rs" "Serbia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2059 ("ru" "Russia" "Russian Federation") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2060 ("rw" "Rwanda") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2061 ("sa" "Saudi Arabia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2062 ("sb" "Solomon Islands") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2063 ("sc" "Seychelles") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2064 ("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
|
2065 ("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
|
2066 ("sg" "Singapore" "The Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2067 ("sh" "Saint Helena") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2068 ("si" "Slovenia") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2069 ("sj" "Svalbard and Jan Mayen") ; In .no domain |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2070 ("sk" "Slovakia" "The Slovak Republic") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2071 ("sl" "Sierra Leone") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2072 ("sm" "San Marino") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2073 ("sn" "Senegal") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2074 ("so" "Somalia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2075 ("sr" "Suriname") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2076 ("st" "Sao Tome and Principe") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2077 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2078 ("sv" "El Salvador") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2079 ("sy" "Syrian Arab Republic") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2080 ("sz" "Swaziland") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2081 ("tc" "Turks and Caicos Islands") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2082 ("td" "Chad") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2083 ("tf" "French Southern Territories") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2084 ("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
|
2085 ("th" "Thailand" "The Kingdom of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2086 ("tj" "Tajikistan") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2087 ("tk" "Tokelau") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2088 ("tl" "East Timor") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2089 ("tm" "Turkmenistan") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2090 ("tn" "Tunisia") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2091 ("to" "Tonga") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2092 ("tp" "East Timor") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2093 ("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
|
2094 ("tt" "Trinidad and Tobago") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2095 ("tv" "Tuvalu") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2096 ("tw" "Taiwan" "%s, Province of China") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2097 ("tz" "Tanzania" "United Republic of %s") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2098 ("ua" "Ukraine") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2099 ("ug" "Uganda") |
8318
3fc49ff2ea03
(mail-extr-all-top-level-domains): Update a few long names.
Richard M. Stallman <rms@gnu.org>
parents:
7133
diff
changeset
|
2100 ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2101 ("um" "United States Minor Outlying Islands") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2102 ("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
|
2103 ("uy" "Uruguay" "The Eastern Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2104 ("uz" "Uzbekistan") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2105 ("va" "Holy See (Vatican City State)") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2106 ("vc" "Saint Vincent and the Grenadines") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2107 ("ve" "Venezuela" "The Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2108 ("vg" "Virgin Islands, British") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2109 ("vi" "Virgin Islands, U.S.") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2110 ("vn" "Vietnam") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2111 ("vu" "Vanuatu") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2112 ("wf" "Wallis and Futuna") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2113 ("ws" "Samoa") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2114 ("ye" "Yemen") |
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2115 ("yt" "Mayotte") |
20427
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2116 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") |
1b4f02e638b8
(mail-extr-all-top-level-domains): More domains.
Karl Heuer <kwzh@gnu.org>
parents:
20400
diff
changeset
|
2117 ("za" "South Africa" "The Republic of %s") |
38363
413a99578997
(mail-extr-all-top-level-domains): Increase
Gerd Moellmann <gerd@gnu.org>
parents:
37148
diff
changeset
|
2118 ("zm" "Zambia") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2119 ("zw" "Zimbabwe" "Republic of %s") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2120 ;; Generic Domains: |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2121 ("aero" t "Air Transport Industry") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2122 ("asia" t "Pan-Asia and Asia Pacific community") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2123 ("biz" t "Businesses") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2124 ("cat" t "Catalan language and culture") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2125 ("com" t "Commercial") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2126 ("coop" t "Cooperative Associations") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2127 ("info" t "Info") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2128 ("jobs" t "Employment") |
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2129 ("mobi" t "Mobile products") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2130 ("museum" t "Museums") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2131 ("name" t "Individuals") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2132 ("net" t "Network") |
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2133 ("org" t "Non-profit Organization") |
79435
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2134 ("pro" t "Credentialed professionals") |
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2135 ("tel" t "Contact data") |
31904ab276cd
(mail-extr-all-top-level-domains): Update domains.
Glenn Morris <rgm@gnu.org>
parents:
78232
diff
changeset
|
2136 ("travel" t "Travel industry") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2137 ;;("bitnet" t "Because It's Time NET") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2138 ("gov" t "United States Government") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2139 ("edu" t "Educational") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2140 ("mil" t "United States Military") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2141 ("int" t "International Treaties") |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2142 ;;("nato" t "North Atlantic Treaty Organization") |
8983
522fbe95e651
(mail-extr-all-top-level-domains): Update domain list.
Richard M. Stallman <rms@gnu.org>
parents:
8356
diff
changeset
|
2143 ("uucp" t "Unix to Unix CoPy") |
46273
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2144 ;; Infrastructure Domains: |
9854e85b69c8
(mail-extr-all-top-level-domains): Update names.
Simon Josefsson <jas@extundo.com>
parents:
46255
diff
changeset
|
2145 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)") |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2146 )) |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2147 ob)) |
809 | 2148 |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2149 ;;;###autoload |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2150 (defun what-domain (domain) |
8356 | 2151 "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
|
2152 (interactive |
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2153 (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
|
2154 (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
|
2155 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
|
2156 (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
|
2157 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
|
2158 (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
|
2159 (message "%s: %s" (upcase (symbol-name domain)) (get domain 'domain-name))) |
809 | 2160 |
2161 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2162 ;(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
|
2163 ; (mapatoms #'(lambda (x) |
47939
5f47d61ffbdc
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47615
diff
changeset
|
2164 ; (if (and (boundp x) |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2165 ; (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
|
2166 ; (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
|
2167 ; (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
|
2168 ; (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
|
2169 ; (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
|
2170 ; (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
|
2171 ; all)))) |
809 | 2172 |
2173 | |
7060
58d613f69b39
(mail-extr-all-top-level-domains): Renamed from all-top-level-domains.
Richard M. Stallman <rms@gnu.org>
parents:
1186
diff
changeset
|
2174 (provide 'mail-extr) |
809 | 2175 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
2176 ;; arch-tag: 7785fade-1073-4ed6-b4f6-28db34a7982d |
809 | 2177 ;;; mail-extr.el ends here |