X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-layout.el;h=08441e38f0fa0cc21f681e1d3561ec3330f45a90;hb=e5cab94cba73b8f6fe03a309ecafb962092e1c1f;hp=523e6f20d2acaf753339e86be516ebeb395a61f2;hpb=fe7eeb17a3b1cc9b6a5316aebae340cba1ede06d;p=riece

diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el
index 523e6f2..08441e3 100644
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -87,7 +87,10 @@ happen unconditionally."
   (if (and riece-channel-buffer
 	   (get-buffer-window riece-channel-buffer))
       (with-current-buffer riece-channel-buffer
-	(unless (riece-frozen riece-channel-buffer)
+	(if (riece-frozen riece-channel-buffer)
+	    (if riece-channel-buffer-window-point
+		(set-window-point (get-buffer-window riece-channel-buffer)
+				  riece-channel-buffer-window-point))
 	  (set-window-point (get-buffer-window riece-channel-buffer)
 			    (point-max)))))
   (if (get-buffer-window riece-others-buffer)
@@ -169,11 +172,7 @@ This function is used by \"default\" layout."
 		(set-window-buffer (split-window)
 				   riece-channel-buffer)
 		(set-window-buffer rest-window
-				   riece-command-buffer))))
-	  (with-current-buffer riece-channel-buffer
-	    (setq truncate-partial-width-windows nil))
-	  (with-current-buffer riece-others-buffer
-	    (setq truncate-partial-width-windows nil)))
+				   riece-command-buffer)))))
       (if (eq vpos 'bottom)
 	  (progn
 	    (set-window-buffer (selected-window)
@@ -224,8 +223,7 @@ PLIST accept :command-height, :user-list-width, and :channel-list-width."
 	    (set-window-buffer (selected-window) riece-channel-buffer)
 	    (set-window-buffer user-list-window riece-user-list-buffer)
 	    (select-window user-list-window)
-	    (shrink-window-horizontally (- (window-width) user-list-width))
-	    (setq truncate-partial-width-windows nil)))
+	    (shrink-window-horizontally (- (window-width) user-list-width))))
 	 ;; only user-list
 	 (show-user-list
 	  (set-window-buffer (selected-window) riece-user-list-buffer))
@@ -240,8 +238,7 @@ PLIST accept :command-height, :user-list-width, and :channel-list-width."
 	  (set-window-buffer (selected-window) riece-others-buffer)
 	  (set-window-buffer channel-list-window riece-channel-list-buffer)
 	  (select-window channel-list-window)
-	  (shrink-window-horizontally (- (window-width) channel-list-width))
-	  (setq truncate-partial-width-windows nil))
+	  (shrink-window-horizontally (- (window-width) channel-list-width)))
       (set-window-buffer (selected-window) riece-dialogue-buffer))
     (riece-set-window-points)
     (select-window (or (get-buffer-window buffer)