2001-10-20 Simon Josefsson <jas@extundo.com>

	* nnml.el (nnml-marks-changed-p): Use `equal' when comparing
	conses.  From David Z Maze <dmaze@MIT.EDU>.

	* nnfolder.el (nnfolder-marks-changed-p): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d030d58..d6f0f5b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-10-20  Simon Josefsson  <jas@extundo.com>
+
+       * nnml.el (nnml-marks-changed-p): Use `equal' when comparing
+       conses.  From David Z Maze <dmaze@MIT.EDU>.
+
+       * nnfolder.el (nnfolder-marks-changed-p): Ditto.
+
 2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * mm-decode.el (mm-default-directory): Fix customize type.

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index f225f32..1de4e52 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1205,8 +1205,8 @@ This command does not work if you use short group names."
   (let ((file (nnfolder-group-marks-pathname group)))
     (if (null (gnus-gethash file nnfolder-marks-modtime))
        t ;; never looked at marks file, assume it has changed
-      (not (eq (gnus-gethash file nnfolder-marks-modtime)
-              (nth 5 (file-attributes file)))))))
+      (not (equal (gnus-gethash file nnfolder-marks-modtime)
+                 (nth 5 (file-attributes file)))))))
 
 (defun nnfolder-save-marks (group server)
   (let ((file-name-coding-system nnmail-pathname-coding-system)

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 3fa8584..a07a87f 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -979,8 +979,8 @@ Use the nov database for the current group if available."
                                (nnmail-group-pathname group nnml-directory))))
     (if (null (gnus-gethash file nnml-marks-modtime))
        t ;; never looked at marks file, assume it has changed
-      (not (eq (gnus-gethash file nnml-marks-modtime)
-              (nth 5 (file-attributes file)))))))
+      (not (equal (gnus-gethash file nnml-marks-modtime)
+                 (nth 5 (file-attributes file)))))))
 
 (defun nnml-save-marks (group server)
   (let ((file-name-coding-system nnmail-pathname-coding-system)