From: ueno <ueno>
Date: Fri, 21 Apr 2006 06:54:46 +0000 (+0000)
Subject: Silence write-region.
X-Git-Tag: epgsm-branchpoint~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2c263a7913c5a3dc34bc5f41635977d2a47adf7;p=elisp%2Fepg.git

Silence write-region.
---

diff --git a/epg.el b/epg.el
index 5245a57..843e463 100644
--- a/epg.el
+++ b/epg.el
@@ -993,7 +993,7 @@ If PLAIN is nil, it returns the result as a string."
 	(coding-system-for-write 'binary))
     (unwind-protect
 	(progn
-	  (write-region cipher nil input-file)
+	  (write-region cipher nil input-file nil 'quiet)
 	  (epg-context-set-output-file context
 				       (epg-make-temp-file "epg-output"))
 	  (epg-start-decrypt context (epg-make-data-from-file input-file))
@@ -1081,7 +1081,7 @@ For a normal or a clear text signature, SIGNED-TEXT should be nil."
 	  (if signed-text
 	      (progn
 		(setq input-file (epg-make-temp-file "epg-signature"))
-		(write-region signature nil input-file)
+		(write-region signature nil input-file nil 'quiet)
 		(epg-start-verify context
 				  (epg-make-data-from-file input-file)
 				  (epg-make-data-from-string signed-text)))