From: yamaoka <yamaoka>
Date: Fri, 13 Apr 2001 01:29:55 +0000 (+0000)
Subject: * lpath.el: Fbind `xml-parse-region' for XEmacsen and old FSF Emacsen;
X-Git-Tag: t-gnus-6_15_3-00-quimby~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=583882828a2dfadd1601d743e1e04c01b7f4a553;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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)
   )