[PATCH] emacs: PATCH [1/2] mail user agent

[webdev@toryanderson.com (Tory S. Anderson)]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: patch --]
[-- Type: text/x-patch, Size: 1054 bytes --]

From 9a872e1b3b2b2231d1742fbc04cb366ab3b12b30 Mon Sep 17 00:00:00 2001
From: Tory Anderson <webdev@toryanderson.com>
Date: Wed, 19 May 2021 07:39:45 -0600
Subject: [PATCH 1/2] mail user agent

---
 emacs/notmuch.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 6d37c623..21a85656 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -121,6 +121,9 @@ there will be called at other points of notmuch execution."
   :group 'notmuch-search
   :group 'notmuch-hooks)

+(defcustom notmuch-mail-user-agent 'notmuch-user-agent
+  "The mail user-agent to use when creating mail after using Notmuch. For historical purposes, the default is 'notmuch-user-agent"
+  :group 'notmuch)
 ;;; Mime Utilities

 (defun notmuch-foreach-mime-part (function mm-handle)
@@ -1162,7 +1165,7 @@ Point should be at the beginning of the line."

 ;;; _

-(setq mail-user-agent 'notmuch-user-agent)
+(setq mail-user-agent notmuch-mail-user-agent)

 (provide 'notmuch)

--
2.31.1

[-- Attachment #2: Type: text/plain, Size: 0 bytes --]