Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mh-e.el (mh-pack-folder-hook): New variable. mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
author Stephen Gildea <gildea@stop.mail-abuse.org>
date Mon, 26 Jan 2009 14:42:31 +0000
parents 6adb8080d897
children a3fdbe2837e3
line wrap: on
line diff
--- a/lisp/mh-e/mh-e.el	Mon Jan 26 14:32:34 2009 +0000
+++ b/lisp/mh-e/mh-e.el	Mon Jan 26 14:42:31 2009 +0000
@@ -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.