mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

(rmail-output-to-rmail-file): Call rmail-update-summary.

Browse Source 
(rmail-output-to-rmail-file): Turn off the deleted
attribute outside of the save-restriction.
This commit is contained in:
Richard M. Stallman 1993-12-23 03:30:12 +00:00
parent 9d78ff8be7
commit 953262f779
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/mail/rmailout.el
View File

@ -61,12 +61,16 @@ starting with the current one. Deleted messages are skipped and don't count."
;; If not suggestions, use same file as last time.
(or answer rmail-last-rmail-file))))
(list (setq rmail-last-rmail-file
(read-file-name
(concat "Output message to Rmail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
default-file))
(expand-file-name
(or
(read-file-name
(concat "Output message to Rmail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
default-file)
default-file)
(file-name-directory default-file)))
(prefix-numeric-value current-prefix-arg))))
(or count (setq count 1))
(setq file-name
@ -92,11 +96,14 @@ starting with the current one. Deleted messages are skipped and don't count."
(let (redelete)
(unwind-protect
(progn
;; Temporarily turn off Deleted attribute.
;; Do this outside the save-restriction, since it would
;; shift the place in the buffer where the visible text starts.
(if (rmail-message-deleted-p rmail-current-message)
(progn (setq redelete t)
(rmail-set-attribute "deleted" nil)))
(save-restriction
(widen)
(if (rmail-message-deleted-p rmail-current-message)
(progn (setq redelete t)
(rmail-set-attribute "deleted" nil)))
;; Decide whether to append to a file or to an Emacs buffer.
(save-excursion
(let ((buf (get-file-buffer file-name))
@ -124,6 +131,9 @@ starting with the current one. Deleted messages are skipped and don't count."
(search-backward "\n\^_")
(narrow-to-region (point) (point-max))
(rmail-count-new-messages t)
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))
(rmail-show-message msg))
;; Output file not in rmail mode => just insert at the end.
(narrow-to-region (point-min) (1+ (buffer-size)))