From: ueno <ueno>
Date: Sun, 29 Apr 2007 02:56:48 +0000 (+0000)
Subject: (epa-file-write-region): Respect epa-armor and
X-Git-Tag: epg-0_0_12~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5745e20f0aa6d81a8c03af970e6bd0a22ea35b1;p=elisp%2Fepg.git

(epa-file-write-region): Respect epa-armor and
epa-textmode.
---

diff --git a/ChangeLog b/ChangeLog
index cf248cc..83d1e01 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-29  Daiki Ueno  <ueno@unixuser.org>
+
+	* epa-file.el (epa-file-write-region): Respect epa-armor and
+	epa-textmode.
+
 2007-04-26  Daiki Ueno  <ueno@unixuser.org>
 
 	* epg.el (epg--prompt-GET_BOOL-untrusted_key.override): Lookup
diff --git a/epa-file.el b/epa-file.el
index f3bbaee..898a4e9 100644
--- a/epa-file.el
+++ b/epa-file.el
@@ -220,6 +220,8 @@ May either be a string or a list of strings.")
 	   file))
     (epg-context-set-progress-callback context
 				       #'epa-progress-callback-function)
+    (epg-context-set-armor context epa-armor)
+    (epg-context-set-textmode context epa-textmode)
     (condition-case error
 	(setq string
 	      (epg-encrypt-string