From: yoichi <yoichi>
Date: Fri, 9 Nov 2001 13:14:08 +0000 (+0000)
Subject: Fix for XEmacs's behavior of truncate-partial-width-windows.
X-Git-Tag: wl-2_8-root~153
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5bd2ae6ca81743a9614d5ab8fb723e94eb1ed283;p=elisp%2Fwanderlust.git

Fix for XEmacs's behavior of truncate-partial-width-windows.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9603b1a..6598fbb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2001-11-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-mode): Locally set
+	truncate-partial-window-width to nil.
+	(for XEmacs)
+
+	* wl-folder.el (wl-folder-mode): Ditto.
+
 2001-11-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-util.el (wl-set-string-width) [Emacs]: New implementation.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b25110d..a8f764d 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1424,6 +1424,8 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
   (use-local-map wl-folder-mode-map)
   (setq buffer-read-only t)
   (setq inhibit-read-only nil)
+  (make-local-variable 'truncate-partial-width-windows)
+  (setq truncate-partial-width-windows nil)
   (setq truncate-lines t)
   (setq wl-folder-buffer-cur-entity-id nil
 	wl-folder-buffer-cur-path nil
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0ec7284..005108f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -747,6 +747,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   (use-local-map wl-summary-mode-map)
 ;;;(setq default-directory (or wl-tmp-dir (expand-file-name "~/")))
   (setq buffer-read-only t)
+  (make-local-variable 'truncate-partial-width-windows)
+  (setq truncate-partial-width-windows nil)
   (setq truncate-lines t)
 ;;;(make-local-variable 'tab-width)
 ;;;(setq tab-width 1)