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