diff options
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)) |