Make "^C<fg>[,<bg>]" ctlseq matching robuster.

[riece] / lisp / url-riece.el

diff --git a/lisp/url-riece.el b/lisp/url-riece.el
index 851fce6..0848eff 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>
@@ -16,8 +16,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 ;;
@@ -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)