From 9930767b8fcceb378c9b115fa3f5f29a47c95797 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 8 Apr 2002 22:56:37 +0000 Subject: [PATCH] (nnml-save-nov, nnml-generate-nov-file): Don't hardcode point-min == 1. --- lisp/gnus/nnml.el | 8 ++++---- 1 file 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) -- 2.39.2