From: kaoru <kaoru>
Date: Sat, 27 Jan 2001 05:21:35 +0000 (+0000)
Subject: * wl-vars.el (wl-save-hook): New hook.
X-Git-Tag: wl-2_6-root~137
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b682c4af26cb887d22c94b60bec0af2604c74580;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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...")