(spki_hash_sexp): Bugfix, don't hash the data once.

Bug reported by Werner Koch.

Rev: src/spki.c:1.36

src/spki.c

@@ -264,15 +264,13 @@ spki_hash_data(struct hash_algorithm *algorithm,
 }  
 
 /* Create an SPKI hash from an s-expression. */
-
 struct sexp *
 spki_hash_sexp(struct hash_algorithm *algorithm,
 	       int name,
 	       struct sexp *expr)
 {
-  struct lsh_string *s = hash_string(algorithm,
-				     sexp_format(expr, SEXP_CANONICAL, 0),
-				     1);
+  struct lsh_string *s = sexp_format(expr, SEXP_CANONICAL, 0);
+  
   struct sexp *hash = spki_hash_data(algorithm, name, 
 				     s->length, s->data);
   lsh_string_free(s);