T-gnus 6.15.12 revision 00.

[elisp/gnus.git-] / sample.lpath.el

diff --git a/sample.lpath.el b/sample.lpath.el
index 4a17420..95e40cc 100644 (file)
--- a/sample.lpath.el
+++ b/sample.lpath.el
@@ -4,25 +4,39 @@
 ;; is supposed to be used for telling old Emacsen where EMU, APEL or
 ;; CUSTOM packages have already installed.
 ;;
-;; For instance, if you would like to make gnus with Mule 2.3 based on
-;; Emacs 19.34, copy this file to `~/.lpath.el' and modify it suitably
+;; For instance, if you would like to build T-gnus with Mule 2.3 based
+;; on Emacs 19.34, copy this file to `~/.lpath.el' and edit it suitably
 ;; for your environment.
 
-(when (boundp 'MULE)
-  (let ((EMU
-        ;; Where is EMU packege?
-        "/usr/local/share/mule/19.34/site-lisp"
-        )
-       (APEL
-        ;; Where is APEL package?
-        "/usr/local/share/mule/site-lisp/apel"
-        )
-       (CUSTOM
-        ;; Where is CUSTOM package?
-        "/usr/local/share/mule/site-lisp/custom"
-        ))
-    ;; No user servicable parts beyond this point.
+(if (boundp 'MULE)
+    (let ((additional-load-path
+          (list
+           ;; Where is EMU packege?
+           "/usr/local/share/mule/19.34/site-lisp/"
+           ;; Where is APEL package?
+           "/usr/local/share/mule/site-lisp/apel/"
+           ;; Where is CUSTOM package?
+           "/usr/local/share/mule/site-lisp/custom/"
+
+           ;; Note that you have no need to specify paths of FLIM and
+           ;; SEMI if they are installed under the directory which is
+           ;; same as the parent directory of APEL.
+
+           ;; If you have installed Emacs/W3 package,
+           ;; uncomment and edit the following line appropriately.
+           ;; "/usr/local/share/mule/site-lisp/w3/"
+           )))
+      ;; No user serviceable parts beyond this point.
 \f
-    (when (string-match "/apel/?$" APEL)
-      (setq APEL (substring APEL 0 (match-beginning 0))))
-    (setq load-path (nconc (list EMU APEL CUSTOM) load-path))))
+      (let ((i (length additional-load-path))
+           p)
+       (while (> i 0)
+         (setq i (1- i)
+               p (nth i additional-load-path))
+         (if (file-directory-p p)
+             (progn
+               (if (string-match "/apel/?$" p)
+                   (setq load-path
+                         (cons (substring p 0 (1+ (match-beginning 0)))
+                               load-path)))
+               (setq load-path (cons p load-path))))))))