From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christopher Suckling Subject: Re: Problem with org-mac-message.el Date: Fri, 3 Apr 2009 15:49:10 +0100 Message-ID: References: Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Lpkhs-0007UF-1L for emacs-orgmode@gnu.org; Fri, 03 Apr 2009 10:49:20 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Lpkhn-0007RU-Sr for emacs-orgmode@gnu.org; Fri, 03 Apr 2009 10:49:19 -0400 Received: from [199.232.76.173] (port=51132 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Lpkhn-0007RN-Kp for emacs-orgmode@gnu.org; Fri, 03 Apr 2009 10:49:15 -0400 Received: from mail-ew0-f160.google.com ([209.85.219.160]:50769) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Lpkhn-00014G-3Z for emacs-orgmode@gnu.org; Fri, 03 Apr 2009 10:49:15 -0400 Received: by ewy4 with SMTP id 4so1100346ewy.42 for ; Fri, 03 Apr 2009 07:49:12 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Ed Hirgelt Cc: emacs-orgmode emacs-orgmode On 1 Apr 2009, at 21:21, Ed Hirgelt wrote: > I've found that org-mac-message-get-link has a problem inserting > [["]] as the first item. I can't replicate this. Could you provide an example? > The following change makes it better... Unfortunately, this change breaks the code for all other possibilities, and, if I understand the problem correctly, simply omits a link that begins [[" My beginner's elisp is rather clumsy; I'm going to attempt to tidy up the code anyway, so I'll be on the lookout for your difficulty whilst I do so. Best, Christopher > > diff --git a/lisp/org-mac-message.el b/lisp/org-mac-message.el > index 4e10062..e8697c4 100644 > --- a/lisp/org-mac-message.el > +++ b/lisp/org-mac-message.el > @@ -119,7 +119,7 @@ active mail in AppleMail and make a link out of > it." > (setq split-link (split-string (pop link-list) "::split::")) > (setq URL (car split-link)) > (setq description (cadr split-link)) > - (if (not (string= URL "")) > + (if (not (string= URL "\"")) > (progn > (setq orglink (org-make-link-string URL description)) > (push orglink orglink-list))))) >