X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=gnus%2Fg5-path;h=b3bdd290885a09d58d0e2b703d307247510424ad;hb=fe8761fcfaa18799752717f6b39c95304e1e6192;hp=1fba7f4dde468908ca6e2ce3159f7f1c98b64f36;hpb=62389038dae127500284c246321a512a5be87273;p=elisp%2Ftm.git

diff --git a/gnus/g5-path b/gnus/g5-path
index 1fba7f4..b3bdd29 100644
--- a/gnus/g5-path
+++ b/gnus/g5-path
@@ -1,17 +1,21 @@
 ;;; -*-Emacs-Lisp-*-
 
-(setq load-path
-      (append
-       (mapcar (function
-		(lambda (path)
-		  (expand-file-name path (getenv "PWD"))
-		  ))
-	       '("." ".." "../../tl/" "../../mel/"))
-       ;;
-       ;; (ding) GNUS path
-       ;;
-       ;; please edit this
-       ;;
-       '("/usr/local/lib/emacs/site-lisp/gnus-5.0.8/lisp")
-       ;;
-       load-path))
+(require 'tl-misc)
+
+;;;
+;;; loadpath for Gnus 5.*
+;;;
+
+;; please edit
+
+;; It is for latest Gnus.
+(let ((path (get-latest-path "gnus-5")))
+  (if path
+      (add-path (expand-file-name "lisp/" path))
+    ))
+
+;; It is relative style. Added path is searched from load-path.
+;; (add-path "gnus-5.2.10/lisp/" 'all-paths)
+
+;; It is absolute style.
+;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/")