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 | a1b8786831b04d16bbcee101dd3ee2abb10bd8fb (patch) | |
| tree | 5285803f419a4dc3a75f85a3cdb23592aff02e4d /lisp/mail/undigest.el | |
| parent | 96359b1b5d727850ae03a14cf96411a474668db6 (diff) | |
| download | emacs-a1b8786831b04d16bbcee101dd3ee2abb10bd8fb.tar.gz | |
(undigestify-rmail-message): Update summary buffer.
Diffstat (limited to 'lisp/mail/undigest.el')
| -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)) |