From cb902bd101f826292542ccaf77951fbcf28e0509 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 23 Jun 2000 03:35:47 +0000 Subject: [PATCH] (wl-demo): Don't set the value of `fill-column' permanently in the demo buffer. --- wl/ChangeLog | 5 +++++ wl/wl-demo.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * wl-demo.el (wl-demo): Don't set the value of `fill-column' + permanently in the demo buffer. + 2000-06-22 Yuuichi Teranishi * 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 ;; 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)) -- 1.7.10.4