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

[Stefan Monnier]

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
    gnorb-org-setup-message.
---
 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-body)
-    (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