* riece.el (riece-save-variables-files): Display message

before/after saving files.
* riece-mcat-japanese.el (riece-mcat-japanese-alist): Translate
these mesasges for riece-save-variables-files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8735542..e6341ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-01  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece.el (riece-save-variables-files): Display message
+       before/after saving files.
+       * riece-mcat-japanese.el (riece-mcat-japanese-alist): Translate
+       these mesasges for riece-save-variables-files.
+
 2007-12-21  OHASHI Akira  <bg66@koka-in.org>
 
        * riece-mini.el (riece-mini-send-message): Use riece-format-identity.

diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el
index d73d32c..c914007 100644 (file)
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -136,6 +136,8 @@
     ("Recent messages of the day:\n" . "\e$B:G6a$N%a%C%;!<%8\e(B (\e$B:#F|Cf\e(B):\n")
     ("Recent messages up to %d lines:\n" . "\e$B:G6a$N%a%C%;!<%8\e(B (%d \e$B9T$^$G\e(B):\n")
     ("Save as (default %s) " . "\e$BJ]B8@h\e(B (\e$B4{DjCM\e(B %s) ")
+    ("Saving %s..." . "%s \e$B$rJ]B8$7$F$$$^$9\e(B...")
+    ("Saving %s...done" . "%s \e$B$rJ]B8$7$F$$$^$9\e(B...\e$B40N;\e(B")
     ("Sending %s...(%s/%d)" . "%s \e$B$rAw?.Cf\e(B...(%s/%d)")
     ("Sending %s...done" . "%s \e$B$rAw?.Cf\e(B...\e$B40N;\e(B")
     ("Sending QUIT to \"%s\"..." . "\"%s\" \e$B$K\e(B QUIT \e$B$rAw?.$7$F$$$^$9\e(B...")

diff --git a/lisp/riece.el b/lisp/riece.el
index 75356bd..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