This is now applied. Thanks for the patch, and for the motivating usage example. -- Eric
niels giesen <niels.gie...@gmail.com> writes: > Hi Eric, > > Please see the patch below, it adds property inheritance for all > MAIL_* properties, based on the value of > `org-use-property-inheritance'. > > #+begin_src diff > diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el > index 68a3498..ae430fb 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,8 @@ 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) > #+end_src > > The current mail was sent with it, where some parent tree has the > mail_cc set to this list, but the mail_to set to your email address in > the subtree. I believe this functionality can be quite handy. > > niels > -- > http://pft.github.com _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
