diff options
| author | Gnus developers <ding@gnus.org> | 2011-02-13 23:30:55 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-02-13 23:30:55 +0000 |
| commit | 12295c5dee18f2098a3b4fe24399e016ef5d9e49 (patch) | |
| tree | 6b683ed61a03a60aa8e31349164e02b961400b9f /lisp/gnus/gnus-delay.el | |
| parent | abfc152b45e356fc73c798ed770765c7d2560075 (diff) | |
| download | emacs-12295c5dee18f2098a3b4fe24399e016ef5d9e49.tar.gz | |
gnus-delay.el (gnus-delay-article) Fix number of seconds per day. Improve prompt.
gnus-art.el (gnus-article-mode-line-format): Remove the article washing status from the default format. It isn't very informative.
Diffstat (limited to 'lisp/gnus/gnus-delay.el')
| -rw-r--r-- | lisp/gnus/gnus-delay.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index a06a510ecdd..bfd17055ea5 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/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)))) |