mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-22 02:48:08 +01:00
emacs: tree: bare-id in tree
Previously notmuch-tree-get-message-id always returned the id including the prefix "id:". Modify the function to take an optional `bare' argument saying to return the raw string. This will be useful later and brings the function in line with notmuch-show-get-message-id.
This commit is contained in:
parent
191f41cfec
commit
e36284d72d
1 changed files with 4 additions and 2 deletions
|
@ -319,11 +319,13 @@ correct message properties."
|
||||||
"Return the tags of the current message."
|
"Return the tags of the current message."
|
||||||
(notmuch-tree-get-prop :tags))
|
(notmuch-tree-get-prop :tags))
|
||||||
|
|
||||||
(defun notmuch-tree-get-message-id ()
|
(defun notmuch-tree-get-message-id (&optional bare)
|
||||||
"Return the message id of the current message."
|
"Return the message id of the current message."
|
||||||
(let ((id (notmuch-tree-get-prop :id)))
|
(let ((id (notmuch-tree-get-prop :id)))
|
||||||
(if id
|
(if id
|
||||||
(notmuch-id-to-query id)
|
(if bare
|
||||||
|
id
|
||||||
|
(notmuch-id-to-query id))
|
||||||
nil)))
|
nil)))
|
||||||
|
|
||||||
(defun notmuch-tree-get-match ()
|
(defun notmuch-tree-get-match ()
|
||||||
|
|
Loading…
Reference in a new issue