X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fpldap.el;h=bc8fc2e8a8de41c210373d74f4ad8fe69691ee0f;hb=e13ac9bb622170ca0f00b27cea09e7819ef999cf;hp=540a2e34d98122ae5490e3d3787994cdb92b34bf;hpb=d88a739b6a9dddf6fca245e740a1f4ce9a1404bd;p=elisp%2Fwanderlust.git

diff --git a/elmo/pldap.el b/elmo/pldap.el
index 540a2e3..bc8fc2e 100644
--- a/elmo/pldap.el
+++ b/elmo/pldap.el
@@ -78,10 +78,10 @@
   (concat "\n" ldap-ldif-field-name-regexp ":")
   "A Regexp for next field head.")
 
-(defmacro ldap/ldif-safe-string-p (string)
+(defun ldap/ldif-safe-string-p (string)
   "Return t if STRING is a safe-string for LDIF."
   ;; Need better implentation.
-  `(string-match ldap-ldif-safe-string-regexp ,string))
+  (string-match ldap-ldif-safe-string-regexp string))
 
 (defgroup ldap nil
   "Lightweight Directory Access Protocol"