(epg-wait-for-plaintext): New function.
(epg--status-PLAINTEXT_LENGTH): New function.
(epg-decrypt-string): Don't use a temp output file.
+ (epg--status-BEGIN_DECRYPTION): New function; reset 'plaintext
+ result.
+ (epg--status-DECRYPTION_OKAY): Copy 'plaintext result to
+ 'decrypted-plaintext.
2007-03-08 Daiki Ueno <ueno@unixuser.org>
(if (consp (epg-context-progress-callback context))
(cdr (epg-context-progress-callback context))))))
+(defun epg--status-BEGIN_DECRYPTION (context string)
+ (epg-context-set-result-for context 'plaintext nil))
+
(defun epg--status-DECRYPTION_FAILED (context string)
(epg-context-set-result-for context 'decryption-failed t))
(defun epg--status-DECRYPTION_OKAY (context string)
- (epg-context-set-result-for context 'decryption-okay t))
+ (epg-context-set-result-for context 'decryption-okay t)
+ (epg-context-set-result-for
+ context
+ 'decrypted-plaintext
+ (epg-context-result-for context 'plaintext)))
(defun epg--status-PLAINTEXT_LENGTH (context string)
(when (string-match "\\`\\([0-9]+\\)" string)
(epg-start-decrypt context (epg-make-data-from-file input-file))
(epg-wait-for-completion context)
(epg--check-error-for-decrypt context)
- (epg-context-result-for context 'plaintext))
+ (epg-context-result-for context 'decrypted-plaintext))
(if (file-exists-p input-file)
(delete-file input-file))
(epg-reset context))))