[Emacs-diffs] /srv/bzr/emacs/trunk r103261: gnus-delay.el (gnus-delay-article) Fix number of seconds per day. Improve prompt.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103261
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-02-13 23:30:55 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el
  lisp/gnus/gnus-delay.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-13 13:44:06 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-13 23:30:55 +0000
@@ -1,3 +1,13 @@
+2011-02-13  Adam Sjøgren  <address@hidden>
+
+       * gnus-delay.el (gnus-delay-article) Fix number of seconds per day.
+       Improve prompt.
+
+2011-02-13  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus-art.el (gnus-article-mode-line-format): Remove the article
+       washing status from the default format.  It isn't very informative.
+
 2011-02-13  Tassilo Horn  <address@hidden>  (tiny change)
 
        * nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2011-02-03 23:43:22 +0000
+++ b/lisp/gnus/gnus-art.el     2011-02-13 23:30:55 +0000
@@ -683,7 +683,7 @@
   :type 'regexp
   :group 'gnus-article-various)
 
-(defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
+(defcustom gnus-article-mode-line-format "Gnus: %g %S%m"
   "*The format specification for the article mode line.
 See `gnus-summary-mode-line-format' for a closer description.
 
@@ -691,6 +691,7 @@
 
 %w  The article washing status.
 %m  The number of MIME parts in the article."
+  :version "24.1"
   :type 'string
   :group 'gnus-article-various)
 

=== modified file 'lisp/gnus/gnus-delay.el'
--- a/lisp/gnus/gnus-delay.el   2011-01-26 08:36:39 +0000
+++ b/lisp/gnus/gnus-delay.el   2011-02-13 23:30:55 +0000
@@ -78,7 +78,7 @@
   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 @@
                                                  (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))))