debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-28 13:44:12 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Rename body-invis-spec to message-invis-spec

Browse source 
This is more consistent with the related names (toggle-message,
:message-visible, etc.)
This commit is contained in:
Carl Worth 2010-04-21 12:50:10 -07:00
parent b825204f0d
commit aab9fa307b
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-show.el
View file

@ -406,7 +406,7 @@ message at DEPTH in the current thread."
headers-start headers-end headers-start headers-end
body-start body-end body-start body-end
(headers-invis-spec (notmuch-show-make-symbol "header")) (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)) (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) (plist-put msg :headers-invis-spec headers-invis-spec)
(overlay-put (make-overlay headers-start headers-end) 'invisible headers-invis-spec) (overlay-put (make-overlay headers-start headers-end) 'invisible headers-invis-spec)
(plist-put msg :body-invis-spec body-invis-spec) (plist-put msg :message-invis-spec message-invis-spec)
(overlay-put (make-overlay body-start body-end) 'invisible body-invis-spec) (overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec)
;; Save the properties for this message. Currently this saves the ;; Save the properties for this message. Currently this saves the
;; entire message (augmented it with other stuff), which seems ;; 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. ;; visible. So we check that property separately.
(let ((headers-visible (plist-get props :headers-visible))) (let ((headers-visible (plist-get props :headers-visible)))
(notmuch-show-element-visible props headers-visible :headers-invis-spec) (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 :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)) (notmuch-show-set-prop :message-visible visible-p props))