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

epa-textmode.

diff --git a/ChangeLog b/ChangeLog
index cf248cc..83d1e01 100644 (file)
--- 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 (file)
--- 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