emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/openpgp f21d692370 25/30: Add autoload cookies


From: ELPA Syncer
Subject: [elpa] externals/openpgp f21d692370 25/30: Add autoload cookies
Date: Sun, 26 Mar 2023 10:59:28 -0400 (EDT)

branch: externals/openpgp
commit f21d692370e79f5df4b935695379d8a28a87f16b
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add autoload cookies
---
 openpgp.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/openpgp.el b/openpgp.el
index 96634819df..1859f8885a 100644
--- a/openpgp.el
+++ b/openpgp.el
@@ -71,18 +71,21 @@ STATUS is a plist described in the docstring for 
`url-retrieve'."
   (forward-line)
   (epa-import-armor-in-region (point) (point-max)))
 
+;;;###autoload
 (defun openpgp-fetch-key-by-fingerprint (fingerprint)
   "Query key via FINGERPRINT and add to keychain."
   (let ((fingerprint (string-remove-prefix "0X" (upcase fingerprint))))
     (url-retrieve (openpgp--api-url "by-fingerprint" fingerprint)
                  #'openpgp--process-key)))
 
+;;;###autoload
 (defun openpgp-fetch-key-by-keyid (keyid)
   "Query key via KEYID and add to keychain."
   (let ((keyid (string-remove-prefix "0X" (upcase keyid))))
     (url-retrieve (openpgp--api-url "by-keyid" keyid)
                  #'openpgp--process-key)))
 
+;;;###autoload
 (defun openpgp-fetch-key-by-email (email)
   "Query key via EMAIL and add to keychain."
   (url-retrieve (openpgp--api-url "by-email" (url-hexify-string email))
@@ -172,6 +175,7 @@ key."
                  #'openpgp--upload-callback
                  (list email))))
 
+;;;###autoload
 (defun openpgp-upload-key-file (email key-file)
   "Upload key from KEY-FILE for address EMAIL."
   (interactive (list (completing-read "Email: " (openpgp--key-ids)
@@ -181,6 +185,7 @@ key."
     (insert-file-contents key-file)
     (openpgp-upload-key-string email (buffer-string))))
 
+;;;###autoload
 (defun openpgp-upload-key (email)
   "Upload public key for address EMAIL using gpg."
   (interactive (list (completing-read "Email: " (openpgp--key-ids)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]