From fdbc20f04baa3587ff39a9b055609224c28fe706 Mon Sep 17 00:00:00 2001 From: Myles English Date: Thu, 26 Jul 2012 15:12:56 +0100 Subject: [PATCH] added defcustom org-mu4e-link-description Allows the user to customise the org link, e.g. (setq org-mu4e-link-description '(concat date " " subject)) --- mu4e/org-mu4e.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/mu4e/org-mu4e.el b/mu4e/org-mu4e.el index cefdabad..35969a9d 100644 --- a/mu4e/org-mu4e.el +++ b/mu4e/org-mu4e.el @@ -32,6 +32,17 @@ (eval-when-compile (require 'cl)) (eval-when-compile (require 'mu4e)) +(defgroup org-mu4e nil + "Settings for the org interface." + :group 'org-mu4e) + +(defcustom org-mu4e-link-description 'subject + "How to make the org-mode link description." + :type 'string + :group 'org-mu4e) + +;;(setq org-mu4e-link-description '(concat date " " subject)) + (defun org-mu4e-store-link () "Store a link to a mu4e query or message." (cond @@ -51,11 +62,15 @@ (let* ((msg (mu4e-message-at-point)) (msgid (or (plist-get msg :message-id) "")) (subject (or (plist-get msg :subject) "No subject")) + (date (or (format-time-string mu4e-headers-date-format + (mu4e-msg-field msg :date)) + "No date")) link) (org-store-link-props :type "mu4e" :link link - :message-id msgid :subject subject) + :message-id msgid :subject subject :date date) (setq link (org-make-link "mu4e:msgid:" msgid)) - (org-add-link-props :link link :description subject) + (org-add-link-props :link link + :description (eval org-mu4e-link-description)) link)))) (org-add-link-type "mu4e" 'org-mu4e-open)