procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Convert copyright of authors with assignment to FSF.

Browse source 
Remove trailing whitespace.
This commit is contained in:
Glenn Morris 2009-10-01 17:52:36 +00:00
parent dcb9734a44
commit b938bbde4d
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/org/org-crypt.el
View file

@ -1,7 +1,6 @@
;;; org-crypt.el --- Public key encryption for org-mode entries
;; Copyright (C) 2009 Peter Jones <pjones@pmade.com>
;; Copyright (C) 2007 John Wiegley <johnw@gnu.org>
;; Copyright (C) 2007, 2009 Free Software Foundation, Inc.
;; Emacs Lisp Archive Entry
;; Filename: org-crypt.el
@ -95,7 +94,7 @@ heading. This can also be overridden in the CRYPTKEY property."
"Returns the encryption key for the current heading."
(save-excursion
(org-back-to-heading t)
(or (org-entry-get nil "CRYPTKEY" 'selective)
(or (org-entry-get nil "CRYPTKEY" 'selective)
org-crypt-key
(and (boundp 'epa-file-encrypt-to) epa-file-encrypt-to)
(error "No crypt key set"))))
@ -117,7 +116,7 @@ heading. This can also be overridden in the CRYPTKEY property."
(org-back-over-empty-lines)
(setq end (point)
encrypted-text
(epg-encrypt-string
(epg-encrypt-string
epg-context
(buffer-substring-no-properties beg end)
(epg-list-keys epg-context crypt-key)))
@ -137,12 +136,12 @@ heading. This can also be overridden in the CRYPTKEY property."
(forward-line)
(when (looking-at "-----BEGIN PGP MESSAGE-----")
(let* ((beg (point))
(end (save-excursion
(end (save-excursion
(search-forward "-----END PGP MESSAGE-----")
(forward-line)
(point)))
(epg-context (epg-make-context nil t t))
(decrypted-text
(decrypted-text
(decode-coding-string
(epg-decrypt-string
epg-context
@ -160,17 +159,17 @@ heading. This can also be overridden in the CRYPTKEY property."
(defun org-decrypt-entries ()
(interactive)
(org-scan-tags
(org-scan-tags
'org-decrypt-entry
(cdr (org-make-tags-matcher org-crypt-tag-matcher))))
(defun org-crypt-use-before-save-magic ()
"Adds a hook that will automatically encrypt entries before a
file is saved to disk."
(add-hook
'org-mode-hook
(add-hook
'org-mode-hook
(lambda () (add-hook 'before-save-hook 'org-encrypt-entries nil t))))
(provide 'org-crypt)
;; arch-tag: 8202ed2c-221e-4001-9e4b-54674a7e846e