Re: Problem with org-mac-message.el

From: Carsten Dominik <carsten.dominik@gmail.com>
To: Christopher Suckling <suckling.list@googlemail.com>
Cc: emacs-orgmode emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: Problem with org-mac-message.el
Date: Fri, 3 Apr 2009 18:58:17 +0200	[thread overview]
Message-ID: <A6BBFE99-E9F0-4F55-A1B6-EEE647173199@gmail.com> (raw)
In-Reply-To: <D628D0DF-A250-44CA-A680-42452046E57C@gmail.com>

On Apr 3, 2009, at 4:49 PM, Christopher Suckling wrote:

>
> 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.

I think I already fixed it.....

- Carsten

>
> 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)))))
>>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode