diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2011-01-13 17:11:29 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2011-01-13 17:11:29 -0700 |
| commit | b41a340e9ef9471cae8d443c8491b748dce41df2 (patch) | |
| tree | 14e72937baf7434b65139d526dfa9cc369e20b78 | |
| parent | c8e5ba90cc73145b80943ca71eadea2cf4a37e8e (diff) | |
| download | org-mode-b41a340e9ef9471cae8d443c8491b748dce41df2.tar.gz | |
org-mime: now inherits MAIL_* properties
Thanks to niels giesen for this patch
| -rw-r--r-- | contrib/lisp/org-mime.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index 68a3498..83f4597 100644 --- a/contrib/lisp/org-mime.el +++ b/contrib/lisp/org-mime.el @@ -232,9 +232,9 @@ export that region, otherwise export the entire body." (run-hooks 'org-mime-send-subtree-hook) (let* ((file (buffer-file-name (current-buffer))) (subject (nth 4 (org-heading-components))) - (to (org-entry-get nil "MAIL_TO")) - (cc (org-entry-get nil "MAIL_CC")) - (bcc (org-entry-get nil "MAIL_BCC")) + (to (org-entry-get nil "MAIL_TO" org-use-property-inheritance)) + (cc (org-entry-get nil "MAIL_CC" org-use-property-inheritance)) + (bcc (org-entry-get nil "MAIL_BCC" org-use-property-inheritance)) (body (buffer-substring (save-excursion (goto-char (point-min)) (forward-line 1) @@ -311,6 +311,7 @@ export that region, otherwise export the entire body." exported to a org format or to the format specified by the MAIL_FMT property of the subtree." (interactive) - (org-mime-send-subtree (or (org-entry-get nil "MAIL_FMT") 'org))) + (org-mime-send-subtree + (or (org-entry-get nil "MAIL_FMT" org-use-property-inheritance) 'org))) (provide 'org-mime) |