Fixed.

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index f16b284..ee3aef8 100644 (file)
--- 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)
   (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)
        (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)
   (setq riece-log-enabled nil))
 
 (provide 'riece-log)