From: yamaoka <yamaoka>
Date: Fri, 23 Jun 2000 03:35:47 +0000 (+0000)
Subject: (wl-demo): Don't set the value of `fill-column' permanently in the demo buffer.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb902bd101f826292542ccaf77951fbcf28e0509;p=elisp%2Fwanderlust.git

(wl-demo): Don't set the value of `fill-column' permanently in the demo buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 46514f9..955b870 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-23  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-demo.el (wl-demo): Don't set the value of `fill-column'
+	permanently in the demo buffer.
+
 2000-06-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-mime.el (wl-summary-burst-subr): Use `mime-entity-body' and
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index aae932a..70819e6 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-06-19 18:40:58 yamaoka>
+;; Time-stamp: <2000-06-23 12:33:18 yamaoka>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -201,8 +201,7 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 	 rest)
     (switch-to-buffer demo-buf)
     (erase-buffer)
-    (setq fill-column ww
-	  truncate-lines t)
+    (setq truncate-lines t)
     (if logo
 	(let ((lw (get logo 'width))
 	      (lh (get logo 'height))
@@ -264,7 +263,8 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 			wl-version wl-codename wl-demo-copyright-notice)))
       (insert text)
       (put-text-property start (point) 'face 'wl-highlight-demo-face)
-      (center-region start (point)))
+      (let ((fill-column ww))
+	(center-region start (point))))
     (goto-char (point-min))
     (sit-for (if (featurep 'lisp-float-type) (/ (float 5) (float 10)) 1))
     demo-buf))