(message-is-yours-p): Use the more correct

mail-header-parse-address instead of
mail-extract-address-components.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38a548c..0c9fb0a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,10 @@
 2006-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-put-addresses-in-ecomplete): Use
-       gnus-replace-in-string. 
+       gnus-replace-in-string.
+       (message-is-yours-p): Use the more correct
+       mail-header-parse-address instead of
+       mail-extract-address-components.
 
        * gnus-sum.el (gnus-summary-limit-to-bodies): New command and
        keystroke. 

diff --git a/lisp/message.el b/lisp/message.el
index 18c03fe..17cc7a7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6131,16 +6131,16 @@ regexp to match all of yours addresses."
           ;; Email address in From field equals to our address
           (and (setq from (message-fetch-field "from"))
                (string-equal
-                (downcase (cadr (mail-extract-address-components from)))
-                (downcase (cadr (mail-extract-address-components
-                                 (message-make-from))))))
+                (downcase (car (mail-header-parse-address from)))
+                (downcase (car (mail-header-parse-address
+                                (message-make-from))))))
           ;; Email address in From field matches
           ;; 'message-alternative-emails' regexp
           (and from
                message-alternative-emails
                (string-match
                 message-alternative-emails
-                (cadr (mail-extract-address-components from))))))))))
+                (car (mail-header-parse-address from))))))))))
 
 ;;;###autoload
 (defun message-cancel-news (&optional arg)