X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-epg.el;h=df66fa670d702cf922ccbb139e67a58531b04afb;hp=355b9c93b9e81429f5da5c4eece09a53c02d5194;hb=43fe6182ea66f57aeea9d562c84abfeadd1ae255;hpb=a593e07b578e462d617b096261a5d964b466ac10

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 355b9c9..df66fa6 100644
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -26,6 +26,7 @@
 (require 'riece-message)
 (require 'riece-identity)
 
+(autoload 'widget-convert-button "wid-edit")
 (autoload 'epg-make-context "epg")
 (autoload 'epg-decrypt-string "epg")
 (autoload 'epg-encrypt-string "epg")
@@ -63,8 +64,7 @@
 (defun riece-epg-passphrase-callback-function-for-decrypt (context key-id
 								   identity)
   (if (eq key-id 'SYM)
-      (let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist))
-	    passphrase)
+      (let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist)))
 	(if (cdr entry)
 	    (copy-sequence (cdr entry))
 	  (epg-cancel context)))
@@ -85,8 +85,7 @@
   (interactive)
   (let ((context (epg-make-context))
 	(string (buffer-substring (riece-line-beginning-position)
-				  (riece-line-end-position)))
-	entry)
+				  (riece-line-end-position))))
     (epg-context-set-passphrase-callback
      context
      (cons #'riece-epg-passphrase-callback-function
@@ -154,8 +153,7 @@
       (when (string-match "\\`\\[encrypted:\\(.*\\)]"
 			  (riece-message-text message))
 	(let ((context (epg-make-context))
-	      (string (match-string 1 (riece-message-text message)))
-	      entry)
+	      (string (match-string 1 (riece-message-text message))))
 	  (epg-context-set-passphrase-callback
 	   context
 	   (cons #'riece-epg-passphrase-callback-function-for-decrypt