Mercurial > emacs
changeset 72045:52eb98c2d37f
(nnmail-article-group): If splitting raises an error, give some
information about the error when saying that the `bogus' mail group
will be used.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Fri, 21 Jul 2006 06:34:45 +0000 |
| parents | 3dc0557bba5f |
| children | 32108a3a9a16 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnmail.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Jul 20 21:23:48 2006 +0000 +++ b/lisp/gnus/ChangeLog Fri Jul 21 06:34:45 2006 +0000 @@ -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. ]
--- a/lisp/gnus/nnmail.el Thu Jul 20 21:23:48 2006 +0000 +++ b/lisp/gnus/nnmail.el Fri Jul 21 06:34:45 2006 +0000 @@ -1131,7 +1131,7 @@ (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 @@ '("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))