* liece-menu.el (liece-menu-channel-menu): Don't enable

`liece-command-unread-channel' if `liece-channel-unread-list' is nil.
(liece-menu-private-menu): Don't bind `liece-command-userhost'.

* liece-window.el (liece-command-set-window-style): Run
`liece-command-reconfigure-windows'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9042361..241969b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,13 @@
         * liece-handle.el (liece-handle-notice-message): Don't set `temp'
         to nil.
 
+        * liece-menu.el (liece-menu-channel-menu): Don't enable
+        `liece-command-unread-channel' if `liece-channel-unread-list' is nil.
+        (liece-menu-private-menu): Don't bind `liece-command-userhost'.
+
+        * liece-window.el (liece-command-set-window-style): Run
+        `liece-command-reconfigure-windows'.
+
 2001-06-09  OHASHI Akira  <bg66@koka-in.org>
 
        * liece-handle.el (liece-handle-privmsg-message): Don't compare when

diff --git a/lisp/liece-menu.el b/lisp/liece-menu.el
index 03c4368..20e769d 100644 (file)
--- a/lisp/liece-menu.el
+++ b/lisp/liece-menu.el
@@ -86,7 +86,6 @@
     ["IsON" liece-command-ison (liece-server-opened)]
     ["Register friends" liece-command-activate-friends t]
     ["Unregister friends" liece-command-deactivate-friends t]
-    ["Display userhost" liece-command-userhost (liece-server-opened)]
     ["Ignore nicks / regexp" liece-command-kill t]
     ["Compose mail" liece-command-mail-compose t]))
   
@@ -122,7 +121,7 @@
      ["Go to previous channel" liece-command-previous-channel
       (or liece-current-channels liece-current-chat-partners)]
      ["Go to unread channel" liece-command-unread-channel
-      (or liece-current-channels liece-current-chat-partners)]
+      liece-channel-unread-list]
      ["Rotate left channels" liece-command-pop
       (or liece-current-channels liece-current-chat-partners)]
      ["Rotate right channels" liece-command-push

diff --git a/lisp/liece-window.el b/lisp/liece-window.el
index 5ae23c8..46ef9b7 100644 (file)
--- a/lisp/liece-window.el
+++ b/lisp/liece-window.el
@@ -161,7 +161,8 @@
       (liece-minibuffer-completing-read
        "Window style: " (list-to-alist styles) nil t nil nil
        liece-window-current-style))))
-  (liece-window-load-style-file style))
+  (liece-window-load-style-file style)
+  (liece-command-reconfigure-windows))
 
 (defun liece-command-reload-window-style ()
   (interactive)