Translate "Manage Add-ons".

[elisp/riece.git] / lisp / riece.el

diff --git a/lisp/riece.el b/lisp/riece.el
index bf38673..8f80cec 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -249,6 +249,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
 (defvar print-escape-multibyte)
 (defun riece-save-variables-files ()
   "Save current settings to `riece-saved-variables-file'."
+  (message (riece-mcat "Saving %s...") riece-saved-variables-file)
   (with-temp-file riece-saved-variables-file
     (insert ";;; This file is generated automatically by " riece-version ".\n"
            ";;; Do not edit this file!\n\n")
@@ -264,6 +265,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
               (current-buffer))
        (insert "\n")
        (setq variables (cdr variables)))))
+  (message (riece-mcat "Saving %s...done") riece-saved-variables-file)
   (setq riece-save-variables-are-dirty nil))
 
 ;;;###autoload
@@ -286,7 +288,8 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
        (riece-insinuate-addon (car (car pointer)) riece-debug)
        (setq pointer (cdr pointer))))
     (if (or confirm (null riece-server))
-       (setq riece-server (completing-read "Server: " riece-server-alist)))
+       (setq riece-server (completing-read (riece-mcat "Server: ")
+                                           riece-server-alist)))
     (if (stringp riece-server)
        (setq riece-server (riece-server-name-to-server riece-server)))
     (riece-create-buffers)
@@ -316,7 +319,7 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
          (setq pointer (cdr pointer))))
       (run-hooks 'riece-startup-hook)
       (message "%s" (substitute-command-keys
-                    "Type \\[describe-mode] for help")))))
+                    (riece-mcat "Type \\[describe-mode] for help"))))))
 
 (defun riece-exit ()
   (if riece-save-variables-are-dirty
@@ -333,8 +336,8 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
        riece-channel-buffer nil
        riece-channel-buffer-alist nil
        riece-user-indicator nil
-       riece-long-channel-indicator "None"
-       riece-channel-list-indicator "No channel"
+       riece-long-channel-indicator (riece-mcat "None")
+       riece-channel-list-indicator (riece-mcat "No channel")
        riece-away-indicator "-"
        riece-operator-indicator "-"
        riece-channel-status-indicator "-"