(epg-cancel): New function.

diff --git a/ChangeLog b/ChangeLog
index 2b43d8f..1514622 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * epa.el (epa-select-keys): Don't set inhibit-quit when
        recursive-edit is called.
+       (epg-cancel): New function.
 
 2006-04-25  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/epg.el b/epg.el
index cbb7c87..b214859 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1035,6 +1035,10 @@ You can then use `write-region' to write new data into the file."
             (delete-directory tempdir))))))
 
 ;;;###autoload
+(defun epg-cancel (context)
+  (delete-process (epg-context-process context)))
+  
+;;;###autoload
 (defun epg-start-decrypt (context cipher)
   "Initiate a decrypt operation on CIPHER.
 CIPHER is a data object.