diff options
author | jao <jao@gnu.org> | 2021-02-02 04:46:08 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-02-02 04:46:08 +0000 |
commit | 7e96ff83aa62409ceacb29bdb509b7dc8c409ab2 (patch) | |
tree | cb88d50f85dd7ec1813b70b030c4dcc4ddc53d5c /attic/jao-osx-mail.el | |
parent | 87e498ed6a591604f543f3b7fb8e3175c19144a1 (diff) | |
download | elibs-7e96ff83aa62409ceacb29bdb509b7dc8c409ab2.tar.gz elibs-7e96ff83aa62409ceacb29bdb509b7dc8c409ab2.tar.bz2 |
no attic
Diffstat (limited to 'attic/jao-osx-mail.el')
-rw-r--r-- | attic/jao-osx-mail.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/attic/jao-osx-mail.el b/attic/jao-osx-mail.el deleted file mode 100644 index 8b9efda..0000000 --- a/attic/jao-osx-mail.el +++ /dev/null @@ -1,13 +0,0 @@ -(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) |