Re: [PATCH] Better error reporting in Gnus splitting.

[Reiner Steib]

On Wed, Jul 19 2006, Karl Fogel wrote:

> Any objections if I commit this patch?
>
> Without this patch, when splitting encounters an error (say, an
> invalid regular expression) in the nnmail-split-fancy list, then the
> user is simply told that there is an error, but is given no details
> about the error's nature.  The mail gets split into the 'bogus' mail
> group, and the user has no idea why.
>
> With this patch, the user is informed about the general nature of the
> error and may then be able to track it down.  (The error report could
> theoretically be even more informative than this, but I didn't want to
> make a large change.)  The mail is still filtered into 'bogus' group.
>
> See simple patch below.
>
> -Karl
>
> Index: ChangeLog
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
> retrieving revision 1.474
> diff -u -r1.474 ChangeLog
> --- ChangeLog 19 Jul 2006 01:06:00 -0000      1.474
> +++ ChangeLog 19 Jul 2006 01:51:44 -0000
> @@ -1,3 +1,9 @@
> +2006-07-18  Karl Fogel  <address@hidden>
> +
> +     * 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  <address@hidden>
>
>       [ Backported bug fixes from No Gnus. ]
> Index: nnmail.el
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmail.el,v
> retrieving revision 1.33
> diff -u -r1.33 nnmail.el
> --- nnmail.el 9 Mar 2006 07:11:51 -0000       1.33
> +++ nnmail.el 19 Jul 2006 01:51:45 -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))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/