Ver código fonte

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

Bastien Guerry 14 anos atrás
pai
commit
6ebd09177e
2 arquivos alterados com 12 adições e 5 exclusões
  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 ()