;;; -*-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/sgnus/lisp")
- ;;
- load-path))
+(require 'tl-misc)
+
+;;;
+;;; loadpath for Gnus 5.2
+;;;
+
+;; please edit
+
+;; It is for latest September Gnus.
+(let ((path (get-latest-path "gnus-5.2")))
+ (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/")