Re: Can't email multipart/alternative anymore

[Peter Davis <pfd@pfdstudio.com>]

Aaron Ecay <aaronecay@gmail.com> writes:

>
> As Nicolas said, it would be good to know if upgrading org fixes the
> issue that you see.

I just tried updated via the list-packages, but ...

1) org-version now says 8.3.2 (formerly 8.2.10)

2) I now get this error:

Making completion list...
Quit
Mark set [2 times]
org-babel-exp process dot at line 9...
executing Dot code block...
Wrote /var/folders/d4/xb7t0gbd0f97p6494kz5xzdnmlncz8/T/babel-27532hcO/ob-input-27532inY
Code block evaluation complete.
apply: Wrong type argument: listp, #("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#0)))

3) The stackdump for this:

Debugger entered--Lisp error: (wrong-type-argument listp #("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#1))))
  org-element-set-contents(#("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#0))))
  apply(org-element-set-contents #("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#0))) nil)
  #[(s) "\b\306\307\310\b#\x1a\311\312	\211:\204\0\313\202\"\v@9\203!\vAA\202\"\v)\"\210\314\315\n	\211:\2043\313\202@\v@9\203?\vAA\202@\v)#\210	\316\211\n\x1c\v;\203V\317\320\f\v#\202\\\321\vA@\f\"*\x1c\211;\203n\322\v\313\f
$\202z\vA\323\vA@\f
#\240\210\v+\210\nA	A@\240\210\n	@\240*\207" [s new old element property value replace-regexp-in-string "\n" " " mapc #[(blob) "\b\305	^[\211;\203\0\306\f\307\v\n$\202 \fA\310\fA@\v\n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 6](#("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#0))))
  #[(--data) "\b\211:\204\0	;\205\0\306\202\0	@9\205\0	@)\b?\206\337\v\203,\b\307\v\310\">\206\337\n\2047\311\f\b\"\202\337\n\312=\203\\\311\f\b\211:\204J\313\202W	@9\203V	AA\202W	)\"\202\337\n
>\203\202\x0e\b!\211\x15\203\201\x0e\203z\314\315\x15\"\210\202\201\x0e\x0eB\x17)\x18\316=\203\312\b;\204\312\n\x19\236A\313\x1a\211^[\203\311\x0e@\x1a\f\x1a\b\x1e	;\203\266\317\320\x1c	#\202\275\307	A@\x1c\"*!\210^[A\211^[\204\234*\x1d\203\202\x0e\316=\203\202\n\x1e>\203\202\x0e\x1f\313 \211^[\203\201\x0e@\211 @ A\b\x1e	;\203\x01\317\320\x1c	#\202\v\307	A@\x1c\"*!\"!\203w\x0e\"#\235\203_\x0e\"$\235\203P\321!!\313%\211^[\203L\x0e@%\f%A!\210\f%@!\210^[A\211^[\2042*\202w\f!A!\210\f!@!\210\202w\x0e\"$\235\203r\311\f\321!!\"\210\202w\f!!\210*^[A\211^[\204\350*\n&>\206\337\b\211:\204\224\313\202\241	@9\203\240	AA\202\241	)?\206\337\x0e\322=\203\265\n'>?\206\337\x0e\323=\203\303\n(>\206\337\311\f\b\211:\204\320\313\202\335	@9\203\334	AA\202\335	)\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6](#("Org Mime Org Buffer HTMLize test" 0 32 (:parent (#0))))
  mapc(#[(--data) "\b\211:\204\0	;\205\0\306\202\0	@9\205\0	@)\b?\206\337\v\203,\b\307\v\310\">\206\337\n\2047\311\f\b\"\202\337\n\312=\203\\\311\f\b\211:\204J\313\202W	@9\203V	AA\202W	)\"\202\337\n
>\203\202\x0e\b!\211\x15\203\201\x0e\203z\314\315\x15\"\210\202\201\x0e\x0eB\x17)\x18\316=\203\312\b;\204\312\n\x19\236A\313\x1a\211^[\203\311\x0e@\x1a\f\x1a\b\x1e	;\203\266\317\320\x1c	#\202\275\307	A@\x1c\"*!\210^[A\211^[\204\234*\x1d\203\202\x0e\316=\203\202\n\x1e>\203\202\x0e\x1f\313 \211^[\203\201\x0e@\211 @ A\b\x1e	;\203\x01\317\320\x1c	#\202\v\307	A@\x1c\"*!\"!\203w\x0e\"#\235\203_\x0e\"$\235\203P\321!!\313%\211^[\203L\x0e@%\f%A!\210\f%@!\210^[A\211^[\2042*\202w\f!A!\210\f!@!\210\202w\x0e\"$\235\203r\311\f\321!!\"\210\202w\f!!\210*^[A\211^[\204\350*\n&>\206\337\b\211:\204\224\313\202\241	@9\203\240	AA\202\241	)?\206\337\x0e\322=\203\265\n'>?\206\337\x0e\323=\203\303\n(>\206\337\311\f\b\211:\204\320\313\202\335	@9\203\334	AA\202\335	)\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6] (#("Org Mime Org Buffer HTMLize test" 0 32 (:parent #0))))
  #[(--data) "\b\211:\204\0	;\205\0\306\202\0	@9\205\0	@)\b?\206\337\v\203,\b\307\v\310\">\206\337\n\2047\311\f\b\"\202\337\n\312=\203\\\311\f\b\211:\204J\313\202W	@9\203V	AA\202W	)\"\202\337\n
>\203\202\x0e\b!\211\x15\203\201\x0e\203z\314\315\x15\"\210\202\201\x0e\x0eB\x17)\x18\316=\203\312\b;\204\312\n\x19\236A\313\x1a\211^[\203\311\x0e@\x1a\f\x1a\b\x1e	;\203\266\317\320\x1c	#\202\275\307	A@\x1c\"*!\210^[A\211^[\204\234*\x1d\203\202\x0e\316=\203\202\n\x1e>\203\202\x0e\x1f\313 \211^[\203\201\x0e@\211 @ A\b\x1e	;\203\x01\317\320\x1c	#\202\v\307	A@\x1c\"*!\"!\203w\x0e\"#\235\203_\x0e\"$\235\203P\321!!\313%\211^[\203L\x0e@%\f%A!\210\f%@!\210^[A\211^[\2042*\202w\f!A!\210\f!@!\210\202w\x0e\"$\235\203r\311\f\321!!\"\210\202w\f!!\210*^[A\211^[\204\350*\n&>\206\337\b\211:\204\224\313\202\241	@9\203\240	AA\202\241	)?\206\337\x0e\322=\203\265\n'>?\206\337\x0e\323=\203\303\n(>\206\337\311\f\b\211:\204\320\313\202\335	@9\203\334	AA\202\335	)\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6]((#("Org Mime Org Buffer HTMLize test" 0 32 (:parent #0))))
  byte-code("\b	!\210\n\237\207" [--walk-tree data --acc] 2)
  org-element-map((#("Org Mime Org Buffer HTMLize test" 0 32 (:parent #0))) plain-text #[(s) "\b\306\307\310\b#\x1a\311\312	\211:\204\0\313\202\"\v@9\203!\vAA\202\"\v)\"\210\314\315\n	\211:\2043\313\202@\v@9\203?\vAA\202@\v)#\210	\316\211\n\x1c\v;\203V\317\320\f\v#\202\\\321\vA@\f\"*\x1c\211;\203n\322\v\313\f
$\202z\vA\323\vA@\f
#\240\210\v+\210\nA	A@\240\210\n	@\240*\207" [s new old element property value replace-regexp-in-string "\n" " " mapc #[(blob) "\b\305	^[\211;\203\0\306\f\307\v\n$\202 \fA\310\fA@\v\n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 6])
  org-export--get-inbuffer-options([cl-struct-org-export-backend html nil ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-definition . org-html-footnote-definition) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) (plain-list . org-html-plain-list) (plain-text . org-html-plain-text) (planning . org-html-planning) (property-drawer . org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target . org-html-radio-target) (section . org-html-section) (special-block . org-html-special-block) (src-block . org-html-src-block) (statistics-cookie . org-html-statistics-cookie) (strike-through . org-html-strike-through) (subscript . org-html-subscript) (superscript . org-html-superscript) (table . org-html-table) (table-cell . org-html-table-cell) (table-row . org-html-table-row) (target . org-html-target) (template . org-html-template) (timestamp . org-html-timestamp) (underline . org-html-underline) (verbatim . org-html-verbatim) (verse-block . org-html-verse-block)) ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) (:html-format-headline-function nil nil org-html-format-headline-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) (:html-indent nil nil org-html-indent) (:html-infojs-options nil nil org-html-infojs-options) (:html-infojs-template nil nil org-html-infojs-template) (:html-inline-image-rules nil nil org-html-inline-image-rules) (:html-link-org-files-as-html nil nil org-html-link-org-files-as-html) (:html-mathjax-options nil nil org-html-mathjax-options) (:html-mathjax-template nil nil org-html-mathjax-template) (:html-metadata-timestamp-format nil nil org-html-metadata-timestamp-format) (:html-postamble-format nil nil org-html-postamble-format) (:html-preamble-format nil nil org-html-preamble-format) (:html-table-align-individual-fields nil nil org-html-table-align-individual-fields) (:html-table-caption-above nil nil org-html-table-caption-above) (:html-table-data-tags nil nil org-html-table-data-tags) (:html-table-header-tags nil nil org-html-table-header-tags) (:html-table-use-header-tags-for-first-column nil nil org-html-table-use-header-tags-for-first-column) (:html-tag-class-prefix nil nil org-html-tag-class-prefix) (:html-text-markup-alist nil nil org-html-text-markup-alist) (:html-todo-kwd-class-prefix nil nil org-html-todo-kwd-class-prefix) (:html-toplevel-hlevel nil nil org-html-toplevel-hlevel) (:html-use-infojs nil nil org-html-use-infojs) (:html-validation-link nil nil org-html-validation-link) (:html-viewport nil nil org-html-viewport) ...) ((:filter-options . org-html-infojs-install-script) (:filter-final-output . org-html-final-function)) ("HTML") (104 "Export to HTML" ((72 "As HTML buffer" org-html-export-as-html) (104 "As HTML file" org-html-export-to-html) (111 "As HTML file and open" (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b)))))))])
  org-export-get-environment([cl-struct-org-export-backend html nil ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-definition . org-html-footnote-definition) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) (plain-list . org-html-plain-list) (plain-text . org-html-plain-text) (planning . org-html-planning) (property-drawer . org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target . org-html-radio-target) (section . org-html-section) (special-block . org-html-special-block) (src-block . org-html-src-block) (statistics-cookie . org-html-statistics-cookie) (strike-through . org-html-strike-through) (subscript . org-html-subscript) (superscript . org-html-superscript) (table . org-html-table) (table-cell . org-html-table-cell) (table-row . org-html-table-row) (target . org-html-target) (template . org-html-template) (timestamp . org-html-timestamp) (underline . org-html-underline) (verbatim . org-html-verbatim) (verse-block . org-html-verse-block)) ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) (:html-format-headline-function nil nil org-html-format-headline-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) (:html-indent nil nil org-html-indent) (:html-infojs-options nil nil org-html-infojs-options) (:html-infojs-template nil nil org-html-infojs-template) (:html-inline-image-rules nil nil org-html-inline-image-rules) (:html-link-org-files-as-html nil nil org-html-link-org-files-as-html) (:html-mathjax-options nil nil org-html-mathjax-options) (:html-mathjax-template nil nil org-html-mathjax-template) (:html-metadata-timestamp-format nil nil org-html-metadata-timestamp-format) (:html-postamble-format nil nil org-html-postamble-format) (:html-preamble-format nil nil org-html-preamble-format) (:html-table-align-individual-fields nil nil org-html-table-align-individual-fields) (:html-table-caption-above nil nil org-html-table-caption-above) (:html-table-data-tags nil nil org-html-table-data-tags) (:html-table-header-tags nil nil org-html-table-header-tags) (:html-table-use-header-tags-for-first-column nil nil org-html-table-use-header-tags-for-first-column) (:html-tag-class-prefix nil nil org-html-tag-class-prefix) (:html-text-markup-alist nil nil org-html-text-markup-alist) (:html-todo-kwd-class-prefix nil nil org-html-todo-kwd-class-prefix) (:html-toplevel-hlevel nil nil org-html-toplevel-hlevel) (:html-use-infojs nil nil org-html-use-infojs) (:html-validation-link nil nil org-html-validation-link) (:html-viewport nil nil org-html-viewport) ...) ((:filter-options . org-html-infojs-install-script) (:filter-final-output . org-html-final-function)) ("HTML") (104 "Export to HTML" ((72 "As HTML buffer" org-html-export-as-html) (104 "As HTML file" org-html-export-to-html) (111 "As HTML file and open" (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b)))))))] nil nil)
  org-export-as(html nil nil t nil)
  org-export-string-as(#("#+STARTUP: showeverything logdone\n#+options: toc:nil num:nil\n#+title: Org Mime Org Buffer HTMLize test\n\n* Intro\n\nHere's a simple graph:\n\n#+BEGIN_SRC dot :file org-test.png :cmdline -Kdot -Tpng\ndigraph G {\n  rankdir=LR;\n  node [shape=box];\n  A -> B;\n  B -> C;\n  C -> A;\n}\n#+END_SRC\n\nWill org-mime-org-buffer-htmlize automatically include the image?\n\n" 0 33 (fontified t font-lock-fontified t face org-meta-line) 33 34 (fontified t) 34 60 (fontified t font-lock-fontified t face org-meta-line) 60 61 (fontified t) 61 69 (fontified t font-lock-fontified t face org-document-info-keyword) 69 70 (fontified t) 70 103 (fontified t font-lock-fontified t face org-document-title) 103 104 (fontified t) 104 106 (fontified t face org-level-1) 106 111 (fontified t face org-level-1) 111 137 (fontified t) 137 192 (fontified t font-lock-fontified t font-lock-multiline t face org-block-begin-line) 192 193 (fontified t font-lock-fontified t font-lock-multiline t face org-block-begin-line) 193 270 (fontified t font-lock-fontified t font-lock-multiline t src-block t) 270 271 (fontified t font-lock-fontified t font-lock-multiline t src-block t) 271 280 (fontified t font-lock-fontified t font-lock-multiline t face org-block-end-line) 280 281 (fontified t face org-block-end-line) 281 282 (fontified t) 282 349 (fontified t)) html t)
  (org-mime-replace-images (org-export-string-as (funcall bhook body (quote html)) (quote html) t) file)
  (let* ((org-link-file-path-type (quote absolute)) (org-export-htmlize-output-type (quote inline-css)) (html-and-images (org-mime-replace-images (org-export-string-as (funcall bhook body (quote html)) (quote html) t) file)) (images (cdr html-and-images)) (html (org-mime-apply-html-hook (car html-and-images)))) (insert (org-mime-multipart (org-export-string-as (org-babel-trim (funcall bhook body (if (eq fmt ...) (quote org) (quote ascii)))) (if (eq fmt (quote html)) (quote org) (quote ascii)) t) html) (mapconcat (quote identity) images "\n")))
  (cond ((eq fmt (quote org)) (require (quote ox-org)) (insert (org-export-string-as (org-babel-trim (funcall bhook body (quote org))) (quote org) t))) ((eq fmt (quote ascii)) (require (quote ox-ascii)) (insert (org-export-string-as (concat "#+Title:\n" (funcall bhook body (quote ascii))) (quote ascii) t))) ((or (eq fmt (quote html)) (eq fmt (quote html-ascii))) (require (quote ox-ascii)) (require (quote ox-org)) (let* ((org-link-file-path-type (quote absolute)) (org-export-htmlize-output-type (quote inline-css)) (html-and-images (org-mime-replace-images (org-export-string-as (funcall bhook body ...) (quote html) t) file)) (images (cdr html-and-images)) (html (org-mime-apply-html-hook (car html-and-images)))) (insert (org-mime-multipart (org-export-string-as (org-babel-trim (funcall bhook body ...)) (if (eq fmt ...) (quote org) (quote ascii)) t) html) (mapconcat (quote identity) images "\n")))))
  (let ((bhook (function (lambda (body fmt) (let ((hook ...)) (if (> ... 0) (let ... ...) body))))) (fmt (if (symbolp fmt) fmt (intern fmt)))) (cond ((eq fmt (quote org)) (require (quote ox-org)) (insert (org-export-string-as (org-babel-trim (funcall bhook body (quote org))) (quote org) t))) ((eq fmt (quote ascii)) (require (quote ox-ascii)) (insert (org-export-string-as (concat "#+Title:\n" (funcall bhook body (quote ascii))) (quote ascii) t))) ((or (eq fmt (quote html)) (eq fmt (quote html-ascii))) (require (quote ox-ascii)) (require (quote ox-org)) (let* ((org-link-file-path-type (quote absolute)) (org-export-htmlize-output-type (quote inline-css)) (html-and-images (org-mime-replace-images (org-export-string-as ... ... t) file)) (images (cdr html-and-images)) (html (org-mime-apply-html-hook (car html-and-images)))) (insert (org-mime-multipart (org-export-string-as (org-babel-trim ...) (if ... ... ...) t) html) (mapconcat (quote identity) images "\n"))))))
  org-mime-compose(#("#+STARTUP: showeverything logdone\n#+options: toc:nil num:nil\n#+title: Org Mime Org Buffer HTMLize test\n\n* Intro\n\nHere's a simple graph:\n\n#+BEGIN_SRC dot :file org-test.png :cmdline -Kdot -Tpng\ndigraph G {\n  rankdir=LR;\n  node [shape=box];\n  A -> B;\n  B -> C;\n  C -> A;\n}\n#+END_SRC\n\nWill org-mime-org-buffer-htmlize automatically include the image?\n\n" 0 33 (fontified t font-lock-fontified t face org-meta-line) 33 34 (fontified t) 34 60 (fontified t font-lock-fontified t face org-meta-line) 60 61 (fontified t) 61 69 (fontified t font-lock-fontified t face org-document-info-keyword) 69 70 (fontified t) 70 103 (fontified t font-lock-fontified t face org-document-title) 103 104 (fontified t) 104 106 (fontified t face org-level-1) 106 111 (fontified t face org-level-1) 111 137 (fontified t) 137 192 (fontified t font-lock-fontified t font-lock-multiline t face org-block-begin-line) 192 193 (fontified t font-lock-fontified t font-lock-multiline t face org-block-begin-line) 193 270 (fontified t font-lock-fontified t font-lock-multiline t src-block t) 270 271 (fontified t font-lock-fontified t font-lock-multiline t src-block t) 271 280 (fontified t font-lock-fontified t font-lock-multiline t face org-block-end-line) 280 281 (fontified t face org-block-end-line) 281 282 (fontified t) 282 349 (fontified t)) html "/Users/davisp/Dropbox/HMH/test.org" nil "test")
  (let* ((region-p (org-region-active-p)) (file (buffer-file-name (current-buffer))) (subject (if (not file) (buffer-name (buffer-base-buffer)) (file-name-sans-extension (file-name-nondirectory file)))) (body-start (or (and region-p (region-beginning)) (save-excursion (goto-char (point-min))))) (body-end (or (and region-p (region-end)) (point-max))) (temp-body-file (make-temp-file "org-mime-export")) (body (buffer-substring body-start body-end))) (org-mime-compose body (or fmt (quote org)) file nil subject))
  org-mime-send-buffer(html)
  org-mime-org-buffer-htmlize()
  call-interactively(org-mime-org-buffer-htmlize record nil)
  command-execute(org-mime-org-buffer-htmlize record)
  execute-extended-command(nil "org-mime-org-buffer-htmlize")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)