Add a new function `svg-embed'

[gnu-emacs] / lisp / org / org-crypt.el

diff --git a/lisp/org/org-crypt.el b/lisp/org/org-crypt.el
index 2dfc4addcc25c87628d3734fb3788a0c39da2a19..8abe32befe01fe581482041ebce80cabc06b3ae4 100644 (file)
--- a/lisp/org/org-crypt.el
+++ b/lisp/org/org-crypt.el
@@ -1,6 +1,6 @@
 ;;; org-crypt.el --- Public key encryption for org-mode entries
 
-;; Copyright (C) 2007-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2016 Free Software Foundation, Inc.
 
 ;; Emacs Lisp Archive Entry
 ;; Filename: 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."
@@ -131,19 +133,20 @@ See `org-crypt-disable-auto-save'."
        (and
        (eq org-crypt-disable-auto-save 'ask)
        (y-or-n-p "org-decrypt: auto-save-mode may cause leakage.  Disable it for current buffer? ")))
-      (message (concat "org-decrypt: Disabling auto-save-mode for " (or (buffer-file-name) (current-buffer))))
-                                       ; The argument to auto-save-mode has to be "-1", since
-                                       ; giving a "nil" argument toggles instead of disabling.
+      (message "org-decrypt: Disabling auto-save-mode for %s"
+               (or (buffer-file-name) (current-buffer)))
+      ;; The argument to auto-save-mode has to be "-1", since
+      ;; giving a "nil" argument toggles instead of disabling.
       (auto-save-mode -1))
      ((eq org-crypt-disable-auto-save nil)
       (message "org-decrypt: Decrypting entry with auto-save-mode enabled.  This may cause leakage."))
      ((eq org-crypt-disable-auto-save 'encrypt)
       (message "org-decrypt: Enabling re-encryption on auto-save.")
-      (add-hook 'auto-save-hook
-               (lambda ()
-                 (message "org-crypt: Re-encrypting all decrypted entries due to auto-save.")
-                 (org-encrypt-entries))
-               nil t))
+      (org-add-hook 'auto-save-hook
+                   (lambda ()
+                     (message "org-crypt: Re-encrypting all decrypted entries due to auto-save.")
+                     (org-encrypt-entries))
+                   nil t))
      (t nil))))
 
 (defun org-crypt-key-for-heading ()
@@ -161,8 +164,8 @@ 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)
-    (let ((epg-context (epg-make-context nil t t)))
-      (epg-encrypt-string epg-context str (epg-list-keys epg-context crypt-key)))))
+    (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 ()
   "Encrypt the content of the current headline."
@@ -170,11 +173,11 @@ See `org-crypt-disable-auto-save'."
   (require 'epg)
   (save-excursion
     (org-back-to-heading t)
+    (set (make-local-variable 'epg-context) (epg-make-context nil t t))
     (let ((start-heading (point)))
       (forward-line)
       (when (not (looking-at "-----BEGIN PGP MESSAGE-----"))
         (let ((folded (outline-invisible-p))
-              (epg-context (epg-make-context nil t t))
               (crypt-key (org-crypt-key-for-heading))
               (beg (point))
               end encrypted-text)
@@ -206,11 +209,11 @@ See `org-crypt-disable-auto-save'."
        (forward-line)
        (when (looking-at "-----BEGIN PGP MESSAGE-----")
          (org-crypt-check-auto-save)
+          (set (make-local-variable 'epg-context) (epg-make-context nil t t))
          (let* ((end (save-excursion
                        (search-forward "-----END PGP MESSAGE-----")
                        (forward-line)
                        (point)))
-                (epg-context (epg-make-context nil t t))
                 (encrypted-text (buffer-substring-no-properties (point) end))
                 (decrypted-text
                  (decode-coding-string
@@ -222,7 +225,7 @@ See `org-crypt-disable-auto-save'."
            ;; outline property starts at the \n of the heading.
            (delete-region (1- (point)) end)
            ;; Store a checksum of the decrypted and the encrypted
-           ;; text value.  This allow to reuse the same encrypted text
+           ;; text value.  This allow reusing the same encrypted text
            ;; if the text does not change, and therefore avoid a
            ;; re-encryption process.
            (insert "\n" (propertize decrypted-text
@@ -264,7 +267,7 @@ See `org-crypt-disable-auto-save'."
   "Add a hook to automatically encrypt entries before a file is saved to disk."
   (add-hook
    'org-mode-hook
-   (lambda () (add-hook 'before-save-hook 'org-encrypt-entries nil t))))
+   (lambda () (org-add-hook 'before-save-hook 'org-encrypt-entries nil t))))
 
 (add-hook 'org-reveal-start-hook 'org-decrypt-entry)