Commit 982c5d68 authored by Julien Danjou's avatar Julien Danjou Committed by Katsumi Yamaoka
Browse files

gnus-sum.el: gnus-sum: fix `gnus-summary-from-or-to-or-newsgroups' address comparison

parent c50cf2ea
2013-01-14 Julien Danjou <julien@danjou.info>
* 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 <rms@gnu.org>
 
* message.el (message-forward-make-body-mime): New args BEG, END
......@@ -7,10 +12,10 @@
2013-01-11 Aaron S. Hawley <Aaron.Hawley@vtinfo.com>
 
* 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 <dmantipov@yandex.ru>
 
......
......@@ -3651,17 +3651,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.
(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 @@ 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment