From def9b18cae9a08194d564395c72c6ef470c74e70 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 28 Jan 2007 03:35:20 +0000 Subject: [PATCH] Translate. --- lisp/riece-300.el | 52 ++++++++++++---------- lisp/riece-commands.el | 101 +++++++++++++++++++++++-------------------- lisp/riece-mcat-japanese.el | 60 ++++++++++++++++++++++++- 3 files changed, 140 insertions(+), 73 deletions(-) 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) -- 1.7.10.4