[mew-dist 22136] Re: text/plainでbase64な添付ファイルの保存

[Kazu Yamamoto ( 山本和彦 )]

From: rio-t at example.com
Subject: [mew-dist 22104] Re: text/plainでbase64な添付ファイルの保存

> > 一案としては、Text/* に C-u y して、coding-system に binary を指定する
> > と、coding の変換をしないことが挙げられます。
> 
> 私としては、こうなってくれたら満足です。

きちんと試してないですが、これで OK でしょうか？

--かず

Index: mew-edit.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-edit.el,v
retrieving revision 1.75
diff -c -F^( -r1.75 mew-edit.el
*** mew-edit.el	2002/10/29 00:36:11	1.75
--- mew-edit.el	2002/10/30 07:46:25
*************** (defun mew-summary-save (&optional askcs
*** 286,293 ****
  	     (setq ct (mew-syntax-get-value ctl 'cap))
  	     ;; Allow Message/Rfc822. It's user's risk.
  	     (setq linebasep (or (mew-ct-textp ct) (mew-ct-linebasep ct)))
! 	     (if (and askcs linebasep mew-mule-p)
! 		 (setq tocs (read-coding-system "Coding-system: ")))
  	     (when have-hdrp
  	       (goto-char (point-min))
  	       (mew-header-delete-lines mew-field-delete-common)
--- 286,295 ----
  	     (setq ct (mew-syntax-get-value ctl 'cap))
  	     ;; Allow Message/Rfc822. It's user's risk.
  	     (setq linebasep (or (mew-ct-textp ct) (mew-ct-linebasep ct)))
! 	     (when (and askcs linebasep mew-mule-p)
! 	       (setq tocs (read-coding-system "Coding-system: "))
! 	       (if (equal tocs mew-cs-binary)
! 		   (setq tocs nil linebasep nil)))
  	     (when have-hdrp
  	       (goto-char (point-min))
  	       (mew-header-delete-lines mew-field-delete-common)