[elpa] externals/gnorb 1d9c710 139/449: Error in following link should be re-raised

[Stefan Monnier]

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

    Error in following link should be re-raised
    
    lisp/gnorb-org.el: (gnorb-org-setup-message) We're supposed to be
                   replying to this message link, so if something
                   fails in doing that, the error should be propagated.
                   Just try to clean up the buffers first.
---
 lisp/gnorb-org.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index 84f4b9e..b900716 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -407,7 +407,7 @@ headings."
       ;; either compose new message...
       (compose-mail (mapconcat 'identity mails ", "))
     ;; ...or follow link and start reply
-    (condition-case nil
+    (condition-case err
        (progn
          (org-gnus-open (org-link-unescape (car messages)))
          (call-interactively
@@ -417,7 +417,9 @@ headings."
            (message-goto-to)
            (insert ", ")
            (insert (mapconcat 'identity mails ", "))))
-      (error (message "Couldn't open linked message"))))
+      (error (when (window-configuration-p gnorb-org-window-conf)
+              (set-window-configuration gnorb-org-window-conf))
+            (signal (car err) (cdr err)))))
   ;; return us after message is sent
   (add-to-list 'message-exit-actions
               'gnorb-org-restore-after-send t)