Function: mh-burst-digest
mh-burst-digest is an autoloaded, interactive and byte-compiled
function defined in mh-funcs.el.gz.
Signature
(mh-burst-digest)
Documentation
Break up digest into separate messages.
This command uses the MH command "burst" to break out each
message in the digest into its own message. Using this command,
you can quickly delete unwanted messages, like this: Once the
digest is split up, toggle out of MH-Folder Show mode with
t (mh-toggle-showing) so that the scan lines fill the screen and
messages aren't displayed. Then use d (mh-delete-msg) to quickly
delete messages that you don't want to read (based on the
"Subject:" header field). You can also burst the digest to
reply directly to the people who posted the messages in the
digest. One problem you may encounter is that the "From:"
header fields are preceded with a ">" so that your reply can't
create the "To:" field correctly. In this case, you must
correct the "To:" field yourself.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/mh-e/mh-funcs.el.gz
;;;###mh-autoload
(defun mh-burst-digest ()
"Break up digest into separate messages\\<mh-folder-mode-map>.
This command uses the MH command \"burst\" to break out each
message in the digest into its own message. Using this command,
you can quickly delete unwanted messages, like this: Once the
digest is split up, toggle out of MH-Folder Show mode with
\\[mh-toggle-showing] so that the scan lines fill the screen and
messages aren't displayed. Then use \\[mh-delete-msg] to quickly
delete messages that you don't want to read (based on the
\"Subject:\" header field). You can also burst the digest to
reply directly to the people who posted the messages in the
digest. One problem you may encounter is that the \"From:\"
header fields are preceded with a \">\" so that your reply can't
create the \"To:\" field correctly. In this case, you must
correct the \"To:\" field yourself."
(interactive)
(let ((digest (mh-get-msg-num t)))
(mh-process-or-undo-commands mh-current-folder)
(mh-set-folder-modified-p t) ; lock folder while bursting
(message "Bursting digest...")
(mh-exec-cmd "burst" mh-current-folder digest "-inplace")
(with-mh-folder-updating (t)
(beginning-of-line)
(delete-region (point) (point-max)))
(mh-regenerate-headers (format "%d-last" digest) t)
(mh-goto-cur-msg)
(message "Bursting digest...done")))