From: Dave Love <fx@gnu.org>
Date: Tue, 3 Oct 2000 16:12:25 +0000 (+0000)
Subject: 2000-10-03  Dave Love  <fx@gnu.org>
X-Git-Tag: emacs-pretest-21.0.90~1195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72fc04186ab21d555fd993fbab1971a8a8bd0c72;p=emacs.git

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.
---

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