[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnorb e472348 073/449: New hook gnorb-org-after-message

From: Stefan Monnier
Subject: [elpa] externals/gnorb e472348 073/449: New hook gnorb-org-after-message-setup-hook
Date: Fri, 27 Nov 2020 23:15:11 -0500 (EST)

branch: externals/gnorb
commit e472348d666abe70487f0c5e75d3e18cf0f40d5a
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    New hook gnorb-org-after-message-setup-hook
    lisp/gnorb-org.el: New hook `gnorb-org-after-message-setup-hook', run as
    the last step message setup when composing/replying using
 lisp/gnorb-org.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index de4124b..4f3cb3e 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -38,6 +38,12 @@ relevant headings with these keywords. Set to nil to call
 org-todo regardless of TODO type."
   :group 'gnorb-org)
+(defcustom gnorb-org-after-message-setup-hook nil
+  "Hook run in a message buffer after setting up the message from
+  `gnorb-org-handle-mail' or `gnorb-org-email-subtree'."
+  :group 'gnorb-org
+  :type 'hook)
 (defcustom gnorb-org-msg-id-key "GNORB_MSG_ID"
   "The name of the org property used to store the Message-IDs
   from relevant messages.")
@@ -325,7 +331,8 @@ headings."
   ; put point somewhere reasonable
   (if (or mails messages)
-    (message-goto-to)))
+    (message-goto-to))
+  (run-hooks 'gnorb-org-after-message-setup-hook))
 (defun gnorb-org-attachment-list ()
   "Get a list of files (absolute filenames) attached to the

reply via email to

[Prev in Thread] Current Thread [Next in Thread]