Fixed error message.
authorueno <ueno>
Tue, 25 Apr 2006 06:03:43 +0000 (06:03 +0000)
committerueno <ueno>
Tue, 25 Apr 2006 06:03:43 +0000 (06:03 +0000)
epg.el

diff --git a/epg.el b/epg.el
index b32d57a..0cf9722 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1235,9 +1235,14 @@ Otherwise, it makes a normal signature."
                                       (epg-make-temp-file "epg-output")))
        (epg-start-sign context (epg-make-data-from-file plain) mode)
        (epg-wait-for-completion context)
-       (unless (epg-context-result-for context 'sign)
-         (error "Sign failed: %S"
-                (epg-context-result-for context 'error)))
+       (if (epg-context-result-for context 'sign)
+           (if (epg-context-result-for context 'error)
+               (message "Sign error: %S"
+                        (epg-context-result-for context 'error)))
+         (if (epg-context-result-for context 'error)
+             (error "Sign failed: %S"
+                    (epg-context-result-for context 'error))
+           (error "Sign failed")))
        (unless signature
          (epg-read-output context)))
     (unless signature
@@ -1257,9 +1262,14 @@ Otherwise, it makes a normal signature."
        (epg-start-sign context (epg-make-data-from-string plain) mode)
        (epg-flush context)
        (epg-wait-for-completion context)
-       (unless (epg-context-result-for context 'sign)
-         (error "Sign failed: %S"
-                (epg-context-result-for context 'error)))
+       (if (epg-context-result-for context 'sign)
+           (if (epg-context-result-for context 'error)
+               (message "Sign error: %S"
+                        (epg-context-result-for context 'error)))
+         (if (epg-context-result-for context 'error)
+             (error "Sign failed: %S"
+                    (epg-context-result-for context 'error))
+           (error "Sign failed")))
        (epg-read-output context))
     (epg-delete-output-file context)
     (epg-reset context)))
@@ -1320,10 +1330,15 @@ If RECIPIENTS is nil, it performs symmetric encryption."
        (epg-start-encrypt context (epg-make-data-from-file plain)
                           recipients sign always-trust)
        (epg-wait-for-completion context)
-       (if (and sign
-                (not (epg-context-result-for context 'sign)))
-           (error "Sign encrypt failed: %S"
-                  (epg-context-result-for context 'error)))
+       (if sign
+           (if (epg-context-result-for context 'sign)
+               (if (epg-context-result-for context 'error)
+                   (message "Sign error: %S"
+                            (epg-context-result-for context 'error)))
+             (if (epg-context-result-for context 'error)
+                 (error "Sign failed: %S"
+                        (epg-context-result-for context 'error))
+               (error "Sign failed"))))
        (if (epg-context-result-for context 'error)
            (error "Encrypt failed: %S"
                   (epg-context-result-for context 'error)))
@@ -1346,10 +1361,15 @@ If RECIPIENTS is nil, it performs symmetric encryption."
                           recipients sign always-trust)
        (epg-flush context)
        (epg-wait-for-completion context)
-       (if (and sign
-                (not (epg-context-result-for context 'sign)))
-           (error "Sign encrypt failed: %S"
-                  (epg-context-result-for context 'error)))
+       (if sign
+           (if (epg-context-result-for context 'sign)
+               (if (epg-context-result-for context 'error)
+                   (message "Sign error: %S"
+                            (epg-context-result-for context 'error)))
+             (if (epg-context-result-for context 'error)
+                 (error "Sign failed: %S"
+                        (epg-context-result-for context 'error))
+               (error "Sign failed"))))
        (if (epg-context-result-for context 'error)
            (error "Encrypt failed: %S"
                   (epg-context-result-for context 'error)))