Use gnus-error to report mail-source failures

* lisp/gnus/mail-source.el (mail-source-fetch): Instead of querying
the user on mail sources errors -- in effect asking "do you want to
continue, or halt the process?" -- log the error with `gnus-error',
severity 5. The query didn't provide any meaningful control; error
reporting is all that's needed.
(mail-source-ignore-errors): Obsolete this option; users can see the
error or not by configuring `gnus-verbose'.
* doc/misc/gnus.texi (Mail Source Customization): Remove mention of
the above option from the manual.
This commit is contained in:
Eric Abrahamsen 2021-12-04 12:37:14 -08:00
parent 25dc0d1de6
commit 19307704bd
3 changed files with 11 additions and 16 deletions

View file

@ -15447,10 +15447,6 @@ If non-@code{nil}, ask for confirmation before deleting old incoming
files. This variable only applies when
@code{mail-source-delete-incoming} is a positive number.
@item mail-source-ignore-errors
@vindex mail-source-ignore-errors
If non-@code{nil}, ignore errors when reading mail from a mail source.
@item mail-source-directory
@vindex mail-source-directory
Directory where incoming mail source files (if any) will be stored. The

View file

@ -693,6 +693,10 @@ Emacs buffers, like indentation and the like. The new ert function
* Incompatible Lisp Changes in Emacs 29.1
** User option 'mail-source-ignore-errors' is now obsolete
The whole mechanism for prompting users to continue in case of
mail-source errors has been removed, so this option is no longer
needed.
** Fonts
---

View file

@ -224,12 +224,9 @@ Leave mails for this many days" :value 14)))))
(const :format "" :value :plugged)
(boolean :tag "Plugged"))))))))
(defcustom mail-source-ignore-errors nil
"Ignore errors when querying mail sources.
If nil, the user will be prompted when an error occurs. If non-nil,
the error will be ignored."
:version "22.1"
:type 'boolean)
(make-obsolete-variable 'mail-source-ignore-errors
"configure `gnus-verbose' instead"
"29.1")
(defcustom mail-source-primary-source nil
"Primary source for incoming mail.
@ -554,18 +551,16 @@ Return the number of files that were found."
(condition-case err
(funcall function source callback)
(error
(if (and (not mail-source-ignore-errors)
(not
(yes-or-no-p
(format "Mail source %s error (%s). Continue? "
(gnus-error
5
(format "Mail source %s error (%s)"
(if (memq ':password source)
(let ((s (copy-sequence source)))
(setcar (cdr (memq ':password s))
"********")
s)
source)
(cadr err)))))
(error "Cannot get new mail"))
(cadr err)))
0)))))))))
(declare-function gnus-message "gnus-util" (level &rest args))