tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Don't throw an error when trying to decrypt before first headline

Browse source 
* lisp/org-crypt.el (org-decrypt-entry): Silently do nothing when
cursor is before first headline.
This commit is contained in:
David Maus 2010-07-16 20:25:45 +00:00 committed by Carsten Dominik
parent ebf808f9aa
commit 4c101529a4
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
lisp/org-crypt.el
View file

@ -137,25 +137,26 @@ This setting can also be overridden in the CRYPTKEY property."
"Decrypt the content of the current headline."
(interactive)
(require 'epg)
(save-excursion
(org-back-to-heading t)
(forward-line)
(when (looking-at "-----BEGIN PGP MESSAGE-----")
(let* ((beg (point))
(end (save-excursion
(search-forward "-----END PGP MESSAGE-----")
(forward-line)
(point)))
(epg-context (epg-make-context nil t t))
(decrypted-text
(decode-coding-string
(epg-decrypt-string
epg-context
(buffer-substring-no-properties beg end))
'utf-8)))
(delete-region beg end)
(insert decrypted-text)
nil))))
(unless (org-before-first-heading-p)
(save-excursion
(org-back-to-heading t)
(forward-line)
(when (looking-at "-----BEGIN PGP MESSAGE-----")
(let* ((beg (point))
(end (save-excursion
(search-forward "-----END PGP MESSAGE-----")
(forward-line)
(point)))
(epg-context (epg-make-context nil t t))
(decrypted-text
(decode-coding-string
(epg-decrypt-string
epg-context
(buffer-substring-no-properties beg end))
'utf-8)))
(delete-region beg end)
(insert decrypted-text)
nil)))))
(defun org-encrypt-entries ()
"Encrypt all top-level entries in the current buffer."