(riece-menu-items): Bind riece-command-configure-windows.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8df213..1c26389 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 2008-05-27  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-menu.el (riece-menu-items): Define with defcustom; use
-       riece-mcat to translate menu labels.
+       riece-mcat to translate menu labels; bind
+       riece-command-configure-windows.
        (riece-menu-requires): Depend on riece-mcat.
        (riece-menu-insinuate): Re-evaluate riece-menu-items.
 

diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el
index 3fd8020..2cf659a 100644 (file)
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -157,6 +157,7 @@
     ("Receiving %s from %s...done" . "%s \e$B$r\e(B %s \e$B$+$i<u?.Cf\e(B...\e$B40N;\e(B")
     ("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")
+    ("Redraw Layout" . "\e$B2hLL$N:FIA2h\e(B")
     ("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")

diff --git a/lisp/riece-menu.el b/lisp/riece-menu.el
index fcf0a4f..19d98b4 100644 (file)
--- a/lisp/riece-menu.el
+++ b/lisp/riece-menu.el
@@ -48,6 +48,7 @@
    (list (riece-mcat "Servers")
         :filter 'riece-menu-create-servers-menu)
    "----"
+   (vector (riece-mcat "Redraw Layout") 'riece-command-configure-windows t)
    (list (riece-mcat "Change Window Layout...")
         :filter 'riece-menu-create-layouts-menu)
    (list (riece-mcat "Toggle...")