(defun riece-message-make-open-bracket (message)
"Make `open-bracket' string for MESSAGE."
- (if (riece-message-own-p message)
- ">"
- (if (eq (riece-message-type message) 'notice)
- "{"
+ (if (eq (riece-message-type message) 'notice)
+ "{"
+ (if (riece-message-own-p message)
+ ">"
(if (riece-message-private-p message)
"="
(if (riece-message-external-p message)
(defun riece-message-make-close-bracket (message)
"Make `close-bracket' string for MESSAGE."
- (if (riece-message-own-p message)
- "<"
- (if (eq (riece-message-type message) 'notice)
- "}"
+ (if (eq (riece-message-type message) 'notice)
+ "}"
+ (if (riece-message-own-p message)
+ "<"
(if (riece-message-private-p message)
"="
(if (riece-message-external-p message)
(riece-message-target message))))
(unless (riece-identity-member target riece-current-channels)
(riece-join-channel target)
- ;; If you are not joined any channel,
+ ;; If you are not joined to any channel,
;; switch to the target immediately.
(unless riece-current-channel
(riece-switch-to-channel target)))
(funcall riece-message-make-global-name-function message)
(funcall riece-message-make-name-function message)))
(server-name (riece-identity-server (riece-message-speaker message))))
- (riece-with-server-buffer (riece-current-server-name)
+ (riece-with-server-buffer server-name
(concat
(if global
(riece-concat-server-name
(setq parent-buffers (riece-message-parent-buffers message buffer))
(riece-insert buffer (riece-format-message message))
(riece-insert parent-buffers (riece-format-message message t))
- (run-hook-with-args 'riece-after-display-message-functions message)))
+ (with-current-buffer buffer
+ (run-hook-with-args 'riece-after-display-message-functions message))))
(defun riece-display-message (message)
"Display MESSAGE object."
(let ((functions riece-message-filter-functions))
(setq message (copy-sequence message))
- (while functions
+ (while (and functions message)
(setq message (funcall (car functions) message)
functions (cdr functions)))
(if message