[Mew-dist 10452] resending multi-part: Text/Plain(us-ascii)

[藤原 誠 Makoto Fujiwara]

>                                            千葉市中央区長洲
>                                                    藤原  誠
procmail で振分けたものの resend の問題が解決してとてもうれ
しいです。一応 procmail-3.13.1 を見ていたのですが、Unix From
はとても無しには出来そうもありませんでした。

さて、本題です。 Text/Plain を resend する方が悪いのですが、

 8017 M08/25 20:37 "Takashi P.KAT mew-d 10449 Re: password       少なくとも 
     2  Text/Plain(us-ascii)                                      mew-minib..

(これが一番最近の MIME multi-part なのでお借りしています)
の 
     2  Text/Plain(us-ascii)                                      mew-minib..
の所に矢印(cursor)がある時に resend をすると、

Args out of range: [single 2262 2574 nil 
     ("Text/Plain" ("charset" "us-ascii")) 
     "7bit" nil nil ("attachment" ("filename" "mew-minibuf.diff"))], 9

のように言われます。もちろんそうする方も悪いのですが、
「これは resend 出来ません」と言う方が正解ですよね。

  報告だけでは申訳けないので、一応 patch を作って見ました。最低限
の動作確認しかしていませんので、殆んど当てにはならないと思います。
しかも、これですと、
     2  Application/Octet-Stream                                  xcite.el...
を resend しようとしても Text/Plain は resend 出来ないというので
正しくないですね。
---
(藤原)
-------------- next part --------------
--- mew-summary.el-orig	Wed Aug 25 19:47:02 1999
+++ mew-summary.el	Wed Aug 25 22:28:55 1999
@@ -1365,7 +1365,12 @@
 discouraged to use this command since beginners are always 
 confused. Please use '\\[mew-summary-forward]' instead."
   (interactive)
+  (let* ((msg (mew-summary-message-number)) ;; must get msg here
+	 (part (mew-syntax-nums))
   (mew-summary-msg-or-part
+   (if (and part (not (mew-case-equal mew-ct-msg ct)))
+	(message "Can't resent %s" ct)
+     (progn
    (mew-summary-edit-message)
    (mew-elet
     (goto-char (point-min))
@@ -1384,7 +1389,7 @@
    (run-hooks 'mew-draft-mode-reedit-hook)
    ;; move the cursor after "Resent-To: "
    (goto-char (point-min))
-   (end-of-line)))
+   (end-of-line)))))))
 
 (defun mew-summary-edit-header ()
   (mew-elet