From: yamaoka <yamaoka>
Date: Fri, 7 Jul 2000 12:49:54 +0000 (+0000)
Subject: (wl-demo): Don't use `eval'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c646f508665a8eb59fec59715538e54c48f99f7b;p=elisp%2Fwanderlust.git

(wl-demo): Don't use `eval'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 733d12e..c0a5791 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-07-07  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-demo.el (wl-demo): Don't use `eval'.
+
 2000-07-07  Kenichi OKADA	<okada@opaopa.org>
 
 	* wl-summary.el (wl-summary-buffer-thread-modified):
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 21f201f..690dca2 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -249,11 +249,11 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 	      (set-extent-end-glyph (make-extent (point) (point)) image))
 	     ((featurep 'image)
 	      (if (eq 'wl-logo-xbm logo)
-		  (let* ((unspecified nil)
-			 (bg (eval (face-background 'wl-highlight-logo-face)))
-			 (fg (eval (face-foreground 'wl-highlight-logo-face))))
-		    (if bg (plist-put (cdr image) ':background bg))
-		    (if fg (plist-put (cdr image) ':foreground fg))))
+		  (progn
+		    (plist-put (cdr image) ':background
+			       (face-background 'wl-highlight-logo-face))
+		    (plist-put (cdr image) ':foreground
+			       (face-foreground 'wl-highlight-logo-face))))
 	      (setq rest (/ (- (* wh (frame-char-height)) lh 1)
 			    (frame-char-height)))
 	      (insert-char ?\  (max 0 (/ (- (* (frame-char-width) (1+ ww)) lw)