* Re: Can't email multipart/alternative anymore
@ 2015-10-28 15:23 Peter Davis
0 siblings, 0 replies; 15+ messages in thread
From: Peter Davis @ 2015-10-28 15:23 UTC (permalink / raw)
To: emacs-orgmode
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)
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
@ 2015-10-23 13:22 Peter Davis
0 siblings, 0 replies; 15+ messages in thread
From: Peter Davis @ 2015-10-23 13:22 UTC (permalink / raw)
To: Nick Dokos; +Cc: emacs-orgmode
Aaron Ecay <aaronecay@gmail.com> writes:
> Hi Peter,
>
> 2015ko urriak 23an, Peter Davis-ek idatzi zuen:
>>
>> Nick Dokos <ndokos@gmail.com> writes:
>>
>>> Maybe set debug-on-error and try again - send the backtrace if
>>> you get one. Or maybe try with -q, load a minimal .emacs with
>>> org and org-mime and try that.
>>
>> Here's the output from toggling debug-on-error:
>
> Based on the backtrace, I think that if you do M-x load-library RET
> ox-org RET your error should disappear.
Yes, that did fix it. But I'm puzzled because my .emacs file contains:
(require 'ox-org)
Shouldn't that have the same effect?
> If that’s the cause, the attached (draft) patch should give a better
> error message in cases like this.
Thank you, Aaron!
-pd
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
@ 2015-10-23 12:05 Peter Davis
2015-10-23 13:05 ` Aaron Ecay
0 siblings, 1 reply; 15+ messages in thread
From: Peter Davis @ 2015-10-23 12:05 UTC (permalink / raw)
To: Nick Dokos; +Cc: emacs-orgmode
Nick Dokos <ndokos@gmail.com> writes:
> Peter Davis <pfd@pfdstudio.com> writes:
>
>> I just tried running org-mime-org-buffer-htmlize, which I have used
>> successfully in the past. However, this time, I got an empty
>> message buffer, and this in the mini-buffer:
>>
>> org-export-barf-if-invalid-backend: Unknown "nil" back-end: Aborting export
>>
>> Any clues? I haven't used this in a couple of months, but it did work
>> at one time and, as far as I know, I haven't changed anything
>> that should impact this.
>>
>
> Works here: Org-mode version 8.3.2 (release_8.3.2-178-g96681f @
> /home/nick/elisp/org-mode/lisp/)
Thanks, Nick. From the error, I'm guessing either a variable that's supposed to point to the backend got unset, or the backend
itself is missing.
> Maybe set debug-on-error and try again - send the backtrace if
> you get one. Or maybe try with -q, load a minimal .emacs with
> org and org-mime and try that.
Here's the output from toggling debug-on-error:
Debugger entered--Lisp error: (error "Unknown \"nil\" back-end: Aborting export")
signal(error ("Unknown \"nil\" back-end: Aborting export"))
error("Unknown \"%s\" back-end: Aborting export" nil)
org-export-barf-if-invalid-backend(nil)
org-export-as(org 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\nWeill org-mime-org-buffer-htmlize automatically include the image?" org t)
(org-mime-multipart (org-export-string-as (org-babel-trim (funcall bhook body (if (eq fmt (quote html)) (quote org) (quote ascii)))) (if (eq fmt (quote html)) (quote org) (quote ascii)) t) html)
(insert (org-mime-multipart (org-export-string-as (org-babel-trim (funcall bhook body (if (eq fmt (quote html)) (quote org) (quote ascii)))) (if (eq fmt (quote html)) (quote org) (quote ascii)) t) html) (mapconcat (quote identity) images "\n"))
(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\nWeill 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 102 (fontified t font-lock-fontified t face org-document-title) 102 103 (fontified t font-lock-fontified t face org-document-title) 103 104 (fontified t font-lock-fontified t) 104 106 (fontified t font-lock-fontified t face org-level-1) 106 111 (fontified t font-lock-fontified t face org-level-1) 111 112 (fontified t font-lock-fontified t) 112 113 (fontified t font-lock-fontified t) 113 135 (fontified t font-lock-fontified t) 135 136 (fontified t font-lock-fontified t) 136 137 (fontified t) 137 193 (font-lock-fontified t org-category "details-2015-10" fontified t font-lock-multiline t face org-block-begin-line) 193 270 (font-lock-fontified t org-category "details-2015-10" fontified t font-lock-multiline t face org-block) 270 271 (font-lock-fontified t org-category "details-2015-10" fontified t font-lock-multiline t face org-block) 271 280 (font-lock-fontified t org-category "details-2015-10" fontified t font-lock-multiline t face org-block-end-line) 280 281 (org-category "details-2015-10" fontified t rear-nonsticky t face org-block-end-line) 281 282 (fontified t) 282 349 (fontified t) 349 350 (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)
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-23 12:05 Peter Davis
@ 2015-10-23 13:05 ` Aaron Ecay
2015-10-23 20:44 ` Nicolas Goaziou
0 siblings, 1 reply; 15+ messages in thread
From: Aaron Ecay @ 2015-10-23 13:05 UTC (permalink / raw)
To: Peter Davis, Nick Dokos; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 555 bytes --]
Hi Peter,
2015ko urriak 23an, Peter Davis-ek idatzi zuen:
>
> Nick Dokos <ndokos@gmail.com> writes:
>
>> Maybe set debug-on-error and try again - send the backtrace if
>> you get one. Or maybe try with -q, load a minimal .emacs with
>> org and org-mime and try that.
>
> Here's the output from toggling debug-on-error:
Based on the backtrace, I think that if you do M-x load-library RET
ox-org RET your error should disappear.
If that’s the cause, the attached (draft) patch should give a better
error message in cases like this.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Improve-invalid-export-backend-error-messages.patch --]
[-- Type: text/x-diff, Size: 8091 bytes --]
From 4c1b170e181982fb453b87921b39ace474482040 Mon Sep 17 00:00:00 2001
From: Aaron Ecay <aaronecay@gmail.com>
Date: Fri, 23 Oct 2015 13:48:31 +0100
Subject: [PATCH] Improve invalid export backend error messages.
* lisp/ox.el (org-export-get-backend): Add `strict' argument.
(org-export-derived-backend-p, org-export-get-all-transcoders):
(org-export-get-all-filters, org-export-data-with-backend):
(org-export-as, org-export-insert-default-template):
(org-export-with-backend): Use it.
(org-export-barf-if-invalid-backend): Remove function.
---
lisp/ox.el | 90 +++++++++++++++++++++++++++++---------------------------------
1 file changed, 42 insertions(+), 48 deletions(-)
diff --git a/lisp/ox.el b/lisp/ox.el
index 80cbc37..d68cc3c 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -947,13 +947,18 @@ mode."
(:copier nil))
name parent transcoders options filters blocks menu)
-(defun org-export-get-backend (name)
+(defun org-export-get-backend (name &optional strict)
"Return export back-end named after NAME.
-NAME is a symbol. Return nil if no such back-end is found."
+
+NAME is a symbol. Return nil if no such back-end is found, or
+signal an error if STRICT is non-nil."
(catch 'found
(dolist (b org-export-registered-backends)
(when (eq (org-export-backend-name b) name)
- (throw 'found b)))))
+ (throw 'found b)))
+ (when strict
+ (error "Could not locate export backend %s; try loading the library `ox-%s'"
+ name name))))
(defun org-export-register-backend (backend)
"Register BACKEND as a known export back-end.
@@ -976,25 +981,19 @@ BACKEND is a structure with `org-export-backend' type."
(if old (setcar (memq old org-export-registered-backends) backend)
(push backend org-export-registered-backends))))
-(defun org-export-barf-if-invalid-backend (backend)
- "Signal an error if BACKEND isn't defined."
- (unless (org-export-backend-p backend)
- (error "Unknown \"%s\" back-end: Aborting export" backend)))
-
(defun org-export-derived-backend-p (backend &rest backends)
"Non-nil if BACKEND is derived from one of BACKENDS.
BACKEND is an export back-end, as returned by, e.g.,
`org-export-create-backend', or a symbol referring to
a registered back-end. BACKENDS is constituted of symbols."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (when backend
- (catch 'exit
- (while (org-export-backend-parent backend)
- (when (memq (org-export-backend-name backend) backends)
- (throw 'exit t))
- (setq backend
- (org-export-get-backend (org-export-backend-parent backend))))
- (memq (org-export-backend-name backend) backends))))
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
+ (catch 'exit
+ (while (org-export-backend-parent backend)
+ (when (memq (org-export-backend-name backend) backends)
+ (throw 'exit t))
+ (setq backend
+ (org-export-get-backend (org-export-backend-parent backend))))
+ (memq (org-export-backend-name backend) backends)))
(defun org-export-get-all-transcoders (backend)
"Return full translation table for BACKEND.
@@ -1007,15 +1006,14 @@ transcoders.
Unlike to `org-export-backend-transcoders', this function
also returns transcoders inherited from parent back-ends,
if any."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (when backend
- (let ((transcoders (org-export-backend-transcoders backend))
- parent)
- (while (setq parent (org-export-backend-parent backend))
- (setq backend (org-export-get-backend parent))
- (setq transcoders
- (append transcoders (org-export-backend-transcoders backend))))
- transcoders)))
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
+ (let ((transcoders (org-export-backend-transcoders backend))
+ parent)
+ (while (setq parent (org-export-backend-parent backend))
+ (setq backend (org-export-get-backend parent))
+ (setq transcoders
+ (append transcoders (org-export-backend-transcoders backend))))
+ transcoders))
(defun org-export-get-all-options (backend)
"Return export options for BACKEND.
@@ -1026,14 +1024,13 @@ for the shape of the return value.
Unlike to `org-export-backend-options', this function also
returns options inherited from parent back-ends, if any."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (when backend
- (let ((options (org-export-backend-options backend))
- parent)
- (while (setq parent (org-export-backend-parent backend))
- (setq backend (org-export-get-backend parent))
- (setq options (append options (org-export-backend-options backend))))
- options)))
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
+ (let ((options (org-export-backend-options backend))
+ parent)
+ (while (setq parent (org-export-backend-parent backend))
+ (setq backend (org-export-get-backend parent))
+ (setq options (append options (org-export-backend-options backend))))
+ options))
(defun org-export-get-all-filters (backend)
"Return complete list of filters for BACKEND.
@@ -1044,14 +1041,13 @@ keys are symbols and values lists of functions.
Unlike to `org-export-backend-filters', this function also
returns filters inherited from parent back-ends, if any."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (when backend
- (let ((filters (org-export-backend-filters backend))
- parent)
- (while (setq parent (org-export-backend-parent backend))
- (setq backend (org-export-get-backend parent))
- (setq filters (append filters (org-export-backend-filters backend))))
- filters)))
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
+ (let ((filters (org-export-backend-filters backend))
+ parent)
+ (while (setq parent (org-export-backend-parent backend))
+ (setq backend (org-export-get-backend parent))
+ (setq filters (append filters (org-export-backend-filters backend))))
+ filters))
(defun org-export-define-backend (backend transcoders &rest body)
"Define a new back-end BACKEND.
@@ -1983,7 +1979,7 @@ channel.
Unlike to `org-export-with-backend', this function will
recursively convert DATA using BACKEND translation table."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
(org-export-data
data
;; Set-up a new communication channel with translations defined in
@@ -2930,8 +2926,7 @@ with external parameters overriding Org default settings, but
still inferior to file-local settings.
Return code as a string."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (org-export-barf-if-invalid-backend backend)
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
(save-excursion
(save-restriction
;; Narrow buffer to an appropriate region or subtree for
@@ -3130,7 +3125,7 @@ locally for the subtree through node properties."
((org-export-backend-p backend)
(org-export-backend-options backend))
(t (org-export-backend-options
- (org-export-get-backend backend)))))
+ (org-export-get-backend backend t)))))
(let ((keyword (nth 1 entry))
(option (nth 2 entry)))
(cond
@@ -3620,8 +3615,7 @@ a registered back-end. DATA is an Org element, object, secondary
string or string. CONTENTS, when non-nil, is the transcoded
contents of DATA element, as a string. INFO, when non-nil, is
the communication channel used for export, as a plist."
- (when (symbolp backend) (setq backend (org-export-get-backend backend)))
- (org-export-barf-if-invalid-backend backend)
+ (when (symbolp backend) (setq backend (org-export-get-backend backend t)))
(let ((type (org-element-type data)))
(if (memq type '(nil org-data)) (error "No foreign transcoder available")
(let* ((all-transcoders (org-export-get-all-transcoders backend))
--
2.6.1
[-- Attachment #3: Type: text/plain, Size: 16 bytes --]
--
Aaron Ecay
^ permalink raw reply related [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-23 13:05 ` Aaron Ecay
@ 2015-10-23 20:44 ` Nicolas Goaziou
2015-10-23 20:57 ` Peter Davis
0 siblings, 1 reply; 15+ messages in thread
From: Nicolas Goaziou @ 2015-10-23 20:44 UTC (permalink / raw)
To: Peter Davis; +Cc: Nick Dokos, emacs-orgmode
Hello,
Aaron Ecay <aaronecay@gmail.com> writes:
>
> Based on the backtrace, I think that if you do M-x load-library RET
> ox-org RET your error should disappear.
>
> If that’s the cause, the attached (draft) patch should give a better
> error message in cases like this.
Thank you.
However, `org-export-barf-if-invalid-backend' raises an error, not
a user-error. IOW, it doesn't need to be verbose: it is a bug if a user
sees it anyway.
I suggest to (require 'ox-org) where appropriate and fix the issue.
I didn't look closely at the problem so you know better than me where
this line should be added.
WDYT?
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-23 20:44 ` Nicolas Goaziou
@ 2015-10-23 20:57 ` Peter Davis
2015-10-24 12:07 ` Nicolas Goaziou
2015-10-27 15:15 ` Aaron Ecay
0 siblings, 2 replies; 15+ messages in thread
From: Peter Davis @ 2015-10-23 20:57 UTC (permalink / raw)
To: emacs-orgmode
On 10/23/15 4:44 PM, Nicolas Goaziou wrote:
> Hello,
>
> Aaron Ecay <aaronecay@gmail.com> writes:
>
>> Based on the backtrace, I think that if you do M-x load-library RET
>> ox-org RET your error should disappear.
>>
>> If that’s the cause, the attached (draft) patch should give a better
>> error message in cases like this.
> Thank you.
>
> However, `org-export-barf-if-invalid-backend' raises an error, not
> a user-error. IOW, it doesn't need to be verbose: it is a bug if a user
> sees it anyway.
Actually, I didn't see the barf part in the mini-buffer. All I saw there
was:
Unknown "nil" back-end: Aborting export
I copied the rest from *Messages*
> I suggest to (require 'ox-org) where appropriate and fix the issue.
> I didn't look closely at the problem so you know better than me where
> this line should be added.
I replied earlier, but it doesn't seem to have shown up on the list yet.
Explicitly loading ox-org *did* fix the problem for me, but I already have
(require 'ox-org)
in my .emacs file, so I'm not sure why that was ineffective.
Thanks.
-pd
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-23 20:57 ` Peter Davis
@ 2015-10-24 12:07 ` Nicolas Goaziou
2015-10-24 13:28 ` Peter Davis
2015-10-27 15:15 ` Aaron Ecay
1 sibling, 1 reply; 15+ messages in thread
From: Nicolas Goaziou @ 2015-10-24 12:07 UTC (permalink / raw)
To: Peter Davis; +Cc: emacs-orgmode
Peter Davis <pfd@pfdstudio.com> writes:
> I replied earlier, but it doesn't seem to have shown up on the list
> yet. Explicitly loading ox-org *did* fix the problem for me, but
> I already have
>
> (require 'ox-org)
>
> in my .emacs file, so I'm not sure why that was ineffective.
Note that I cannot reproduce the error here. Also, it looks like
org-mime.el properly calls (require 'ox-org) when appropriate.
Would it be related to a mixed installation on your side?
Regards,
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-24 12:07 ` Nicolas Goaziou
@ 2015-10-24 13:28 ` Peter Davis
2015-10-24 14:28 ` Nicolas Goaziou
0 siblings, 1 reply; 15+ messages in thread
From: Peter Davis @ 2015-10-24 13:28 UTC (permalink / raw)
To: emacs-orgmode
On 10/24/15 8:07 AM, Nicolas Goaziou wrote:
> Peter Davis <pfd@pfdstudio.com> writes:
>
>> I replied earlier, but it doesn't seem to have shown up on the list
>> yet. Explicitly loading ox-org *did* fix the problem for me, but
>> I already have
>>
>> (require 'ox-org)
>>
>> in my .emacs file, so I'm not sure why that was ineffective.
> Note that I cannot reproduce the error here. Also, it looks like
> org-mime.el properly calls (require 'ox-org) when appropriate.
>
> Would it be related to a mixed installation on your side?
Possibly. I'm not sure how to determine that. FWIW, org-version tells me
8.2.5g.
Thanks,
-pd
--
----
Peter Davis
The Tech Curmudgeon
www.techcurmudgeon.com
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-23 20:57 ` Peter Davis
2015-10-24 12:07 ` Nicolas Goaziou
@ 2015-10-27 15:15 ` Aaron Ecay
1 sibling, 0 replies; 15+ messages in thread
From: Aaron Ecay @ 2015-10-27 15:15 UTC (permalink / raw)
To: Peter Davis, emacs-orgmode
2015ko urriak 23an, Peter Davis-ek idatzi zuen:
>
> On 10/23/15 4:44 PM, Nicolas Goaziou wrote:
>> Hello,
>>
>> Aaron Ecay <aaronecay@gmail.com> writes:
>>
>>> Based on the backtrace, I think that if you do M-x load-library RET
>>> ox-org RET your error should disappear.
>>>
>>> If that’s the cause, the attached (draft) patch should give a better
>>> error message in cases like this.
>> Thank you.
>>
>> However, `org-export-barf-if-invalid-backend' raises an error, not
>> a user-error. IOW, it doesn't need to be verbose: it is a bug if a user
>> sees it anyway.
>
> Actually, I didn't see the barf part in the mini-buffer. All I saw there
> was:
>
> Unknown "nil" back-end: Aborting export
Indeed – the patch I sent was targeted at better error messages, not
at avoiding the error. (I first tried to automatically load ox-org in
the relevant case, but that runs into circular require problems).
I could do a smaller patch which just changes the error message text
within o-e-barf-if-invalid-backend. Or drop it if you feel it’s not
worth it.
>
>
> I copied the rest from *Messages*
>> I suggest to (require 'ox-org) where appropriate and fix the issue.
>> I didn't look closely at the problem so you know better than me where
>> this line should be added.
> I replied earlier, but it doesn't seem to have shown up on the list yet.
> Explicitly loading ox-org *did* fix the problem for me, but I already have
>
> (require 'ox-org)
>
> in my .emacs file, so I'm not sure why that was ineffective.
As Nicolas said, it would be good to know if upgrading org fixes the
issue that you see.
Thanks,
--
Aaron Ecay
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
@ 2015-10-23 11:55 Peter Davis
0 siblings, 0 replies; 15+ messages in thread
From: Peter Davis @ 2015-10-23 11:55 UTC (permalink / raw)
To: Rasmus; +Cc: emacs-orgmode, mail
Rasmus <rasmus@gmx.us> writes:
> Hi Peter,
>
> Thanks for your report.
>
> Peter Davis <pfd@pfdstudio.com> writes:
>
>> I just tried running org-mime-org-buffer-htmlize, which I have used
>> successfully in the past. However, this time, I got an empty
>> message buffer, and this in the mini-buffer:
>>
>> org-export-barf-if-invalid-backend: Unknown "nil" back-end: Aborting export
>>
>> Any clues? I haven't used this in a couple of months, but it did work
>> at one time and, as far as I know, I haven't changed anything
>> that should impact this.
>
> This is from the "draft mode" introduced by Nicolas recently.
>
> Perhaps to get your work done for now you can try to change
> org-export-with-broken-links, though I doubt it will work in this
> particular case.
>
> Nicolas will fix this when he’s back, I’m sure. I haven’t studied the
> "barf code" and I will therefore not attempt to fix it.
Thank you, Rasmus, but I haven't updated anything lately, so I don't think it's the result of any org changes.
-pd
^ permalink raw reply [flat|nested] 15+ messages in thread
* Can't email multipart/alternative anymore
@ 2015-10-22 19:19 Peter Davis
2015-10-22 21:19 ` Rasmus
2015-10-22 21:20 ` Nick Dokos
0 siblings, 2 replies; 15+ messages in thread
From: Peter Davis @ 2015-10-22 19:19 UTC (permalink / raw)
To: emacs-orgmode
I just tried running org-mime-org-buffer-htmlize, which I have used successfully in the past. However, this time, I got an empty
message buffer, and this in the mini-buffer:
org-export-barf-if-invalid-backend: Unknown "nil" back-end: Aborting export
Any clues? I haven't used this in a couple of months, but it did work at one time and, as far as I know, I haven't changed anything
that should impact this.
Thanks!
-pd
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-22 19:19 Peter Davis
@ 2015-10-22 21:19 ` Rasmus
2015-10-22 21:20 ` Nick Dokos
1 sibling, 0 replies; 15+ messages in thread
From: Rasmus @ 2015-10-22 21:19 UTC (permalink / raw)
To: emacs-orgmode; +Cc: mail
Hi Peter,
Thanks for your report.
Peter Davis <pfd@pfdstudio.com> writes:
> I just tried running org-mime-org-buffer-htmlize, which I have used
> successfully in the past. However, this time, I got an empty
> message buffer, and this in the mini-buffer:
>
> org-export-barf-if-invalid-backend: Unknown "nil" back-end: Aborting export
>
> Any clues? I haven't used this in a couple of months, but it did work
> at one time and, as far as I know, I haven't changed anything
> that should impact this.
This is from the "draft mode" introduced by Nicolas recently.
Perhaps to get your work done for now you can try to change
org-export-with-broken-links, though I doubt it will work in this
particular case.
Nicolas will fix this when he’s back, I’m sure. I haven’t studied the
"barf code" and I will therefore not attempt to fix it.
Rasmus
--
m-mm-mmm-mmmm bacon!
^ permalink raw reply [flat|nested] 15+ messages in thread
* Re: Can't email multipart/alternative anymore
2015-10-22 19:19 Peter Davis
2015-10-22 21:19 ` Rasmus
@ 2015-10-22 21:20 ` Nick Dokos
1 sibling, 0 replies; 15+ messages in thread
From: Nick Dokos @ 2015-10-22 21:20 UTC (permalink / raw)
To: emacs-orgmode
Peter Davis <pfd@pfdstudio.com> writes:
> I just tried running org-mime-org-buffer-htmlize, which I have used
> successfully in the past. However, this time, I got an empty
> message buffer, and this in the mini-buffer:
>
> org-export-barf-if-invalid-backend: Unknown "nil" back-end: Aborting export
>
> Any clues? I haven't used this in a couple of months, but it did work
> at one time and, as far as I know, I haven't changed anything
> that should impact this.
>
Works here: Org-mode version 8.3.2 (release_8.3.2-178-g96681f @
/home/nick/elisp/org-mode/lisp/)
Maybe set debug-on-error and try again - send the backtrace if
you get one. Or maybe try with -q, load a minimal .emacs with
org and org-mime and try that.
--
Nick
^ permalink raw reply [flat|nested] 15+ messages in thread
end of thread, other threads:[~2015-10-28 15:23 UTC | newest]
Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-10-28 15:23 Can't email multipart/alternative anymore Peter Davis
-- strict thread matches above, loose matches on Subject: below --
2015-10-23 13:22 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
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.