[Emacs-diffs] Changes to emacs/lisp/gnus/nnml.el

[Stefan Monnier]

Index: emacs/lisp/gnus/nnml.el
diff -c emacs/lisp/gnus/nnml.el:1.8 emacs/lisp/gnus/nnml.el:1.9
*** emacs/lisp/gnus/nnml.el:1.8 Wed Nov  8 10:40:14 2000
--- emacs/lisp/gnus/nnml.el     Mon Apr  8 18:56:37 2002
***************
*** 702,709 ****
        (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))
        (set-buffer-modified-p nil)
        (kill-buffer (current-buffer)))
        (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))
--- 702,709 ----
        (when (buffer-name (cdar nnml-nov-buffer-alist))
        (set-buffer (cdar nnml-nov-buffer-alist))
        (when (buffer-modified-p)
!         (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,794 ****
           (progn
             (search-forward "\n\n" nil t)
             (setq chars (- (point-max) (point)))
!            (max 1 (1- (point)))))
          (unless (zerop (buffer-size))
            (goto-char (point-min))
            (setq headers (nnml-parse-head chars (caar files)))
--- 788,794 ----
           (progn
             (search-forward "\n\n" nil t)
             (setq chars (- (point-max) (point)))
!            (max (point-min) (1- (point)))))
          (unless (zerop (buffer-size))
            (goto-char (point-min))
            (setq headers (nnml-parse-head chars (caar files)))
***************
*** 800,806 ****
        (setq files (cdr files)))
        (save-excursion
        (set-buffer nov-buffer)
!       (nnmail-write-region 1 (point-max) nov nil 'nomesg)
        (kill-buffer (current-buffer))))))
  
  (defun nnml-nov-delete-article (group article)
--- 800,806 ----
        (setq files (cdr files)))
        (save-excursion
        (set-buffer nov-buffer)
!       (nnmail-write-region (point-min) (point-max) nov nil 'nomesg)
        (kill-buffer (current-buffer))))))
  
  (defun nnml-nov-delete-article (group article)