From f68f1e6055f422ec032ee2dd3264638cd51609a7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 16 Dec 2010 18:25:00 -0700 Subject: [PATCH] org-mime: set message subject from buffer title * contrib/lisp/org-mime.el (org-mime-org-buffer-htmlize): Set message subject from buffer title. --- contrib/lisp/org-mime.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index e8066398c..e57fca721 100644 --- a/contrib/lisp/org-mime.el +++ b/contrib/lisp/org-mime.el @@ -215,6 +215,7 @@ handling with appropriate MIME encoding." (require 'reporter) (let* ((region-p (org-region-active-p)) (current-file (buffer-file-name (current-buffer))) + (title (org-export-grab-title-from-buffer)) (html-start (or (and region-p (region-beginning)) (save-excursion (goto-char (point-min))))) @@ -233,7 +234,7 @@ handling with appropriate MIME encoding." (html-images (cdr html-and-images)) (html (org-mime-apply-html-hook (car html-and-images)))) ;; dump the exported html into a fresh message buffer - (reporter-compose-outgoing) + (message-mail nil title) (message-goto-body) (prog1 (insert (org-mime-multipart body html) (mapconcat 'identity html-images "\n"))