- (make-directory riece-log-directory t)
- (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
- (if riece-debug
- (message "Can't create lock directory for riece-log")))))