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