[Mew-dist 648] Re: Mew next generation alpha release

[SAKAI Kiyotaka]

>> In article <199703100718.QAA11609 at example.com>, Kazuhiko Yamamoto <kazu at example.com> writes:

> The package is available the following hidden repository:

> 	ftp://ftp.aist-nara.ac.jp/pub/elisp/Mew/outgoing/mew-1.62.tar.gz

mew-1.62 に含まれている mew-summary-save ですが、C-u を押して 
coding-system を指定したときに bug ってしまいます。あと、intern-soft 
の部分は mule-1.x 用のコードなので不要でしょう。

===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el	1997/03/11 05:16:33	1.1
+++ mew-summary.el	1997/03/11 05:31:17
@@ -1784,12 +1784,9 @@
 		(insert-file-contents (mew-expand-file-name msg cbuf))
 		(if (and mew-mule-p user-coding-system (not append-p))
 		    (progn
-		      (if (stringp user-coding-system)  ;; for mule 1.x
-			  (setq user-coding-system
-				(intern-soft user-coding-system)))
 		      (mew-cs-decode-region (point-min) (point-max) 
 					    mew-cs-autoconv)
-		      (mew-cs-decode-region (point-min) (point-max) 
+		      (mew-cs-encode-region (point-min) (point-max) 
 					    user-coding-system)))
 		(write-region (point-min) (point-max) file append-p nil nil))
 	      (message "Wrote to %s" file)

-- 
酒井 清隆 (E-mail: ksakai at example.com)