* wl-vars.el (wl-save-hook): New hook.

* wl.el (wl-save): Call `wl-save-hook'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 560116a..0d4026c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2001-01-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-vars.el (wl-save-hook): New hook.
+       * wl.el (wl-save): Call `wl-save-hook'.
+
+2001-01-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
        * 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 (file)
--- 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 (file)
--- 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...")