comparison lisp/mh-e/mh-customize.el @ 67689:98eba52a8481

* mh-customize.el (mh-after-commands-processed-hook): New variable. (mh-before-commands-processed-hook): Rename from mh-folder-updated-hook. * mh-e.el (mh-process-commands): Rename mh-folder-updated-hook to mh-before-commands-processed-hook, call new mh-after-commands-processed-hook. (mh-folders-changed): New variable (for mh-after-commands-processed-hook).
author Stephen Gildea <gildea@stop.mail-abuse.org>
date Tue, 20 Dec 2005 03:44:32 +0000
parents 3a8785724cca
children 7ff92ad99326
comparison
equal deleted inserted replaced
67688:7561789df348 67689:98eba52a8481
2292 "Invoked in `mh-folder-mode' on a new folder." 2292 "Invoked in `mh-folder-mode' on a new folder."
2293 :type 'hook 2293 :type 'hook
2294 :group 'mh-hooks 2294 :group 'mh-hooks
2295 :group 'mh-folder) 2295 :group 'mh-folder)
2296 2296
2297 (defcustom mh-folder-updated-hook nil 2297 (defcustom mh-before-commands-processed-hook nil
2298 "Invoked when the folder actions (such as moves and deletes) are performed. 2298 "Invoked before the folder actions (such as moves and deletes) are performed.
2299 Variables that are useful in this hook include `mh-delete-list' and 2299 Variables that are useful in this hook include `mh-delete-list' and
2300 `mh-refile-list' which can be used to see which changes are being made to 2300 `mh-refile-list' which can be used to see which changes will be made to
2301 current folder, `mh-current-folder'." 2301 current folder, `mh-current-folder'."
2302 :type 'hook 2302 :type 'hook
2303 :group 'mh-hooks 2303 :group 'mh-hooks
2304 :group 'mh-folder) 2304 :group 'mh-folder)
2305
2306 (defcustom mh-after-commands-processed-hook nil
2307 "Invoked after the folder actions (such as moves and deletes) are performed.
2308 Variables that are useful in this hook include `mh-folders-changed',
2309 which lists which folders were affected by deletes and refiles. This
2310 list will always include the current folder, which is also available
2311 in `mh-current-folder'."
2312 :type 'hook
2313 :group 'mh-hooks)
2305 2314
2306 (defcustom mh-forward-hook nil 2315 (defcustom mh-forward-hook nil
2307 "Invoked on the forwarded letter by \\<mh-folder-mode-map>\\[mh-forward]." 2316 "Invoked on the forwarded letter by \\<mh-folder-mode-map>\\[mh-forward]."
2308 :type 'hook 2317 :type 'hook
2309 :group 'mh-hooks 2318 :group 'mh-hooks