;;; Code:
+(eval-when-compile (require 'cl))
+(eval-when-compile (require 'static))
+
(require 'nnheader)
(require 'message)
(require 'nnmail)
(require 'nnoo)
-(eval-when-compile (require 'cl))
(nnoo-declare nnmbox)
(defvoo nnmbox-group-alist nil)
(defvoo nnmbox-active-timestamp nil)
-(defvoo nnmbox-file-coding-system mm-text-coding-system)
+(defvoo nnmbox-file-coding-system
+ (if (memq system-type '(windows-nt ms-dos ms-windows))
+ 'raw-text-dos 'raw-text))
(defvoo nnmbox-file-coding-system-for-write nil)
-(defvoo nnmbox-active-file-coding-system mm-text-coding-system)
+(defvoo nnmbox-active-file-coding-system nnmbox-file-coding-system)
(defvoo nnmbox-active-file-coding-system-for-write nil)
\f
(1+ (- (cdr active) (car active)))
(car active) (cdr active) group)))))
-(defun nnmbox-save-buffer ()
- (let ((coding-system-for-write
- (or nnmbox-file-coding-system-for-write
- nnmbox-file-coding-system)))
- (save-buffer)))
+(static-if (boundp 'MULE)
+ (defun nnmbox-save-buffer ()
+ (let ((output-coding-system
+ (or nnmbox-file-coding-system-for-write
+ nnmbox-file-coding-system)))
+ (save-buffer)))
+ (defun nnmbox-save-buffer ()
+ (let ((coding-system-for-write
+ (or nnmbox-file-coding-system-for-write
+ nnmbox-file-coding-system)))
+ (save-buffer)))
+ )
(defun nnmbox-save-active (group-alist active-file)
(let ((nnmail-active-file-coding-system
nnmbox-file-coding-system))
(nnheader-find-file-noselect
nnmbox-mbox-file nil t))))
- (mm-enable-multibyte)
(buffer-disable-undo)))
(when (not nnmbox-group-alist)
(nnmail-activate 'nnmbox))
nnmbox-file-coding-system))
(nnheader-find-file-noselect
nnmbox-mbox-file nil t))))
- (mm-enable-multibyte)
- (buffer-disable-undo)
+ (buffer-disable-undo)
;; Go through the group alist and compare against
;; the mbox file.