234 |
:version "21.4" |
:version "21.4" |
235 |
:group 'mail-extr) |
:group 'mail-extr) |
236 |
|
|
237 |
|
(defcustom mail-extr-ignore-realname-equals-mailbox-name t |
238 |
|
"*Whether to ignore a name that is equal to the mailbox name. |
239 |
|
If true, then when the address is like \"Single <single@address.com>\" |
240 |
|
we will act as though we couldn't find a full name in the address." |
241 |
|
:type 'boolean |
242 |
|
:group 'mail-extr) |
243 |
|
|
244 |
;; 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 |
245 |
;; contribute to uniquely identifying the person). |
;; contribute to uniquely identifying the person). |
246 |
(defcustom mail-extr-full-name-prefixes |
(defcustom mail-extr-full-name-prefixes |
701 |
"Given an RFC-822 address ADDRESS, extract full name and canonical address. |
"Given an RFC-822 address ADDRESS, extract full name and canonical address. |
702 |
Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). |
Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). |
703 |
If no name can be extracted, FULL-NAME will be nil. Also see |
If no name can be extracted, FULL-NAME will be nil. Also see |
704 |
`mail-extr-ignore-single-names'. |
`mail-extr-ignore-single-names' and `mail-extr-ignore-realname-equals-mailbox-name'. |
705 |
|
|
706 |
If the optional argument ALL is non-nil, then ADDRESS can contain zero |
If the optional argument ALL is non-nil, then ADDRESS can contain zero |
707 |
or more recipients, separated by commas, and we return a list of |
or more recipients, separated by commas, and we return a list of |
1411 |
(setq names-match-flag nil)) |
(setq names-match-flag nil)) |
1412 |
(setq i (1+ i))) |
(setq i (1+ i))) |
1413 |
(delete-region (+ (point-min) buffer-length) (point-max)) |
(delete-region (+ (point-min) buffer-length) (point-max)) |
1414 |
(if names-match-flag |
(and names-match-flag |
1415 |
(narrow-to-region (point) (point))))) |
mail-extr-ignore-realname-equals-mailbox-name |
1416 |
|
(narrow-to-region (point) (point))))) |
1417 |
|
|
1418 |
;; Nuke name if it's just one word. |
;; Nuke name if it's just one word. |
1419 |
(goto-char (point-min)) |
(goto-char (point-min)) |