From 4aadbab5be427d44085e1cd4322b46a929299d23 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 12 May 2021 20:02:28 +0300 Subject: [PATCH] Improve doc strings and prompt in epa-ks.el * lisp/epa-ks.el (epa-ks--mark-key-to-fetch, epa-ks--fetch-key) (epa-search-keys): Doc fixes. (epa-ks-do-key-to-fetch): Better wording for the fetch prompt. --- lisp/epa-ks.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index d07aa5482cb..af2398c128a 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el @@ -110,7 +110,7 @@ When all keys have been selected, use \\[epa-ks-do-key-to-fetch] to actually import the keys. When called interactively, `epa-ks--mark-key-to-fetch' will always -add a \"F\" tag. Non-interactivly the tag must be specified by +add a \"F\" tag. Non-interactivly the tag must be specified by setting the TAG parameter." (interactive (list "F")) (if (region-active-p) @@ -135,14 +135,14 @@ Keys are marked using `epa-ks--mark-key-to-fetch'." (push (epa-ks-key-id (car (tabulated-list-get-id))) keys)) (forward-line)) - (when (yes-or-no-p (format "Proceed fetching all %d key(s)? " + (when (yes-or-no-p (format "Proceed with fetching all %d key(s)? " (length keys)))) (dolist (id keys) (epa-ks--fetch-key id)))) (tabulated-list-clear-all-tags)) (defun epa-ks--fetch-key (id) - "Send request to import key with id ID." + "Send request to import key with specified ID." (url-retrieve (format "https://%s/pks/lookup?%s" epa-keyserver @@ -209,10 +209,10 @@ KEYS is a list of `epa-ks-key' structures, as parsed by The keyserver to be used is specified by `epa-keyserver'. -If EXACT is non-nil require exact matches. Interactively, this -can be provoked using a prefix argument. +If EXACT is non-nil (interactively, prefix argument), require +exact matches. -Note that the request may fail, is the query is not specific +Note that the request may fail if the query is not specific enough, since keyservers have strict timeout settings." (interactive (list (read-string "Search for: ") current-prefix-arg)) -- 2.39.5