From: ueno <ueno>
Date: Mon, 17 Apr 2006 10:35:27 +0000 (+0000)
Subject: * epa-file.el (epa-file-write-region): Check if START is a string.
X-Git-Tag: epgsm-branchpoint~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5649be5a0ff63c37760cf3382bc0226d5923be64;p=elisp%2Fepg.git

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

diff --git a/ChangeLog b/ChangeLog
index 1b0be2c..a91a40c 100644
--- 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
--- 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)