mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2002-04-08 22:56:37 +00:00
parent 7524d5cee6
commit 9930767b8f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus/nnml.el
View File

@ -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)