sign t))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
(insert cipher))
t))
(setq plain (epg-decrypt-string context (buffer-substring start end)))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
+ (erase-buffer)
(insert plain))
t))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
(insert signature))
- t)
+ t))
(defun pgg-epg-verify-region (start end &optional signature)
"This function is for internal use only.
(if signature
(epg-verify-file context signature (buffer-substring start end))
(epg-verify-string context (buffer-substring start end)))
- (reverse (epg-context-result-for context 'verify)))
+ (setq signature (reverse (epg-context-result-for context 'verify))
+ pointer signature)
+ (save-excursion
+ (set-buffer (get-buffer-create pgg-errors-buffer))
+ (erase-buffer)
+ (while pointer
+ (insert (format "%s: %s %s %s\n"
+ (epg-signature-status (car pointer))
+ (epg-signature-key-id (car pointer))
+ (epg-signature-user-id (car pointer))
+ (epg-signature-validity (car pointer))))
+ (setq pointer (cdr pointer))))
+ signature))
(defun pgg-epg-insert-key ()
"This function is for internal use only.