(nntp-marks-changed-p): Use time-less-p to compare the timestamps.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31aaeab..c6e8275 100644 (file)
--- 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 a970d0c..bd8591c 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1984,15 +1984,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)