summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-mail.el18
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