From: yamaoka <yamaoka>
Date: Fri, 21 May 1999 09:59:30 +0000 (+0000)
Subject: (mime-pgp-fetch-key): Fix the last change.  I was misunderstanding that
X-Git-Tag: semi-pgpgpg_17~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e927fafb1d45191dcc7e4ccc65bef989b403fc67;p=elisp%2Fsemi.git

(mime-pgp-fetch-key): Fix the last change.  I was misunderstanding that
the snarf function returns a integer, but it actually returns a string.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 076f8e1..dcbe2d8 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -776,12 +776,13 @@ appropriately."
 	      (save-window-excursion
 		(funcall show-function armor)
 		(if (y-or-n-p "Add this key to keyring? ")
-		    (if (zerop
+		    (if (string-match
+			 "^0"
 			 (with-temp-buffer
 			   (insert armor)
 			   ;; The function should return a number of
-			   ;; keys found.
-			   (funcall snarf-function)))
+			   ;; keys found as a string.
+			   (format "%s" (funcall snarf-function))))
 			(progn
 			  (message "Key not found or discarded.")
 			  nil)