SJIS text の base64 での送付

[Akihiro Arisawa]

>>>>> In [emacs-mime-ja : No.00533] 
>>>>>	keiichi ＠ nanap.org (Keiichi Suzuki) wrote:

> 考えてみたのですが、 C-c C-x C-i で text/* のパートができることが、そも
> そもよろしくないのではないかと思えてきました。

> ただ、 inline で表示させたい場合もあると思います。これを実現しようと思う
> と、現状のままでは、 C-c C-x C-t でタグを作って、 C-x i でファイルを挿入
> するという方法になりますが、これだと簡単には filename parameter を付加す
> ることができませんので、 inline 用のコマンドを作るというのはいかがでしょ
> うか?

私は .emacs で以下のようなことをしてます。

(defun mime-edit-insert-text-file (file)
  "Insert a text file.
Charset is automatically obtained from the `charsets-mime-charset-alist'."
  (interactive "fInsert file as MIME text part: \n")
  (let ((type "text")
	(subtype "plain")
	(parameters (concat "\nContent-Disposition: attachment; filename="
			    (std11-wrap-as-quoted-string
			     (file-name-nondirectory file)))))
    (mime-edit-insert-tag type subtype parameters)
    (insert-file-contents file)))
(add-hook 'mime-edit-load-hook
	  '(lambda ()
	     (define-key mime-edit-mode-entity-map "i"
	       'mime-edit-insert-text-file)))

ちなみに coding-system を変えずに送りたい時は、C-c C-x C-i で
添付してから "--[[text/plain; charset=shift_jis" 等に手で
書き換えてます(^^;

-- 
有沢 明宏