Don't display error messasge unless riece-debug.

[elisp/riece.git] / lisp / riece-epg.el

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 6f19efc..55d2083 100644 (file)
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -108,7 +108,7 @@
              t)))
     (riece-display-message
      (riece-make-message (riece-current-nickname) riece-current-channel
-                        string nil t))
+                        (concat "[decrypted:" string "]") nil t))
     (let ((next-line-add-newlines t))
       (next-line 1))))
 
@@ -172,7 +172,8 @@
              0 (length (riece-message-text message))
              'riece-epg-encryption-target (riece-message-target message)
              (riece-message-text message))
-            (message "%s" (cdr error)))))))
+            (if riece-debug
+                (message "Couldn't decrypt: %s" (cdr error))))))))
   message)
 
 (defun riece-epg-add-encrypted-button (start end)