sync with qgnus-0.17.

[elisp/gnus.git-] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 366a5ed..5b7da45 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -214,8 +214,9 @@ on your system, you could say something like:
             (goto-char p)
             (if (search-forward "\nmessage-id:" nil t)
                 (buffer-substring
-                 (1- (or (search-forward "<" nil t) (point)))
-                 (or (search-forward ">" nil t) (point)))
+                 (1- (or (search-forward "<" (gnus-point-at-eol) t)
+                         (point)))
+                 (or (search-forward ">" (gnus-point-at-eol) t) (point)))
               ;; If there was no message-id, we just fake one to make
               ;; subsequent routines simpler.
               (nnheader-generate-fake-message-id)))