[Mew-dist 05283] (b43) mew-ext.el

[Kenichiro MATOBA]

まとば＠にほんさんともうします。

CT: message/external-bodyに対して

1) access-type="mail-server" の時draftを用意した際に、本来ボディに
   挿入されるべき内容が、"To: "の後に挿入される。

2) (setq mew-ext-anon-ftp-method 'http)として使っているのですが、
   access-type="anon-ftp"の時、下のietf-announce at example.comのように
   directoryが/から始まらないときに、URLのhostとpathが連結される。

 |Content-Type: Message/External-body;
 |       name="draft-ietf-pkix-cmmf-01.txt";
 |       site="ftp.ietf.org";
 |       access-type="anon-ftp";
 |       directory="internet-drafts"

この例では、URLが
ftp://ftp.ietf.orginternet-drafts/draft-ietf-pkix-cmmf-01.txt
となる。

の二点に対するパッチです。
Mule 2.3/19.34, Emacs 20.2, XEmacs 21.0-b46 (Toggenburg)で確認しま
した (すべてSolaris 2.6上)。

なお私は、efsやange-ftpは使用したことがないので、このパッチではケア
していません。

--
Kenichiro MATOBA / 的場謙一郎 <Kenichiro.Matoba at example.com>
PGP Fingerprint: 36 CC 13 7C 28 8B F1 A9  70 35 31 15 12 E3 BE BA

-------------- next part --------------
--- mew-ext.el.bak	Thu Jul  2 10:25:59 1998
+++ mew-ext.el	Thu Jul  2 12:37:29 1998
@@ -398,7 +398,9 @@
 		(substitute-command-keys
 		 "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
       (setq remotefile (format "/%s@%s:%s" "anonymous" site filepath))
-      (setq url (format "ftp://%s%s" site filepath))
+      (if (string-match "^[A-Za-z].+" filepath)
+	  (setq url (format "ftp://%s/%s" site filepath))
+	(setq url (format "ftp://%s%s" site filepath)))
       (setq localfile (mew-input-file-name 
 		       "Save to: "
 		       (format "%s%s" default-directory name)))
@@ -457,6 +459,7 @@
 		(substitute-command-keys
 		 "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
       (mew-summary-send server nil subject)
+      (goto-char (point-max))
       (insert-buffer-substring (mew-current-get 'cache) start end)
       (mew-draft-make-message)
       (if (y-or-n-p "Send this message? ")