X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-spec.el;h=31e440e22ddbe30ac579ab23583955a51d035d4c;hb=d710261950ce73bbca649c432365f9236c3e6646;hp=b354793b056b28fa2f6d61030ee20c8e9ae84883;hpb=ff79efac756f360c9a48b292b4619699fe19d057;p=gnus

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index b354793b0..31e440e22 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -680,7 +680,7 @@ are supported for %s."
       ((string= fstring "%d")
        (setq dontinsert t)
        (if insert
-	   (list `(princ ,(car flist)))
+	   `(insert (int-to-string ,(car flist)))
 	 (list `(int-to-string ,(car flist)))))
       ;; Just lots of chars and strings.
       ((string-match "\\`\\(%[cs]\\)+\\'" fstring)