# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1222503123 0
# Node ID ef06f769799ee34daa6292fb73505e2f546604ca
# Parent  e68fa8f780504cb468dee8926b6e32a7ecb3ada4
(gnus-split-references): Strip comments.
(gnus-parent-id): Likewise.

diff -r e68fa8f78050 -r ef06f769799e lisp/gnus/ChangeLog
--- 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
diff -r e68fa8f78050 -r ef06f769799e lisp/gnus/gnus-util.el
--- 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."