tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Get the angular brackets right.

Browse source
This commit is contained in:
Carsten Dominik 2008-02-05 07:09:43 +01:00
parent 84126fc99b
commit c9ba9ee9a5
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
org-mac-message.el
View file

@ -3,7 +3,7 @@
;; Copyright (C) 2008 John Wiegley ;; Copyright (C) 2008 John Wiegley
;; ;;
;; Author: John Wiegey <johnw@gnu.org> ;; Author: John Wiegey <johnw@gnu.org>
;; Version: 1.1 ;; Version: 1.2
;; Keywords: outlines, hypermedia, calendar, wp ;; Keywords: outlines, hypermedia, calendar, wp
;; ;;
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -42,11 +42,12 @@
(concat "\"" (org-trim return) "\"")))) (concat "\"" (org-trim return) "\""))))
(defun org-mac-message-open (message-id) (defun org-mac-message-open (message-id)
"Visit the nnml message with the given Message-ID." "Visit the message with the given Message-ID."
(start-process (concat "open message:" message-id) nil (start-process (concat "open message:" message-id) nil
"open" (concat "message:" message-id))) "open" (concat "message://<" (substring message-id 2) ">")))
(defun org-mac-insert-message-link () (defun org-mac-message-insert-link ()
"Insrt a link to the messages currently selected in Apple Mail."
(interactive) (interactive)
(let ((subject (do-applescript "tell application \"Mail\" (let ((subject (do-applescript "tell application \"Mail\"
set theMessages to selection set theMessages to selection