From e6fb15ac265bb41413ba54d22235941d31901b3c Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 4 Feb 2005 03:40:22 +0000
Subject: [PATCH] Fixed.

---
 lisp/riece-log.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 7d889fb..f16b284 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -46,7 +46,7 @@
   :group 'riece-log)
 
 (defcustom riece-log-lock-directory
-  (expand-file-name ".lock" riece-log-directory)
+  (expand-file-name "=lock" riece-log-directory)
   "*Lock directory for riece-log.
 It is created if there is at least one instance of Emacs running riece-log."
   :type 'directory
@@ -274,9 +274,10 @@ If LINES is t, insert today's logs entirely."
 
 (defun riece-log-disable ()
   (define-key riece-command-mode-map "\C-cd" nil)
-  (condition-case nil
-      (delete-directory riece-log-lock-directory)
-    (error))
+  (if riece-log-enabled
+      (condition-case nil
+	  (delete-directory riece-log-lock-directory)
+	(error)))
   (setq riece-log-enabled nil))
 
 (provide 'riece-log)
-- 
1.7.10.4