let cmd learn also return KEYPAIRINFO

agent/ChangeLog

@@ -1,3 +1,8 @@
+2006-09-26  Werner Koch  <wk@g10code.com>
+
+	* learncard.c (agent_handle_learn): Send back the keypair
+	information.
+
 2006-09-25  Werner Koch  <wk@g10code.com>
 
 	* trustlist.c (read_one_trustfile): Allow extra flags.

agent/command.c

@@ -1183,6 +1183,8 @@ option_handler (assuan_context_t ctx, const char *key, const char *value)
   return 0;
 }
 
+
+
 
 /* Tell the assuan library about our commands */
 static int

agent/learncard.c

@@ -360,6 +360,12 @@ agent_handle_learn (ctrl_t ctrl, void *assuan_context)
       if (item->no_cert)
         continue; /* No public key yet available. */
 
+      if (assuan_context)
+        {
+          agent_write_status (ctrl, "KEYPAIRINFO",
+                              item->hexgrip, item->id, NULL);
+        }
+
       for (p=item->hexgrip, i=0; i < 20; p += 2, i++)
         grip[i] = xtoi_2 (p);