diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-12-16 18:25:00 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-12-16 18:25:00 -0700 |
commit | f68f1e6055f422ec032ee2dd3264638cd51609a7 (patch) | |
tree | 123e001e0fde6d395faf62203ee57c0cc1666e31 | |
parent | 943b6701c43ae5d38c4c82eec09caefd13dc736e (diff) | |
download | org-mode-f68f1e6055f422ec032ee2dd3264638cd51609a7.tar.gz |
org-mime: set message subject from buffer title
* contrib/lisp/org-mime.el (org-mime-org-buffer-htmlize): Set message
subject from buffer title.
-rw-r--r-- | contrib/lisp/org-mime.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index e806639..e57fca7 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")) |