(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 (file)
--- 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.
 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 (file)
--- 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>
 ;; 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
        (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)
       ;; Show the windows
       (riece)))))
 ; (url-irc-riece "localhost" nil "#mandara" "jetgx" nil)