From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric S Fraga Subject: Re: org-caldav will continue to work with Google Calendar Date: Tue, 18 Jun 2013 12:09:48 +0200 Message-ID: <87ip1bd91v.fsf@ucl.ac.uk> References: <87ehfiymww.fsf@engster.org> <87bo7jhyfh.fsf@engster.org> <87vc5bdbue.fsf@ucl.ac.uk> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34000) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UossH-0007i4-Tx for emacs-orgmode@gnu.org; Tue, 18 Jun 2013 06:10:55 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UossD-0006Va-4g for emacs-orgmode@gnu.org; Tue, 18 Jun 2013 06:10:53 -0400 Received: from co1ehsobe006.messaging.microsoft.com ([216.32.180.189]:12848 helo=co1outboundpool.messaging.microsoft.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UossC-0006VQ-PM for emacs-orgmode@gnu.org; Tue, 18 Jun 2013 06:10:49 -0400 Received: from mail189-co1 (localhost [127.0.0.1]) by mail189-co1-R.bigfish.com (Postfix) with ESMTP id C04431E0134 for ; Tue, 18 Jun 2013 10:10:46 +0000 (UTC) Received: from CO1EHSMHS002.bigfish.com (unknown [10.243.78.245]) by mail189-co1.bigfish.com (Postfix) with ESMTP id 5E54068004D for ; Tue, 18 Jun 2013 10:10:33 +0000 (UTC) In-Reply-To: <87vc5bdbue.fsf@ucl.ac.uk> (Eric S. Fraga's message of "Tue, 18 Jun 2013 11:09:29 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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 --=-=-= Content-Type: text/plain David, just to follow up on my own email. With the attached draft, org-caldav-sync works for me now. Thanks, eric -- : Eric S Fraga (0xFFFCF67D), Emacs 24.3.50.1, Org release_8.0.3-193-g334581 --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename="change-uid-trimming.patch" diff --git a/org-caldav.el b/org-caldav.el index 0383366..cd5b273 100644 --- a/org-caldav.el +++ b/org-caldav.el @@ -786,7 +786,7 @@ is no UID to rewrite. Returns the UID." ((re-search-forward "^UID:\\(orgsexp-[0-9]+\\)" nil t) ;; This is a sexp entry, so do nothing. (match-string 1)) - ((re-search-forward "^UID:\\(\\s-*\\)\\([A-Z][A-Z]-\\)?\\(.+\\)\\s-*$" + ((re-search-forward "^UID:\\(\\s-*\\)\\([A-Z][A-Z][0-9]-\\)?\\(.+\\)\\s-*$" nil t) (when (match-string 1) (replace-match "" nil nil nil 1)) --=-=-=--