Mercurial > emacs

changeset 44453:b62714db7e04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nnml-save-nov, nnml-generate-nov-file): Don't hardcode point-min == 1.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 08 Apr 2002 22:56:37 +0000
parents a7836a045796
children f2981a508fca
files lisp/gnus/nnml.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/nnml.el	Mon Apr 08 22:54:56 2002 +0000
+++ b/lisp/gnus/nnml.el	Mon Apr 08 22:56:37 2002 +0000
@@ -702,8 +702,8 @@
       (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 @@
 	   (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 @@
 	(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)