branch: externals/gnorb
commit 9c910c9a872a206dbf361a83183ad5a7e585af2e
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Re-raise errors in the triggering process
* gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Don't swallow them.
---
gnorb-gnus.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index d3703f9..2a9c869 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -535,7 +535,7 @@ you'll stay in the Gnus summary buffer."
:link ,link :date ,date :refs ,ref-msg-ids
:group ,group))
(gnorb-gnus-collect-all-attachments nil t)
- (condition-case nil
+ (condition-case err
(if id
(progn
(delete-other-windows)
@@ -585,7 +585,8 @@ you'll stay in the Gnus summary buffer."
;; If these are left populated after an error, it plays hell
;; with future trigger processes.
(setq gnorb-gnus-message-info nil)
- (setq gnorb-gnus-capture-attachments nil)))))
+ (setq gnorb-gnus-capture-attachments nil)
+ (signal (car err) (cdr err))))))
;;;###autoload
(defun gnorb-gnus-search-messages (str &optional ret)
