diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-23 02:31:52 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-23 02:31:52 +0000 |
| commit | 4fe9b5636846e327d660d89fbc2a42a8b08fca21 (patch) | |
| tree | c5927f8017f8a1cd48031e0155058773fc534136 | |
| parent | 881fd7eb9b15ac712c2a71adeb5868cbfaec158d (diff) | |
| download | emacs-4fe9b5636846e327d660d89fbc2a42a8b08fca21.tar.gz | |
(undigestify-rmail-message): Update summary buffer.
| -rw-r--r-- | lisp/mail/undigest.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index a230e75754f..bd915141de1 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -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)) |