X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg-epg.el;h=224535e0bb746d4ddb9f0c0641e39e36966e18b5;hb=787dcffb3033312a719954e88d9d05aa5d15803d;hp=c93ffc7c7f5d02c4243e7995e0340e9c69d324b0;hpb=7341b0360a1902cf7a7414607fd7fa4f5b1d829e;p=elisp%2Fepg.git

diff --git a/pgg-epg.el b/pgg-epg.el
index c93ffc7..224535e 100644
--- a/pgg-epg.el
+++ b/pgg-epg.el
@@ -125,15 +125,15 @@ passphrase cache or user."
       (erase-buffer))
     (condition-case error
 	(setq plain
-	      (decode-coding-string
-	       (epg-decrypt-string context (buffer-substring start end))
-	       'raw-text)
+	      (epg-decrypt-string context (buffer-substring start end))
 	      pgg-epg-secret-key-id-list nil)
       (error
        (while pgg-epg-secret-key-id-list
 	 (pgg-remove-passphrase-from-cache (car pgg-epg-secret-key-id-list))
 	 (setq pgg-epg-secret-key-id-list (cdr pgg-epg-secret-key-id-list)))
        (signal (car error) (cdr error))))
+    (if pgg-text-mode
+	(setq plain (decode-coding-string plain 'raw-text)))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
       (insert plain))
@@ -152,6 +152,9 @@ passphrase cache or user."
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
     (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
+    (epg-context-set-signers
+     context
+     (list (car (epg-list-keys context pgg-default-user-id t))))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
       (erase-buffer)
@@ -162,7 +165,7 @@ passphrase cache or user."
 	      (epg-sign-string context
 			       (buffer-substring start end)
 			       (if cleartext
-				   'clearsign
+				   'clear
 				 'detached))
 	      pgg-epg-secret-key-id-list nil)
       (error