[Emacs-diffs] /srv/bzr/emacs/trunk r111524: gnus-sum.el: gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111524
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-01-14 22:09:16 +0000
message:
  gnus-sum.el: gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address 
comparison
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-01-13 21:26:10 +0000
+++ b/lisp/gnus/ChangeLog       2013-01-14 22:09:16 +0000
@@ -1,3 +1,8 @@
+2013-01-14  Julien Danjou  <address@hidden>
+
+       * 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  <address@hidden>
 
        * message.el (message-forward-make-body-mime): New args BEG, END
@@ -7,10 +12,10 @@
 2013-01-11  Aaron S. Hawley  <address@hidden>
 
        * gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string
-        cross-reference(s).
+       cross-reference(s).
 
        * gnus-sum.el (gnus-summary-newsgroup-prefix): Fix ambiguous doc string
-        cross-reference(s).
+       cross-reference(s).
 
 2013-01-11  Dmitry Antipov  <address@hidden>
 

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2013-01-11 23:08:55 +0000
+++ b/lisp/gnus/gnus-sum.el     2013-01-14 22:09:16 +0000
@@ -3651,17 +3651,18 @@
   (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.
-       (mail-parse-ignored-charsets
-        (with-current-buffer gnus-summary-buffer
-          gnus-newsgroup-ignored-charsets)))
+        (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.
+        (mail-parse-ignored-charsets
+         (with-current-buffer gnus-summary-buffer
+           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)
@@ -3680,9 +3681,7 @@
                                 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