From: ueno <ueno>
Date: Fri, 4 Feb 2005 03:42:14 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-1_0_7~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1578eb359abd6e734fc27d16fc0f4244f2d2b394;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index f16b284..ee3aef8 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -269,15 +269,16 @@ If LINES is t, insert today's logs entirely."
   (condition-case nil
       (progn
 	(make-directory riece-log-lock-directory)
+	(add-hook 'riece-exit-hook
+		  (lambda ()
+		    (condition-case nil
+			(delete-directory riece-log-lock-directory)
+		      (error))))
 	(setq riece-log-enabled t))
     (error)))
 
 (defun riece-log-disable ()
   (define-key riece-command-mode-map "\C-cd" nil)
-  (if riece-log-enabled
-      (condition-case nil
-	  (delete-directory riece-log-lock-directory)
-	(error)))
   (setq riece-log-enabled nil))
 
 (provide 'riece-log)