X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-kill.el;h=02ee66e9c7e3b79a84f36374456b676d8c4b4cce;hp=abcc4019a3b11bcd2ae41612d5db05871cb4f517;hb=7c959c5bcfe0901db7fa780a7cc016adc3320a0e;hpb=9f787d4f849d558150a47aef6764d895dd07985c

diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el
index abcc4019a..02ee66e9c 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 (> (gnus-days-between date (cdr kill-list))
+		      (when (> (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 (> (gnus-days-between date kdate)
+			    (when (> (days-between date kdate)
 				     gnus-kill-expiry-days)
 			      ;; Time limit has been exceeded, so we
 			      ;; remove the match.