[elpa] externals/gnorb 806775c 272/449: Wrap save-excursion around more of gnorb-org-view

[Stefan Monnier]

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

    Wrap save-excursion around more of gnorb-org-view
    
    * gnorb-org.el (gnorb-org-view): This way point doesn't move even if the
      search returns nothing.
---
 gnorb-org.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnorb-org.el b/gnorb-org.el
index cfb95d6..846ded9 100644
--- a/gnorb-org.el
+++ b/gnorb-org.el
@@ -665,13 +665,13 @@ your gnus select methods."
   (let (id)
     (save-excursion
       (org-back-to-heading)
-      (setq id (concat "id+" (org-id-get-create))))
-    (gnorb-gnus-search-messages
-     id
-     `(when (and (window-configuration-p gnorb-window-conf)
-                gnorb-return-marker)
-       (set-window-configuration gnorb-window-conf)
-       (goto-char gnorb-return-marker)))))
+      (setq id (concat "id+" (org-id-get-create)))
+      (gnorb-gnus-search-messages
+       id
+       `(when (and (window-configuration-p gnorb-window-conf)
+                  gnorb-return-marker)
+         (set-window-configuration gnorb-window-conf)
+         (goto-char gnorb-return-marker))))))
 
 (provide 'gnorb-org)
 ;;; gnorb-org.el ends here