(nnmail-article-group): If splitting raises an error, give some

information about the error when saying that the `bogus' mail group
will be used.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f05d0efbf87c479b0700a1ef67cd74c879f4aae4..060676fcf610bac0d0360d6fee4b3b71e628f949 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2006-07-18  Karl Fogel  <kfogel@red-bean.com>
+
+       * nnmail.el (nnmail-article-group): If splitting raises an error, give
+       some information about the error when saying that the `bogus' mail
+       group will be used.
+
 2006-07-18  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
 
        [ Backported bug fixes from No Gnus. ]

diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index f4275fa8ed59903458f8da9d7e56edaaa702d187..98af7ba41f23bc7adfb22610001a766fc5005b82 100644 (file)
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -1131,7 +1131,7 @@ FUNC will be called with the group name to determine the article number."
        (if (and (symbolp nnmail-split-methods)
                 (fboundp nnmail-split-methods))
            (let ((split
-                  (condition-case nil
+                  (condition-case error-info
                       ;; `nnmail-split-methods' is a function, so we
                       ;; just call this function here and use the
                       ;; result.
@@ -1139,7 +1139,7 @@ FUNC will be called with the group name to determine the article number."
                           '("bogus"))
                     (error
                      (nnheader-message
-                      5 "Error in `nnmail-split-methods'; using `bogus' mail group")
+                      5 "Error in `nnmail-split-methods'; using `bogus' mail group: %S" error-info)
                      (sit-for 1)
                      '("bogus")))))
              (setq split (mm-delete-duplicates split))