* wl.el (wl-exit): Call elmo-passwd-alist-clear at the end.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d3079fb..c1b6c1e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2005-10-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+       * wl.el (wl-exit): Call elmo-passwd-alist-clear at the end.
+
+2005-10-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
        * wl-vars.el (wl-folder-hierarchy-access-folders): Fix regexp.
 
 2005-10-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>

diff --git a/wl/wl.el b/wl/wl.el
index 27a4702..4770120 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -673,7 +673,6 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
     (when wl-use-acap (funcall (symbol-function 'wl-acap-exit)))
     (wl-biff-stop)
     (elmo-clear-signal-slots)
-    (elmo-passwd-alist-clear)
     (run-hooks 'wl-exit-hook)
     (wl-save-status)
     (wl-folder-cleanup-variables)
@@ -691,6 +690,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 ;;     (delete-frame))
     (setq wl-init nil)
     (remove-hook 'kill-emacs-hook 'wl-save-status)
+    (elmo-passwd-alist-clear)
     t)
   (message "") ; empty minibuffer.
   )