- (if (riece-identity-member (riece-message-speaker message)
- riece-ignored-user-list)
- (unless riece-ignore-discard-message
+ (if (and riece-ignore-enabled
+ (riece-identity-member (riece-message-speaker message)
+ riece-ignored-user-list))
+ (if riece-ignore-discard-message
+ (when (eq riece-ignore-discard-message 'log)
+ (unless riece-ignore-buffer
+ (with-current-buffer (setq riece-ignore-buffer
+ (riece-get-buffer-create
+ riece-ignore-buffer-name
+ 'riece-dialogue-mode))
+ (riece-dialogue-mode)))
+ (save-excursion
+ (set-buffer riece-ignore-buffer)
+ (goto-char (point-max))
+ (let ((inhibit-read-only t)
+ buffer-read-only)
+ (insert (concat (format-time-string "%H:%M") " "
+ (riece-format-message message t))))))