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

diff --git a/ChangeLog b/ChangeLog
index 7ff4305..2365a05 100644 (file)
--- 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 (file)
--- 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)
   )