X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fldap.el;h=a0eaddfb992fe2df9425fe6a1ec18c66e66c4713;hb=d0db98d9022eb0fb06128e9198fcfb7d8e975a5d;hp=4006514fe67cfc908865e6783da2e25c14859f83;hpb=0e904fc68e7429eda789ded8f73075ead2ad2584;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/ldap.el b/lisp/ldap.el
index 4006514..a0eaddf 100644
--- a/lisp/ldap.el
+++ b/lisp/ldap.el
@@ -5,7 +5,7 @@
 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
 ;; Created: Jan 1998
-;; Version: $Revision: 1.7.2.3 $
+;; Version: $Revision: 1.7.2.6 $
 ;; Keywords: help comm
 
 ;; This file is part of XEmacs
@@ -155,9 +155,7 @@ Valid properties include:
   :type 'symbol
   :group 'ldap)
 
-(defcustom ldap-coding-system (if (featurep 'mule)
-				  'utf-8
-				nil)
+(defcustom ldap-coding-system nil
   "*Coding system of LDAP string values.
 LDAP v3 specifies the coding system of strings to be UTF-8.  
 Mule support is needed for this."
@@ -395,10 +393,12 @@ This table is built from RFC2252 Section 5 and RFC2256 Section 5")
       (error "Invalid country string: %s" str)))
 
 (defun ldap-decode-string (str)
-  (decode-coding-string str ldap-coding-system))
+  (if (fboundp 'decode-coding-string)
+      (decode-coding-string str ldap-coding-system)))
 
 (defun ldap-encode-string (str)
-  (encode-coding-string str ldap-coding-system))
+   (if (fboundp 'encode-coding-string)
+       (encode-coding-string str ldap-coding-system)))
 
 (defun ldap-decode-address (str)
   (mapconcat 'ldap-decode-string