From: ueno <ueno>
Date: Tue, 25 Apr 2006 01:04:35 +0000 (+0000)
Subject: * epg.el (epg-process-sentinel): New function; set 'error if gpg
X-Git-Tag: epg-0_0_1~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82717ed0a95cf74266c4ac39bbe649029027f897;hp=5098c070797d1d81266bfd7fae33b96d32c637a3;p=elisp%2Fepg.git

* epg.el (epg-process-sentinel): New function; set 'error if gpg
process exited abnormally, but we have not received an error
response from it.
---

diff --git a/ChangeLog b/ChangeLog
index bdccb6e..a069ad8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-04-25  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-process-sentinel): New function; set 'error if gpg
+	process exited abnormally, but we have not received an error
+	response from it.
+
 2006-04-22  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa.el (epa-key-widget-value-create): Decode DN.
diff --git a/epg.el b/epg.el
index dc61938..2a8c2f3 100644
--- a/epg.el
+++ b/epg.el
@@ -485,6 +485,7 @@ This function is for internal use only."
 		       args)))
       (set-default-file-modes orig-mode))
     (set-process-filter process #'epg-process-filter)
+    (set-process-filter process #'epg-process-sentinel)
     (epg-context-set-process context process)))
 
 (defun epg-process-filter (process input)
@@ -516,6 +517,21 @@ This function is for internal use only."
 	  (forward-line))
 	(setq epg-read-point (point)))))
 
+(defun epg-process-sentinel (process status)
+  (if (and (buffer-live-p (process-buffer process))
+	   (not (equal status "finished\n")))
+      (save-excursion
+	(set-buffer (process-buffer process))
+	;; gpg process exited abnormally, but we have not received an
+	;; error response from it.
+	(unless (epg-context-result-for epg-context 'error)
+	  (if (string-match "\\`exited abnormally with code \\(.*\\)\n" status)
+	      (epg-context-result-for
+	       epg-context 'error
+	       (list (cons 'exit (string-to-number (match-string 1 status)))))
+	    (epg-context-result-for epg-context 'error
+				    (list (cons 'signal status))))))))
+
 (defun epg-read-output (context)
   (with-temp-buffer
     (if (fboundp 'set-buffer-multibyte)