Quellcode durchsuchen

Merge branch 'maint'

Nicolas Goaziou vor 8 Jahren
Ursprung
Commit
20f6c1965c
1 geänderte Dateien mit 5 neuen und 1 gelöschten Zeilen
  1. 5 1
      lisp/org-crypt.el

+ 5 - 1
lisp/org-crypt.el

@@ -183,7 +183,11 @@ See `org-crypt-disable-auto-save'."
 	 (org-end-of-subtree t t)
 	 (org-back-over-empty-lines)
 	 (let ((contents (delete-and-extract-region beg (point))))
-	   (insert (org-encrypt-string contents crypt-key)))
+	   (condition-case err
+	       (insert (org-encrypt-string contents crypt-key))
+	     ;; If encryption failed, make sure to insert back entry
+	     ;; contents in the buffer.
+	     (error (insert contents) (error (nth 1 err)))))
 	 (when folded
 	   (goto-char start-heading)
 	   (outline-hide-subtree))