From: ueno <ueno>
Date: Sat, 6 Nov 1999 19:02:24 +0000 (+0000)
Subject: * pgg.el (pgg-sign-region): Add optional argument `cleartext'.
X-Git-Tag: emiko-1_13_7~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1474b17b931d1bc6ca54a5a908d378c72ea4491c;p=elisp%2Fsemi.git

* pgg.el (pgg-sign-region): Add optional argument `cleartext'.
---

diff --git a/pgg.el b/pgg.el
index 8008db5..e6fa06d 100644
--- a/pgg.el
+++ b/pgg.el
@@ -188,11 +188,12 @@ and END to the keyring.")
     status))
 
 ;;;###autoload
-(defun pgg-sign-region (start end)
+(defun pgg-sign-region (start end &optional cleartext)
   (interactive "r")
   (let* ((entity (pgg-make-scheme pgg-default-scheme))
 	 (status (luna-send entity 'sign-region 
-			    entity start end (interactive-p))))
+			    entity start end 
+			    (or (interactive-p) cleartext))))
     (when (interactive-p)
       (if status
 	  (progn