* mail/emacsbug.el (report-emacs-bug): Trap load-path-shadows errors.

1 files changed, 8 insertions, 3 deletions

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 1a02ae7c519..742c05bc8d5 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -304,9 +304,14 @@ usually do not have translators for other languages.\n\n")))
       (insert "\n"))
     (insert "\n")
     (insert "Load-path shadows:\n")
-    (message "Checking for load-path shadows...")
-    (let ((shadows (list-load-path-shadows t)))
-      (message "Checking for load-path shadows...done")
+    (let* ((msg "Checking for load-path shadows...")
+           (result "done")
+           (shadows (progn (message "%s" msg)
+                           (condition-case nil (list-load-path-shadows t)
+                             (error
+                              (setq result "error")
+                              "Error during checking")))))
+      (message "%s%s" msg result)
       (insert (if (zerop (length shadows))
                   "None found.\n"
                 shadows)))