231 |
If true, then when we see an address like \"Idiot <dumb@stupid.com>\" |
If true, then when we see an address like \"Idiot <dumb@stupid.com>\" |
232 |
we will act as though we couldn't find a full name in the address." |
we will act as though we couldn't find a full name in the address." |
233 |
:type 'boolean |
:type 'boolean |
234 |
|
:version "21.4" |
235 |
:group 'mail-extr) |
:group 'mail-extr) |
236 |
|
|
237 |
;; Matches a leading title that is not part of the name (does not |
;; Matches a leading title that is not part of the name (does not |
274 |
;; Constant definitions. |
;; Constant definitions. |
275 |
;; |
;; |
276 |
|
|
|
;; Codes in |
|
|
;; Names in ISO 8859-1 Name |
|
|
;; ISO 10XXX ISO 8859-2 in |
|
|
;; ISO 6937 ISO 10646 RFC Swedish |
|
|
;; etc. Hex Oct 1345 TeX Split ASCII Description |
|
|
;; --------- ---------- ---- --- ----- ----- ------------------------------- |
|
|
;; %a E4 344 a: \"a ae { latin small a + diaeresis d |
|
|
;; %o F6 366 o: \"o oe | latin small o + diaeresis v |
|
|
;; @a E5 345 aa \oa aa } latin small a + ring above e |
|
|
;; %u FC 374 u: \"u ue ~ latin small u + diaeresis | |
|
|
;; /e E9 351 e' \'e ` latin small e + acute i |
|
|
;; %A C4 304 A: \"A AE [ latin capital a + diaeresis D |
|
|
;; %O D6 326 O: \"O OE \ latin capital o + diaeresis V |
|
|
;; @A C5 305 AA \oA AA ] latin capital a + ring above E |
|
|
;; %U DC 334 U: \"U UE ^ latin capital u + diaeresis \ |
|
|
;; /E C9 311 E' \'E @ latin capital e + acute I |
|
|
|
|
|
;; NOTE: @a and @A are not in ISO 8859-2 (the codes mentioned above invoke |
|
|
;; /l and /L). Some of this data was retrieved from |
|
|
;; listserv@jhuvm.hcf.jhu.edu. |
|
|
|
|
277 |
;; Any character that can occur in a name, not counting characters that |
;; Any character that can occur in a name, not counting characters that |
278 |
;; separate parts of a multipart name (hyphen and period). |
;; separate parts of a multipart name (hyphen and period). |
279 |
;; Yes, there are weird people with digits in their names. |
;; Yes, there are weird people with digits in their names. |
510 |
(?\040 " ") ;SPC |
(?\040 " ") ;SPC |
511 |
(?! ?~ "w") ;printable characters |
(?! ?~ "w") ;printable characters |
512 |
(?\177 "w") ;DEL |
(?\177 "w") ;DEL |
|
(?\200 ?\377 "w") ;high-bit-on characters |
|
|
(?\240 " ") ;nobreakspace |
|
513 |
(?\t " ") |
(?\t " ") |
514 |
(?\r " ") |
(?\r " ") |
515 |
(?\n " ") |
(?\n " ") |
592 |
;; Utility functions and macros. |
;; Utility functions and macros. |
593 |
;; |
;; |
594 |
|
|
595 |
|
;; Fixme: There are Latin-1 nbsp below. If such characters should be |
596 |
|
;; included, this is the wrong thing to do -- it should use syntax (or |
597 |
|
;; regexp char classes). |
598 |
|
|
599 |
(defsubst mail-extr-skip-whitespace-forward () |
(defsubst mail-extr-skip-whitespace-forward () |
600 |
;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. |
;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. |
601 |
(skip-chars-forward " \t\n\r ")) |
(skip-chars-forward " \t\n\r ")) |
1709 |
(and (>= word-count 2) |
(and (>= word-count 2) |
1710 |
(not lower-case-flag) |
(not lower-case-flag) |
1711 |
(or |
(or |
1712 |
;; A trailing 4-or-more letter lowercase words preceded by |
;; Trailing 4-or-more letter lowercase words preceded by |
1713 |
;; mixed case or uppercase words will be dropped. |
;; mixed case or uppercase words will be dropped. |
1714 |
(looking-at "[a-z][a-z][a-z][a-z]+[ \t]*\\'") |
(looking-at "[[:lower:]]\\{4,\\}[ \t]*\\'") |
1715 |
;; Drop a trailing word which is terminated with a period. |
;; Drop a trailing word which is terminated with a period. |
1716 |
(eq ?. (char-after (1- name-end)))) |
(eq ?. (char-after (1- name-end)))) |
1717 |
(setq drop-this-word-if-trailing-flag t)) |
(setq drop-this-word-if-trailing-flag t)) |
1718 |
|
|
1719 |
;; Set the flags that indicate whether we have seen a lowercase |
;; Set the flags that indicate whether we have seen a lowercase |
1720 |
;; word, a mixed case word, and an uppercase word. |
;; word, a mixed case word, and an uppercase word. |
1721 |
(if (re-search-forward "[a-z]" name-end t) |
(if (re-search-forward "[[:lower:]]" name-end t) |
1722 |
(if (progn |
(if (progn |
1723 |
(goto-char name-beg) |
(goto-char name-beg) |
1724 |
(re-search-forward "[A-Z]" name-end t)) |
(re-search-forward "[[:upper:]]" name-end t)) |
1725 |
(setq mixed-case-flag t) |
(setq mixed-case-flag t) |
1726 |
(setq lower-case-flag t)) |
(setq lower-case-flag t)) |
1727 |
;; (setq upper-case-flag t) |
;; (setq upper-case-flag t) |