(auth-source-netrc-parse): Accept a number as the port spec, too.

[gnus] / lisp / gnus-delay.el

diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index a06a510..bfd1705 100644 (file)
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -78,7 +78,7 @@ DELAY is a string, giving the length of the time.  Possible values are:
   time, then the deadline is tomorrow, else today."
   (interactive
    (list (read-string
-         "Target date (YYYY-MM-DD) or length of delay (units in [mhdwMY]): "
+         "Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): "
          gnus-delay-default-delay)))
   (let (num unit days year month day hour minute deadline)
     (cond ((string-match
@@ -105,7 +105,7 @@ DELAY is a string, giving the length of the time.  Possible values are:
                                                  (append deadline nil))))
           ;; If this time has passed already, add a day.
           (when (< deadline (gnus-float-time))
-            (setq deadline (+ 3600 deadline))) ;3600 secs/day
+            (setq deadline (+ 86400 deadline))) ; 86400 secs/day
           ;; Convert seconds to date header.
           (setq deadline (message-make-date
                           (seconds-to-time deadline))))