From: bg66 <bg66>
Date: Thu, 14 Jun 2001 07:41:04 +0000 (+0000)
Subject: * liece-menu.el (liece-menu-channel-menu): Don't enable
X-Git-Tag: liece-2_0_0-pre1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58c66567dabdcb8a7c50975142efb972bea06fba;p=elisp%2Fliece.git

* 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
--- 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
--- 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
--- 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)