From: Peter Davis <pfd@pfdstudio.com>
To: emacs-orgmode@gnu.org
Subject: Re: Can't email multipart/alternative anymore
Date: Wed, 28 Oct 2015 11:23:11 -0400 [thread overview]
Message-ID: <6sw6c7fv0vc90g.fsf@pfdstudio.com> (raw)
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)
next reply other threads:[~2015-10-28 15:23 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-10-28 15:23 Peter Davis [this message]
-- strict thread matches above, loose matches on Subject: below --
2015-10-23 13:22 Can't email multipart/alternative anymore Peter Davis
2015-10-23 12:05 Peter Davis
2015-10-23 13:05 ` Aaron Ecay
2015-10-23 20:44 ` Nicolas Goaziou
2015-10-23 20:57 ` Peter Davis
2015-10-24 12:07 ` Nicolas Goaziou
2015-10-24 13:28 ` Peter Davis
2015-10-24 14:28 ` Nicolas Goaziou
2015-10-28 14:11 ` Peter Davis
2015-10-27 15:15 ` Aaron Ecay
2015-10-23 11:55 Peter Davis
2015-10-22 19:19 Peter Davis
2015-10-22 21:19 ` Rasmus
2015-10-22 21:20 ` Nick Dokos
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=6sw6c7fv0vc90g.fsf@pfdstudio.com \
--to=pfd@pfdstudio.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.