* gnus-agent.el (gnus-agent-regenerate-group): Added interactive form.

[gnus] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index cb64426..25b3913 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -701,11 +701,9 @@ marks file will be regenerated properly by Gnus.")
       (unless (zerop (buffer-size))
        (narrow-to-region
         (goto-char (point-min))
-        (if (search-forward "\n\n" nil t)
+        (if (re-search-forward "\n\r?\n" nil t)
             (1- (point))
-          (if (search-forward "\n\r\n" nil t)
-              (- (point) 2)
-            (point-max)))))
+          (point-max))))
       (let ((headers (nnheader-parse-naked-head)))
        (mail-header-set-chars headers chars)
        (mail-header-set-number headers number)