andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-delay.el (gnus-delay-article) Fix number of seconds per day. Improve prompt.

Browse source 
gnus-art.el (gnus-article-mode-line-format): Remove the article washing status from the default format.  It isn't very informative.
This commit is contained in:
Gnus developers 2011-02-13 23:30:55 +00:00 • committed by Katsumi Yamaoka
parent abfc152b45
commit 12295c5dee
3 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/ChangeLog
View file

@ -1,3 +1,13 @@
2011-02-13 Adam Sjøgren <asjo@koldfront.dk>
* gnus-delay.el (gnus-delay-article) Fix number of seconds per day.
Improve prompt.
2011-02-13 Lars Ingebrigtsen <larsi@gnus.org>
* 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 <tassilo@member.fsf.org> (tiny change)
* nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix

3
lisp/gnus/gnus-art.el
View file

@ -683,7 +683,7 @@ beginning of a line."
: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 @@ The following additional specs are available:
%w The article washing status.
%m The number of MIME parts in the article."
:version "24.1"
:type 'string
:group 'gnus-article-various)

4
lisp/gnus/gnus-delay.el
View file

@ -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))))