浏览代码

Merge branch 'master' of orgmode.org:org-mode

Bastien Guerry 14 年之前
父节点
当前提交
6ebd09177e
共有 2 个文件被更改,包括 12 次插入5 次删除
  1. 9 4
      contrib/lisp/org-mime.el
  2. 3 1
      doc/org.texi

+ 9 - 4
contrib/lisp/org-mime.el

@@ -55,6 +55,11 @@
 ;;; Code:
 ;;; Code:
 (require 'cl)
 (require 'cl)
 
 
+(defcustom org-mime-use-property-inheritance nil
+  "Non-nil means al MAIL_ properties apply also for sublevels."
+  :group 'org-mime
+  :type 'boolean)
+
 (defcustom org-mime-default-header
 (defcustom org-mime-default-header
   "#+OPTIONS: latex:t\n"
   "#+OPTIONS: latex:t\n"
   "Default header to control html export options, and ensure
   "Default header to control html export options, and ensure
@@ -232,9 +237,9 @@ export that region, otherwise export the entire body."
     (run-hooks 'org-mime-send-subtree-hook)
     (run-hooks 'org-mime-send-subtree-hook)
     (let* ((file (buffer-file-name (current-buffer)))
     (let* ((file (buffer-file-name (current-buffer)))
 	   (subject (nth 4 (org-heading-components)))
 	   (subject (nth 4 (org-heading-components)))
-	   (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))
+	   (to (org-entry-get nil "MAIL_TO" org-mime-use-property-inheritance))
+	   (cc (org-entry-get nil "MAIL_CC" org-mime-use-property-inheritance))
+	   (bcc (org-entry-get nil "MAIL_BCC" org-mime-use-property-inheritance))
 	   (body (buffer-substring
 	   (body (buffer-substring
 		  (save-excursion (goto-char (point-min))
 		  (save-excursion (goto-char (point-min))
 				  (forward-line 1)
 				  (forward-line 1)
@@ -312,6 +317,6 @@ export that region, otherwise export the entire body."
   MAIL_FMT property of the subtree."
   MAIL_FMT property of the subtree."
   (interactive)
   (interactive)
   (org-mime-send-subtree
   (org-mime-send-subtree
-   (or (org-entry-get nil "MAIL_FMT" org-use-property-inheritance) 'org)))
+   (or (org-entry-get nil "MAIL_FMT" org-use-mime-property-inheritance) 'org)))
 
 
 (provide 'org-mime)
 (provide 'org-mime)

+ 3 - 1
doc/org.texi

@@ -13465,15 +13465,17 @@ fixed this problem:
             (define-key yas/keymap [tab] 'yas/next-field-group)))
             (define-key yas/keymap [tab] 'yas/next-field-group)))
 @end lisp
 @end lisp
 
 
-The latest version of yasnippets doesn't play well with Org mode. If the
+The latest version of yasnippet doesn't play well with Org mode. If the
 above code does not fix the conflict, start by defining the following
 above code does not fix the conflict, start by defining the following
 function:
 function:
+
 @lisp
 @lisp
 (defun yas/org-very-safe-expand ()
 (defun yas/org-very-safe-expand ()
        (let ((yas/fallback-behavior 'return-nil)) (yas/expand)))
        (let ((yas/fallback-behavior 'return-nil)) (yas/expand)))
 @end lisp
 @end lisp
 
 
 Then, tell Org mode what to do with the new function:
 Then, tell Org mode what to do with the new function:
+
 @lisp
 @lisp
 (add-hook 'org-mode-hook
 (add-hook 'org-mode-hook
           (lambda ()
           (lambda ()