Mercurial > emacs

diff lisp/gnus/message.el @ 69572:b4faac2800dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-163 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 58-61) - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 19 Mar 2006 19:39:53 +0000
parents 12d289b6e5de
children a87e26272828 e3bacb89536a
line wrap: on
line diff
--- a/lisp/gnus/message.el	Sun Mar 19 19:38:48 2006 +0000
+++ b/lisp/gnus/message.el	Sun Mar 19 19:39:53 2006 +0000
@@ -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) ?_))