diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-02-28 23:54:34 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-01 00:00:42 -0500 |
| commit | 222164eef6bba39b001f914d58f1535d32267e49 (patch) | |
| tree | 01045e39fd79ec37433dfbceb8da9d768a3d160b /lisp | |
| parent | def9e6d16b0d39fadebfcad8ad1d5464c53df5dd (diff) | |
| download | emacs.d-222164eef6bba39b001f914d58f1535d32267e49.tar.gz | |
notmuch: Add pipe-to-project commands
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-mail.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el index ddc5de9..3ab7e50 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -32,6 +32,24 @@ (with-current-notmuch-show-message (km/open-github-patch (current-buffer)))) +;;;###autoload +(defun km/notmuch-show-pipe-message-to-project (project) + (interactive + (list (expand-file-name + (completing-read "Project: " + (projectile-relevant-known-projects))))) + (let ((default-directory project)) + (call-interactively #'notmuch-show-pipe-message))) + +;;;###autoload +(defun km/notmuch-show-pipe-part-to-project (project) + (interactive + (list (expand-file-name + (completing-read "Project: " + (projectile-relevant-known-projects))))) + (let ((default-directory project)) + (call-interactively #'notmuch-show-pipe-part))) + ;;; Mail sync |