From mboxrd@z Thu Jan 1 00:00:00 1970 From: Peter Davis Subject: Re: Can't email multipart/alternative anymore Date: Wed, 28 Oct 2015 11:23:11 -0400 Message-ID: <6sw6c7fv0vc90g.fsf@pfdstudio.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44032) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZrSZK-00030C-DT for emacs-orgmode@gnu.org; Wed, 28 Oct 2015 11:23:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZrSZF-0001VQ-BW for emacs-orgmode@gnu.org; Wed, 28 Oct 2015 11:23:18 -0400 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:50516) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZrSZF-0001VC-4X for emacs-orgmode@gnu.org; Wed, 28 Oct 2015 11:23:13 -0400 Received: from compute2.internal (compute2.nyi.internal [10.202.2.42]) by mailout.nyi.internal (Postfix) with ESMTP id 66C962052A for ; Wed, 28 Oct 2015 11:23:12 -0400 (EDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Aaron Ecay 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-in= put-27532inY Code block evaluation complete. apply: Wrong type argument: listp, #("Org Mime Org Buffer HTMLize test" 0 3= 2 (:parent (#0))) 3) The stackdump for this: Debugger entered--Lisp error: (wrong-type-argument listp #("Org Mime Org Bu= ffer HTMLize test" 0 32 (:parent (#1)))) org-element-set-contents(#("Org Mime Org Buffer HTMLize test" 0 32 (:pare= nt (#0)))) apply(org-element-set-contents #("Org Mime Org Buffer HTMLize test" 0 32 = (:parent (#0))) nil) #[(s) "\306\307\310#=1A\311\312 \211:\204=00\313\202\"=0B@9\203!=0BAA\2= 02\"=0B)\"\210\314\315\n \211:\2043\313\202@=0B@9\203?=0BAA\202@=0B)#\210 \= 316\211\n=1C=0B;\203V\317\320\f=0B#\202\\\321=0BA@\f\"*=1C\211;\203n\322=0B= \313\f $\202z=0BA\323=0BA@\f #\240\210=0B+\210\nA A@\240\210\n @\240*\207" [s new old element property v= alue replace-regexp-in-string "\n" " " mapc #[(blob) "\305 =1B\211;\203=00= \306\f\307=0B\n$\202 \fA\310\fA@=0B\n#\240\210\f+\207" [blob old value prop= erty 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) "\211:\204=00 ;\205=00\306\202=00 @9\205=00 @)?\206\337=0B\2= 03,\307=0B\310\">\206\337\n\2047\311\f\"\202\337\n\312=3D\203\\\311\f\21= 1:\204J\313\202W @9\203V AA\202W )\"\202\337\n >\203\202=0E!\211=15\203\201=0E\203z\314\315=15\"\210\202\201=0E=0EB=17)= =18\316=3D\203\312;\204\312\n=19\236A\313=1A\211=1B\203\311=0E@=1A\f=1A= =1E ;\203\266\317\320=1C #\202\275\307 A@=1C\"*!\210=1BA\211=1B\204\234*=1D= \203\202=0E\316=3D\203\202\n=1E>\203\202=0E=1F\313 \211=1B\203\201=0E@\211 = @ A=1E ;\203=01\317\320=1C #\202=0B\307 A@=1C\"*!\"!\203w=0E\"#\235\203_= =0E\"$\235\203P\321!!\313%\211=1B\203L=0E@%\f%A!\210\f%@!\210=1BA\211=1B\20= 42*\202w\f!A!\210\f!@!\210\202w=0E\"$\235\203r\311\f\321!!\"\210\202w\f!!\2= 10*=1BA\211=1B\204\350*\n&>\206\337\211:\204\224\313\202\241 @9\203\240 AA= \202\241 )?\206\337=0E\322=3D\203\265\n'>?\206\337=0E\323=3D\203\303\n(>\20= 6\337\311\f\211:\204\320\313\202\335 @9\203\334 AA\202\335 )\")\207" [--da= ta 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 rever= se greater-elements elements fun result first-match --acc --category org-el= ement-secondary-value-alist p --dolist-tail-- property with-affiliated org-= element-all-elements org-element--parsed-properties-alist kwd-pair value kw= d org-element-dual-keywords org-element-multiple-keywords line no-recursion= org-element-greater-elements org-element-all-objects] 6](#("Org Mime Org B= uffer HTMLize test" 0 32 (:parent (#0)))) mapc(#[(--data) "\211:\204=00 ;\205=00\306\202=00 @9\205=00 @)?\206\337= =0B\203,\307=0B\310\">\206\337\n\2047\311\f\"\202\337\n\312=3D\203\\\311\= f\211:\204J\313\202W @9\203V AA\202W )\"\202\337\n >\203\202=0E!\211=15\203\201=0E\203z\314\315=15\"\210\202\201=0E=0EB=17)= =18\316=3D\203\312;\204\312\n=19\236A\313=1A\211=1B\203\311=0E@=1A\f=1A= =1E ;\203\266\317\320=1C #\202\275\307 A@=1C\"*!\210=1BA\211=1B\204\234*=1D= \203\202=0E\316=3D\203\202\n=1E>\203\202=0E=1F\313 \211=1B\203\201=0E@\211 = @ A=1E ;\203=01\317\320=1C #\202=0B\307 A@=1C\"*!\"!\203w=0E\"#\235\203_= =0E\"$\235\203P\321!!\313%\211=1B\203L=0E@%\f%A!\210\f%@!\210=1BA\211=1B\20= 42*\202w\f!A!\210\f!@!\210\202w=0E\"$\235\203r\311\f\321!!\"\210\202w\f!!\2= 10*=1BA\211=1B\204\350*\n&>\206\337\211:\204\224\313\202\241 @9\203\240 AA= \202\241 )?\206\337=0E\322=3D\203\265\n'>?\206\337=0E\323=3D\203\303\n(>\20= 6\337\311\f\211:\204\320\313\202\335 @9\203\334 AA\202\335 )\")\207" [--da= ta 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 rever= se greater-elements elements fun result first-match --acc --category org-el= ement-secondary-value-alist p --dolist-tail-- property with-affiliated org-= element-all-elements org-element--parsed-properties-alist kwd-pair value kw= d 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) "\211:\204=00 ;\205=00\306\202=00 @9\205=00 @)?\206\337=0B\2= 03,\307=0B\310\">\206\337\n\2047\311\f\"\202\337\n\312=3D\203\\\311\f\21= 1:\204J\313\202W @9\203V AA\202W )\"\202\337\n >\203\202=0E!\211=15\203\201=0E\203z\314\315=15\"\210\202\201=0E=0EB=17)= =18\316=3D\203\312;\204\312\n=19\236A\313=1A\211=1B\203\311=0E@=1A\f=1A= =1E ;\203\266\317\320=1C #\202\275\307 A@=1C\"*!\210=1BA\211=1B\204\234*=1D= \203\202=0E\316=3D\203\202\n=1E>\203\202=0E=1F\313 \211=1B\203\201=0E@\211 = @ A=1E ;\203=01\317\320=1C #\202=0B\307 A@=1C\"*!\"!\203w=0E\"#\235\203_= =0E\"$\235\203P\321!!\313%\211=1B\203L=0E@%\f%A!\210\f%@!\210=1BA\211=1B\20= 42*\202w\f!A!\210\f!@!\210\202w=0E\"$\235\203r\311\f\321!!\"\210\202w\f!!\2= 10*=1BA\211=1B\204\350*\n&>\206\337\211:\204\224\313\202\241 @9\203\240 AA= \202\241 )?\206\337=0E\322=3D\203\265\n'>?\206\337=0E\323=3D\203\303\n(>\20= 6\337\311\f\211:\204\320\313\202\335 @9\203\334 AA\202\335 )\")\207" [--da= ta 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 rever= se greater-elements elements fun result first-match --acc --category org-el= ement-secondary-value-alist p --dolist-tail-- property with-affiliated org-= element-all-elements org-element--parsed-properties-alist kwd-pair value kw= d 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(" !\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) "\306\307\310#=1A\311\312 \211:\204=00\313\202\"=0B@9\2= 03!=0BAA\202\"=0B)\"\210\314\315\n \211:\2043\313\202@=0B@9\203?=0BAA\202@= =0B)#\210 \316\211\n=1C=0B;\203V\317\320\f=0B#\202\\\321=0BA@\f\"*=1C\211;\= 203n\322=0B\313\f $\202z=0BA\323=0BA@\f #\240\210=0B+\210\nA A@\240\210\n @\240*\207" [s new old element property v= alue replace-regexp-in-string "\n" " " mapc #[(blob) "\305 =1B\211;\203=00= \306\f\307=0B\n$\202 \fA\310\fA@=0B\n#\240\210\f+\207" [blob old value prop= erty 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-bloc= k . 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-f= ootnote-reference) (headline . org-html-headline) (horizontal-rule . org-ht= ml-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinet= ask . org-html-inlinetask) (inner-template . org-html-inner-template) (ital= ic . 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) (p= lain-list . org-html-plain-list) (plain-text . org-html-plain-text) (planni= ng . org-html-planning) (property-drawer . org-html-property-drawer) (quote= -block . org-html-quote-block) (radio-target . org-html-radio-target) (sect= ion . org-html-section) (special-block . org-html-special-block) (src-block= . org-html-src-block) (statistics-cookie . org-html-statistics-cookie) (st= rike-through . org-html-strike-through) (subscript . org-html-subscript) (s= uperscript . org-html-superscript) (table . org-html-table) (table-cell . o= rg-html-table-cell) (table-row . org-html-table-row) (target . org-html-tar= get) (template . org-html-template) (timestamp . org-html-timestamp) (under= line . org-html-underline) (verbatim . org-html-verbatim) (verse-block . or= g-html-verse-block)) ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (= :html-container "HTML_CONTAINER" nil org-html-container-element) (:descript= ion "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:h= tml-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-hom= e "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" ni= l 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 "htm= l-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head ne= wline) (: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-scri= pts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-att= ribute-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 n= il nil org-html-footnote-format) (:html-footnote-separator nil nil org-html= -footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-se= ction) (:html-format-drawer-function nil nil org-html-format-drawer-functio= n) (:html-format-headline-function nil nil org-html-format-headline-functio= n) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-fun= ction) (: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-opt= ions) (:html-infojs-template nil nil org-html-infojs-template) (:html-inlin= e-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 n= il org-html-mathjax-options) (:html-mathjax-template nil nil org-html-mathj= ax-template) (:html-metadata-timestamp-format nil nil org-html-metadata-tim= estamp-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-ta= ble-caption-above nil nil org-html-table-caption-above) (:html-table-data-t= ags 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 n= il 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-ht= ml-text-markup-alist) (:html-todo-kwd-class-prefix nil nil org-html-todo-kw= d-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 buf= fer" 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-ht= ml 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-c= lock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . or= g-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-defini= tion . org-html-footnote-definition) (footnote-reference . org-html-footnot= e-reference) (headline . org-html-headline) (horizontal-rule . org-html-hor= izontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . = org-html-inlinetask) (inner-template . org-html-inner-template) (italic . o= rg-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-p= roperty . org-html-node-property) (paragraph . org-html-paragraph) (plain-l= ist . org-html-plain-list) (plain-text . org-html-plain-text) (planning . o= rg-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-t= hrough . org-html-strike-through) (subscript . org-html-subscript) (supersc= ript . org-html-superscript) (table . org-html-table) (table-cell . org-htm= l-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 "D= ESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-ht= ml5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url n= il "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTM= L_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-a= bs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-postam= ble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-prea= mble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline)= (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:sub= title "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html= -style" org-html-head-include-default-style) (:html-head-include-scripts ni= l "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute= -in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs n= il 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-footn= ote-separator) (:html-footnotes-section nil nil org-html-footnotes-section)= (:html-format-drawer-function nil nil org-html-format-drawer-function) (:h= tml-format-headline-function nil nil org-html-format-headline-function) (:h= tml-format-inlinetask-function nil nil org-html-format-inlinetask-function)= (:html-home/up-format nil nil org-html-home/up-format) (:html-indent nil n= il org-html-indent) (:html-infojs-options nil nil org-html-infojs-options) = (:html-infojs-template nil nil org-html-infojs-template) (:html-inline-imag= e-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-tem= plate) (: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-indivi= dual-fields nil nil org-html-table-align-individual-fields) (:html-table-ca= ption-above nil nil org-html-table-caption-above) (:html-table-data-tags ni= l nil org-html-table-data-tags) (:html-table-header-tags nil nil org-html-t= able-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 n= il org-html-tag-class-prefix) (:html-text-markup-alist nil nil org-html-tex= t-markup-alist) (:html-todo-kwd-class-prefix nil nil org-html-todo-kwd-clas= s-prefix) (:html-toplevel-hlevel nil nil org-html-toplevel-hlevel) (:html-u= se-infojs nil nil org-html-use-infojs) (:html-validation-link nil nil org-h= tml-validation-link) (:html-viewport nil nil org-html-viewport) ...) ((:fil= ter-options . org-html-infojs-install-script) (:filter-final-output . org-h= tml-final-function)) ("HTML") (104 "Export to HTML" ((72 "As HTML buffer" o= rg-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 -Tpn= g\ndigraph G {\n rankdir=3DLR;\n node [shape=3Dbox];\n A -> B;\n B -> C= ;\n C -> A;\n}\n#+END_SRC\n\nWill org-mime-org-buffer-htmlize automaticall= y 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 fac= e 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 10= 6 (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-mul= tiline t face org-block-begin-line) 192 193 (fontified t font-lock-fontifie= d t font-lock-multiline t face org-block-begin-line) 193 270 (fontified t f= ont-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 (fontifi= ed t font-lock-fontified t font-lock-multiline t face org-block-end-line) 2= 80 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-out= put-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-an= d-images)))) (insert (org-mime-multipart (org-export-string-as (org-babel-t= rim (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-st= ring-as (concat "#+Title:\n" (funcall bhook body (quote ascii))) (quote asc= ii) 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 bo= dy ...) (quote html) t) file)) (images (cdr html-and-images)) (html (org-mi= me-apply-html-hook (car html-and-images)))) (insert (org-mime-multipart (or= g-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 fm= t (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 abs= olute)) (org-export-htmlize-output-type (quote inline-css)) (html-and-image= s (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\nd= igraph G {\n rankdir=3DLR;\n node [shape=3Dbox];\n A -> B;\n B -> C;\n = C -> A;\n}\n#+END_SRC\n\nWill org-mime-org-buffer-htmlize automatically in= clude 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 or= g-meta-line) 60 61 (fontified t) 61 69 (fontified t font-lock-fontified t f= ace 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 (f= ontified 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-multili= ne 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 fo= nt-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 2= 81 (fontified t face org-block-end-line) 281 282 (fontified t) 282 349 (fon= tified 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 r= egion-p (region-beginning)) (save-excursion (goto-char (point-min))))) (bod= y-end (or (and region-p (region-end)) (point-max))) (temp-body-file (make-t= emp-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)