Mercurial > emacs
comparison lisp/gnus/nnml.el @ 44453:b62714db7e04
(nnml-save-nov, nnml-generate-nov-file): Don't hardcode point-min == 1.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 08 Apr 2002 22:56:37 +0000 |
| parents | c47be4412cfd |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 44452:a7836a045796 | 44453:b62714db7e04 |
|---|---|
| 700 (save-excursion | 700 (save-excursion |
| 701 (while nnml-nov-buffer-alist | 701 (while nnml-nov-buffer-alist |
| 702 (when (buffer-name (cdar nnml-nov-buffer-alist)) | 702 (when (buffer-name (cdar nnml-nov-buffer-alist)) |
| 703 (set-buffer (cdar nnml-nov-buffer-alist)) | 703 (set-buffer (cdar nnml-nov-buffer-alist)) |
| 704 (when (buffer-modified-p) | 704 (when (buffer-modified-p) |
| 705 (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name | 705 (nnmail-write-region (point-min) (point-max) |
| 706 nil 'nomesg)) | 706 nnml-nov-buffer-file-name nil 'nomesg)) |
| 707 (set-buffer-modified-p nil) | 707 (set-buffer-modified-p nil) |
| 708 (kill-buffer (current-buffer))) | 708 (kill-buffer (current-buffer))) |
| 709 (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) | 709 (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))) |
| 710 | 710 |
| 711 ;;;###autoload | 711 ;;;###autoload |
| 786 (narrow-to-region | 786 (narrow-to-region |
| 787 (goto-char (point-min)) | 787 (goto-char (point-min)) |
| 788 (progn | 788 (progn |
| 789 (search-forward "\n\n" nil t) | 789 (search-forward "\n\n" nil t) |
| 790 (setq chars (- (point-max) (point))) | 790 (setq chars (- (point-max) (point))) |
| 791 (max 1 (1- (point))))) | 791 (max (point-min) (1- (point))))) |
| 792 (unless (zerop (buffer-size)) | 792 (unless (zerop (buffer-size)) |
| 793 (goto-char (point-min)) | 793 (goto-char (point-min)) |
| 794 (setq headers (nnml-parse-head chars (caar files))) | 794 (setq headers (nnml-parse-head chars (caar files))) |
| 795 (save-excursion | 795 (save-excursion |
| 796 (set-buffer nov-buffer) | 796 (set-buffer nov-buffer) |
| 798 (nnheader-insert-nov headers))) | 798 (nnheader-insert-nov headers))) |
| 799 (widen)) | 799 (widen)) |
| 800 (setq files (cdr files))) | 800 (setq files (cdr files))) |
| 801 (save-excursion | 801 (save-excursion |
| 802 (set-buffer nov-buffer) | 802 (set-buffer nov-buffer) |
| 803 (nnmail-write-region 1 (point-max) nov nil 'nomesg) | 803 (nnmail-write-region (point-min) (point-max) nov nil 'nomesg) |
| 804 (kill-buffer (current-buffer)))))) | 804 (kill-buffer (current-buffer)))))) |
| 805 | 805 |
| 806 (defun nnml-nov-delete-article (group article) | 806 (defun nnml-nov-delete-article (group article) |
| 807 (save-excursion | 807 (save-excursion |
| 808 (set-buffer (nnml-open-nov group)) | 808 (set-buffer (nnml-open-nov group)) |