2000-09-24 Simon Josefsson <simon@josefsson.org>
+ * mail-source.el (mail-source-imap-file-coding-system): New variable.
+ (mail-source-fetch-imap): Use it.
+
* rfc2104.el (rfc2104-hexstring-to-bitstring): New function.
(rfc2104-hash): Use it.
(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)
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
(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))