* gnus-util.el (gnus-cache-file-contents): Don't use equalp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec437b8..2ca5660 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-util.el (gnus-cache-file-contents): Don't use equalp. 
+
 2002-01-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnheader.el (nnheader-insert-nov-file): Increased cutoff to

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index dad48b5..4fcff60 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1280,8 +1280,8 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
   (let ((time (nth 5 (file-attributes file)))
        contents value)
     (if (or (null (setq value (symbol-value variable)))
-           (not (equalp (car value) file))
-           (not (equalp (nth 1 value) time)))
+           (not (equal (car value) file))
+           (not (equal (nth 1 value) time)))
        (progn
          (setq contents (funcall function file))
          (set variable (list file time contents))