Property inheritance for MAIL_FMT, MAIL_TO, MAIL_CC and MAIL_BCC

From: niels giesen <niels.giesen@gmail.com>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Property inheritance for MAIL_FMT, MAIL_TO, MAIL_CC and MAIL_BCC
Date: Thu, 13 Jan 2011 23:47:54 +0100	[thread overview]
Message-ID: <877he8xvxh.fsf@gmail.com> (raw)

[-- Attachment #1.1: Type: text/plain, Size: 1773 bytes --]

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

[-- Attachment #1.2: Type: application/pgp-signature, Size: 196 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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