From 18ec03ae95533000fc646ab54417414475188269 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 2 Feb 2005 11:38:52 +0000 Subject: [PATCH] Synch to No Gnus 200502021138. --- lisp/ChangeLog | 5 +++++ lisp/nntp.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 + + * nntp.el (nntp-marks-changed-p): Use time-less-p to compare the + timestamps. + 2005-01-29 Jari Aalto * 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) -- 1.7.10.4