/[emacs]/emacs/lisp/mail/mail-extr.el
ViewVC logotype

Diff of /emacs/lisp/mail/mail-extr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41.4.3 by miles, Fri Aug 27 07:00:26 2004 UTC revision 1.41.4.4 by miles, Thu Oct 14 08:50:06 2004 UTC
# Line 234  we will act as though we couldn't find a Line 234  we will act as though we couldn't find a
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
# Line 694  Unless NO-REPLACE is true, at each of th Line 701  Unless NO-REPLACE is true, at each of th
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
# Line 1404  consing a string.)" Line 1411  consing a string.)"
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))

Legend:
Removed from v.1.41.4.3  
changed lines
  Added in v.1.41.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26