From: yamaoka <yamaoka>
Date: Wed, 2 Feb 2005 11:38:52 +0000 (+0000)
Subject: Synch to No Gnus 200502021138.
X-Git-Tag: t-gnus-6_17_4-quimby-~572
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=18ec03ae95533000fc646ab54417414475188269;p=elisp%2Fgnus.git-

Synch to No Gnus 200502021138.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 510ca38..1fc184c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* nntp.el (nntp-marks-changed-p): Use time-less-p to compare the
+	timestamps.
+
 2005-01-29  Jari Aalto  <jari.aalto@cante.net>
 
 	* gnus-sum.el (gnus-list-of-unread-articles): Improve active
diff --git a/lisp/nntp.el b/lisp/nntp.el
index 6c920b5..38b8c4d 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -2055,15 +2055,17 @@ Please refer to the following variables to customize the connection:
       (make-directory (directory-file-name dir) t)
       (nnheader-message 5 "Creating nntp marks directory %s" dir))))
 
+(autoload 'time-less-p "time-date")
+
 (defun nntp-marks-changed-p (group server)
   (let ((file (expand-file-name
-	       nntp-marks-file-name 
+	       nntp-marks-file-name
 	       (nnmail-group-pathname
 		group (nntp-marks-directory server)))))
     (if (null (gnus-gethash file nntp-marks-modtime))
 	t ;; never looked at marks file, assume it has changed
-      (not (equal (gnus-gethash file nntp-marks-modtime)
-		  (nth 5 (file-attributes file)))))))
+      (time-less-p (gnus-gethash file nntp-marks-modtime)
+		   (nth 5 (file-attributes file))))))
 
 (defun nntp-save-marks (group server)
   (let ((file-name-coding-system nnmail-pathname-coding-system)