ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remember: fix bugs with new mac-message code.

This commit is contained in:
Carsten Dominik 2009-04-02 12:52:24 +02:00
parent aeb5cb98d6
commit f64510b023
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-04-02 Carsten Dominik <carsten.dominik@gmail.com>
* org-mac-message.el (org-mac-message-get-link): Remove the
quotes.
(org-mac-message-get-link): Return the result.
2009-04-01 Carsten Dominik <carsten.dominik@gmail.com> 2009-04-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-refile-get-location): Add file name only if not * org.el (org-refile-get-location): Add file name only if not

8
lisp/org-mac-message.el
View File

@ -107,7 +107,10 @@ active mail in AppleMail and make a link out of it."
"end repeat\n" "end repeat\n"
"return theLinkList as string\n" "return theLinkList as string\n"
"end tell"))) "end tell")))
(link-list (split-string as-link-list "\n")) (link-list
(mapcar
(lambda (x) (if (string-match "\\`\"\\(.*\\)\"\\'" x) (setq x (match-string 1 x))) x)
(split-string as-link-list "[\r\n]+")))
split-link split-link
URL URL
description description
@ -126,7 +129,8 @@ active mail in AppleMail and make a link out of it."
(with-temp-buffer (with-temp-buffer
(while orglink-list (while orglink-list
(insert (concat (pop orglink-list)) "\n")) (insert (concat (pop orglink-list)) "\n"))
(kill-region (point-min) (point-max))))) (kill-region (point-min) (point-max))
(current-kill 0))))
(defun org-mac-create-flagged-mail () (defun org-mac-create-flagged-mail ()
"Create links to flagged messages in a Mail.app account and "Create links to flagged messages in a Mail.app account and