Fixed decoding.

[riece] / lisp / riece-epg.el

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 351e3dd..4a93efb 100644 (file)
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -74,14 +74,14 @@
          (condition-case error
              (setq string (epg-decrypt-string
                            context
-                           (riece-decode-coding-string
-                            (base64-decode-string string))))
+                           (base64-decode-string string)))
            (error
             (if (setq entry (assoc (riece-message-target message)
                                    riece-epg-passphrase-alist))
                 (setcdr entry nil))
             (message "%s" (cdr error))))
-         (riece-message-set-text message string))))
+         (riece-message-set-text message
+                                 (riece-decode-coding-string string)))))
   message)
 
 (defun riece-epg-insinuate ()