[gnus git] branch master updated: m0-5-253-gad0f7c6 =1= gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison

       via  ad0f7c6ccd02cc12faada868464429d63704f8e9 (commit)
      from  da189c014ccaf35e58946ad10fef8202d4e63818 (commit)


- Log -----------------------------------------------------------------
commit ad0f7c6ccd02cc12faada868464429d63704f8e9
Author: Julien Danjou <[email protected]>
Date:   Mon Jan 14 19:02:39 2013 +0100

    gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2f0f38d..54c6a8d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-14  Julien Danjou  <[email protected]>
+
+	* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Compare
+	addresses against addresses, not against the full From field.
+
 2013-01-13  Richard Stallman  <[email protected]>
 
 	* message.el (message-forward-make-body-mime): New args BEG, END
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 41a47a6..0184459 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3655,17 +3655,18 @@ buffer that was in action when the last article was fetched."
   (or (car (funcall gnus-extract-address-components from))
       from))
 
-(defun gnus-summary-from-or-to-or-newsgroups (header gnus-tmp-from)
+(defun gnus-summary-from-or-to-or-newsgroups (header from)
   (let ((mail-parse-charset gnus-newsgroup-charset)
 	(ignored-from-addresses (gnus-ignored-from-addresses))
-	; Is it really necessary to do this next part for each summary line?
-	; Luckily, doesn't seem to slow things down much.
+        ;; Is it really necessary to do this next part for each summary line?
+        ;; Luckily, doesn't seem to slow things down much.
 	(mail-parse-ignored-charsets
 	 (with-current-buffer gnus-summary-buffer
-	   gnus-newsgroup-ignored-charsets)))
+           gnus-newsgroup-ignored-charsets))
+        (address (cadr (gnus-extract-address-components from))))
     (or
      (and ignored-from-addresses
-	  (string-match ignored-from-addresses gnus-tmp-from)
+	  (string-match ignored-from-addresses address)
 	  (let ((extra-headers (mail-header-extra header))
 		to
 		newsgroups)
@@ -3684,9 +3685,7 @@ buffer that was in action when the last article was fetched."
                                 gnus-newsgroup-name)) 'nntp)
 		      (gnus-group-real-name gnus-newsgroup-name))))
 	      (concat gnus-summary-newsgroup-prefix newsgroups)))))
-     (gnus-string-mark-left-to-right
-      (inline
-       (gnus-summary-extract-address-component gnus-tmp-from))))))
+     (gnus-string-mark-left-to-right (gnus-summary-extract-address-component from)))))
 
 (defun gnus-summary-insert-line (gnus-tmp-header
 				 gnus-tmp-level gnus-tmp-current

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-sum.el |   21 ++++++++++-----------
 2 files changed, 15 insertions(+), 11 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project