[Mew-Win32 00120] Re: immv and fiber and ...

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19980127191839H.shuuic-k at example.com>,
>>>    Shuichi Kitaguchi <shuuic-k at example.com> writes:

  shuuic-k> これは、旧 fiber の名称を変更すると思うので、
  shuuic-k>   (setq mew-prog-w32-fiber "fiber.exe")
  shuuic-k> などとやってまとめて変えようと思っていたのですが、これではうまく
  shuuic-k> いかないようです。で、ちょっといじってみましたが簡単に変更できる
  shuuic-k> ほどの Emacs Lisp の知識が私にないので、ちょっとお待ち下さい。
  shuuic-k> 勉強します...

「'」でクォートしちゃってるからですね。
こんなパッチでいかがでしょう?

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
--- mew-win32.el.orig	Sun Jan 25 21:05:43 1998
+++ mew-win32.el	Wed Jan 28 00:01:57 1998
@@ -69,20 +69,20 @@
 
 (defvar mew-prog-plain '(mew-mime-text/plain () nil))
 (defvar mew-prog-text '(mew-mime-text/plain () nil))
-(defvar mew-prog-audio '(mew-prog-w32-fiber () t))
-(defvar mew-prog-gif '(mew-prog-w32-fiber () t))
-(defvar mew-prog-jpeg '(mew-prog-w32-fiber () t))
-(defvar mew-prog-xwd '(mew-prog-w32-fiber () t))
-(defvar mew-prog-xbm '(mew-prog-w32-fiber () t))
-(defvar mew-prog-bmp '(mew-prog-w32-fiber () t))
-(defvar mew-prog-image '(mew-prog-w32-fiber () t))
-(defvar mew-prog-mpeg '(mew-prog-w32-fiber () t))
+(defvar mew-prog-audio (list mew-prog-w32-fiber () t))
+(defvar mew-prog-gif (list mew-prog-w32-fiber () t))
+(defvar mew-prog-jpeg (list mew-prog-w32-fiber () t))
+(defvar mew-prog-xwd (list mew-prog-w32-fiber () t))
+(defvar mew-prog-xbm (list mew-prog-w32-fiber () t))
+(defvar mew-prog-bmp (list mew-prog-w32-fiber () t))
+(defvar mew-prog-image (list mew-prog-w32-fiber () t))
+(defvar mew-prog-mpeg (list mew-prog-w32-fiber () t))
 (defvar mew-prog-rfc822 '(mew-mime-message/rfc822 () nil))
 (defvar mew-prog-external-body '(mew-mime-external-body () nil))
 (defvar mew-prog-delivery-status '(mew-mime-text/plain () nil))
-(defvar mew-prog-postscript '(mew-prog-w32-fiber () t))
+(defvar mew-prog-postscript (list mew-prog-w32-fiber () t))
 (defvar mew-prog-pgp-keys '(mew-mime-pgp-keys () nil))
-(defvar mew-prog-octet-stream '(mew-prog-w32-fiber () t))
+(defvar mew-prog-octet-stream (list mew-prog-w32-fiber () t))
 
 (provide 'mew-win32)