diff lisp/mh-e/mh-funcs.el @ 101520:a1d83c2b479e

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

--- a/lisp/mh-e/mh-funcs.el	Mon Jan 26 14:32:34 2009 +0000
+++ b/lisp/mh-e/mh-funcs.el	Mon Jan 26 14:42:31 2009 +0000
@@ -169,7 +169,10 @@
 
 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 @@
       (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)