[elpa] externals/gnus-mock 5564ed9 15/27: [gnus-mock] Don't completely swallow errors

[Stefan Monnier]

branch: externals/gnus-mock
commit 5564ed9c450d76b4dfff7ea0f12317b48fa02505
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    [gnus-mock] Don't completely swallow errors
    
    * packages/gnus-mock/gnus-mock.el (gnus-mock-start): And use
      `condition-case-unless-debug'.
---
 gnus-mock.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnus-mock.el b/gnus-mock.el
index b11c15f..0874200 100644
--- a/gnus-mock.el
+++ b/gnus-mock.el
@@ -139,7 +139,7 @@ Gnus settings pre-loaded.  Any of the normal Gnus entry 
points
 will start a mock Gnus session."
   (interactive)
   (let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t)))
-    (condition-case nil
+    (condition-case-unless-debug err
        (let ((init-file (expand-file-name "init.el" mock-tmp-dir)))
          (with-temp-buffer
            (let ((standard-output (current-buffer))
@@ -261,7 +261,8 @@ will start a mock Gnus session."
                        :stderr "*gnus mock errors*"))
       (error (when (and gnus-mock-cleanup-p
                        (file-exists-p mock-tmp-dir))
-              (delete-directory mock-tmp-dir t))))))
+              (delete-directory mock-tmp-dir t))
+            (signal (car err) (cdr err))))))
 
 (provide 'gnus-mock)
 ;;; gnus-mock.el ends here