From b5088c54325515fe959ee706b1f3d90cdc54af42 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 25 Apr 2006 09:03:26 +0000 Subject: [PATCH] Fixed decoding. --- lisp/riece-epg.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el index 542bcd2..5ddb31d 100644 --- a/lisp/riece-epg.el +++ b/lisp/riece-epg.el @@ -82,11 +82,13 @@ message (concat "[OpenPGP Decrypted:" - (decode-coding-string - (epg-decrypt-string context (base64-decode-string string)) - (if (consp coding-system) - (car coding-system) - coding-system)) + (riece-with-server-buffer + (riece-identity-server (riece-message-target message)) + (decode-coding-string + (epg-decrypt-string context (base64-decode-string string)) + (if (consp coding-system) + (car coding-system) + coding-system))) "]")) (error (if (setq entry (riece-identity-assoc -- 1.7.10.4