|
|
|
@ -28,6 +28,7 @@ |
|
|
|
|
(if (eq (widget-type (widget-at)) 'editable-field) |
|
|
|
|
(beginning-of-line))))) |
|
|
|
|
|
|
|
|
|
;;; Custom function to apply patches from e-mails |
|
|
|
|
(define-transient-command notmuch-apply-email () |
|
|
|
|
"Apply patches received by email." |
|
|
|
|
["Arguments" |
|
|
|
@ -43,5 +44,3 @@ |
|
|
|
|
(let ((repository (read-directory-name "Select repository"))) |
|
|
|
|
(cd repository) |
|
|
|
|
(notmuch-show-pipe-message t "git am -3 -"))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|