[Emacs-diffs] emacs/lisp/mh-e ChangeLog mh-e.el mh-funcs.el

[Stephen Gildea]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Stephen Gildea <gildea> 09/01/26 14:42:32

Modified files:
        lisp/mh-e      : ChangeLog mh-e.el mh-funcs.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/ChangeLog?cvsroot=emacs&r1=1.294&r2=1.295
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-e.el?cvsroot=emacs&r1=1.132&r2=1.133
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-funcs.el?cvsroot=emacs&r1=1.36&r2=1.37

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/ChangeLog,v
retrieving revision 1.294
retrieving revision 1.295
diff -u -b -r1.294 -r1.295
--- ChangeLog   25 Jan 2009 20:56:45 -0000      1.294
+++ ChangeLog   26 Jan 2009 14:42:31 -0000      1.295
@@ -1,3 +1,8 @@
+2009-01-26  Stephen Gildea  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mh-utils.el (mh-goto-header-end): Use mh-mail-header-separator

Index: mh-e.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-e.el,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -b -r1.132 -r1.133
--- mh-e.el     25 Jan 2009 18:31:22 -0000      1.132
+++ mh-e.el     26 Jan 2009 14:42:32 -0000      1.133
@@ -3243,6 +3243,14 @@
   :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.
 

Index: mh-funcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-funcs.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- mh-funcs.el 25 Jan 2009 18:31:26 -0000      1.36
+++ mh-funcs.el 26 Jan 2009 14:42:32 -0000      1.37
@@ -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)