debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs/show: provide a more friendly function to get duplicate num

Browse source 
There is not much code here, but at least we can fix the indexing as 1
based.
This commit is contained in:
David Bremner 2022-08-04 08:48:07 -03:00
parent 67f535332c
commit 05c85290ca
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-show.el
View file

@ -1813,7 +1813,7 @@ current thread."
(defun notmuch-show-get-filename () (defun notmuch-show-get-filename ()
"Return the filename of the current message." "Return the filename of the current message."
(let ((duplicate (or (notmuch-show-get-prop :duplicate) 1))) (let ((duplicate (notmuch-show-get-duplicate)))
(nth (1- duplicate) (notmuch-show-get-prop :filename)))) (nth (1- duplicate) (notmuch-show-get-prop :filename))))
(defun notmuch-show-get-header (header &optional props) (defun notmuch-show-get-header (header &optional props)
@ -1826,6 +1826,10 @@ current thread."
(defun notmuch-show-get-date () (defun notmuch-show-get-date ()
(notmuch-show-get-header :Date)) (notmuch-show-get-header :Date))
(defun notmuch-show-get-duplicate ()
;; if no duplicate property exists, assume first file
(or (notmuch-show-get-prop :duplicate) 1))
(defun notmuch-show-get-timestamp () (defun notmuch-show-get-timestamp ()
(notmuch-show-get-prop :timestamp)) (notmuch-show-get-prop :timestamp))