[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v |
Date: |
Sat, 27 Sep 2008 08:12:04 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Andreas Schwab <schwab> 08/09/27 08:12:04
Index: gnus-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- gnus-util.el 21 Jul 2008 17:21:24 -0000 1.67
+++ gnus-util.el 27 Sep 2008 08:12:03 -0000 1.68
@@ -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))
+ (let ((references (mail-header-remove-comments references)))
(when (string-match "\\(<[^<]+>\\)[ \t]*\\'" references)
- (match-string 1 references)))))
+ (match-string 1 references))))))
(defun gnus-buffer-live-p (buffer)
"Say whether BUFFER is alive or not."
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v,
Andreas Schwab <=