[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:16:20 -0400 |
Index: emacs/lisp/mail/mail-extr.el
diff -c emacs/lisp/mail/mail-extr.el:1.41.4.3
emacs/lisp/mail/mail-extr.el:1.41.4.4
*** emacs/lisp/mail/mail-extr.el:1.41.4.3 Fri Aug 27 07:00:26 2004
--- emacs/lisp/mail/mail-extr.el Thu Oct 14 08:50:06 2004
***************
*** 234,239 ****
--- 234,246 ----
:version "21.4"
:group 'mail-extr)
+ (defcustom mail-extr-ignore-realname-equals-mailbox-name t
+ "*Whether to ignore a name that is equal to the mailbox name.
+ If true, then when the address is like \"Single <address@hidden>\"
+ we will act as though we couldn't find a full name in the address."
+ :type 'boolean
+ :group 'mail-extr)
+
;; Matches a leading title that is not part of the name (does not
;; contribute to uniquely identifying the person).
(defcustom mail-extr-full-name-prefixes
***************
*** 694,700 ****
"Given an RFC-822 address ADDRESS, extract full name and canonical address.
Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
If no name can be extracted, FULL-NAME will be nil. Also see
! `mail-extr-ignore-single-names'.
If the optional argument ALL is non-nil, then ADDRESS can contain zero
or more recipients, separated by commas, and we return a list of
--- 701,707 ----
"Given an RFC-822 address ADDRESS, extract full name and canonical address.
Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
If no name can be extracted, FULL-NAME will be nil. Also see
! `mail-extr-ignore-single-names' and
`mail-extr-ignore-realname-equals-mailbox-name'.
If the optional argument ALL is non-nil, then ADDRESS can contain zero
or more recipients, separated by commas, and we return a list of
***************
*** 1404,1411 ****
(setq names-match-flag nil))
(setq i (1+ i)))
(delete-region (+ (point-min) buffer-length) (point-max))
! (if names-match-flag
! (narrow-to-region (point) (point)))))
;; Nuke name if it's just one word.
(goto-char (point-min))
--- 1411,1419 ----
(setq names-match-flag nil))
(setq i (1+ i)))
(delete-region (+ (point-min) buffer-length) (point-max))
! (and names-match-flag
! mail-extr-ignore-realname-equals-mailbox-name
! (narrow-to-region (point) (point)))))
;; Nuke name if it's just one word.
(goto-char (point-min))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el [emacs-unicode-2],
Miles Bader <=