;;; git-email-notmuch.el --- Notmuch integration for git-email -*- lexical-binding: t; -*- ;; Copyright (C) 2021 yoctocell ;; Author: yoctocell ;; URL: https://git.sr.ht/~yoctocell/git-email ;; Version: 0.2.0 ;; Package-Requires: ((emacs "27") (project "0.5.0") (notmuch "0.30.0")) ;; Keywords: git mail ;; License: GNU General Public License >= 3 ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; This library offers some extra functions to make git-email work ;; better with notmuch. ;;; Code: (require 'git-email) (require 'notmuch-show) ;;;###autoload (defun git-email-notmuch-apply-patch (project &optional thread) "Apply the patch in the notmuch-show buffer using 'git am' in PROJECT. If THREAD is non-nil or if invoked with a prefix argument, apply the patches in the whole thread instead of the current message." (interactive (list (git-email--get-project)) "p") (let ((default-directory project)) (notmuch-show-pipe-message thread git-email-apply-patch-command))) (provide 'git-email-notmuch) ;;; git-email-notmuch.el ends here