projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ad3284c
)
Synch to No Gnus 200502021138.
author
yamaoka
<yamaoka>
Wed, 2 Feb 2005 11:38:52 +0000
(11:38 +0000)
committer
yamaoka
<yamaoka>
Wed, 2 Feb 2005 11:38:52 +0000
(11:38 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/nntp.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
510ca38
..
1fc184c
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
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
(file)
--- 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))))
(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
(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
(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)
(defun nntp-save-marks (group server)
(let ((file-name-coding-system nnmail-pathname-coding-system)