From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37692 Path: main.gmane.org!not-for-mail From: Dan Nicolaescu Newsgroups: gmane.emacs.gnus.general Subject: gnus-delay.el patch Date: 10 Aug 2001 14:09:07 -0700 Organization: SunSITE.dk - Supporting Opensource Software Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035173064 15190 80.91.224.250 (21 Oct 2002 04:04:24 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:04:24 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 17440 invoked from network); 10 Aug 2001 21:05:59 -0000 Original-Received: from sunsite.dk (130.225.51.30) by gnus.org with SMTP; 10 Aug 2001 21:05:59 -0000 Original-Received: (qmail 858 invoked by uid 509); 10 Aug 2001 21:05:58 -0000 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: emacs.ding Original-NNTP-Posting-Host: amrm2.ics.uci.edu Original-X-Trace: sunsite.dk 997477558 341 128.195.11.178 (10 Aug 2001 21:05:58 GMT) Original-X-Complaints-To: news@sunsite.dk Original-NNTP-Posting-Date: Fri, 10 Aug 2001 21:05:58 +0000 (UTC) X-Authenticated: @ User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.0.102 Original-Lines: 30 Xref: main.gmane.org gmane.emacs.gnus.general:37692 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37692 This simplifies a little time handling. *Not tested* in this context, but in a backend that I have that does similar things. *** gnus-delay.el.~6.6.~ Tue Jul 31 06:55:32 2001 --- gnus-delay.el Fri Aug 10 14:07:02 2001 *************** *** 113,122 **** nil t) (progn (setq deadline (nnheader-header-value)) ! (setq deadline (apply 'encode-time (parse-time-string deadline))) ! (setq deadline (time-since deadline)) ! (when (and (>= (nth 0 deadline) 0) ! (>= (nth 1 deadline) 0)) (message "Sending article %d" article) (gnus-draft-send article group) (message "Sending article %d...done" article))) --- 113,121 ---- nil t) (progn (setq deadline (nnheader-header-value)) ! (when (time-less-p (apply 'encode-time ! (parse-time-string deadline)) ! (current-time)) (message "Sending article %d" article) (gnus-draft-send article group) (message "Sending article %d...done" article)))