X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=sample.lpath.el;h=95e40cc0067e0655b754cd27e198268e66c6ec27;hb=d1a0a596d0dea53552b13d39262763dedc3380fe;hp=4a17420768b4d8477bbeb4e34171c8c46b6fe26c;hpb=ee70a66fb20ed12d43960dd3933c7f416257ef42;p=elisp%2Fgnus.git-

diff --git a/sample.lpath.el b/sample.lpath.el
index 4a17420..95e40cc 100644
--- 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.
 
-    (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))))))))