[Mew-dist 919] Re: 'make gzip-el'ed XEmacs + mew-which

[Kazuyoshi Furutaka]

ふるたか＠原研です。

早速の御教授有難うございます。

In <19970421151418A.ksakai at example.com>
at Mon, 21 Apr 1997 15:14:18 +0900
SAKAI Kiyotaka <ksakai at example.com> wrote
on "[Mew-dist 915] Re: 'make gzip-el'ed XEmacs + mew-which"...
> > こうしておくと、mew-which のところで、例えば efs.el を探そうとした場合に
> > は、efs.elc や efs.el.gz があるけれど無いものと考える様で、
> > Message/External-Body などがうまく使えなくなってしまう様です。
> > .el, .elc 又は .el.gz のいずれかを探すという方が良くはないでしょうか？
> > ＃済みません、能力があればその様に改造してみるのですが...
> 
> mew-ext.el で
> 
>   (mew-which "efs.el" load-path)
> 
> となっているところ (2個所) を
> 
>   (or (mew-which "efs.elc" load-path) (mew-which "efs.el" load-path))
> 
> とすればいいと思います。

この様にすることにより、"efs.el だけ展開しておく"という、我ながら
情けない対処法をやめることが出来ました。

＃この位の知恵しか働かない自分が情けない...

-----
Kazuyoshi Furutaka
furutaka at example.com
-------------- next part --------------
--- mew-ext.el.orig	Mon Apr 21 16:25:34 1997
+++ mew-ext.el	Mon Apr 21 16:36:12 1997
@@ -15,7 +15,7 @@
 (require 'mew)
 (eval-when-compile
   (cond
-   ((mew-which "efs.el" load-path)
+   ((or (mew-which "efs.elc" load-path) (mew-which "efs.el" load-path))
     (require 'efs))
    ((mew-which "ange-ftp.el" load-path)
     (require 'ange-ftp))
@@ -77,7 +77,7 @@
 (defvar mew-ext-suffix ".ext")
 
 (cond
- ((mew-which "efs.el" load-path)
+ ((or (mew-which "efs.elc" load-path) (mew-which "efs.el" load-path))
   (defun mew-ext-file-name-completion (file path)
     (require 'efs)
     (let ((efs-tmp-name-template mew-temp-file))