mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-split-references): Strip comments.

Browse source 
(gnus-parent-id): Likewise.
This commit is contained in:
Andreas Schwab 2008-09-27 08:12:03 +00:00
parent 47e4971262
commit 521c4a2329
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/gnus-util.el
View file

@ -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."