[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -u emacs/lisp/gnus/message.el:1.102 emacs/lisp/gnus/message.el:1.103
--- emacs/lisp/gnus/message.el:1.102    Fri Feb 24 05:02:12 2006
+++ emacs/lisp/gnus/message.el  Sun Mar 19 19:39:52 2006
@@ -4671,7 +4671,9 @@
           (* 25 25)))
   (let ((tm (current-time)))
     (concat
-     (if (memq system-type '(ms-dos emx vax-vms))
+     (if (or (memq system-type '(ms-dos emx vax-vms))
+            ;; message-number-base36 doesn't handle bigints.
+            (floatp (user-uid)))
         (let ((user (downcase (user-login-name))))
           (while (string-match "[^a-z0-9_]" user)
             (aset user (match-beginning 0) ?_))