瀏覽代碼

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 年之前
父節點
當前提交
8dd3fa301a
共有 1 個文件被更改,包括 2 次插入1 次删除
  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)))