(ldap-search-internal): Skip error message from ldapsearch. Allow listing

attribute names only.  Do not open non-existent files.

1 files changed, 13 insertions, 7 deletions

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 2d1f9a0a399..410af2ddc9e 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -570,6 +570,9 @@ an alist of attribute/value pairs."
       (if (looking-at "usage")
           (error "Incorrect ldapsearch invocation")
         (message "Parsing results... ")
+        ;; Skip error message when retrieving attribute list
+        (if (looking-at "Size limit exceeded")
+            (forward-line 1))
         (while (progn
                  (skip-chars-forward " \t\n")
                  (not (eobp)))
@@ -580,13 +583,16 @@ an alist of attribute/value pairs."
           (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
             (setq name (match-string 1)
                   value (match-string 3))
-            (save-excursion
-              (set-buffer bufval)
-              (erase-buffer)
-              (set-buffer-multibyte nil)
-              (insert-file-contents-literally value)
-              (delete-file value)
-              (setq value (buffer-string)))
+            ;; Do not try to open non-existent files
+            (if (equal value "")
+                (setq value " ")
+              (save-excursion
+                (set-buffer bufval)
+                (erase-buffer)
+                (set-buffer-multibyte nil)
+                (insert-file-contents-literally value)
+                (delete-file value)
+                (setq value (buffer-string))))
             (setq record (cons (list name value)
                                record))
             (forward-line 1))