X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epa.el;h=4d16a3c8fd3bf60a0cc4ec58e56729470d235fa9;hb=c0378f681c22cfd4128d009b581b9225c56bade2;hp=6ebf0ac4f5f0590482c343724d6aa6cc1ace8238;hpb=2d3d6273c5f1646356f4dd08f428bb7dc67b92fa;p=elisp%2Fepg.git diff --git a/epa.el b/epa.el index 6ebf0ac..4d16a3c 100644 --- a/epa.el +++ b/epa.el @@ -506,26 +506,30 @@ If ARG is non-nil, mark the current line." (epg-context-result-for context 'verify))))) ;;;###autoload -(defun epa-sign-file (file signers detached) - "Sign FILE by selected SIGNERS keys. -If DETACHED is non-nil, it creates a detached signature." +(defun epa-sign-file (file signers mode) + "Sign FILE by SIGNERS keys selected." (interactive (list (expand-file-name (read-file-name "File: ")) (epa-select-keys (epg-make-context) "Select keys for signing. If no one is selected, default secret key is used. " nil t) - (y-or-n-p "Make a detached signature? "))) - (let ((signature (concat file (if epa-armor - ".asc" - (if detached - ".sig" - ".gpg")))) + (if (y-or-n-p "Make a detached signature? ") + 'detached + (if (y-or-n-p "Make a cleartext signature? ") + 'clear)))) + (let ((signature (concat file + (if (or epa-armor + (not (memq mode '(nil t normal detached)))) + ".asc" + (if (memq mode '(t detached)) + ".sig" + ".gpg")))) (context (epg-make-context))) (epg-context-set-armor context epa-armor) (epg-context-set-textmode context epa-textmode) - (message "Signing %s..." (file-name-nondirectory file)) (epg-context-set-signers context signers) - (epg-sign-file context file signature (not (null detached))) + (message "Signing %s..." (file-name-nondirectory file)) + (epg-sign-file context file signature mode) (message "Signing %s...done" (file-name-nondirectory file)))) ;;;###autoload @@ -544,6 +548,140 @@ If no one is selected, symmetric encryption will be performed. "))) (message "Encrypting %s...done" (file-name-nondirectory file)))) ;;;###autoload +(defun epa-decrypt-region (start end) + "Decrypt the current region between START and END." + (interactive "r") + (save-excursion + (let ((context (epg-make-context)) + charset plain coding-system) + (message "Decrypting...") + (setq plain (epg-decrypt-string context (buffer-substring start end))) + (message "Decrypting...done") + (delete-region start end) + (goto-char start) + (insert (decode-coding-string plain coding-system-for-read)) + (if (epg-context-result-for context 'verify) + (message "%s" + (epg-verify-result-to-string + (epg-context-result-for context 'verify))))))) + +;;;###autoload +(defun epa-decrypt-armor-in-region (start end) + "Decrypt OpenPGP armors in the current region between START and END." + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region start end) + (goto-char start) + (let (armor-start armor-end charset plain 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-----$" + nil t)) + (unless armor-end + (error "No armor tail")) + (goto-char armor-start) + (if (re-search-forward "^Charset: \\(.*\\)" armor-end t) + (setq charset (match-string 1))) + (if coding-system-for-read + (setq coding-system coding-system-for-read) + (if charset + (setq coding-system (intern (downcase charset))) + (setq coding-system 'utf-8))) + (let ((coding-system-for-read coding-system)) + (epa-decrypt-region start end))))))) + +;;;###autoload +(defun epa-verify-region (start end) + "Verify the current region between START and END." + (interactive "r") + (let ((context (epg-make-context))) + (epg-verify-string context + (encode-coding-string + (buffer-substring start end) + coding-system-for-write)) + (message "%s" + (epg-verify-result-to-string + (epg-context-result-for context 'verify))))) + +;;;###autoload +(defun epa-verify-armor-in-region (start end) + "Verify OpenPGP armors in the current region between START and END." + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region start end) + (goto-char start) + (let (armor-start armor-end) + (while (re-search-forward "-----BEGIN PGP\\( SIGNED\\)? MESSAGE-----$" + nil t) + (setq armor-start (match-beginning 0)) + (if (match-beginning 1) ;cleartext signed message + (progn + (unless (re-search-forward "^-----BEGIN PGP SIGNATURE-----$" + nil t) + (error "Invalid cleartext signed message")) + (setq armor-end (re-search-forward + "^-----END PGP SIGNATURE-----$" + nil t))) + (setq armor-end (re-search-forward + "^-----END PGP MESSAGE-----$" + nil t))) + (unless armor-end + (error "No armor tail")) + (epa-verify-region armor-start armor-end)))))) + +;;;###autoload +(defun epa-sign-region (start end signers mode) + "Sign the current region between START and END by SIGNERS keys selected." + (interactive + (list (region-beginning) (region-end) + (epa-select-keys (epg-make-context) "Select keys for signing. +If no one is selected, default secret key is used. " + nil t) + (if (y-or-n-p "Make a detached signature? ") + 'detached + (if (y-or-n-p "Make a cleartext signature? ") + 'clear)))) + (save-excursion + (let ((context (epg-make-context)) + signature) + (epg-context-set-armor context epa-armor) + (epg-context-set-textmode context epa-textmode) + (epg-context-set-signers context signers) + (message "Signing...") + (setq signature (epg-sign-string context + (encode-coding-string + (buffer-substring start end) + coding-system-for-write) + mode)) + (message "Signing...done") + (delete-region start end) + (insert (decode-coding-string signature coding-system-for-read))))) + +;;;###autoload +(defun epa-encrypt-region (start end recipients) + "Encrypt the current region between START and END for RECIPIENTS." + (interactive + (list (region-beginning) (region-end) + (epa-select-keys (epg-make-context) "Select recipents for encryption. +If no one is selected, symmetric encryption will be performed. "))) + (save-excursion + (let ((context (epg-make-context)) + cipher) + (epg-context-set-armor context epa-armor) + (epg-context-set-textmode context epa-textmode) + (message "Encrypting...") + (setq cipher (epg-encrypt-string context + (encode-coding-string + (buffer-substring start end) + coding-system-for-write) + recipients)) + (message "Encrypting...done") + (delete-region start end) + (insert cipher)))) + +;;;###autoload (defun epa-delete-keys (keys &optional allow-secret) "Delete selected KEYS." (interactive @@ -555,8 +693,8 @@ If no one is selected, symmetric encryption will be performed. "))) (let ((context (epg-make-context))) (message "Deleting...") (epg-delete-keys context keys allow-secret) - (apply #'epa-list-keys epa-list-keys-arguments) - (message "Deleting...done"))) + (message "Deleting...done") + (apply #'epa-list-keys epa-list-keys-arguments))) ;;;###autoload (defun epa-import-keys (file) @@ -565,8 +703,8 @@ If no one is selected, symmetric encryption will be performed. "))) (let ((context (epg-make-context))) (message "Importing %s..." (file-name-nondirectory file)) (epg-import-keys-from-file context (expand-file-name file)) - (apply #'epa-list-keys epa-list-keys-arguments) - (message "Importing %s...done" (file-name-nondirectory file)))) + (message "Importing %s...done" (file-name-nondirectory file)) + (apply #'epa-list-keys epa-list-keys-arguments))) ;;;###autoload (defun epa-export-keys (keys file) @@ -609,75 +747,6 @@ If LOCAL is non-nil, the signature is marked as non exportable." (epg-sign-keys context keys local) (message "Signing keys...done"))) -;;;###autoload -(defun epa-decrypt-region (start end) - "Decrypt OpenPGP armors in the current region between START and END." - (interactive "r") - (save-excursion - (save-restriction - (narrow-to-region start end) - (goto-char start) - (let (armor-start armor-end charset context plain 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-----$" - nil t)) - (unless armor-end - (error "No armor tail")) - (goto-char armor-start) - (if (re-search-forward "^Charset: \\(.*\\)" armor-end t) - (setq charset (match-string 1))) - (setq context (epg-make-context) - plain (epg-decrypt-string - context - (buffer-substring armor-start armor-end))) - (delete-region armor-start armor-end) - (goto-char armor-start) - (if coding-system-for-read - (setq coding-system coding-system-for-read) - (if charset - (setq coding-system (intern (downcase charset))) - (setq coding-system 'utf-8))) - (insert (decode-coding-string plain coding-system)) - (if (epg-context-result-for context 'verify) - (message "%s" - (epg-verify-result-to-string - (epg-context-result-for context 'verify))))))))) - -;;;###autoload -(defun epa-verify-region (start end) - "Verify OpenPGP armors in the current region between START and END." - (interactive "r") - (save-excursion - (save-restriction - (narrow-to-region start end) - (goto-char start) - (let (armor-start armor-end context) - (while (re-search-forward "-----BEGIN PGP\\( SIGNED\\)? MESSAGE-----$" - nil t) - (setq armor-start (match-beginning 0)) - (if (match-beginning 1) ;cleartext signed message - (progn - (unless (re-search-forward "^-----BEGIN PGP SIGNATURE-----$" - nil t) - (error "Invalid cleartext signed message")) - (setq armor-end (re-search-forward - "^-----END PGP SIGNATURE-----$" - nil t))) - (setq armor-end (re-search-forward - "^-----END PGP MESSAGE-----$" - nil t))) - (unless armor-end - (error "No armor tail")) - (setq context (epg-make-context)) - (epg-verify-string context - (encode-coding-string - (buffer-substring armor-start armor-end) - coding-system-for-write)) - (message "%s" - (epg-verify-result-to-string - (epg-context-result-for context 'verify)))))))) - (provide 'epa) ;;; epa.el ends here