소스 검색

org-mime: now inherits MAIL_* properties

  Thanks to niels giesen for this patch
Eric Schulte 14 년 전
부모
커밋
b41a340e9e
1개의 변경된 파일5개의 추가작업 그리고 4개의 파일을 삭제
  1. 5 4
      contrib/lisp/org-mime.el

+ 5 - 4
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)