Commit 521c4a23 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(gnus-split-references): Strip comments.

(gnus-parent-id): Likewise.
parent 47e49712
2008-09-27 Andreas Schwab <>
* gnus-util.el (gnus-split-references): Strip comments.
(gnus-parent-id): Likewise.
2008-09-25 Teodor Zlatanov <>
* message.el (message-confirm-send): Fixed variable documentation to
......@@ -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 "")))
(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."
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