From: jet <jet>
Date: Wed, 26 Oct 2005 15:36:05 +0000 (+0000)
Subject: (url-irc-riece): Use `server-name'
X-Git-Tag: riece-2_0_2~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8aaf5d20cc0fb81c487cc7519101e8f13c8dfc19;p=elisp%2Friece.git

(url-irc-riece): Use `server-name'
to create an argument for `riece-parse-identity'.
`server' was used.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eab13cd..7085c0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-10-27  Masatake YAMATO  <jet@gyve.org>
+
+	* url-riece.el (url-irc-riece): Use `server-name'
+	to create an argument for `riece-parse-identity'.
+	`server' was used.
+
 2005-09-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 2.0.1 released.
diff --git a/lisp/url-riece.el b/lisp/url-riece.el
index 851fce6..052b380 100644
--- a/lisp/url-riece.el
+++ b/lisp/url-riece.el
@@ -1,4 +1,4 @@
-;;; url-riece --- Adapting `riece' to `url-irc'
+;;; url-riece.el --- Adapting `riece' to `url-irc'
 ;; Copyright (C) 2004 Masatake YAMATO
 
 ;; Author: Masatake YAMATO <jet@gyve.org>
@@ -91,7 +91,7 @@ and PASSWORD. Just give nil to it."
 	(riece-command-join 
 	 (riece-parse-identity (if (string= server-name "")
 				   channel
-				 (format "%s %s" channel server)))))
+				 (format "%s %s" channel server-name)))))
       ;; Show the windows
       (riece)))))
 ; (url-irc-riece "localhost" nil "#mandara" "jetgx" nil)