From: ueno <ueno>
Date: Wed, 26 Apr 2006 02:54:46 +0000 (+0000)
Subject: Check if process is running.
X-Git-Tag: epg-0_0_1~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=357ab6e401587eb69719d5955dc76e3300335fd8;p=elisp%2Fepg.git

Check if process is running.
---

diff --git a/epg.el b/epg.el
index b214859..e7e4e6a 100644
--- a/epg.el
+++ b/epg.el
@@ -1036,7 +1036,8 @@ You can then use `write-region' to write new data into the file."
 
 ;;;###autoload
 (defun epg-cancel (context)
-  (delete-process (epg-context-process context)))
+  (if (eq (process-status (epg-context-process context)) 'run)
+      (delete-process (epg-context-process context))))
   
 ;;;###autoload
 (defun epg-start-decrypt (context cipher)