From 9202d6d179686f527a5b50d03ef7fd5abfb3bd65 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 17 Apr 2011 20:59:57 +0200 Subject: osx things --- net/jao-osx-mail.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 net/jao-osx-mail.el (limited to 'net/jao-osx-mail.el') diff --git a/net/jao-osx-mail.el b/net/jao-osx-mail.el new file mode 100644 index 0000000..8b9efda --- /dev/null +++ b/net/jao-osx-mail.el @@ -0,0 +1,13 @@ +(defun jao--gnus-message-id () + (require 'org-gnus) + (let ((header (with-current-buffer gnus-summary-buffer + (gnus-summary-article-header)))) + (and header (org-remove-angle-brackets (mail-header-id header))))) + +(defun jao-gnus-open-in-mail () + (interactive) + (let ((id (jao--gnus-message-id))) + (unless id (error "no message selected")) + (shell-command-to-string (format "open 'message:<%s>'" id)))) + +(provide 'jao-osx-mail) -- cgit v1.2.3