Mercurial > emacs
changeset 101520:a1d83c2b479e
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 | 9021c01f512d |
| children | a8bcd83f40c5 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-e.el lisp/mh-e/mh-funcs.el |
| diffstat | 3 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Mon Jan 26 14:32:34 2009 +0000 +++ b/lisp/mh-e/ChangeLog Mon Jan 26 14:42:31 2009 +0000 @@ -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
--- 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.
--- 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)