;;; Code:
-(eval-when-compile (require 'riece-message)
- (require 'riece-button))
+(require 'riece-message)
+(require 'riece-button)
(defgroup riece-log nil
"Save irc log"
(defvar riece-log-enabled nil)
+(defconst riece-log-description
+ "Saving IRC logs")
+
(defun riece-log-display-message-function (message)
(if riece-log-enabled
(let ((file (riece-log-get-file (riece-message-target message)))
(expand-file-name name riece-log-directory))))
(defun riece-log-flashback (identity)
- (when (and riece-log-enabled riece-log-flashback)
+ (when riece-log-flashback
(let ((file (riece-log-get-file identity)))
(when (file-exists-p file)
(let (string)
(riece-make-identity
(riece-match-string-no-properties 1)
(riece-identity-server identity))))
- (if (memq 'riece-button riece-addons)
- (riece-button-update-buffer))
+ (when (and (memq 'riece-button riece-addons)
+ riece-button-enabled)
+ (riece-button-update-buffer))
(goto-char (point-max))
(set-window-point (get-buffer-window (current-buffer))
(point))))))))