From: yamaoka <yamaoka>
Date: Tue, 19 Feb 2002 01:16:03 +0000 (+0000)
Subject: * lpath.el: Bind `navi2ch-mona-font'.
X-Git-Tag: t-gnus-6_15_6-01-quimby~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7af026b3da8c65c3121212a48cf08a82b834a344;p=elisp%2Fgnus.git-

* lpath.el: Bind `navi2ch-mona-font'.
---

diff --git a/ChangeLog b/ChangeLog
index 7ff4305..2365a05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/lpath.el: Bind `navi2ch-mona-font'.
+
 2002-02-18  Daiki Ueno  <ueno@unixuser.org>
 
 	* lisp/gnus-art.el (gnus-treat-monafy): New user option.
diff --git a/lisp/lpath.el b/lisp/lpath.el
index 1fa0f5f..0e753b1 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -120,7 +120,7 @@
 		 xml-parse-region)))
 
 ;; T-gnus.
-(let ((functions-variables
+(let ((functions
        (cond
 	((featurep 'xemacs)
 	 nil)
@@ -132,9 +132,25 @@
 	    find-coding-systems-for-charsets find-coding-systems-region
 	    function-max-args get-charset-property smiley-encode-buffer)))
 	(t
-	 '((function-max-args smiley-encode-buffer))))))
-  (maybe-fbind (car functions-variables))
-  (maybe-bind (car (cdr functions-variables))))
+	 '((function-max-args smiley-encode-buffer)))))
+      (common-fns
+       nil)
+      (variables
+       (cond
+	((featurep 'xemacs)
+	 nil)
+	((>= emacs-major-version 21)
+	 nil)
+	((boundp 'MULE)
+	 nil)
+	(t
+	 nil)))
+      (common-vars
+       '(navi2ch-mona-font)))
+  (maybe-fbind functions)
+  (maybe-fbind common-fns)
+  (maybe-bind variables)
+  (maybe-bind common-vars))
 
 (defun nnkiboze-score-file (a)
   )