(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
(epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(condition-case error
(setq cipher
(epg-encrypt-string context
(signal (car error) (cdr error))))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
- (erase-buffer)
(insert cipher))
t))
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
(epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(condition-case error
(setq plain (epg-decrypt-string context (buffer-substring start end))
pgg-epg-secret-key-id-list nil)
(signal (car error) (cdr error))))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
- (erase-buffer)
(insert plain))
t))
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
(epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(condition-case error
(setq signature
(epg-sign-string context
(signal (car error) (cdr error))))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
- (erase-buffer)
(insert signature))
t))
(inhibit-redisplay t)) ;Gnus users don't like flickering
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(if signature
(epg-verify-string context
(with-temp-buffer
(set-buffer (get-buffer-create pgg-errors-buffer))
(make-local-variable 'pgg-epg-signatures)
(setq pgg-epg-signatures (epg-context-result-for context 'verify))
- (erase-buffer)
(insert (epg-verify-result-to-string pgg-epg-signatures)))
t))
)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(insert (epg-export-keys-to-string context pgg-default-user-id))))
(defun pgg-epg-snarf-keys-region (start end)
)
(epg-context-set-armor context t)
(epg-context-set-textmode context pgg-text-mode)
- (get-buffer-create pgg-output-buffer)
- (get-buffer-create pgg-errors-buffer)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer))
(epg-import-keys-from-string context (buffer-substring start end))))
(eval-when-compile