[Emacs-diffs] Changes to emacs/lisp/net/eudcb-ldap.el

[Pavel Janík]

Index: emacs/lisp/net/eudcb-ldap.el
diff -c emacs/lisp/net/eudcb-ldap.el:1.4 emacs/lisp/net/eudcb-ldap.el:1.5
*** emacs/lisp/net/eudcb-ldap.el:1.4    Sun Jan  6 11:37:03 2002
--- emacs/lisp/net/eudcb-ldap.el        Sun Jan  6 12:54:21 2002
***************
*** 89,95 ****
    (mapconcat 'identity (split-string string "\\$") "\n"))
  
  ;; Cleanup a LDAP record to make it suitable for EUDC:
! ;;   Make the record a cons-cell instead of a list if the it's single-valued
  ;;   Filter the $ character in addresses into \n if not done by the LDAP lib
  (defun eudc-ldap-cleanup-record-filtering-addresses (record)
    (mapcar
--- 89,95 ----
    (mapconcat 'identity (split-string string "\\$") "\n"))
  
  ;; Cleanup a LDAP record to make it suitable for EUDC:
! ;;   Make the record a cons-cell instead of a list if it is single-valued
  ;;   Filter the $ character in addresses into \n if not done by the LDAP lib
  (defun eudc-ldap-cleanup-record-filtering-addresses (record)
    (mapcar
***************
*** 146,152 ****
    (let ((ldap-host-parameters-alist
         (list (cons eudc-server
                     '(scope subtree sizelimit 1)))))
!     (mapcar 'eudc-ldap-cleanup-record
            (ldap-search
             (eudc-ldap-format-query-as-rfc1558
              (list (cons "objectclass"
--- 146,152 ----
    (let ((ldap-host-parameters-alist
         (list (cons eudc-server
                     '(scope subtree sizelimit 1)))))
!     (mapcar 'eudc-ldap-cleanup-record-simple
            (ldap-search
             (eudc-ldap-format-query-as-rfc1558
              (list (cons "objectclass"