diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-08 22:56:37 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-08 22:56:37 +0000 |
| commit | 362e0d3decc3ca0382e372677c5774210bf40d90 (patch) | |
| tree | cde83b1195b5486a3feffe6c1700e6c405cd9e92 /lisp/gnus/nnml.el | |
| parent | 4a0fd2f66e0d6572e990731ffc7c13a890c6a318 (diff) | |
| download | emacs-362e0d3decc3ca0382e372677c5774210bf40d90.tar.gz | |
(nnml-save-nov, nnml-generate-nov-file): Don't hardcode point-min == 1.
Diffstat (limited to 'lisp/gnus/nnml.el')
| -rw-r--r-- | lisp/gnus/nnml.el | 8 |
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) |