debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 17:34:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

contrib: pick: override notmuch-show-get-prop

Browse source 
We override notmuch-show-get-prop so that many of the show functions
can be used in notmuch-pick without modification. The main use is that
it means notmuch-show-get-message-id `works' in pick. Thus we get all
the stash functions and several other `for free' in pick.
This commit is contained in:
Mark Walters 2013-08-22 18:10:16 +01:00 committed by David Bremner
parent 8c6b2e7e9d
commit 1716edff9d
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/notmuch-pick/notmuch-pick.el
View file

@ -238,6 +238,22 @@ Some useful entries are:
(beginning-of-line)
(get-text-property (point) :notmuch-message-properties)))
;; XXX This should really be a lib function but we are trying to
;; reduce impact on the code base.
(defun notmuch-show-get-prop (prop &optional props)
"This is a pick overridden version of notmuch-show-get-prop
It gets property PROP from PROPS or, if PROPS is nil, the current
message in either pick or show. This means that several functions
in notmuch-show now work unchanged in pick as they just need the
correct message properties."
(let ((props (or props
(cond ((eq major-mode 'notmuch-show-mode)
(notmuch-show-get-message-properties))
((eq major-mode 'notmuch-pick-mode)
(notmuch-pick-get-message-properties))))))
(plist-get props prop)))
(defun notmuch-pick-set-message-properties (props)
(save-excursion
(beginning-of-line)