mime-edit-insert-file and charset of *.txt

[ARISAWA Akihiro]

>>>>> In [emacs-mime-ja : No.01208] 
>>>>>	Kenichi Handa <handa ＠ m17n.org> wrote:

> > ;; insert-file-contents-as-raw-text-CRLF が使えないかな?
> こういう事ですか？
> (let ((coding-system-for-read 'raw-text-dos))
>   (insert-file-contents ...)

はい。MEIMI で改行を CRLF にする処理が以下のようになっていたのですが、
それで済ませられないかと思いまして。

  (with-temp-buffer
    (let (candidates candidate eol eol-string)
      (set-buffer-multibyte nil)
      (insert-file-contents-as-binary file)
      (setq candidates (detect-coding-region (point-min) (point-max)))
      (setq candidate (if (listp candidates)
			  (car candidates)
			candidates))
      (setq eol (coding-system-eol-type candidate))
      (cond ((eq eol
		 (static-if (featurep 'xemacs)
		     'lf
		   0))
	     (setq eol-string "\n"))
	    ((eq eol
		 (static-if (featurep 'xemacs)
		     'cr
		   2))
	     (setq eol-string "\r")))
      (goto-char (point-min))
      (when eol-string
	(while (search-forward eol-string nil t)
	  (replace-match "\r\n")))

でも考えたらそれでは駄目ですね。raw-text で読み込んで、raw-text-dos で
encode-coding-region すれば良いでしょうか。


この辺の処理を SEMI にマージしてみたところ添付のようになりましたが、
・mime-edit-guess-charset の FIXME
・mime-edit-insert-binary-string が mime-edit-insert-binary-file と
  ほとんど同じ
という辺が気になるところです。

-- 
有沢 明宏

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: mime-edit.patch.gz
型:         application/octet-stream
サイズ:     1379 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/20030423/95f9080e/attachment.obj>