From 48afaf3113cb4d47f64e8bb7d4dc68e5d577bf5c Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sun, 11 Jan 2009 13:43:07 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 7 +++++++ lisp/nnfolder.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05ed6d257..74ab7377c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-01-11 Aidan Kehoe + + * 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 * mm-util.el (mm-coding-system-priorities): Allow the value like diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 629e22c62..dda027268 100644 --- 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 (adding MARKS) ;; ShengHuo Zhu (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) -- 2.25.1