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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bd5445d..0e2c515 100644 (file)
--- 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 (file)
--- 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)))