[chao 1.14] mmexternal anon-ftp

[守岡 知彦 / MORIOKA Tomohiko]

>>>>> In [emacs-mime-ja : No.00568] 
>>>>>	"Yoshiki" = Yoshiki Hayashi <yoshiki ＠ xemacs.org> wrote:

Yoshiki> XEmacs 21.2.34 EMY 1.13.7 と chao 1.14 の組合せで使っている
Yoshiki> のですが、message/external-body で anon-ftp なものを表示時に
Yoshiki> 勝手に取りに行こうとします。

Yoshiki> 問題の原因は、XEmacs では
Yoshiki> (expand-file-name "foo" "/anonymous ＠ ftp.example.org:/")
Yoshiki> とやると efs が勝手に接続に行ってしまうことです。
Yoshiki> とりあえず、以下のようにすると大丈夫なのですが、どうでしょう
Yoshiki> か。

Yoshiki> [2 mmexternal.el.diff <text/plain; US-ASCII (7bit)>]
Yoshiki> Index: mmexternal.el
Yoshiki> ===================================================================
Yoshiki> RCS file: /cvs/root/flim/Attic/mmexternal.el,v
Yoshiki> retrieving revision 1.1.2.3
Yoshiki> diff -u -r1.1.2.3 mmexternal.el
Yoshiki> --- mmexternal.el	2000/06/23 09:31:09	1.1.2.3
Yoshiki> +++ mmexternal.el	2000/07/07 06:08:34
Yoshiki> @@ -48,7 +48,9 @@
Yoshiki>  		 (string= access-type "anon-ftp"))
Yoshiki>  	    (let ((site (mime-content-type-parameter ct "site"))
Yoshiki>  		  (directory (mime-content-type-parameter ct "directory"))
Yoshiki> -		  (name (mime-content-type-parameter ct "name")))
Yoshiki> +		  (name (mime-content-type-parameter ct "name"))
Yoshiki> +		  ;; avoid contacting an ftp server.
Yoshiki> +		  (file-name-handler-alist nil))
Yoshiki>  	      (mime-external-entity-set-body-file-internal
Yoshiki>  	       entity
Yoshiki>  	       (expand-file-name

個別の bug に対する ad-hoc な対処は APEL でやるようにしませんか？


P.S.

あと、特定の emacs 実装（というよりも、この場合は elisp package か?）
の問題に関することですから

;; avoid contacting an ftp server.

という comment は良くないのではないかと思います。

-- 
===『幾千億の分子に分かれても ========================================
     決して忘れない。    
     この宇宙が終るまで』              守岡 知彦 (MORIOKA Tomohiko)
====================== Email: <tomo ＠ kanji.zinbun.kyoto-u.ac.jp> ======