From aab9fa307bd9a6e1da4653c217f2719ff0681c4e Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 21 Apr 2010 12:50:10 -0700 Subject: [PATCH] emacs: Rename body-invis-spec to message-invis-spec This is more consistent with the related names (toggle-message, :message-visible, etc.) --- emacs/notmuch-show.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 6b63d17c..50132223 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -406,7 +406,7 @@ message at DEPTH in the current thread." headers-start headers-end body-start body-end (headers-invis-spec (notmuch-show-make-symbol "header")) - (body-invis-spec (notmuch-show-make-symbol "body"))) + (message-invis-spec (notmuch-show-make-symbol "message"))) (setq message-start (point-marker)) @@ -449,8 +449,8 @@ message at DEPTH in the current thread." (plist-put msg :headers-invis-spec headers-invis-spec) (overlay-put (make-overlay headers-start headers-end) 'invisible headers-invis-spec) - (plist-put msg :body-invis-spec body-invis-spec) - (overlay-put (make-overlay body-start body-end) 'invisible body-invis-spec) + (plist-put msg :message-invis-spec message-invis-spec) + (overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec) ;; Save the properties for this message. Currently this saves the ;; entire message (augmented it with other stuff), which seems @@ -679,9 +679,9 @@ All currently available key bindings: ;; visible. So we check that property separately. (let ((headers-visible (plist-get props :headers-visible))) (notmuch-show-element-visible props headers-visible :headers-invis-spec) - (notmuch-show-element-visible props t :body-invis-spec)) + (notmuch-show-element-visible props t :message-invis-spec)) (notmuch-show-element-visible props nil :headers-invis-spec) - (notmuch-show-element-visible props nil :body-invis-spec)) + (notmuch-show-element-visible props nil :message-invis-spec)) (notmuch-show-set-prop :message-visible visible-p props)) -- 2.26.2