with internal whitespace.
(gnus-parent-id): Ditto.
+2002-02-07 Paul Jarc <prj@po.cwru.edu>
+
+ * gnus-util.el (gnus-split-references): Allow (broken) Message-IDs
+ with internal whitespace.
+ (gnus-parent-id): Ditto.
+
2002-02-07 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (gnus-article-treat-body-boundary): Add
"Return a list of Message-IDs in REFERENCES."
(let ((beg 0)
ids)
- (while (string-match "<[^> \t]+>" references beg)
+ (while (string-match "<[^<]+[^< \t]" references beg)
(push (substring references (match-beginning 0) (setq beg (match-end 0)))
ids))
(nreverse ids)))
(while (nthcdr n ids)
(setq ids (cdr ids)))
(car ids))
- (when (string-match "<[^> \t]+>\\'" references)
+ (when (string-match "<[^<]+\\'" references)
(match-string 0 references)))))
(defun gnus-buffer-live-p (buffer)