From 06dc832132e0b53690d8045aee60d3926ff389e3 Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Fri, 21 Jul 2006 06:34:45 +0000 Subject: [PATCH] (nnmail-article-group): If splitting raises an error, give some information about the error when saying that the `bogus' mail group will be used. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/nnmail.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f05d0efbf87..060676fcf61 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2006-07-18 Karl Fogel + + * 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 [ Backported bug fixes from No Gnus. ] diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index f4275fa8ed5..98af7ba41f2 100644 --- 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)) -- 2.11.4.GIT