Mark outgoing encrypted message.

[riece] / lisp / riece-epg.el

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 6f19efc..0ac63a9 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))))