[Mew-Win32 01225] How to support NTEmacs.

[Shuichi Kitaguchi]

From: 小関 吉則 (KOSEKI Yoshinori) <kose at example.com>
Subject: [Mew-Win32 01147] Re: 連続送信法とメールのまとめ方
Date: 29 Jan 1999 15:42:05 +0900

北口です。

また海の向こうから「Mew は NTEmacs で動かないんですか?」という
メールが来てしまったので(^^;、NTEmacs 20.3.6.1 を入れるついでに
Mew をいじってみていました。

前に小関さんがおっしゃっていた

> これは NT Emacs(Emacs20.3.5.1)なのですが、もしかしてMewだけ
> が動かないという状況は変っていないのでしょうか?
> 
> mew-func.el:
> (defun mew-im-call-process (msg prog &rest arg)
>   (let (ret)
>     (and msg (message "%s ..." msg))
>     (setq ret (apply (function call-process)
> 		    ;; prog nil t nil (append arg mew-prog-im-arg)))
>               "perl" nil t nil (append prog arg mew-prog-im-arg)))
> 
> のような修正だけで動くかと思ったけどそんなに単純ではなかったしなぁ。
> どなたも挑戦していないんでしたっけ?

を参考にして、

>(defun mew-im-call-process (msg prog &rest arg)
>  (let (ret)
>    (and msg (message "%s ..." msg))
>    (if mew-win32-argediting-p
>	(setq ret (apply (function call-process)
>			 prog nil t nil (append arg mew-prog-im-arg)))
>      (setq ret (apply (function call-process)
>		       "perl" nil t nil (append (list (mew-which prog exec-path))
>						arg mew-prog-im-arg))))

という風に書き換えてみたところ、起動とメールの送信はできました。
が、受信ができません。これは、mew-scan.el 中では自前で start-process
をやっているのが原因のようです。これも書き換えればいいのでしょうが、
書き換え方がわからなくて詰まってしまいました。

# まだ list がよくわかっていない私...
# それに、あの巨大な引数生成部分を duplicate するのは嫌だし。

というわけで、質問です。

  o start-process の方の書き換え方法
  o もっと綺麗な直し方
    (これがあるなら、argument-editing は存在するわけないかも)

のどちらか、ご存知の方教えて下さい(うぅ、情けない質問...)。


P.S.
call-process や start-process は他にもたくさんあるので、NTEmacs が
script の実行をサポートするようになるのが筋だとは思うんですけどね。
いつかはできるようになるのかなぁ。

P.P.S.
小関さんもおっしゃってましたけど、NTEmacs の BDF font 周りは
今一つのようで、かなり表示が崩れるために常用はちとつらいです。

--==| Shuichi Kitaguchi :   kit at example.com |
    |     / shuuic-k at example.com |==--