[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111524: gnus-sum.el: gnus-sum: fix `
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111524: gnus-sum.el: gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison |
Date: |
Mon, 14 Jan 2013 22:09:16 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111524: gnus-sum.el: gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison,
Katsumi Yamaoka <=