emacs-patch-review

Port of Thunderbird Patch Review to mu4e.

patch-review-mu4e.el (1679B)

 ;;; patch-review-mu4e.el --- mu4e integration for patch-review -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2026 Marc Coquand
 
 ;; 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.
 
 ;;; Commentary:
 
 ;; Thin mu4e adapter: open the message shown in the current *mu4e-view*
 ;; buffer as a patch review.  Suggested binding:
 ;;
 ;;   (define-key mu4e-view-mode-map (kbd "R") #'patch-review-mu4e-review)
 ;;
 ;; The adapter only locates the raw message file and hands it to
 ;; `patch-review-open-message-file'; everything else lives in the core.
 
 ;;; Code:
 
 (require 'patch-review)
 
 (declare-function mu4e-message-at-point "mu4e-message" (&optional noerror))
 (declare-function mu4e-message-field "mu4e-message" (msg field))
 
 ;;;###autoload
 (defun patch-review-mu4e-review ()
   "Review the patch message at point (mu4e view or headers buffer).
 From a mu4e article buffer (`mu4e-view-mode') the review takes over
 that buffer in place instead of opening a new window; from a
 headers buffer it opens a new review buffer."
   (interactive nil mu4e-view-mode mu4e-headers-mode)
   (unless (require 'mu4e-message nil t)
     (user-error "mu4e is not available"))
   (let* ((in-place (derived-mode-p 'mu4e-view-mode))
          (path (mu4e-message-field (mu4e-message-at-point) :path)))
     (unless (and path (file-readable-p path))
       (user-error "No message file at point"))
     (patch-review-open-message-file path nil in-place)))
 
 (provide 'patch-review-mu4e)
 ;;; patch-review-mu4e.el ends here