;;; Code:
+(require 'rmail)
+
(defun undigestify-rmail-message ()
"Break up a digest message into its constituent messages.
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))