[Emacs-diffs] trunk r113269: gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Revert 2013-01-14 change

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113269
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-03 04:15:38 +0000
message:
  gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Revert 2013-01-14 change
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-sum.el          gnussum.el-20091113204419-o5vbwnq5f7feedwu-1137

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-07-02 10:38:58 +0000
+++ b/lisp/gnus/ChangeLog       2013-07-03 04:15:38 +0000
@@ -1,3 +1,8 @@
+2013-07-03  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups):
+       Revert 2013-01-14 change.
+
 2013-07-02  David Engster  <address@hidden>
 
        * gnus-sum.el (gnus-update-marks): Do not remove empty 'unexist'

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2013-07-02 10:38:58 +0000
+++ b/lisp/gnus/gnus-sum.el     2013-07-03 04:15:38 +0000
@@ -3657,18 +3657,17 @@
   (or (car (funcall gnus-extract-address-components from))
       from))
 
-(defun gnus-summary-from-or-to-or-newsgroups (header from)
+(defun gnus-summary-from-or-to-or-newsgroups (header gnus-tmp-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))
-        (address (cadr (gnus-extract-address-components from))))
+       (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)))
     (or
      (and ignored-from-addresses
-         (string-match ignored-from-addresses address)
+         (string-match ignored-from-addresses gnus-tmp-from)
          (let ((extra-headers (mail-header-extra header))
                to
                newsgroups)
@@ -3683,11 +3682,13 @@
                     (cdr (assq 'Newsgroups extra-headers))
                     (and
                      (memq 'Newsgroups gnus-extra-headers)
-                      (eq (car (gnus-find-method-for-group
-                                gnus-newsgroup-name)) 'nntp)
+                     (eq (car (gnus-find-method-for-group
+                               gnus-newsgroup-name)) 'nntp)
                      (gnus-group-real-name gnus-newsgroup-name))))
              (concat gnus-summary-newsgroup-prefix newsgroups)))))
-     (gnus-string-mark-left-to-right (gnus-summary-extract-address-component 
from)))))
+     (gnus-string-mark-left-to-right
+      (inline
+       (gnus-summary-extract-address-component gnus-tmp-from))))))
 
 (defun gnus-summary-insert-line (gnus-tmp-header
                                 gnus-tmp-level gnus-tmp-current