From: ueno <ueno>
Date: Mon, 1 May 2006 00:53:21 +0000 (+0000)
Subject: * epg.el (epg-start): Signal an error if the process of CONTEXT is
X-Git-Tag: epg-0_0_2~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a5e56d15b17e86156f4ce1fbb5c102b220daecf9;p=elisp%2Fepg.git

* epg.el (epg-start): Signal an error if the process of CONTEXT is
already running for other operations.
---

diff --git a/ChangeLog b/ChangeLog
index 78c58cc..5c69ecc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-01  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-start): Signal an error if the process of CONTEXT is
+	already running for other operations.
+
 2006-04-30  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa.el (epa-delete-keys): Support deletion of secret keys.
diff --git a/epg.el b/epg.el
index 94767c1..376a674 100644
--- a/epg.el
+++ b/epg.el
@@ -613,6 +613,11 @@ This function is for internal use only."
 
 (defun epg-start (context args)
   "Start `epg-gpg-program' in a subprocess with given ARGS."
+  (if (eq (process-status (epg-context-process context)) 'run)
+      (error "%s is already running in this context"
+	     (if (eq (epg-context-protocol context) 'CMS)
+		 epg-gpgsm-program
+	       epg-gpg-program)))
   (let* ((args (append (list "--no-tty"
 			     "--status-fd" "1"
 			     "--yes")