emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Accepted] [Orgmode] org-crypt: fix decrypt outline display bug


From: Bastien Guerry
Subject: [Accepted] [Orgmode] org-crypt: fix decrypt outline display bug
Date: Tue, 1 Feb 2011 12:54:07 +0100 (CET)

Patch 561 (http://patchwork.newartisans.com/patch/561/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C1296045989-11068-1-git-send-email-julien%40danjou.info%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] org-crypt: fix decrypt outline display bug
> Date: Wed, 26 Jan 2011 17:46:29 -0000
> From: Julien Danjou <address@hidden>
> X-Patchwork-Id: 561
> Message-Id: <address@hidden>
> To: address@hidden
> Cc: Julien Danjou <address@hidden>, John Wiegley <address@hidden>,
>       Peter Jones <address@hidden>
> 
> * org-crypt.el (org-decrypt-entry): Delete \n on top level heading.
> This avoids a display bug showing the heading outlined where the text
> is not since it does not have the outline property.
> Restore subtree visibility state after decryption.
> 
> Cc: John Wiegley <address@hidden>
> Cc: Peter Jones <address@hidden>
> Signed-off-by: Julien Danjou <address@hidden>
> 
> ---
> lisp/org-crypt.el |   43 ++++++++++++++++++++++++++-----------------
>  1 files changed, 26 insertions(+), 17 deletions(-)
> 
> diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el
> index 1758a81..7c28d70 100644
> --- a/lisp/org-crypt.el
> +++ b/lisp/org-crypt.el
> @@ -140,23 +140,32 @@ This setting can also be overridden in the CRYPTKEY 
> property."
>    (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)))))
> +      (let ((heading-point (point))
> +         (heading-was-invisible-p
> +          (save-excursion
> +            (outline-end-of-heading)
> +            (outline-invisible-p))))
> +     (forward-line)
> +     (when (looking-at "-----BEGIN PGP MESSAGE-----")
> +       (let* ((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 (point) end))
> +                'utf-8)))
> +         ;; Delete region starting just before point, because the
> +         ;; outline property starts at the \n of the heading.
> +         (delete-region (1- (point)) end)
> +         (insert "\n" decrypted-text)
> +         (when heading-was-invisible-p
> +           (goto-char heading-point)
> +           (org-flag-subtree t))
> +         nil))))))
>  
>  (defun org-encrypt-entries ()
>    "Encrypt all top-level entries in the current buffer."
> 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]