Mercurial > emacs
changeset 98366:ef06f769799e
(gnus-split-references): Strip comments.
(gnus-parent-id): Likewise.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 27 Sep 2008 08:12:03 +0000 |
| parents | e68fa8f78050 |
| children | 758774f72111 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-util.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Sep 27 06:59:43 2008 +0000 +++ b/lisp/gnus/ChangeLog Sat Sep 27 08:12:03 2008 +0000 @@ -1,3 +1,8 @@ +2008-09-27 Andreas Schwab <schwab@suse.de> + + * gnus-util.el (gnus-split-references): Strip comments. + (gnus-parent-id): Likewise. + 2008-09-25 Teodor Zlatanov <tzz@lifelogs.com> * message.el (message-confirm-send): Fixed variable documentation to
--- a/lisp/gnus/gnus-util.el Sat Sep 27 06:59:43 2008 +0000 +++ b/lisp/gnus/gnus-util.el Sat Sep 27 08:12:03 2008 +0000 @@ -625,7 +625,7 @@ (defun gnus-split-references (references) "Return a list of Message-IDs in REFERENCES." (let ((beg 0) - (references (or references "")) + (references (mail-header-remove-comments (or references ""))) ids) (while (string-match "<[^<]+[^< \t]" references beg) (push (substring references (match-beginning 0) (setq beg (match-end 0))) @@ -652,8 +652,9 @@ (while (nthcdr n ids) (setq ids (cdr ids))) (car ids)) - (when (string-match "\\(<[^<]+>\\)[ \t]*\\'" references) - (match-string 1 references))))) + (let ((references (mail-header-remove-comments references))) + (when (string-match "\\(<[^<]+>\\)[ \t]*\\'" references) + (match-string 1 references)))))) (defun gnus-buffer-live-p (buffer) "Say whether BUFFER is alive or not."