bug#58439: [PATCH] [ELPA GNU] rcirc-color: Fix color assigning

[Thuna <thuna.cing@gmail.com>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: The patch --]
[-- Type: text/x-patch, Size: 995 bytes --]

From 73f917c6de3acbab3f34fa839cc9e1b56517d084 Mon Sep 17 00:00:00 2001
From: Thuna <thuna.cing@gmail.com>
Date: Tue, 11 Oct 2022 15:35:47 +0200
Subject: [PATCH] rcirc-color: Fix color assigning

* rcirc-color.el (rcirc-do-color): When a color is given to
rcirc-color with `/color NICK COLOR', use the specified COLOR instead
of getting a random one.
---
 rcirc-color.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rcirc-color.el b/rcirc-color.el
index b66f4a1143..ee96ae8bd5 100644
--- a/rcirc-color.el
+++ b/rcirc-color.el
@@ -162,7 +162,7 @@ commands."
         (rcirc-print process (rcirc-nick process) "NOTICE" target
                      (mapconcat 'identity names " ")))
     (let* ((index (random (length rcirc-colors)))
-           (color (elt rcirc-colors index))
+           (color (or color (elt rcirc-colors index)))
            (face `(:foreground ,color ,@rcirc-color-other-attributes)))
       (puthash nick face rcirc-color-mapping))))
 
-- 
2.35.1