(nnfolder-read-folder): The (lsh -1 -1) trick to generate the greatest

positive fixnum value doesn't work under an XEmacs with bignum support; use
the most-positive-fixnum constant instead, available since Emacs 21.1 with cl
and XEmacs 21.1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05ed6d2..74ab737 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-01-11  Aidan Kehoe  <kehoea@parhasard.net>
+
+       * nnfolder.el (nnfolder-read-folder): The (lsh -1 -1) trick to generate
+       the greatest positive fixnum value doesn't work under an XEmacs with
+       bignum support; use the most-positive-fixnum constant instead,
+       available since Emacs 21.1 with cl and XEmacs 21.1.
+
 2009-01-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-util.el (mm-coding-system-priorities): Allow the value like

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 629e22c..dda0272 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1,7 +1,7 @@
 ;;; nnfolder.el --- mail folder access for Gnus
 
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS)
 ;;      ShengHuo Zhu <zsh@cs.rochester.edu> (adding NOV)
@@ -925,7 +925,7 @@ deleted.  Point is left where the deleted region was."
              (active (or (cadr (assoc group nnfolder-group-alist))
                          (cons 1 0)))
              (scantime (assoc group nnfolder-scantime-alist))
-             (minid (lsh -1 -1))
+             (minid most-positive-fixnum)
              maxid start end newscantime
              novbuf articles newnum
              buffer-read-only)