Mercurial > emacs
changeset 32102:e5f46972a7c8
2000-10-03 Dave Love <fx@gnu.org>
* mail-source.el (mail-sources): Revert to nil.
2000-10-03 ShengHuo ZHU <zsh@cs.rochester.edu>
* mail-source.el (mail-source-report-new-mail): Use
nnheader-cancel-timer.
2000-10-03 Simon Josefsson <simon@josefsson.org>
* mail-source.el (mail-source-imap-file-coding-system): New variable.
(mail-source-fetch-imap): Use it.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 03 Oct 2000 16:12:25 +0000 |
| parents | 15d0e4dd8e49 |
| children | a48838267750 |
| files | lisp/gnus/mail-source.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el Tue Oct 03 16:11:12 2000 +0000 +++ b/lisp/gnus/mail-source.el Tue Oct 03 16:12:25 2000 +0000 @@ -36,7 +36,7 @@ :version "21.1" :group 'gnus) -(defcustom mail-sources '((file)) +(defcustom mail-sources nil "*Where the mail backends will look for incoming mail. This variable is a list of mail source specifiers. See Info node `(gnus)Mail Source Specifiers'." @@ -719,9 +719,9 @@ (> (prefix-numeric-value arg) 0)))) (setq mail-source-report-new-mail on) (and mail-source-report-new-mail-timer - (cancel-timer mail-source-report-new-mail-timer)) + (nnheader-cancel-timer mail-source-report-new-mail-timer)) (and mail-source-report-new-mail-idle-timer - (cancel-timer mail-source-report-new-mail-idle-timer)) + (nnheader-cancel-timer mail-source-report-new-mail-idle-timer)) (setq mail-source-report-new-mail-timer nil) (setq mail-source-report-new-mail-idle-timer nil) (if on @@ -789,8 +789,12 @@ (autoload 'imap-error-text "imap") (autoload 'imap-message-flags-add "imap") (autoload 'imap-list-to-message-set "imap") + (autoload 'imap-range-to-message-set "imap") (autoload 'nnheader-ms-strip-cr "nnheader")) +(defvar mail-source-imap-file-coding-system 'binary + "Coding system for the crashbox made by `mail-source-fetch-imap'.") + (defun mail-source-fetch-imap (source callback) "Fetcher for imap sources." (mail-source-bind (imap source) @@ -804,7 +808,7 @@ user (or (cdr (assoc from mail-source-password-cache)) password) buf) (imap-mailbox-select mailbox nil buf)) - (let (str (coding-system-for-write 'binary)) + (let (str (coding-system-for-write mail-source-imap-file-coding-system)) (with-temp-file mail-source-crash-box ;; In some versions of FSF Emacs, inserting unibyte ;; string into multibyte buffer may convert 8-bit chars @@ -829,7 +833,8 @@ (incf found (mail-source-callback callback server)) (when (and remove fetchflag) (imap-message-flags-add - (imap-list-to-message-set remove) fetchflag nil buf)) + (imap-range-to-message-set (gnus-compress-sequence remove)) + fetchflag nil buf)) (if dontexpunge (imap-mailbox-unselect buf) (imap-mailbox-close buf))