From: yamaoka <yamaoka>
Date: Wed, 21 Oct 1998 02:49:22 +0000 (+0000)
Subject: Bug fix.
X-Git-Tag: pgnus-ichikawa-199811302358~149
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a4ed593072cb6945430bb44d80985f24008ec585;p=elisp%2Fgnus.git-

Bug fix.
---

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 8724a98..08f9c44 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -551,11 +551,13 @@ the resulting string may be narrower than END-COLUMN.
       (let ((pad (abs pad-width)))
 	(if (symbolp el)
 	    (if (< pad-width 0)
-		`(concat ,el (make-string
-			      (max 0 (- ,pad (string-width ,el))) ?\ ))
-	      `(concat (make-string
-			(max 0 (- ,pad (string-width ,el))) ?\ )
-		       ,el))
+		`(let ((val (format "%s" ,el)))
+		   (concat val (make-string
+				(max 0 (- ,pad (string-width val))) ?\ )))
+	      `(let ((val (format "%s" ,el)))
+		 (concat (make-string
+			  (max 0 (- ,pad (string-width val))) ?\ )
+			 val)))
 	  (if (< pad-width 0)
 	      `(let ((val (eval ,el)))
 		 (concat val (make-string