* lpath.el: Fbind `xml-parse-region' for XEmacsen and old FSF Emacsen;

 don't bind `mh-lib-progs'.

diff --git a/ChangeLog b/ChangeLog
index cb18515..1f2db9d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-13  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * lisp/lpath.el: Fbind `xml-parse-region' for XEmacsen and old FSF
+       Emacsen; don't bind `mh-lib-progs'.
+
 2001-04-10  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/nnshimbun.el: Enclose w3m stuff with `eval-and-compile';

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 93b8433..4d25272 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -96,20 +96,23 @@
                 window-pixel-height window-pixel-width)))
 
 ;; T-gnus.
-(if (featurep 'xemacs)
-    (progn
-      (maybe-fbind '(propertize))
-      (maybe-bind '(mh-lib-progs)))
-  ;; FSFmacs
-  (maybe-fbind '(charsetp
-                function-max-args propertize smiley-encode-buffer))
-  (if (boundp 'MULE)
-      (progn
-       (maybe-fbind '(coding-system-get
-                      compose-mail
-                      file-name-extension find-coding-systems-region
-                      get-charset-property shell-command-to-string))
-       (maybe-bind '(mh-lib-progs)))))
+(let ((functions-variables
+       (cond
+       ((featurep 'xemacs)
+        '((propertize xml-parse-region)))
+       ((>= emacs-major-version 21)
+        '((function-max-args smiley-encode-buffer)))
+       ((boundp 'MULE)
+        '((charsetp
+           coding-system-get compose-mail file-name-extension
+           find-coding-systems-region function-max-args get-charset-property
+           propertize shell-command-to-string smiley-encode-buffer
+           xml-parse-region)))
+       (t
+        '((function-max-args
+           propertize smiley-encode-buffer xml-parse-region))))))
+  (maybe-fbind (car functions-variables))
+  (maybe-bind (car (cdr functions-variables))))
 
 (defun nnkiboze-score-file (a)
   )