From: ueno <ueno>
Date: Mon, 25 Aug 2003 09:22:56 +0000 (+0000)
Subject: * riece-misc.el (riece-concat-channel-topic): Don't append ":" if
X-Git-Tag: riece-0_1_1~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=10ff10518e0f1fca699333e243a8b5a71244cfaa;p=elisp%2Friece.git

* riece-misc.el (riece-concat-channel-topic): Don't append ":" if
topic is "".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b367f85..ef4f67b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-misc.el (riece-concat-channel-topic): Don't append ":" if
+	topic is "".
+
 	* riece-300.el (riece-handle-322-message): Simplify message.
 
 	* riece-commands.el (riece-command-change-layout): Call
diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 2ba5785..60a02c0 100644
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -108,9 +108,10 @@
 (defun riece-concat-channel-topic (target string)
   (riece-with-server-buffer (riece-identity-server target)
     (let ((topic (riece-channel-get-topic (riece-identity-prefix target))))
-      (if topic
-	  (concat string ": " topic)
-	string))))
+      (if (or (null topic)
+	      (equal topic ""))
+	  string
+	(concat string ": " topic)))))
 
 (defun riece-concat-channel-modes (target string)
   (riece-with-server-buffer (riece-identity-server target)