From: ueno <ueno>
Date: Sun, 28 Jan 2007 03:35:20 +0000 (+0000)
Subject: Translate.
X-Git-Tag: riece-3_1_2~20
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=def9b18cae9a08194d564395c72c6ef470c74e70

Translate.
---

diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index deed723..364490c 100644
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -68,7 +68,7 @@
 	      (riece-concat-server-name
 	       (riece-concat-user-status
 		status
-		(format "%s is (%s)"
+		(format (riece-mcat "%s is (%s)")
 			(riece-format-identity
 			 (riece-make-identity user riece-server-name)
 			 t)
@@ -81,7 +81,7 @@
    (list riece-dialogue-buffer riece-others-buffer)
    (concat
     (riece-concat-server-name
-     (concat "Online: "
+     (concat (riece-mcat "Online: ")
 	     (mapconcat
 	      (lambda (user)
 		(riece-format-identity
@@ -106,7 +106,7 @@
 	 (list riece-dialogue-buffer riece-others-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (format "%s is away: %s"
+	   (format (riece-mcat "%s is away: %s")
 		   (riece-format-identity
 		    (riece-make-identity user riece-server-name)
 		    t)
@@ -139,7 +139,7 @@
 	 (list riece-dialogue-buffer riece-others-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (format "%s is %s (%s)"
+	   (format (riece-mcat "%s is %s (%s)")
 		   (riece-format-identity
 		    (riece-make-identity user riece-server-name)
 		    t)
@@ -155,7 +155,7 @@
        (list riece-dialogue-buffer riece-others-buffer)
        (concat
 	(riece-concat-server-name
-	 (format "on via server %s: %s"
+	 (format (riece-mcat "on via server %s: %s")
 		 (match-string 2 string)
 		 (substring string (match-end 0))))
 	"\n"))))
@@ -167,10 +167,10 @@
 	 (list riece-dialogue-buffer riece-others-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (concat (riece-format-identity
+	   (format "%s is an IRC operator"
+		   (riece-format-identity
 		    (riece-make-identity user riece-server-name)
-		    t)
-		   " is an IRC operator"))
+		    t)))
 	  "\n")))))
 
 (defun riece-handle-317-message (prefix number name string)
@@ -179,15 +179,16 @@
        string)
       (let* ((user (match-string 1 string))
 	     (seconds (string-to-number (match-string 2 string)))
-	     (units (list (cons (/ seconds 60 60 24) "days")
-			  (cons (mod (/ seconds 60 60) 24) "hours")
-			  (cons (mod (/ seconds 60) 60) "minutes")
-			  (cons (mod seconds 60) "seconds"))))
+	     (units (list (cons (/ seconds 60 60 24) (riece-mcat "days"))
+			  (cons (mod (/ seconds 60 60) 24)
+				(riece-mcat "hours"))
+			  (cons (mod (/ seconds 60) 60) (riece-mcat "minutes"))
+			  (cons (mod seconds 60) (riece-mcat "seconds")))))
 	(riece-insert-info
 	 (list riece-dialogue-buffer riece-others-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (format "%s is %s idle"
+	   (format (riece-mcat "%s is %s idle")
 		   (riece-format-identity
 		    (riece-make-identity user riece-server-name)
 		    t)
@@ -236,7 +237,7 @@
        (list riece-dialogue-buffer riece-others-buffer)
        (concat
 	(riece-concat-server-name
-	 (format "%s is running on %s: %s"
+	 (format (riece-mcat "%s is running on %s: %s")
 		 (match-string 1 string)
 		 (match-string 2 string)
 		 (substring string (match-end 0))))
@@ -270,7 +271,8 @@
 							 channel-identity))
 	  topic (nth 2 parameters))
     (riece-channel-set-topic (riece-get-channel channel) topic)
-    (riece-insert-info buffer (concat visible " users, topic: " topic "\n"))
+    (riece-insert-info buffer (format (riece-mcat "%s users, topic: %s\n")
+				      visible topic))
     (riece-insert-info
      (if (and riece-channel-buffer-mode
 	      (not (eq buffer riece-channel-buffer)))
@@ -278,7 +280,7 @@
        riece-dialogue-buffer)
      (concat
       (riece-concat-server-name
-       (format "%s: %s users, topic: %s"
+       (format (riece-mcat "%s: %s users, topic: %s")
 	       (riece-format-identity channel-identity t) visible topic))
       "\n"))))
 
@@ -291,7 +293,8 @@
 	(let* ((channel-identity (riece-make-identity channel
 						      riece-server-name))
 	       (buffer (riece-channel-buffer channel-identity)))
-	  (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
+	  (riece-insert-info buffer (format (riece-mcat "Mode: ") mode-string
+					    "\n"))
 	  (riece-insert-info
 	   (if (and riece-channel-buffer-mode
 		    (not (eq buffer riece-channel-buffer)))
@@ -299,7 +302,7 @@
 	     riece-dialogue-buffer)
 	   (concat
 	    (riece-concat-server-name
-	     (format "Mode for %s: %s"
+	     (format (riece-mcat "Mode for %s: %s")
 		     (riece-format-identity channel-identity t)
 		     mode-string))
 	    "\n"))))))
@@ -317,7 +320,7 @@
 							   channel-identity))
 	    topic (nth 1 parameters))
       (riece-channel-set-topic (riece-get-channel channel) topic)
-      (riece-insert-info buffer (concat "Topic: " topic "\n"))
+      (riece-insert-info buffer (concat (riece-mcat "Topic: ") topic "\n"))
       (riece-insert-info
        (if (and riece-channel-buffer-mode
 		(not (eq buffer riece-channel-buffer)))
@@ -325,7 +328,7 @@
 	 riece-dialogue-buffer)
        (concat
 	(riece-concat-server-name
-	 (format "Topic for %s: %s"
+	 (format (riece-mcat "Topic for %s: %s")
 		 (riece-format-identity channel-identity t)
 		 topic))
 	"\n")))
@@ -343,7 +346,7 @@
 	     (user (match-string 1 string))
 	     (channel-identity (riece-make-identity channel riece-server-name))
 	     (buffer (riece-channel-buffer channel-identity)))
-	(riece-insert-info buffer (concat "Inviting " user "\n"))
+	(riece-insert-info buffer (format (riece-mcat "Inviting %s\n") user))
 	(riece-insert-info
 	 (if (and riece-channel-buffer-mode
 		  (not (eq buffer riece-channel-buffer)))
@@ -351,7 +354,7 @@
 	   riece-dialogue-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (format "Inviting %s to %s" user
+	   (format (riece-mcat "Inviting %s to %s") user
 		   (riece-format-identity channel-identity t)))
 	  "\n")))))
 
@@ -458,7 +461,8 @@
 	(riece-naming-assert-channel-users users channel)
 	(riece-insert-info
 	 buffer
-	 (concat (format "%d users: " (length users)) string "\n"))
+	 (concat (format (riece-mcat "%d users: ") (length users)) string
+		 "\n"))
 	(riece-insert-info
 	 (if (and riece-channel-buffer-mode
 		  (not (eq buffer riece-channel-buffer)))
@@ -466,7 +470,7 @@
 	   riece-dialogue-buffer)
 	 (concat
 	  (riece-concat-server-name
-	   (concat (format "%d users on %s: "
+	   (concat (format (riece-mcat "%d users on %s: ")
 			   (length users)
 			   (riece-format-identity channel-identity t))
 		   string))
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 5241a68..8efa507 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -39,7 +39,7 @@
 ;;; Channel movement:
 (defun riece-command-switch-to-channel (channel)
   (interactive (list (riece-completing-read-identity
-		      "Switch to channel/user: "
+		      (riece-mcat "Switch to channel/user: ")
 		      riece-current-channels nil t)))
   (unless (equal channel riece-current-channel)
     (riece-switch-to-channel channel)))
@@ -49,7 +49,7 @@
    (let ((command-name (symbol-name this-command)))
      (if (string-match "[0-9]+$" command-name)
 	 (list (string-to-number (match-string 0 command-name)))
-       (list (string-to-number (read-string "Switch to number: "))))))
+       (list (string-to-number (read-string (riece-mcat "Switch to number: ")))))))
   (let ((channel (nth (1- number) riece-current-channels)))
     (if channel
 	(riece-command-switch-to-channel channel)
@@ -133,7 +133,8 @@
 (defun riece-command-change-layout (name)
   "Select a layout-name from all current available layouts and change
 the layout to the selected layout-name."
-  (interactive (list (completing-read "Change layout: " riece-layout-alist)))
+  (interactive (list (completing-read (riece-mcat "Change layout: ")
+				      riece-layout-alist)))
   (setq riece-layout name
 	riece-save-variables-are-dirty t)
   (riece-command-configure-windows))
@@ -170,7 +171,7 @@ the layout to the selected layout-name."
   (interactive
    (let* ((completion-ignore-case t)
 	  (user (riece-completing-read-identity
-		 "Finger user: "
+		 (riece-mcat "Finger user: ")
 		 (riece-get-users-on-server (riece-current-server-name))
 		 nil nil nil nil nil t)))
      (list user current-prefix-arg)))
@@ -185,14 +186,15 @@ the layout to the selected layout-name."
    (progn
      (riece-check-channel-commands-are-usable t)
      (list (read-from-minibuffer
-	    "Set topic: " (cons (or (riece-with-server-buffer
-				     (riece-identity-server
-				      riece-current-channel)
-				     (riece-channel-get-topic
-				      (riece-identity-prefix
-				       riece-current-channel)))
-				    "")
-				0)))))
+	    (riece-mcat "Set topic: ")
+	    (cons (or (riece-with-server-buffer
+			  (riece-identity-server
+			   riece-current-channel)
+			(riece-channel-get-topic
+			 (riece-identity-prefix
+			  riece-current-channel)))
+		      "")
+		  0)))))
   (riece-send-string (format "TOPIC %s :%s\r\n"
 			     (riece-identity-prefix riece-current-channel)
 			     topic)
@@ -203,7 +205,7 @@ the layout to the selected layout-name."
    (let ((completion-ignore-case t))
      (riece-check-channel-commands-are-usable t)
      (list (riece-completing-read-identity
-	    "Invite user: "
+	    (riece-mcat "Invite user: ")
 	    (riece-get-users-on-server (riece-current-server-name))
 	    nil nil nil nil nil t))))
   (riece-send-string (format "INVITE %s :%s\r\n"
@@ -215,7 +217,7 @@ the layout to the selected layout-name."
    (let ((completion-ignore-case t))
      (riece-check-channel-commands-are-usable t)
      (list (completing-read
-	    "Kick user: "
+	    (riece-mcat "Kick user: ")
 	    (riece-with-server-buffer
 		(riece-identity-server riece-current-channel)
 	      (riece-channel-get-users (riece-identity-prefix
@@ -236,42 +238,45 @@ the layout to the selected layout-name."
   (interactive
    (let ((completion-ignore-case t))
      (list (read-from-minibuffer
-	    "NAMES pattern: "
+	    (riece-mcat "NAMES pattern: ")
 	    (if (and riece-current-channel
 		     (riece-channel-p (riece-identity-prefix
 				       riece-current-channel)))
 		(cons (riece-identity-prefix riece-current-channel)
 		      0))))))
   (if (or (not (equal pattern ""))
-	  (yes-or-no-p "Really want to query NAMES without argument? "))
+	  (yes-or-no-p (riece-mcat
+			"Really want to query NAMES without argument? ")))
       (riece-send-string (format "NAMES %s\r\n" pattern))))
 
 (defun riece-command-who (pattern)
   (interactive
    (let ((completion-ignore-case t))
      (list (read-from-minibuffer
-	    "WHO pattern: "
+	    (riece-mcat "WHO pattern: ")
 	    (if (and riece-current-channel
 		     (riece-channel-p (riece-identity-prefix
 				       riece-current-channel)))
 		(cons (riece-identity-prefix riece-current-channel)
 		      0))))))
   (if (or (not (equal pattern ""))
-	  (yes-or-no-p "Really want to query WHO without argument? "))
+	  (yes-or-no-p (riece-mcat
+			"Really want to query WHO without argument? ")))
       (riece-send-string (format "WHO %s\r\n" pattern))))
 
 (defun riece-command-list (pattern)
   (interactive
    (let ((completion-ignore-case t))
      (list (read-from-minibuffer
-	    "LIST pattern: "
+	    (riece-mcat "LIST pattern: ")
 	    (if (and riece-current-channel
 		     (riece-channel-p (riece-identity-prefix
 				       riece-current-channel)))
 		(cons (riece-identity-prefix riece-current-channel)
 		      0))))))
   (if (or (not (equal pattern ""))
-	  (yes-or-no-p "Really want to query LIST without argument? "))
+	  (yes-or-no-p (riece-mcat
+			"Really want to query LIST without argument? ")))
       (riece-send-string (format "LIST %s\r\n" pattern))))
 
 (defun riece-command-change-mode (channel change)
@@ -280,14 +285,14 @@ the layout to the selected layout-name."
 	  (channel
 	   (if current-prefix-arg
 	       (riece-completing-read-identity
-		"Change mode for channel/user: "
+		(riece-mcat "Change mode for channel/user: ")
 		(riece-get-identities-on-server (riece-current-server-name))
 		nil nil nil nil nil t)
 	     (riece-check-channel-commands-are-usable t)
 	     riece-current-channel))
 	  (riece-overriding-server-name (riece-identity-server channel))
 	  (riece-temp-minibuffer-message
-	   (concat "[Available modes: "
+	   (concat (riece-mcat "[Available modes: ")
 		   (riece-with-server-buffer (riece-identity-server channel)
 		     (if (riece-channel-p (riece-identity-prefix channel))
 			 (if riece-supported-channel-modes
@@ -298,7 +303,7 @@ the layout to the selected layout-name."
      (list channel
 	   (read-from-minibuffer
 	    (concat (riece-concat-channel-modes
-		     channel "Mode (? for help)") ": ")
+		     channel (riece-mcat "Mode (? for help)")) ": ")
 	    nil riece-minibuffer-map))))
   (if (equal change "")
       (riece-send-string (format "MODE %s\r\n"
@@ -314,8 +319,8 @@ the layout to the selected layout-name."
      (let ((completion-ignore-case t))
        (list (riece-completing-read-multiple
 	      (if current-prefix-arg
-		  "Unset +o for users"
-		"Set +o for users")
+		  (riece-mcat "Unset +o for users")
+		(riece-mcat "Set +o for users"))
 	      (riece-with-server-buffer
 		  (riece-identity-server riece-current-channel)
 		(riece-channel-get-users (riece-identity-prefix
@@ -349,8 +354,8 @@ the layout to the selected layout-name."
      (let ((completion-ignore-case t))
        (list (riece-completing-read-multiple
 	      (if current-prefix-arg
-		  "Unset +v for users"
-		"Set +v for users")
+		  (riece-mcat "Unset +v for users")
+		(riece-mcat "Set +v for users"))
 	      (riece-with-server-buffer
 		  (riece-identity-server riece-current-channel)
 		(riece-channel-get-users (riece-identity-prefix
@@ -381,7 +386,7 @@ the layout to the selected layout-name."
   "Send MESSAGE to the current channel."
   (run-hooks 'riece-command-send-message-hook)
   (if (equal message "")
-      (error "No text to send"))
+      (error (riece-mcat "No text to send")))
   (riece-check-channel-commands-are-usable)
   (if notice
       (progn
@@ -429,7 +434,7 @@ the layout to the selected layout-name."
        (error "No text to send")
      (let ((completion-ignore-case t))
        (list (riece-completing-read-identity
-	      "Message to user: "
+	      (riece-mcat "Message to user: ")
 	      (riece-get-users-on-server (riece-current-server-name))
 	      nil nil nil nil nil t)))))
   (let ((text (buffer-substring
@@ -470,11 +475,11 @@ the layout to the selected layout-name."
 	  (let ((default (riece-format-identity
 			  riece-join-channel-candidate)))
 	    (riece-completing-read-identity
-	     (format "Join channel/user (default %s): " default)
+	     (format (riece-mcat "Join channel/user (default %s): ") default)
 	     (riece-get-identities-on-server (riece-current-server-name))
 	     nil nil nil nil default))
 	(riece-completing-read-identity
-	 "Join channel/user: "
+	 (riece-mcat "Join channel/user: ")
 	 (riece-get-identities-on-server (riece-current-server-name)))))))
   (let ((pointer (riece-identity-member target riece-current-channels)))
     (if pointer
@@ -502,13 +507,13 @@ the layout to the selected layout-name."
      (let* ((completion-ignore-case t)
 	    (target
 	     (riece-completing-read-identity
-	      (format "Part from channel/user (default %s): "
+	      (format (riece-mcat "Part from channel/user (default %s): ")
 		      (riece-format-identity riece-current-channel))
 	      riece-current-channels nil nil nil nil
 	      (riece-format-identity riece-current-channel)))
 	    (message
 	     (if current-prefix-arg
-		 (read-string "Message: ")
+		 (read-string (riece-mcat "Message: "))
 	       riece-part-message)))
        (list target message))))
   (if (riece-identity-member target riece-current-channels)
@@ -534,7 +539,7 @@ the layout to the selected layout-name."
 	    (let ((other-window-scroll-buffer buffer))
 	      (scroll-other-window-down lines))
 	  (beginning-of-buffer
-	   (message "Beginning of buffer"))))))
+	   (message (riece-mcat "Beginning of buffer")))))))
 
 (defun riece-command-scroll-up (lines)
   "Scroll LINES up dialogue buffer from command buffer."
@@ -548,7 +553,7 @@ the layout to the selected layout-name."
 	    (let ((other-window-scroll-buffer buffer))
 	      (scroll-other-window lines))
 	  (end-of-buffer
-	   (message "End of buffer"))))))
+	   (message (riece-mcat "End of buffer")))))))
 
 (defun riece-command-user-list-scroll-down (lines)
   "Scroll LINES down user list buffer from command buffer."
@@ -558,7 +563,7 @@ the layout to the selected layout-name."
 	  (let ((other-window-scroll-buffer riece-user-list-buffer))
 	    (scroll-other-window-down lines))
 	(beginning-of-buffer
-	 (message "Beginning of buffer")))))
+	 (message (riece-mcat "Beginning of buffer"))))))
 
 (defun riece-command-user-list-scroll-up (lines)
   "Scroll LINES up user list buffer from command buffer."
@@ -568,7 +573,7 @@ the layout to the selected layout-name."
 	  (let ((other-window-scroll-buffer riece-user-list-buffer))
 	    (scroll-other-window lines))
 	(end-of-buffer
-	 (message "End of buffer")))))
+	 (message (riece-mcat "End of buffer"))))))
 
 (defun riece-command-toggle-away (&optional message)
   "Mark yourself as being away."
@@ -579,7 +584,8 @@ the layout to the selected layout-name."
 					 (riece-current-nickname)))))
 	    current-prefix-arg)
        (list (read-from-minibuffer
-	      "Away message: " (cons (or riece-away-message "") 0)))))
+	      (riece-mcat "Away message: ") (cons (or riece-away-message "")
+						  0)))))
   (if (riece-with-server-buffer (riece-identity-server
 				 (riece-current-nickname))
 	(riece-user-get-away (riece-identity-prefix
@@ -632,12 +638,12 @@ If prefix argument ARG is non-nil, toggle frozen status."
   (interactive "P")
   (if (null riece-server-process-alist)
       (progn
-	(message "No server process")
+	(message (riece-mcat "No server process"))
 	(ding))
     (if (y-or-n-p (riece-mcat "Really quit IRC? "))
 	(let ((message
 	       (if arg
-		   (read-string "Message: ")
+		   (read-string (riece-mcat "Message: "))
 		 riece-quit-message))
 	      (alist riece-server-process-alist))
 	  (while alist
@@ -698,7 +704,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
     (if (eq completion t)
 	nil
       (if (null completion)
-	  (message "Can't find completion for \"%s\"" current)
+	  (message (riece-mcat "Can't find completion for \"%s\"") current)
 	(if (equal current completion)
 	    (with-output-to-temp-buffer "*Help*"
 	      (display-completion-list all))
@@ -708,7 +714,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
 
 (defun riece-command-open-server (server-name)
   (interactive
-   (list (completing-read "Open server: " riece-server-alist)))
+   (list (completing-read (riece-mcat "Open server: ") riece-server-alist)))
   (if (riece-server-process server-name)
       (error "%s is already opened" server-name))
   (riece-open-server
@@ -717,9 +723,10 @@ If prefix argument ARG is non-nil, toggle frozen status."
 
 (defun riece-command-close-server (server-name &optional message)
   (interactive
-   (list (completing-read "Close server: " riece-server-process-alist)
+   (list (completing-read (riece-mcat "Close server: ")
+			  riece-server-process-alist)
 	 (if current-prefix-arg
-	     (read-string "Message: ")
+	     (read-string (riece-mcat "Message: "))
 	   riece-quit-message)))
   (let ((process (riece-server-process server-name)))
     (unless process
@@ -729,10 +736,10 @@ If prefix argument ARG is non-nil, toggle frozen status."
 (defun riece-command-universal-server-name-argument ()
   (interactive)
   (let* ((riece-overriding-server-name
-	  (completing-read "Server: " riece-server-process-alist))
+	  (completing-read (riece-mcat "Server: ") riece-server-process-alist))
 	 (command
 	  (key-binding (read-key-sequence
-			(format "Command to execute on \"%s\":"
+			(format (riece-mcat "Command to execute on \"%s\":")
 				riece-overriding-server-name)))))
     (message "")
     (call-interactively command)))
@@ -743,7 +750,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
   "Save `riece-variables-file'."
   (interactive)
   (if (or riece-save-variables-are-dirty
-	  (y-or-n-p "No changes made.  Save anyway? "))
+	  (y-or-n-p (riece-mcat "No changes made.  Save anyway? ")))
       (riece-save-variables-files)))
 
 (provide 'riece-commands)
diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el
index 5764f20..9681dc2 100644
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -27,15 +27,31 @@
 ;;; Code:
 
 (defconst riece-mcat-japanese-alist
-  '(("%s (%s) has joined %s" . "%s (%s) が %s に参加しました")
+  '(("%d users on %s: " . "%d 人が %s にいます: ")
+    ("%d users: " . "%d 人: ")
+    ("%s (%s) has joined %s" . "%s (%s) が %s に参加しました")
     ("%s (%s) has joined %s\n" . "%s (%s) が %s に参加しました\n")
     ("%s has left %s" . "%s が %s を離れました")
     ("%s has left IRC" . "%s が IRC を離れました")
     ("%s invites %s to %s" . "%s が %s を %s に招待しています")
+    ("%s is %s (%s)" . "%s は %s (%s)")
+    ("%s is %s idle" . "%s は %s アイドル状態")
+    ("%s is (%s)" . "%s は (%s)")
+    ("%s is away: %s" . "%s は離席中: %s")
+    ("%s is running on %s: %s" . "%s が %s で動いています: %s")
     ("%s kicked %s out from %s" . "%s が %s を %s から蹴り出しました")
     ("%s kicked %s out from %s\n" . "%s が %s を %s から蹴り出しました\n")
     ("%s killed %s" . "%s が %s を殺しました")
+    ("%s users, topic: %s\n" . "%s 人、トピック: %s\n")
+    ("%s: %s users, topic: %s" . "%s: %s 人、トピック: %s\n")
     ("Already registered" . "登録済みです")
+    ("Away message: " . "離席のメッセージ: ")
+    ("Beginning of buffer" . "バッファの先頭です")
+    ("Can't find completion for \"%s\"" . "\"%s\" に対する補完が見つかりません")
+    ("Change layout: " . "変更後のレイアウト: ")
+    ("Change mode for channel/user: " . "モードを変更するチャンネルまたはユーザ: ")
+    ("Close server: " . "接続を閉じるサーバ: ")
+    ("Command to execute on \"%s\":" . "\"%s\" で実行するコマンド: ")
     ("Connecting to %s..." . "%s に接続しています...")
     ("Connecting to %s...done" . "%s に接続しています...完了")
     ("Connecting to %s...failed: %S" . "%s に接続しています...失敗: %S")
@@ -43,24 +59,48 @@
     ("Connecting to IRC server...done" . "IRC サーバに接続しています...完了")
     ("Connecting to IRC server...failed: %S" . "IRC サーバに接続しています...失敗: %S")
     ("Created on %s\n" . "%s に作成されました\n")
+    ("End of buffer" . "バッファの終端です")
     ("Erroneous nickname \"%s\".  Choose a new one: " . "謝ったニックネーム \"%s\"。新しいニックネーム: ")
+    ("Finger user: " . "身元を調べるユーザ: ")
+    ("Invite user: " . "招待するユーザ: ")
+    ("Inviting %s\n" . "%s を招待しています\n")
+    ("Inviting %s to %s" . "%s を %s に招待しています")
+    ("Join channel/user (default %s): " . "参加するチャンネルまたはユーザ (既定値 %s): ")
+    ("Join channel/user: " . "参加するチャンネルまたはユーザ: ")
     ("Key for %s: " . "%s のキー: ")
     ("Key for %s: Quit" . "%s のキー: 中止")
+    ("Kick user: " . "蹴り出すユーザ: ")
+    ("LIST pattern: " . "LIST のパターン: ")
     ("Logging in to %s..." . "%s にログインしています...")
     ("Logging in to %s...done" . "%s にログインしています...完了")
     ("Logging in to IRC server..." . "IRC サーバにログインしています...")
     ("Logging in to IRC server...done" . "IRC サーバにログインしています...完了")
+    ("Message to user: " . "ユーザへのメッセージ: ")
+    ("Message: " . "メッセージ")
+    ("Mode (? for help)" . "モード (ヘルプは ?)")
     ("Mode by %s: %s\n" . "%s によるモード設定: %s\n")
+    ("Mode for %s: %s" . "%s のモード: %s")
     ("Mode on %s by %s: %s" . "%s のモードが %s により設定されました: %s")
+    ("Mode: " . "モード: ")
+    ("NAMES pattern: " . "NAMES のパターン: ")
     ("Nickname \"%s\" already in use.  Choose a new one: " . "ニックネーム \"%s\" は既に使用されています。新しいニックネーム: ")
+    ("No changes made.  Save anyway? " . "変更がありませんが、保存しますか? ")
     ("No channel" . "チャンネルなし")
+    ("No server process" . "サーバのプロセスがありません")
+    ("No text to send" . "送信するテキストがありません")
     ("None" . "なし")
+    ("Online: " . "オンライン: ")
+    ("Open server: " . "接続するサーバ: ")
+    ("Part from channel/user (default %s): " . "離脱するチャンネルまたはユーザ (既定値 %s): ")
     ("Password for %s: " . "%s のパスワード: ")
     ("Password for %s: Quit" . "%s のパスワード: 中止")
     ("Password incorrect from %s." . "%s のパスワードが不正です。")
     ("Password: " . "パスワード: ")
     ("Password: Quit" . "パスワード: 中止")
     ("Really quit IRC? " . "本当に IRC をやめますか? ")
+    ("Really want to query LIST without argument? " . "本当に引数なしの LIST を発行しますか? ")
+    ("Really want to query NAMES without argument? " . "本当に引数なしの NAMES を発行しますか? ")
+    ("Really want to query WHO without argument? " . "本当に引数なしの WHO を発行しますか? ")
     ("Recent messages of the day:\n" . "最近のメッセージ(今日中):\n")
     ("Recent messages up to %d lines:\n" . "最近のメッセージ(%d行):\n")
     ("Sending QUIT to \"%s\"..." . "\"%s\" に QUIT を送信しています...")
@@ -68,9 +108,25 @@
     ("Sending QUIT..." . "QUIT を送信しています...")
     ("Sending QUIT...done" . "QUIT を送信しています...完了")
     ("Server: " . "サーバ")
+    ("Set +o for users" . "+o するユーザ")
+    ("Set +v for users" . "+v するユーザ")
+    ("Set topic: " . "新しいトピック: ")
+    ("Switch to channel/user: " . "移動先のチャンネルまたはユーザ: ")
+    ("Switch to number: " . "移動先の番号: ")
     ("Topic by %s: %s\n" . "%s によるトピック設定: %s\n")
+    ("Topic for %s: %s" . "%s のトピック: ")
     ("Topic on %s by %s: %s" . "%s のトピックが %s により設定されました: %s")
-    ("Type \\[describe-mode] for help" . "ヘルプを見るには \\[describe-mode]")))
+    ("Topic: " . "トピック: ")
+    ("Type \\[describe-mode] for help" . "ヘルプを見るには \\[describe-mode]")
+    ("Unset +o for users" . "-o するユーザ")
+    ("Unset +v for users" . "-v するユーザ")
+    ("WHO pattern: " . "WHO のパターン: ")
+    ("[Available modes: " . "[使用可能なモード: ")
+    ("days" . "日")
+    ("hours" . "時間")
+    ("minutes" . "分")
+    ("on via server %s: %s" . "サーバ %s 経由: %s")
+    ("seconds" . "秒")))
 
 (provide 'riece-mcat-japanese)