[Mew-dist 04252] Re: mew-folder-list()

[OKUNISHI Fujikazu]

>>> "Thu, 19 Mar 1998 23:40:22 +0900" に発信されたメッセージ
>>> [Mew-dist : No.04243] にて
>>> "山" == "YAMAGUCHI, Shuhei" <yamagus at example.com> が仰るには..

山> #mew.elで、mew-varsとmew-funcをrequireする順番が変われば、mew-os2
山> #でeval-after-loadする必要もなくなるのかなぁ?

;; 僕も一瞬、評価位置を変えようかと思ったんですが、副作用が出たらいや
;; なので '(OS/2 emx) だけで閉じることにしました。なので順番変えて試し
;; てません(^_^;;

openp で "exec-suffix-list" と書きたくなかったのでつい mew-which() で
お茶を濁してしまいました。この際 suffix はハードコードで許してもらうと
して(^_^; これを追加で当てておいていただけますか?


--- mew-os2.el.orig	Thu Mar 19 22:55:54 1998
+++ mew-os2.el	Sat Mar 21 01:28:22 1998
@@ -355,11 +355,10 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; fasten mew-folder-list() w/ REXX
-(defvar mew-prog-rxfolders "RxFolders.cmd")
+(defvar mew-prog-rxfolders "RxFolders")
 
-(eval-after-load "mew-func"
- '(if (mew-which mew-prog-rxfolders exec-path)
-    (setq mew-folder-list-function 'mew-os2/folders-list)))
+(if (openp mew-prog-rxfolders exec-path '(".exe" ".cmd" "") t)
+    (setq mew-folder-list-function 'mew-os2/folders-list))
 
 (defun mew-os2/folders-list (prefix)
   (let (folders-list folder

--ふ