From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/76631 Path: news.gmane.org!not-for-mail From: asjo@koldfront.dk (Adam =?utf-8?Q?Sj=C3=B8gren?=) Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] Make gnus-delay-article work for HH:MM on the next day. Date: Sun, 13 Feb 2011 20:13:54 +0100 Organization: koldfront - analysis & revolution, Copenhagen, Denmark Message-ID: <87zkpzkarx.fsf@topper.koldfront.dk> References: <87hbc723k3.fsf@topper.koldfront.dk> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: dough.gmane.org 1297624478 20936 80.91.229.12 (13 Feb 2011 19:14:38 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 13 Feb 2011 19:14:38 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M24974@lists.math.uh.edu Sun Feb 13 20:14:34 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PohP0-0006cV-DY for ding-account@gmane.org; Sun, 13 Feb 2011 20:14:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PohOn-0002jE-GR; Sun, 13 Feb 2011 13:14:21 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PohOl-0002il-14 for ding@lists.math.uh.edu; Sun, 13 Feb 2011 13:14:19 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PohOX-0008Ko-NW for ding@lists.math.uh.edu; Sun, 13 Feb 2011 13:14:18 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1PohOW-0000xt-7u for ding@gnus.org; Sun, 13 Feb 2011 20:14:04 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PohOW-0006NH-5c for ding@gnus.org; Sun, 13 Feb 2011 20:14:04 +0100 Original-Received: from rain.gmane.org ([80.91.229.7]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Feb 2011 20:14:04 +0100 Original-Received: from asjo by rain.gmane.org with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Feb 2011 20:14:04 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 33 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: rain.gmane.org Mail-Copies-To: never X-Now-Playing: The Ghost of Tom Joad, Renegades (Rage Against the Machine) X-Face: )qY&CseJ?.:=8F#^~GcSA?F=9eu'{KAFfL1C3/A&:nE?PW\i65"ba0NS)97,Q(^@xk}n4Ou rPuR#V8I(J_@~H($[ym:`K_+]*kjvW>xH5jbgLBVFGXY:(#4P>zVBklLbdL&XxL\M)%T}3S/IS9lMJ ^St'=VZBR Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:76631 Archived-At: * (gnus-delay-article) Fix number of seconds per day. --- lisp/ChangeLog | 4 ++++ lisp/gnus-delay.el | 2 +- 2 files changed, 5 insertions(+), 1 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d19efb0..dc45746 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-02-13 Adam Sjøgren + + * gnus-delay.el (gnus-delay-article) Fix number of seconds per day. + 2011-02-13 Lars Ingebrigtsen * gnus-art.el (gnus-article-mode-line-format): Remove the article diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el index a06a510..9b5a320 100644 --- a/lisp/gnus-delay.el +++ b/lisp/gnus-delay.el @@ -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)))) -- 1.7.2.3