;;;###autoload
(defun epa-decrypt-region (start end)
- "Decrypt the current region between START and END."
+ "Decrypt the current region between START and END.
+
+Don't use this command in Lisp programs!"
(interactive "r")
(save-excursion
(let ((context (epg-make-context))
- charset plain coding-system)
+ plain)
(message "Decrypting...")
(setq plain (epg-decrypt-string context (buffer-substring start end)))
(message "Decrypting...done")
;;;###autoload
(defun epa-decrypt-armor-in-region (start end)
- "Decrypt OpenPGP armors in the current region between START and END."
+ "Decrypt OpenPGP armors in the current region between START and END.
+
+Don't use this command in Lisp programs!"
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char start)
- (let (armor-start armor-end charset plain coding-system)
+ (let (armor-start armor-end charset coding-system)
(while (re-search-forward "-----BEGIN PGP MESSAGE-----$" nil t)
(setq armor-start (match-beginning 0)
armor-end (re-search-forward "^-----END PGP MESSAGE-----$"
;;;###autoload
(defun epa-verify-region (start end)
- "Verify the current region between START and END."
+ "Verify the current region between START and END.
+
+Don't use this command in Lisp programs!"
(interactive "r")
(let ((context (epg-make-context)))
(epg-verify-string context
;;;###autoload
(defun epa-verify-armor-in-region (start end)
- "Verify OpenPGP armors in the current region between START and END."
+ "Verify OpenPGP armors in the current region between START and END.
+
+Don't use this command in Lisp programs!"
(interactive "r")
(save-excursion
(save-restriction
;;;###autoload
(defun epa-sign-region (start end signers mode)
- "Sign the current region between START and END by SIGNERS keys selected."
+ "Sign the current region between START and END by SIGNERS keys selected.
+
+Don't use this command in Lisp programs!"
(interactive
(list (region-beginning) (region-end)
(epa-select-keys (epg-make-context) "Select keys for signing.
;;;###autoload
(defun epa-encrypt-region (start end recipients)
- "Encrypt the current region between START and END for RECIPIENTS."
+ "Encrypt the current region between START and END for RECIPIENTS.
+
+Don't use this command in Lisp programs!"
(interactive
(list (region-beginning) (region-end)
(epa-select-keys (epg-make-context) "Select recipents for encryption.