From: teranisi <teranisi>
Date: Sat, 6 Sep 2003 08:47:58 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-preview-message): Use `format' to print value.
X-Git-Tag: wl-2_11_11~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2592b13d36355ae48112f70a2d30044f487ac170;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-preview-message): Use `format' to print value.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bd5445d..0e2c515 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-draft-preview-message): Use `format' to print value.
+
 2003-09-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* Version number is increased to 2.11.10.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index f9f4b7e..df39d97 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -267,7 +267,7 @@ It calls following-method selected from variable
 	      (erase-buffer)
 	      (dolist (pair attribute-list)
 		(insert (capitalize (symbol-name (car pair))) ": "
-			(or (cdr pair) "")
+			(format "%s" (or (cdr pair) ""))
 			"\n"))
 	      (goto-char (point-min))
 	      (wl-highlight-headers)))