+2014-04-04 Steve Youngs <steve@sxemacs.org>
+
+ * riece-options.el (riece-hide-list): Renamed from
+ `riece-hide-joins-parts-quits' which was an ugly name.
+
+ * riece-handle.el (riece-handle-join-message): Use renamed hide
+ var, don't hide our own joins.
+ (riece-handle-part-message): Use renamed hide var, don't hide our
+ own parts.
+ (riece-handle-quit-message): Use renamed hide var, don't hide our
+ own quits.
+
2014-04-01 Steve Youngs <steve@sxemacs.org>
* riece-options.el (riece-hide-joins-parts-quits): New user
(if (and riece-gather-channel-modes
(riece-identity-equal-no-server user riece-real-nickname))
(riece-send-string (format "MODE %s\r\n" (car channels))))
- (unless (memq 'joins riece-hide-joins-parts-quits)
+ (unless (and (memq 'joins riece-hide-list)
+ (not (riece-identity-equal-no-server
+ user riece-real-nickname)))
(let* ((channel-identity (riece-make-identity (car channels)
riece-server-name))
(buffer (riece-channel-buffer channel-identity)))
(setq channels (cdr channels)))))
(defun riece-handle-part-message (prefix decoded)
- (unless (memq 'parts riece-hide-joins-parts-quits)
- (let* ((user (riece-prefix-nickname prefix))
- (parameters (riece-split-parameters (riece-decoded-string decoded)))
- ;; RFC2812 3.2.2 doesn't recommend server to send part
- ;; messages which contain multiple targets.
- (channels (split-string (car parameters) ","))
- (user-identity (riece-make-identity user riece-server-name)))
+ (let* ((user (riece-prefix-nickname prefix))
+ (parameters (riece-split-parameters (riece-decoded-string decoded)))
+ ;; RFC2812 3.2.2 doesn't recommend server to send part
+ ;; messages which contain multiple targets.
+ (channels (split-string (car parameters) ","))
+ (user-identity (riece-make-identity user riece-server-name)))
+ (unless (and (memq 'parts riece-hide-list)
+ (not (riece-identity-equal-no-server
+ user riece-real-nickname)))
(while channels
(let* ((channel-identity (riece-make-identity (car channels)
riece-server-name))
(while pointer
(riece-naming-assert-part user (car pointer))
(setq pointer (cdr pointer)))
- (unless (memq 'quits riece-hide-joins-parts-quits)
+ (unless (and (memq 'quits riece-hide-list)
+ (not (riece-identity-equal-no-server
+ user riece-real-nickname)))
(let ((buffers
(delq nil (mapcar
(lambda (channel)
:type 'function
:group 'riece-options)
-(defcustom riece-hide-joins-parts-quits '()
- "Whether to hide join/part/quit messages.
+(defcustom riece-hide-list '()
+ "Whether to hide certain server messages.
-This should be a list of up to 3 symbols, namely: `joins', `parts',
+Currently supported are join, part, and quit messages.
+This is a list of up to 3 symbols, namely: `joins', `parts',
`quits'."
:type '(set (symbol :tag "Hide Joins" joins)
(symbol :tag "Hide Parts" parts)