From: ueno Date: Tue, 18 Apr 2006 10:50:00 +0000 (+0000) Subject: Fixed. X-Git-Tag: epgsm-branchpoint~28 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=053e827352f5d8f7c356c695353e478cc112e088;p=elisp%2Fepg.git Fixed. --- diff --git a/README b/README index fa82e7f..b414c85 100644 --- a/README +++ b/README @@ -41,7 +41,7 @@ subprocess. ** `(fillarray string 0)' is not enough to clear passphrases -If Emacs crashed and dumps core, passphrase strings in memory are also +If Emacs crashes and dumps core, passphrase strings in memory are also dumped within the core file. `read-passwd' function clears passphrase strings by `(fillarray string 0)'. However, Emacs performs compaction in gc_sweep phase. If GC happens before `fillarray', passphrase diff --git a/pgg-epg.el b/pgg-epg.el index e695b2a..eb84a96 100644 --- a/pgg-epg.el +++ b/pgg-epg.el @@ -111,7 +111,11 @@ Verify region between START and END as the detached signature SIGNATURE." (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) (if signature - (epg-verify-file context signature (buffer-substring start end) nil) + (epg-verify-string context + (with-temp-buffer + (insert-file-contents signature) + (buffer-string)) + (buffer-substring start end)) (epg-verify-string context (buffer-substring start end))) (setq signature (reverse (epg-context-result-for context 'verify)) pointer signature)