# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1293472337 -3600
# Node ID 68a3b6b312ee7d86962a9687b9fe7d16d84731bd
# Parent  ac49e05bfcf2592d5ddd3ae97d59c74f363dcc2e
* net/secrets.el (secrets-delete-alias): New defun.

diff -r ac49e05bfcf2 -r 68a3b6b312ee lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 27 18:29:38 2010 +0100
+++ b/lisp/ChangeLog	Mon Dec 27 18:52:17 2010 +0100
@@ -1,3 +1,7 @@
+2010-12-27  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/secrets.el (secrets-delete-alias): New defun.
+
 2010-12-27  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-default-user-alist): Do not add "ssh" based
diff -r ac49e05bfcf2 -r 68a3b6b312ee lisp/net/secrets.el
--- a/lisp/net/secrets.el	Mon Dec 27 18:29:38 2010 +0100
+++ b/lisp/net/secrets.el	Mon Dec 27 18:52:17 2010 +0100
@@ -448,10 +448,9 @@
    ;; Check the collections.
    (catch 'collection-found
      (dolist (collection-path (secrets-get-collections) nil)
-       (when
-	   (string-equal
-	    collection
-	    (secrets-get-collection-property collection-path "Label"))
+       (when (string-equal
+	      collection
+	      (secrets-get-collection-property collection-path "Label"))
 	 (throw 'collection-found collection-path))))))
 
 (defun secrets-create-collection (collection)
@@ -490,6 +489,13 @@
        secrets-interface-service "SetAlias"
        alias :object-path collection-path))))
 
+(defun secrets-delete-alias (alias)
+  "Delete ALIAS, referencing to a collection."
+  (dbus-call-method
+   :session secrets-service secrets-path
+   secrets-interface-service "SetAlias"
+   alias :object-path secrets-empty-path))
+
 (defun secrets-unlock-collection (collection)
   "Unlock collection labelled COLLECTION.
 If successful, return the object path of the collection."