X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-kill.el;h=dd6a774619d8ea9b2b52fad8b50a45a1dfe94f86;hb=778c3b76ebeb9fe66f0987258f52b99887e33515;hp=02ee66e9c7e3b79a84f36374456b676d8c4b4cce;hpb=7bb65c2e8117c313fb292bff969887315068cbc6;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el
index 02ee66e..abcc401 100644
--- a/lisp/gnus-kill.el
+++ b/lisp/gnus-kill.el
@@ -524,7 +524,7 @@ COMMAND must be a lisp expression or a string representing a key sequence."
 		  ;; It's on the form (regexp . date).
 		  (if (zerop (gnus-execute field (car kill-list)
 					   command nil (not all)))
-		      (when (> (days-between date (cdr kill-list))
+		      (when (> (gnus-days-between date (cdr kill-list))
 			       gnus-kill-expiry-days)
 			(setq regexp nil))
 		    (setcdr kill-list date))
@@ -535,7 +535,7 @@ COMMAND must be a lisp expression or a string representing a key sequence."
 			(setq kdate (cdr kill))
 			(if (zerop (gnus-execute
 				    field (car kill) command nil (not all)))
-			    (when (> (days-between date kdate)
+			    (when (> (gnus-days-between date kdate)
 				     gnus-kill-expiry-days)
 			      ;; Time limit has been exceeded, so we
 			      ;; remove the match.