[Mew-dist 930] attach

[SHINJI Tamura／田村 進司]

たむら＠古野電気です。

えーと、mew で、ファイルを添付する時、いちいち、Description を書くのが
面倒なのと、マルチパートで来たメールのパートの部分をセーブする時に、
ファイル名を書くのが面倒だったので、こんなパッチを作って見ました。

もっとうまい方法があるかも知れませんが、いかがなもんでしょうか？

-------------- next part --------------
*** mew-attach.el.dist	Thu Apr 24 17:08:44 1997
--- mew-attach.el	Thu Apr 24 17:21:29 1997
***************
*** 445,450 ****
--- 445,451 ----
  	       nums
  	       (mew-encode-syntax-single tofile)))
  	(mew-encode-syntax-print mew-encode-syntax)
+ 	(mew-attach-description tofile)
  	))
      ))
  
-------------- next part --------------
*** mew-summary.el.dist	Mon Apr 21 12:36:47 1997
--- mew-summary.el	Wed Apr 23 20:15:07 1997
***************
*** 1702,1708 ****
  	file)
      (if (not (or msg part))
  	(message "No message or part here")
!       (setq file (mew-input-filename))
        (if (file-exists-p file)
  	  (if (null mew-file-append-p)
  	      (setq action "Overwrite")
--- 1702,1714 ----
  	file)
      (if (not (or msg part))
  	(message "No message or part here")
! ;      (setq file (mew-input-filename))
!       (setq file (mew-input-filename
! 		  nil (substring 
! 		       (mew-syntax-get-cd
! 			(mew-syntax-get-entry-strnum
! 			 (mew-cache-decode-syntax
! 			  (mew-current-get 'cache)) part)) 1 -1)))
        (if (file-exists-p file)
  	  (if (null mew-file-append-p)
  	      (setq action "Overwrite")