diff options
| author | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
| commit | 0487d68ab9992be4fa70cfd908909001f71e66af (patch) | |
| tree | 8c93da3b94717d184f88277e277de949ecb2fb9c /lisp/gnus/mail-source.el | |
| parent | 798dceb467d4ead092979822f24090c8378f8320 (diff) | |
| download | emacs-scratch/error-API.tar.gz emacs-scratch/error-API.zip | |
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index bc1c7272283..a1e954d5367 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el | |||
| @@ -831,7 +831,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) | |||
| 831 | (setq mail-source-password-cache | 831 | (setq mail-source-password-cache |
| 832 | (delq (assoc from mail-source-password-cache) | 832 | (delq (assoc from mail-source-password-cache) |
| 833 | mail-source-password-cache)) | 833 | mail-source-password-cache)) |
| 834 | (signal (car err) (cdr err))))))))) | 834 | (signal err)))))))) |
| 835 | (if result | 835 | (if result |
| 836 | (progn | 836 | (progn |
| 837 | (when (eq authentication 'password) | 837 | (when (eq authentication 'password) |
| @@ -896,7 +896,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) | |||
| 896 | (setq mail-source-password-cache | 896 | (setq mail-source-password-cache |
| 897 | (delq (assoc from mail-source-password-cache) | 897 | (delq (assoc from mail-source-password-cache) |
| 898 | mail-source-password-cache)) | 898 | mail-source-password-cache)) |
| 899 | (signal (car err) (cdr err))))))))) | 899 | (signal err)))))))) |
| 900 | (if result | 900 | (if result |
| 901 | ;; Inform display-time that we have new mail. | 901 | ;; Inform display-time that we have new mail. |
| 902 | (setq mail-source-new-mail-available (> result 0)) | 902 | (setq mail-source-new-mail-available (> result 0)) |