*** empty log message ***

[gnus] / lisp / gnus-agent.el

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 65bc02b..dbbff13 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -654,7 +654,7 @@ the actual number of articles toggled is returned."
       (let ((dir (concat
                  (gnus-agent-directory)
                  (gnus-agent-group-path group) "/"))
-           (date (gnus-time-to-day (current-time)))
+           (date (time-to-day (current-time)))
            (case-fold-search t)
            pos crosses id elem)
        (gnus-make-directory dir)
@@ -775,7 +775,7 @@ the actual number of articles toggled is returned."
            (gnus-agent-enter-history
             "last-header-fetched-for-session"
             (list (cons group (nth (- (length  articles) 1) articles)))
-            (gnus-time-to-day (current-time)))
+            (time-to-day (current-time)))
            articles))))))
 
 (defsubst gnus-agent-copy-nov-line (article)
@@ -1258,7 +1258,7 @@ The following commands are available:
   "Expire all old articles."
   (interactive)
   (let ((methods gnus-agent-covered-methods)
-       (day (- (gnus-time-to-day (current-time)) gnus-agent-expire-days))
+       (day (- (time-to-day (current-time)) gnus-agent-expire-days))
        gnus-command-method sym group articles
        history overview file histories elem art nov-file low info
        unreads marked article)