[Orgmode] Property inheritance for MAIL_FMT, MAIL_TO, MAIL_CC and MAIL_BCC

[niels giesen]

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

pgpyDs1ewKfEz.pgp
Description: PGP signature