From c9ba9ee9a53f83acff0c3df12cbdfc0b5c5c11d3 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 5 Feb 2008 07:09:43 +0100 Subject: [PATCH] Get the angular brackets right. --- org-mac-message.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/org-mac-message.el b/org-mac-message.el index a26f30d2a..32e997da0 100644 --- a/org-mac-message.el +++ b/org-mac-message.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2008 John Wiegley ;; ;; Author: John Wiegey -;; Version: 1.1 +;; Version: 1.2 ;; Keywords: outlines, hypermedia, calendar, wp ;; ;; This file is not part of GNU Emacs. @@ -42,11 +42,12 @@ (concat "\"" (org-trim return) "\"")))) (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 - "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) (let ((subject (do-applescript "tell application \"Mail\" set theMessages to selection