Mercurial > emacs
diff lisp/gnus/gnus-util.el @ 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 | fe4950880bae |
children | 473a8358e3b6 |
line wrap: on
line diff
--- 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."