From 830fdbe09e10c229006409bea322ab3dedf25bd6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 16 Apr 2006 20:48:38 +0000 Subject: [PATCH] (message-is-yours-p): Use the more correct mail-header-parse-address instead of mail-extract-address-components. --- lisp/ChangeLog | 5 ++++- lisp/message.el | 8 ++++---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 38a548cb9..0c9fb0a8d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,10 @@ 2006-04-16 Lars Magne Ingebrigtsen * 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 18c03fedf..17cc7a7cc 100644 --- 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) -- 2.34.1