Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setq org-capture-templates
- (quote (("t" "todo" entry (file "~/org/refile.org")
- "* TODO %?n%Un%an" :clock-in t :clock-resume t)
- ("r" "respond" entry (file "~/org/refile.org")
- "* NEXT Respond to %:from on %:subjectnSCHEDULED: %tn%Un%an" :clock-in t :clock-resume t :immediate-finish t))))
- (defun org-notmuch-store-link ()
- "Store a link to a notmuch search or message."
- (when (eq major-mode 'notmuch-show-mode)
- (let* ((message-id (notmuch-show-get-prop :id))
- (subject (notmuch-show-get-subject))
- (to (notmuch-show-get-to))
- (from (notmuch-show-get-from))
- desc link)
- (org-store-link-props :type "notmuch" :from from :to to
- :subject subject :message-id message-id)
- (setq desc (org-email-link-description))
- (setq link (concat "notmuch:" "id:" message-id))
- (org-add-link-props :link link :description desc)
- link)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement