diff options
| author | jao <jao@gnu.org> | 2020-12-29 22:06:14 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-12-29 22:06:14 +0000 |
| commit | bad49f39bc06d858bd328603615f9e6291b4c103 (patch) | |
| tree | cac7d499702710def0464d5c79f269f7520542c7 /attic/jao-osx-mail.el | |
| parent | 42c26033db101beb2ccac5342c1cf56f266cadc5 (diff) | |
| download | elibs-bad49f39bc06d858bd328603615f9e6291b4c103.tar.gz elibs-bad49f39bc06d858bd328603615f9e6291b4c103.tar.bz2 | |
attic with obsolete stuff
Diffstat (limited to 'attic/jao-osx-mail.el')
| -rw-r--r-- | attic/jao-osx-mail.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/attic/jao-osx-mail.el b/attic/jao-osx-mail.el new file mode 100644 index 0000000..8b9efda --- /dev/null +++ b/attic/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) |