(gnus-split-references): Strip comments.

(gnus-parent-id): Likewise.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 1e66d688a23104de0a6ac78fcc477491693e21f4..8ba0d86a40c64b7efe5a94d856e2d5e63217b095 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 129e1e641de53fbd922e0033d5b50ad078a7bd78..253366a4ea49d554d8a2e3ce265dd316577fd43a 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -625,7 +625,7 @@ ARGS are passed to `message'."
 (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 @@ If N, return the Nth ancestor instead."
          (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."