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

emacs: `notmuch-show-get-message-id': optionally return Message-Id sans prefix

Browse source 
* emacs/notmuch-show.el

  (notmuch-show-get-message-id):
    Add optional arg BARE.  When non-nil, return a Message-Id without
    quotes and prefix, thus obviating the need to strip them off again
    in various places.

  (notmuch-show-stash-message-id-stripped):
    Update wrt changes in `notmuch-show-get-message-id'.
This commit is contained in:
Pieter Praet 2012-02-19 21:50:25 +01:00 committed by David Bremner
parent 327892f596
commit 16ba777fd2
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs/notmuch-show.el
View file

@ -1333,9 +1333,14 @@ Some useful entries are:
(notmuch-show-get-message-properties)))) (notmuch-show-get-message-properties))))
(plist-get props prop))) (plist-get props prop)))
(defun notmuch-show-get-message-id () (defun notmuch-show-get-message-id (&optional bare)
"Return the message id of the current message." "Return the Message-Id of the current message.
(concat "id:\"" (notmuch-show-get-prop :id) "\""))
If optional argument BARE is non-nil, return
the Message-Id without prefix and quotes."
(if bare
(notmuch-show-get-prop :id)
(concat "id:\"" (notmuch-show-get-prop :id) "\"")))
(defun notmuch-show-get-messages-ids () (defun notmuch-show-get-messages-ids ()
"Return all message ids of messages in the current thread." "Return all message ids of messages in the current thread."
@ -1793,7 +1798,7 @@ thread from search."
(defun notmuch-show-stash-message-id-stripped () (defun notmuch-show-stash-message-id-stripped ()
"Copy message ID of current message (sans `id:' prefix) to kill-ring." "Copy message ID of current message (sans `id:' prefix) to kill-ring."
(interactive) (interactive)
(notmuch-common-do-stash (substring (notmuch-show-get-message-id) 4 -1))) (notmuch-common-do-stash (notmuch-show-get-message-id t)))
(defun notmuch-show-stash-subject () (defun notmuch-show-stash-subject ()
"Copy Subject field of current message to kill-ring." "Copy Subject field of current message to kill-ring."