浏览代码

Merge branch 'maint'

Achim Gratz 11 年之前
父节点
当前提交
e26b6fb77b
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/org-crypt.el

+ 3 - 1
lisp/org-crypt.el

@@ -73,6 +73,8 @@
 			     compress-algorithm))
 (declare-function epg-encrypt-string "epg"
 		  (context plain recipients &optional sign always-trust))
+(defvar epg-context)
+
 
 (defgroup org-crypt nil
   "Org Crypt."
@@ -161,7 +163,7 @@ See `org-crypt-disable-auto-save'."
   (if (and (string= crypt-key (get-text-property 0 'org-crypt-key str))
 	   (string= (sha1 str) (get-text-property 0 'org-crypt-checksum str)))
       (get-text-property 0 'org-crypt-text str)
-      (set (make-local-variable 'epg-context) (epg-make-context nil t t))
+    (set (make-local-variable 'epg-context) (epg-make-context nil t t))
     (epg-encrypt-string epg-context str (epg-list-keys epg-context crypt-key))))
 
 (defun org-encrypt-entry ()