From: ueno <ueno>
Date: Fri, 1 Feb 2008 03:00:31 +0000 (+0000)
Subject: * riece.el (riece-save-variables-files): Display message
X-Git-Tag: riece-5_0_0~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b5676d7f1d800a9e416d955298b468b8112cd3f5;p=elisp%2Friece.git

* 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
--- 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
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -136,6 +136,8 @@
     ("Recent messages of the day:\n" . "最近のメッセージ (今日中):\n")
     ("Recent messages up to %d lines:\n" . "最近のメッセージ (%d 行まで):\n")
     ("Save as (default %s) " . "保存先 (既定値 %s) ")
+    ("Saving %s..." . "%s を保存しています...")
+    ("Saving %s...done" . "%s を保存しています...完了")
     ("Sending %s...(%s/%d)" . "%s を送信中...(%s/%d)")
     ("Sending %s...done" . "%s を送信中...完了")
     ("Sending QUIT to \"%s\"..." . "\"%s\" に QUIT を送信しています...")
diff --git a/lisp/riece.el b/lisp/riece.el
index 75356bd..8f80cec 100644
--- 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