[PATCH] emacs: Add compatibility for org-msg.el

Subject: [PATCH] emacs: Add compatibility for org-msg.el

Date: Thu, 24 Jun 2021 15:43:58 -0400

To: notmuch@notmuchmail.org

Cc:

From: Ori


Enable `notmuch-company` with `org-msg`, which does not derive from
`message-mode` in composing. This change was first proposed in the
discussion here: 
https://github.com/jeremy-compostella/org-msg/issues/53
---
 NEWS                     | 2 ++
 emacs/notmuch-company.el | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 09456f60..c167c9a2 100644
--- a/NEWS
+++ b/NEWS
@@ -8,6 +8,8 @@ Emacs
 previous behaviour of using notmuch to send mail by default, customize
 `mail-user-agent` to `notmuch-user-agent`.

+`notmuch-company` now works in `org-msg`.
+
 Vim
 ---

diff --git a/emacs/notmuch-company.el b/emacs/notmuch-company.el
index c6a004ae..7e05dc8f 100644
--- a/emacs/notmuch-company.el
+++ b/emacs/notmuch-company.el
@@ -70,7 +70,8 @@
        (completion-ignore-case t))
     (cl-case command
       (interactive (company-begin-backend 'notmuch-company))
-      (prefix (and (derived-mode-p 'message-mode)
+      (prefix (and (or (derived-mode-p 'message-mode)
+		       (derived-mode-p 'org-msg-edit-mode))
                   (looking-back
                    (concat notmuch-address-completion-headers-regexp ".*")
                    (line-beginning-position))
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-leave@notmuchmail.org

Thread: