ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-notmuch: Add date support to org-notmuch-store-link 

* contrib/lisp/org-notmuch.el (org-notmuch-store-link): Add date
  support.
* doc/org.texi: Fix `org-capture-templates' documentation.
This commit is contained in:
Jan Malakhovski 2015-12-27 14:54:17 +00:00 committed by Nicolas Goaziou
parent d1f42e7f32
commit 839dae713e
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/lisp/org-notmuch.el
View File

@ -71,15 +71,16 @@ Should accept a notmuch search string as the sole argument."
(defun org-notmuch-store-link () (defun org-notmuch-store-link ()
"Store a link to a notmuch search or message." "Store a link to a notmuch search or message."
(when (eq major-mode 'notmuch-show-mode) (when (eq major-mode 'notmuch-show-mode)
(let* ((message-id (notmuch-show-get-prop :id)) (let* ((message-id (notmuch-show-get-message-id t))
(subject (notmuch-show-get-subject)) (subject (notmuch-show-get-subject))
(to (notmuch-show-get-to)) (to (notmuch-show-get-to))
(from (notmuch-show-get-from)) (from (notmuch-show-get-from))
(date (org-trim (notmuch-show-get-date)))
desc link) desc link)
(org-store-link-props :type "notmuch" :from from :to to (org-store-link-props :type "notmuch" :from from :to to :date date
:subject subject :message-id message-id) :subject subject :message-id message-id)
(setq desc (org-email-link-description)) (setq desc (org-email-link-description))
(setq link (concat "notmuch:" "id:" message-id)) (setq link (concat "notmuch:id:" message-id))
(org-add-link-props :link link :description desc) (org-add-link-props :link link :description desc)
link))) link)))

2
doc/org.texi
View File

@ -7304,7 +7304,7 @@ Link type | Available keywords
bbdb | %:name %:company bbdb | %:name %:company
irc | %:server %:port %:nick irc | %:server %:port %:nick
vm, vm-imap, wl, mh, mew, rmail, | %:type %:subject %:message-id vm, vm-imap, wl, mh, mew, rmail, | %:type %:subject %:message-id
gnus | %:from %:fromname %:fromaddress gnus, notmuch | %:from %:fromname %:fromaddress
| %:to %:toname %:toaddress | %:to %:toname %:toaddress
| %:date @r{(message date header field)} | %:date @r{(message date header field)}
| %:date-timestamp @r{(date as active timestamp)} | %:date-timestamp @r{(date as active timestamp)}