Fixed indentation.

[riece] / lisp / riece-epg.el

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 76d7c01..53a6ede 100644 (file)
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -39,9 +39,9 @@
   (interactive)
   (let ((context (epg-make-context))
        (string (riece-encode-coding-string
-                      (buffer-substring
-                       (riece-line-beginning-position)
-                       (riece-line-end-position))))
+                (buffer-substring
+                 (riece-line-beginning-position)
+                 (riece-line-end-position))))
        entry)
     (epg-context-set-passphrase-callback
      context
@@ -65,22 +65,22 @@
       (when (string-match "\\`\\[OpenPGP Encrypted:\\(.*\\)]"
                          (riece-message-text message))
        (let ((context (epg-make-context))
-             (string (riece-decode-coding-string
-                      (base64-decode-string
-                       (match-string 1 (riece-message-text message)))))
+             (string (match-string 1 (riece-message-text message)))
              entry)
          (epg-context-set-passphrase-callback
           context
           (cons #'riece-epg-passphrase-callback-function
                 (riece-message-target message)))
          (condition-case error
-             (setq string (epg-decrypt-string context string))
+             (setq string (epg-decrypt-string context
+                                              (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 ()