[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el

[Kim F . Storm]

Index: emacs/lisp/mail/mail-extr.el
diff -c emacs/lisp/mail/mail-extr.el:1.46 emacs/lisp/mail/mail-extr.el:1.47
*** emacs/lisp/mail/mail-extr.el:1.46   Fri Oct  8 17:51:02 2004
--- emacs/lisp/mail/mail-extr.el        Wed Feb  9 15:50:37 2005
***************
*** 231,237 ****
  If true, then when we see an address like \"Idiot <address@hidden>\"
  we will act as though we couldn't find a full name in the address."
    :type 'boolean
!   :version "21.4"
    :group 'mail-extr)
  
  (defcustom mail-extr-ignore-realname-equals-mailbox-name t
--- 231,237 ----
  If true, then when we see an address like \"Idiot <address@hidden>\"
  we will act as though we couldn't find a full name in the address."
    :type 'boolean
!   :version "22.1"
    :group 'mail-extr)
  
  (defcustom mail-extr-ignore-realname-equals-mailbox-name t
***************
*** 1411,1417 ****
                    (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)))))
  
--- 1411,1417 ----
                    (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)))))