(nnml-save-nov, nnml-generate-nov-file): Don't hardcode point-min == 1.

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el
index 1d078e839cf..52624a71c6e 100644
--- a/lisp/gnus/nnml.el
+++ b/lisp/gnus/nnml.el
@@ -702,8 +702,8 @@ all.  This may very well take some time.")
       (when (buffer-name (cdar nnml-nov-buffer-alist))
         (set-buffer (cdar nnml-nov-buffer-alist))
         (when (buffer-modified-p)
-          (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name
-                               nil 'nomesg))
+          (nnmail-write-region (point-min) (point-max)
+                               nnml-nov-buffer-file-name nil 'nomesg))
         (set-buffer-modified-p nil)
         (kill-buffer (current-buffer)))
       (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))
@@ -788,7 +788,7 @@ all.  This may very well take some time.")
            (progn
              (search-forward "\n\n" nil t)
              (setq chars (- (point-max) (point)))
-             (max 1 (1- (point)))))
+             (max (point-min) (1- (point)))))
           (unless (zerop (buffer-size))
             (goto-char (point-min))
             (setq headers (nnml-parse-head chars (caar files)))
@@ -800,7 +800,7 @@ all.  This may very well take some time.")
         (setq files (cdr files)))
       (save-excursion
         (set-buffer nov-buffer)
-        (nnmail-write-region 1 (point-max) nov nil 'nomesg)
+        (nnmail-write-region (point-min) (point-max) nov nil 'nomesg)
         (kill-buffer (current-buffer))))))
 
 (defun nnml-nov-delete-article (group article)