Synch to No Gnus 200603150849.

diff --git a/lisp/message.el b/lisp/message.el
index 1b02cf0..cc5a210 100644 (file)
--- 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) ?_))