summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
67f5353)
There is not much code here, but at least we can fix the indexing as 1
based.
(defun notmuch-show-get-filename ()
"Return the filename of the current message."
(defun notmuch-show-get-filename ()
"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))))
(defun notmuch-show-get-header (header &optional props)
(nth (1- duplicate) (notmuch-show-get-prop :filename))))
(defun notmuch-show-get-header (header &optional props)
(defun notmuch-show-get-date ()
(notmuch-show-get-header :Date))
(defun notmuch-show-get-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 ()
(notmuch-show-get-prop :timestamp))
(defun notmuch-show-get-timestamp ()
(notmuch-show-get-prop :timestamp))