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

mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index ac7a8cf7bafe3698516b2f4f5656c9cb11228092..fd44338e0330a5cb0968deb6f6332eabf2403968 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index ee3b2042072bf3b0123d35a3fdbf1d56db2a6adf..391d0d26434c3c7dd9710ab8ef79bb925356a7f4 100644 (file)
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -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.
 

diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el
index 69ef6a3274a4b6845e731c966ca6d61d3eab583a..38ae1186ed542435d3c54b3d63b870f346c1b5dd 100644 (file)
--- a/lisp/mh-e/mh-funcs.el
+++ b/lisp/mh-e/mh-funcs.el
@@ -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)