From 66f3fdb832722fec5af8470cc3f5fd9474f43cc3 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sat, 1 Mar 2003 21:37:15 +0000 Subject: [PATCH] * pgg-gpg.el (pgg-gpg-process-region): Insert process status into errors-buffer. This produces a nicer error message in case of problems. --- lisp/ChangeLog | 7 +++++++ lisp/pgg-gpg.el | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e9f2bf61..ab5d6d395 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-03-01 Satyaki Das + (Trivial patch.) + + * pgg-gpg.el (pgg-gpg-process-region): Insert process status into + errors-buffer. This produces a nicer error message in case of + problems. + 2003-03-01 Teodor Zlatanov * spam.el (spam-maybe-spam-stat-load, spam-maybe-spam-stat-load): diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index 79e6aab58..8718f44f0 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -83,7 +83,8 @@ (insert-file-contents output-file-name))) (set-buffer errors-buffer) (if (not (equal exit-status 0)) - (error "%s exited abnormally: '%s'" program exit-status)))) + (insert (format "\n%s exited abnormally: '%s'\n" + program exit-status))))) (if (file-exists-p output-file-name) (delete-file output-file-name)) (set-default-file-modes orig-mode)))) -- 2.25.1