martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(undigestify-rmail-message): Update summary buffer.

Browse Source
This commit is contained in:
Karl Heuer
1994-04-23 02:31:52 +00:00
parent 881fd7eb9b
commit 4fe9b56368
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/undigest.el
View File

@@ -27,6 +27,8 @@
;;; Code:
(require 'rmail)
(defun undigestify-rmail-message ()
"Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages."
@@ -105,7 +107,10 @@ Leaves original message, deleted, before the undigestified messages."
(let ((n rmail-current-message))
(rmail-forget-messages)
(rmail-show-message n)
(rmail-delete-forward)))
(rmail-delete-forward)
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))))
(cond (error
(narrow-to-region (point-min) (1+ (point-max)))
(delete-region (point-min) (point-max))