From e927fafb1d45191dcc7e4ccc65bef989b403fc67 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 21 May 1999 09:59:30 +0000 Subject: [PATCH] (mime-pgp-fetch-key): Fix the last change. I was misunderstanding that the snarf function returns a integer, but it actually returns a string. --- mime-pgp.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 1.7.10.4