X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-000.el;h=277cae5bba87ef65de0357c5ddc8d0fd816ff516;hp=0894b10e6945358e878c79c6bd62699a6d9940e5;hb=b231076597ddc055b06910f18d8ad9a3dd3d410f;hpb=520905ec721b2dc580d32d4a062bf3c45224e6b1

diff --git a/lisp/riece-000.el b/lisp/riece-000.el
index 0894b10..277cae5 100644
--- a/lisp/riece-000.el
+++ b/lisp/riece-000.el
@@ -19,8 +19,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.
 
 ;;; Code:
 
@@ -38,7 +38,7 @@
 (defun riece-handle-001-message (prefix number name string)
   "RPL_WELCOME \"Welcome to the Internet Relay Network <nick>!<user>@<host>\""
   (if riece-real-server-name
-      (error "Already registered"))
+      (error (riece-mcat "Already registered")))
   (setq riece-real-server-name prefix
 	riece-real-nickname name
 	riece-real-userhost nil)
@@ -50,8 +50,8 @@
    (list riece-dialogue-buffer riece-others-buffer)
    (concat (substring string 1) "\n"))
   (if (equal riece-server-name "")
-      (message "Logging in to IRC server...done")
-    (message "Logging in to %s...done" riece-server-name))
+      (message (riece-mcat "Logging in to IRC server...done"))
+    (message (riece-mcat "Logging in to %s...done") riece-server-name))
   (let ((channel-list riece-startup-channel-list)
 	entry identity)
     (while channel-list
@@ -60,7 +60,7 @@
       (if (equal (riece-identity-server
 		  (setq identity (riece-parse-identity (car entry))))
 		 riece-server-name)
-	  (riece-command-join identity (nth 1 entry)))
+	  (riece-command-join-channel identity (nth 1 entry)))
       (setq channel-list (cdr channel-list))))
   (run-hooks 'riece-after-login-hook))