[Mew-Win32 02466] mew で受け取ったメールの行末

[早間義博]

ソフトウエアリサーチの早間です。
Meadow-1.10-i386.tar.gz
MEW195B28.ZIP 
IM139.ZIP
APi522e.exe
の組合せでmeadow を使用しています。
受け取って +inbox に書き込んだファイルの行末が LF だけになっている
のですがこれを CRLF にするのにはどのようにすれば良いのでしょう
(set-language-environment "Japanese")から(25 . (no-conversion . no-conversion)))
までは Meadow 補間計画からのコピーです。

CRLFがつかない受け取ったメールの印字が出来ません。
    受信したメールに print-buffer を使用すると作業ファイルに CRが
    つかないので
    noteoad.exe が正常に働かない。
    (Windows ファイル e.g. .emacs は正常に印字出来ます)

.emacsは下記のとおりです。
;;; Mew Easy Settings (generated automatically)
(setq load-path		; Meadow
      (cons (expand-file-name (concat exec-directory "../../site-lisp/mew"))
	       load-path))

(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(set-language-environment "Japanese")
          (set-default-coding-systems 'sjis)
          (set-keyboard-coding-system 'sjis)
          (set-terminal-coding-system 'sjis)
          (setq file-name-coding-system 'sjis)
          (set-clipboard-coding-system 'sjis-dos)
          (set-w32-system-coding-system 'sjis-dos)
;;          (select-input-method "MW32-IME")
          (toggle-input-method)
          (setq-default mw32-ime-mode-line-state-indicator 
                        "[--]")
          (setq mw32-ime-mode-line-state-indicator-list 
                '("[--]" "[aあ]" "[--]"))
          (mw32-ime-initialize)
          (mw32-ime-initialize)
          (setq network-coding-system-alist 
                '(("nntp" . (junet-unix . junet-unix)) 
                  (110 . (no-conversion . no-conversion))
                  (25 . (no-conversion . no-conversion))))
;;(setq default-file-buffer-coding-system 'sjis-dos)
(setq default-file-coding-system 'sjis-dos)
(setq mew-prog-pgp "gpg")
;;(setq mew-mail-smtp-server "linux.src.co.jp")
(setq mew-smtp-server "linux.src.co.jp")
(setq mew-fcc "+backup")
(setq mew-mail-address "win98 at example.com")
(setq mew-mail-domain-list '("src.co.jp"))

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-letter
      'mew-draft-kill
      'mew-send-hook))

(define-process-argument-editing "/notepad\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil t)))
;;M-x print-bufferでバッファを印刷
(defun print-buffer ()
 (interactive)
 (w32-print-region (point-min) (point-max)))

;;
(defun w32-print-region (start end)
 (interactive)
 (let ((tmpfile
        (make-temp-name (concat (getenv "TMP") "/lpr"))))
 (write-region start end tmpfile nil nil 'sjis-dos)
 (call-process "notepad" nil nil nil "/p" tmpfile)
 (delete-file tmpfile)))