From: yamaoka <yamaoka>
Date: Wed, 21 Oct 1998 02:46:39 +0000 (+0000)
Subject: Bug fix.
X-Git-Tag: gnus-6_8-199811302358~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ab91f4ea5f69ab553173611000780e568547170;p=elisp%2Fgnus.git-

Bug fix.
---

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index d8106d1..41d5116 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -486,11 +486,13 @@ call it with the value of the `gnus-data' text property."
       (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