* epa-file.el (epa-file-write-region): Check if START is a string.

diff --git a/ChangeLog b/ChangeLog
index 1b0be2c..a91a40c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,14 @@
 2006-04-17  Daiki Ueno  <ueno@unixuser.org>
 
+       * epa-file.el (epa-file-write-region): Check if START is a string.
+
+2006-04-17  Daiki Ueno  <ueno@unixuser.org>
+
        * epa-file.el: Rewritten with file-name-handler.
        (epa-file-handler): New variable.
        (epa-file-enable): New command.
        (epa-file-disable): New command.
+
        * epa-setup.el: Call epa-file-enable.
 
 2006-04-17  Daiki Ueno  <ueno@unixuser.org>

diff --git a/epa-file.el b/epa-file.el
index efd44fc..705f18a 100644 (file)
--- a/epa-file.el
+++ b/epa-file.el
@@ -131,7 +131,9 @@
        (setq string
              (epg-encrypt-string
               context
-              (encode-coding-string (buffer-string) coding-system)
+              (if (stringp start)
+                  (encode-coding-string start coding-system)
+                (encode-coding-string (buffer-string) coding-system))
               (mapcar (lambda (key)
                         (epg-sub-key-id (car (epg-key-sub-key-list key))))
                       (unless (assoc file epa-file-passphrase-alist)