/[emacs]/emacs/lisp/gnus/nnml.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by fx, Wed Nov 8 15:40:14 2000 UTC revision 1.9 by monnier, Mon Apr 8 22:56:37 2002 UTC
# Line 702  all.  This may very well take some time. Line 702  all.  This may very well take some time.
702        (when (buffer-name (cdar nnml-nov-buffer-alist))        (when (buffer-name (cdar nnml-nov-buffer-alist))
703          (set-buffer (cdar nnml-nov-buffer-alist))          (set-buffer (cdar nnml-nov-buffer-alist))
704          (when (buffer-modified-p)          (when (buffer-modified-p)
705            (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name            (nnmail-write-region (point-min) (point-max)
706                                 nil 'nomesg))                                 nnml-nov-buffer-file-name nil 'nomesg))
707          (set-buffer-modified-p nil)          (set-buffer-modified-p nil)
708          (kill-buffer (current-buffer)))          (kill-buffer (current-buffer)))
709        (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))        (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))
# Line 788  all.  This may very well take some time. Line 788  all.  This may very well take some time.
788             (progn             (progn
789               (search-forward "\n\n" nil t)               (search-forward "\n\n" nil t)
790               (setq chars (- (point-max) (point)))               (setq chars (- (point-max) (point)))
791               (max 1 (1- (point)))))               (max (point-min) (1- (point)))))
792            (unless (zerop (buffer-size))            (unless (zerop (buffer-size))
793              (goto-char (point-min))              (goto-char (point-min))
794              (setq headers (nnml-parse-head chars (caar files)))              (setq headers (nnml-parse-head chars (caar files)))
# Line 800  all.  This may very well take some time. Line 800  all.  This may very well take some time.
800          (setq files (cdr files)))          (setq files (cdr files)))
801        (save-excursion        (save-excursion
802          (set-buffer nov-buffer)          (set-buffer nov-buffer)
803          (nnmail-write-region 1 (point-max) nov nil 'nomesg)          (nnmail-write-region (point-min) (point-max) nov nil 'nomesg)
804          (kill-buffer (current-buffer))))))          (kill-buffer (current-buffer))))))
805    
806  (defun nnml-nov-delete-article (group article)  (defun nnml-nov-delete-article (group article)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26