diff options
| author | Dave Love <fx@gnu.org> | 2000-10-03 16:12:25 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-10-03 16:12:25 +0000 |
| commit | 72fc04186ab21d555fd993fbab1971a8a8bd0c72 (patch) | |
| tree | 351f676ee80932fca34c7559c6e5bc639ebe913d /lisp/gnus/mail-source.el | |
| parent | 9a075f5ee620121397918b562205e9091afabee4 (diff) | |
| download | emacs-72fc04186ab21d555fd993fbab1971a8a8bd0c72.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 0f721adf5ea..1702ca2b7bc 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -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 @@ This only works when `display-time' is enabled." (> (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 @@ This only works when `display-time' is enabled." (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 @@ This only works when `display-time' is enabled." 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 @@ This only works when `display-time' is enabled." (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)) |