[Mew-dist 13244] Re: b39

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13229] Re: b39

> > > 保存する時に、ファイル名は表示されているので、それを入力仕直せば良いの
> > > ですが、仕様としては、表示されているファイル名が良いと思います。
> 
> ようやく理解できました。バグの原因も分かりました。

このパッチを試して下さい。PGP/MIME のときとか、うまく行くのかなぁ...

mew-decode-message を呼び出しているコマンドすべてに、同様のバグがある
と思われます。

--かず

Index: mew-edit.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-edit.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -c -r1.73 -r1.74
*** mew-edit.el	2000/06/04 12:50:00	1.73
--- mew-edit.el	2000/06/06 09:15:40	1.74
***************
*** 173,178 ****
--- 173,185 ----
  	 msg have-hdrp bodyp beg end cdpl file ct ctl
  	 error doit append-p)
      (save-excursion
+       ;; Due to mew-decode-broken, the filename may be changed.
+       ;; So, save it here.
+       (and syntax (setq cdpl (mew-syntax-get-cdp syntax)))
+       (setq file (mew-syntax-get-filename cdpl ctl))
+       (and file (equal (mew-charset-guess-string file)
+ 		       mew-error-charset-unknown)
+ 	   (setq file nil))
        ;; First of all, we should determine which part the user want to
        ;; save due to the ambiguity.
        ;; "y" on Message/Rfc822
***************
*** 232,243 ****
  	    (setq end (mew-syntax-get-end (mew-syntax-get-part syntax)))
  	  (setq end (mew-syntax-get-end syntax)))
  	(setq ctl (mew-syntax-get-ct syntax))
! 	;; file name
! 	(and syntax (setq cdpl (mew-syntax-get-cdp syntax)))
! 	(setq file (mew-syntax-get-filename cdpl ctl))
! 	(and file (equal (mew-charset-guess-string file)
! 			 mew-error-charset-unknown)
! 	     (setq file nil))
  	(setq file (mew-summary-input-file-name nil file))
  	;;
  	(if (not (file-exists-p file))
--- 239,245 ----
  	    (setq end (mew-syntax-get-end (mew-syntax-get-part syntax)))
  	  (setq end (mew-syntax-get-end syntax)))
  	(setq ctl (mew-syntax-get-ct syntax))
! 	;;
  	(setq file (mew-summary-input-file-name nil file))
  	;;
  	(if (not (file-exists-p file))