tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-mime: set message subject from buffer title

Browse source 
* contrib/lisp/org-mime.el (org-mime-org-buffer-htmlize): Set message
  subject from buffer title.
This commit is contained in:
Eric Schulte 2010-12-16 18:25:00 -07:00
parent 943b6701c4
commit f68f1e6055
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
contrib/lisp/org-mime.el
View file

@ -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"))