From: yamaoka <yamaoka>
Date: Wed, 15 Mar 2006 09:03:19 +0000 (+0000)
Subject: Synch to No Gnus 200603150849.
X-Git-Tag: t-gnus-6_17_4-quimby-~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b4f64c9ca6ccc175fafedfea761bceefee15b83;p=elisp%2Fgnus.git-

Synch to No Gnus 200603150849.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1b02cf0..cc5a210 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5350,7 +5350,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
     (concat
      (if (or (memq system-type '(ms-dos emx vax-vms))
 	     ;; message-number-base36 doesn't handle bigints.
-	     (float (user-uid)))
+	     (floatp (user-uid)))
 	 (let ((user (downcase (user-login-name))))
 	   (while (string-match "[^a-z0-9_]" user)
 	     (aset user (match-beginning 0) ?_))