1 files changed, 12 insertions, 0 deletions

@@ -250,5 +250,17 @@ associated face.  Ignore notification if face is ‘nil’."
                          (buffer-string))
                        :time (current-time))))))))))))
 
+(defun +jabber-colors-update (&optional buffer)
+  "Update jabber colors in BUFFER, defaulting to the current."
+  (with-current-buffer (or buffer (current-buffer))
+    (when jabber-buffer-connection
+      (setq jabber-muc-participant-colors nil)
+      (cond (jabber-chatting-with
+             (jabber-chat-create-buffer jabber-buffer-connection
+                                        jabber-chatting-with))
+            (jabber-group
+             (jabber-muc-create-buffer jabber-buffer-connection
+                                       jabber-group))))))
+
 (provide '+jabber)
 ;;; +jabber.el ends here