auth-source.el (auth-source-secrets-search): Use mm-delete-duplicates instead of...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aedc2a7..b5fb7e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * auth-source.el: Bind load-path when loading EIEIO from
        "gnus-fallback-lib/eieio"; don't pass more than two args, that XEmacs
        21.4 doesn't support, to `require'.
+       (auth-source-secrets-search): Use mm-delete-duplicates instead of
+       delete-dups that is not available in XEmacs 21.4.
 
 2011-02-16  Raphael Kubo da Costa  <kubito@gmail.com>  (tiny change)
 

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index b5cc55f..b6ea037 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -40,6 +40,7 @@
 ;;; Code:
 
 (require 'password-cache)
+(require 'mm-util)
 (require 'gnus-util)
 (require 'netrc)
 (require 'assoc)
@@ -1052,9 +1053,9 @@ authentication tokens:
                                           (list k (plist-get spec k))))
                               search-keys)))
          ;; needed keys (always including host, login, protocol, and secret)
-         (returned-keys (delete-dups (append
-                                      '(:host :login :protocol :secret)
-                                      search-keys)))
+         (returned-keys (mm-delete-duplicates (append
+                                              '(:host :login :protocol :secret)
+                                              search-keys)))
          (items (loop for item in (apply 'secrets-search-items coll search-spec)
                       unless (and (stringp label)
                                   (not (string-match label item)))