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> 2009-01-26 Bill Wohler <wohler@newt.com>
* mh-utils.el (mh-goto-header-end): Use mh-mail-header-separator * 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 ...@@ -3243,6 +3243,14 @@ This can be done with this hook which is called when
:group 'mh-search :group 'mh-search
:package-version '(MH-E . "8.0")) :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 (defcustom-mh mh-quit-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E. "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
......
...@@ -169,7 +169,10 @@ in interactive use. ...@@ -169,7 +169,10 @@ in interactive use.
This command will ask if you want to process refiles or deletes This command will ask if you want to process refiles or deletes
first and then either run \\[mh-execute-commands] for you or undo 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 (interactive (list (if current-prefix-arg
(mh-read-range "Scan" mh-current-folder t nil t (mh-read-range "Scan" mh-current-folder t nil t
mh-interpret-number-as-range-flag) mh-interpret-number-as-range-flag)
...@@ -181,6 +184,7 @@ the pending refiles and deletes." ...@@ -181,6 +184,7 @@ the pending refiles and deletes."
(mh-index-update-maps mh-current-folder)) (mh-index-update-maps mh-current-folder))
(cond (threaded-flag (mh-toggle-threads)) (cond (threaded-flag (mh-toggle-threads))
(mh-index-data (mh-index-insert-folder-headers)))) (mh-index-data (mh-index-insert-folder-headers))))
(run-hooks 'mh-pack-folder-hook)
(message "Packing folder...done")) (message "Packing folder...done"))
(defun mh-pack-folder-1 (range) (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