Re: coding-system on ange-ftp

[Keiichi Suzuki <keiichi@xxxxxxxxx>]

>>>>> meadow-users-jp の No. 572
>>>>> Message-Id: <199905111729.CAA24825@xxxxxxxxxx> で、
>>>>> "深川" == "T.Fukagawa" <fukagawa@xxxxxxxxxxxxx>さま曰く...

深川> Solaris(EUC) のファイルサーバに Meadow から ange-ftp でアクセスしているの
深川> ですが、漢字コードまじりのディレクトリに find-file しようとすると、文字化
深川> けが発生して正しくリスト表示されません。

process-coding-system-alist でも良いとは思うのですが、こんなのでいかがで
しょうか?

;; Meadow + Emacs 20.3.8.1 に付属の ange-ftp では
;; process-coding-system-alist は効かないと思います。
;; (eq system-type 'windows-nt) の場合、決めうちで raw-text-dos が設定さ
;; れてしまいます。

(defun my-internal-ange-ftp-mode-hook ()
  (let* ((cs-alist '(("host1" . (euc-japan euc-japan))
                     ("host2" . (sjis sjis))))
         (cs (assoc host cs-alist)))
    (and cs (apply 'set-process-coding-system proc (cdr cs)))))
(add-hook 'ange-ftp-process-startup-hook 'my-internal-ange-ftp-mode-hook)

このメイルの User-Agent field の環境で試験しましたが、 Meadow 1.01 のコー
ドを見た限り、このままで動くと思います。
ご自分の環境に合わせて cs-alist の値は適当に変更してください。

-- 
鈴木圭一 / keiichi@xxxxxxxxx
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B