mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

epg: Simplify epa-pinentry-mode handling

Browse Source 
* epa-file.el (epa-file-insert-file-contents)
(epa-file-write-region): Remove redundant check of
epa-pinentry-mode.
* epa.el (epa-sign-file, epa-encrypt-file, epa-decrypt-region)
(epa-sign-region, epa-encrypt-region): Remove redundant check of
epa-pinentry-mode.
This commit is contained in:
Daiki Ueno 2014-11-18 14:49:30 +09:00
parent b12bb4dc3e
commit 5224be2f74
3 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2014-11-18 Daiki Ueno <ueno@gnu.org>
* epa-file.el (epa-file-insert-file-contents)
(epa-file-write-region): Remove redundant check of
epa-pinentry-mode.
* epa.el (epa-sign-file, epa-encrypt-file, epa-decrypt-region)
(epa-sign-region, epa-encrypt-region): Remove redundant check of
epa-pinentry-mode.
2014-11-18 Daiki Ueno <ueno@gnu.org>
* epa-file.el (epa-file-insert-file-contents): Don't show

6
lisp/epa-file.el
View File

@ -144,8 +144,7 @@ encryption is used."
context
(cons #'epa-progress-callback-function
(format "Decrypting %s" file)))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(unwind-protect
(progn
(if replace
@ -233,8 +232,7 @@ encryption is used."
(cons #'epa-progress-callback-function
(format "Encrypting %s" file)))
(setf (epg-context-armor context) epa-armor)
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(condition-case error
(setq string
(epg-encrypt-string

18
lisp/epa.el
View File

@ -783,8 +783,7 @@ If no one is selected, default secret key is used. "
#'epa-progress-callback-function
(format "Signing %s..."
(file-name-nondirectory file))))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(message "Signing %s..." (file-name-nondirectory file))
(condition-case error
(epg-sign-file context file signature mode)
@ -815,8 +814,7 @@ If no one is selected, symmetric encryption will be performed. ")))
#'epa-progress-callback-function
(format "Encrypting %s..."
(file-name-nondirectory file))))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(message "Encrypting %s..." (file-name-nondirectory file))
(condition-case error
(epg-encrypt-file context file recipients cipher)
@ -859,8 +857,7 @@ For example:
(cons
#'epa-progress-callback-function
"Decrypting..."))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(message "Decrypting...")
(condition-case error
(setq plain (epg-decrypt-string context (buffer-substring start end)))
@ -1067,8 +1064,7 @@ If no one is selected, default secret key is used. "
(cons
#'epa-progress-callback-function
"Signing..."))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(message "Signing...")
(condition-case error
(setq signature (epg-sign-string context
@ -1157,8 +1153,7 @@ If no one is selected, symmetric encryption will be performed. ")
(cons
#'epa-progress-callback-function
"Encrypting..."))
(if epa-pinentry-mode
(setf (epg-context-pinentry-mode context) epa-pinentry-mode))
(setf (epg-context-pinentry-mode context) epa-pinentry-mode)
(message "Encrypting...")
(condition-case error
(setq cipher (epg-encrypt-string context
@ -1327,8 +1322,7 @@ If no one is selected, default public key is exported. ")))
;; (cons
;; #'epa-progress-callback-function
;; "Signing keys..."))
;; (if epa-pinentry-mode
;; (setf (epg-context-pinentry-mode context) epa-pinentry-mode))
;; (setf (epg-context-pinentry-mode context) epa-pinentry-mode)
;; (message "Signing keys...")
;; (epg-sign-keys context keys local)
;; (message "Signing keys...done")))