[elpa] externals/gnorb 97c0d41 045/449: Place point somewhere useful after setting up message

[Stefan Monnier]

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

    Place point somewhere useful after setting up message
    
    gnorb-org.el: In `gnorb-org-email-subtree' and `gnorb-org-handle-mail'
---
 lisp/gnorb-org.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index 1190a93..9877977 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -153,7 +153,10 @@ current heading."
        a (mm-default-file-encoding a)
        nil "attachment"))
      attachments
-     '("file" "files" "attach"))))
+     '("file" "files" "attach"))
+    (if (second mail-stuff)
+       (message-goto-body)
+      (message-goto-to))))
 
 (defun gnorb-org-handle-mail-agenda ()
   "Examine item at point for mail-related links, and handle them."
@@ -259,7 +262,10 @@ default set of parameters."
        a (mm-default-file-encoding a)
        nil "attachment"))
      attachments
-     '("file" "files" "attach"))))
+     '("file" "files" "attach"))
+    (if (second mail-stuff)
+       (message-goto-body)
+      (message-goto-to))))
 
 (defcustom gnorb-org-capture-collect-link-p t
   "Should the capture process store a link to the gnus message or