Commit 031c6757 authored by Stephen Gildea's avatar Stephen Gildea
Browse files

mh-e.el (mh-pack-folder-hook): New variable.

mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
parent 19ae3e61
2009-01-26 Stephen Gildea <gildea@stop.mail-abuse.org>
* mh-e.el (mh-pack-folder-hook): New variable.
* mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
2009-01-26 Bill Wohler <wohler@newt.com>
* mh-utils.el (mh-goto-header-end): Use mh-mail-header-separator
......
......@@ -3243,6 +3243,14 @@ This can be done with this hook which is called when
:group 'mh-search
:package-version '(MH-E . "8.0"))
(defcustom-mh mh-pack-folder-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-pack-folder] after renumbering the messages.
Hook functions can access the current folder name with `mh-current-folder'."
:type 'hook
:group 'mh-hooks
:group 'mh-folder
:package-version '(MH-E . "8.1.1"))
(defcustom-mh mh-quit-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
......
......@@ -169,7 +169,10 @@ in interactive use.
This command will ask if you want to process refiles or deletes
first and then either run \\[mh-execute-commands] for you or undo
the pending refiles and deletes."
the pending refiles and deletes.
The hook `mh-pack-folder-hook' is run after annotating; see its
documentation for variables it can use."
(interactive (list (if current-prefix-arg
(mh-read-range "Scan" mh-current-folder t nil t
mh-interpret-number-as-range-flag)
......@@ -181,6 +184,7 @@ the pending refiles and deletes."
(mh-index-update-maps mh-current-folder))
(cond (threaded-flag (mh-toggle-threads))
(mh-index-data (mh-index-insert-folder-headers))))
(run-hooks 'mh-pack-folder-hook)
(message "Packing folder...done"))
(defun mh-pack-folder-1 (range)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment