Prechádzať zdrojové kódy

Use the org-mime-default-header customized variable

* contrib/lisp/org-mime.el (org-mime-htmlize): Use the
  org-mime-default-header customized variable.
Eric Schulte 12 rokov pred
rodič
commit
8dd3fa301a
1 zmenil súbory, kde vykonal 2 pridanie a 1 odobranie
  1. 2 1
      contrib/lisp/org-mime.el

+ 2 - 1
contrib/lisp/org-mime.el

@@ -204,7 +204,8 @@ export that region, otherwise export the entire body."
          (html-end (or (and region-p (region-end))
                        ;; TODO: should catch signature...
                        (point-max)))
-         (raw-body (buffer-substring html-start html-end))
+         (raw-body (concat org-mime-default-header
+			   (buffer-substring html-start html-end)))
          (tmp-file (make-temp-name (expand-file-name
 				    "mail" temporary-file-directory)))
          (body (org-export-string raw-body 'org (file-name-directory tmp-file)))