Allow tagging if the tag is owned by a deleted key.

diff --git a/key-attr.c b/key-attr.c
index b779323..d4f2e05 100644 (file)
--- a/key-attr.c
+++ b/key-attr.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: key-attr.c,v 1.2 2000/02/12 18:21:02 mdw Exp $
+ * $Id: key-attr.c,v 1.3 2001/06/22 19:39:43 mdw Exp $
  *
  * Key attribute manipulation
  *
@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: key-attr.c,v $
+ * Revision 1.3  2001/06/22 19:39:43  mdw
+ * Allow tagging if the tag is owned by a deleted key.
+ *
  * Revision 1.2  2000/02/12 18:21:02  mdw
  * Overhaul of key management (again).
  *
@@ -249,7 +252,7 @@ int key_settag(key_file *f, key *k, const char *tag)
 
   if (tag) {
     kr = sym_find(&f->bytag, tag, -1, sizeof(*kr), &found);
-    if (found)
+    if (found && !KEY_EXPIRED(time(0), kr->k->del))
       return (KERR_DUPTAG);
     kr->k = k;
   }