From 19b6cf73850091795f76fb553262cc6c29157df8 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 31 Dec 2006 11:12:43 +0000
Subject: [PATCH] * epa.el (epa-encrypt-region): Take 4th argument SIGN.
 (epa-encrypt): Ditto.

---
 ChangeLog |    2 ++
 epa.el    |   16 ++++++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1bfd2db..9d459e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,8 @@
 	(epa--find-coding-system-for-mime-charset): New function.
 	(epa-decrypt-armor-in-region): Use it.
 	(epa-progress-callback-function): Use handback as the prompt.
+	(epa-encrypt-region): Take 4th argument SIGN.
+	(epa-encrypt): Ditto.
 
 2006-12-31  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epa.el b/epa.el
index 1ab5908..e064e92 100644
--- a/epa.el
+++ b/epa.el
@@ -977,7 +977,7 @@ If no one is selected, default secret key is used.  "
   (epa-sign-region start end signers mode))
 
 ;;;###autoload
-(defun epa-encrypt-region (start end recipients)
+(defun epa-encrypt-region (start end recipients sign)
   "Encrypt the current region between START and END for RECIPIENTS.
 
 Don't use this command in Lisp programs!"
@@ -990,7 +990,9 @@ Don't use this command in Lisp programs!"
      (list (region-beginning) (region-end)
 	   (epa-select-keys (epg-make-context epa-protocol)
 			    "Select recipients for encryption.
-If no one is selected, symmetric encryption will be performed.  "))))
+If no one is selected, symmetric encryption will be performed.  ")
+	   (if current-prefix-arg
+		 (y-or-n-p "Sign? ")))))
   (save-excursion
     (let ((context (epg-make-context epa-protocol))
 	  cipher)
@@ -1008,7 +1010,7 @@ If no one is selected, symmetric encryption will be performed.  "))))
 				       (epa--encode-coding-string
 					(buffer-substring start end)
 					epa-last-coding-system-specified)
-				       recipients))
+				       recipients sign))
       (message "Encrypting...done")
       (delete-region start end)
       (goto-char start)
@@ -1024,7 +1026,7 @@ If no one is selected, symmetric encryption will be performed.  "))))
 				 'end-open t)))))
 
 ;;;###autoload
-(defun epa-encrypt (start end recipients)
+(defun epa-encrypt (start end recipients sign)
   "Encrypt the current buffer.
 
 Don't use this command in Lisp programs!"
@@ -1069,8 +1071,10 @@ If no one is selected, symmetric encryption will be performed.  "
 				   (epg-list-keys
 				    (epg-make-context epa-protocol)
 				    (concat "<" recipient ">")))
-				 recipients)))))))))
-  (epa-encrypt-region start end recipients))
+				 recipients)))))
+	     (if current-prefix-arg
+		 (y-or-n-p "Sign? "))))))
+  (epa-encrypt-region start end recipients sign))
 
 ;;;###autoload
 (defun epa-delete-keys (keys &optional allow-secret)
-- 
1.7.10.4