From b682c4af26cb887d22c94b60bec0af2604c74580 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 27 Jan 2001 05:21:35 +0000 Subject: [PATCH] * wl-vars.el (wl-save-hook): New hook. * wl.el (wl-save): Call `wl-save-hook'. --- wl/ChangeLog | 5 +++++ wl/wl-vars.el | 2 ++ wl/wl.el | 3 ++- 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 560116a..0d4026c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2001-01-27 TAKAHASHI Kaoru + * wl-vars.el (wl-save-hook): New hook. + * wl.el (wl-save): Call `wl-save-hook'. + +2001-01-27 TAKAHASHI Kaoru + * wl-draft.el (wl-draft-reply-list-symbol): Remove FROM argument. Argument WITH-ARG instead of NO-ARG (negative mean). (wl-draft-reply): WITH-ARG instead of NO-ARG. diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 8e59516..2a37db4 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -462,6 +462,8 @@ reasons of system internal to accord facilities for the Emacs variants.") "A hook called when header is highlighted.") (defvar wl-highlight-message-hook nil "A hook called when message is highlighted.") +(defvar wl-save-hook nil + "A hook called when save summary and folder status.") (defvar wl-exit-hook nil "A hook called when exit wanderlust.") (defvar wl-folder-suspend-hook nil diff --git a/wl/wl.el b/wl/wl.el index 573e363..696716b 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -603,7 +603,8 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (defun wl-save () "Save summary and folder status." (interactive) - (wl-save-status 'keep-summary)) + (wl-save-status 'keep-summary) + (run-hooks 'wl-save-hook)) (defun wl-save-status (&optional keep-summary) (message "Saving summary and folder status...") -- 1.7.10.4