From mboxrd@z Thu Jan  1 00:00:00 1970
From: Lineone <g.fella@lineone.net>
Subject: Patch for script to import feeds from Remember the Milk
Date: Tue, 28 Jan 2014 05:30:03 +0000
Message-ID: <279974487.124338.1390887003197.JavaMail.sas1@[172.29.252.247]>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:35757)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <pp77853@zoho.com>) id 1W81FT-0007gg-Kq
	for emacs-orgmode@gnu.org; Tue, 28 Jan 2014 00:30:16 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <pp77853@zoho.com>) id 1W81FO-0006b4-I9
	for emacs-orgmode@gnu.org; Tue, 28 Jan 2014 00:30:11 -0500
Received: from sender1.zohomail.com ([72.5.230.95]:22573)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <pp77853@zoho.com>) id 1W81FO-0006W5-DQ
	for emacs-orgmode@gnu.org; Tue, 28 Jan 2014 00:30:06 -0500
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Hi,

I have used this script

http://lists.gnu.org/archive/html/emacs-orgmode/2012-03/msg00197.html

to import my RTM Atom feeds into org.

The execution fails (no feed is downloaded) whenever the "Due:" field in at least one entry contains a time in addition to the date.

The following patch seems to solve the problem

-   (string-match "^\\([a-zA-Z]*\\) \\([0-9]*\\) \\([a-zA-Z]*\\) \\([0-9]*\\)$" mydate)
-   (setq mydate (concat "20" (match-string 4 mydate) " " (match-string 3 mydate) " " (match-string 2 mydate) " 00:00:01"))

+  (string-match "\\([0-9]*\\) \\([a-zA-Z]*\\) \\([0-9]*\\)" mydate)
+  (setq mydate (concat "20" (match-string 3 mydate) " " (match-string 2 mydate) " " (match-string 1 mydate) " 00:00:01"))

Thanks to Arun Persaud for the original script.
Giulio