From d5745e20f0aa6d81a8c03af970e6bd0a22ea35b1 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 29 Apr 2007 02:56:48 +0000
Subject: [PATCH] (epa-file-write-region): Respect epa-armor and epa-textmode.

---
 ChangeLog   |    5 +++++
 epa-file.el |    2 ++
 2 files changed, 7 insertions(+)

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
-- 
1.7.10.4