emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Can't email multipart/alternative anymore


From: Peter Davis
Subject: Re: [O] Can't email multipart/alternative anymore
Date: Wed, 28 Oct 2015 11:23:11 -0400

Aaron Ecay <address@hidden> 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) "\306\307\310#\311\312       
\211:\204\313\202\"address@hidden")\"\210\314\315\n   
\211:address@hidden@address@hidden)#\210        
\316\211\n;address@hidden"*\211;\203n\322\313\f
address@hidden
#\240\210+\210\nA      address@hidden  @\240*\207" [s new old element property 
value replace-regexp-in-string "\n" " " mapc #[(blob) "\305    
\211;\203\306\f\307\n$\202 address@hidden" [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) "\211:\204       ;\205\306\202 @9\205 
@)?\206\337\203,\307\310\">\206\337\n\2047\311\f\"\202\337\n\312=\203\\\311\f\211:\204J\313\202W
  @9\203V AA\202W )\"\202\337\n
>\203\202!\211\203\201\203z\314\315\"\210\202\201B)\316=\203\312;address@hidden
>       ;\203\266\317\320      #\202\275\307   
>address@hidden"*!\210A\211\204\234*\203\202\316=\203\202\n>\203\202\313 
>address@hidden @ A     ;\203\317\320 #\202\307      
>address@hidden"*!\"!\203w\"#\235\203_\"address@hidden@address@hidden"$\235\203r\311\f\321!!\"\210\202w\f!!\210*A\211\204\350*\n&>\206\337\211:\204\224\313\202\241
> @9\203\240      AA\202\241      
>)?\206\337\322=\203\265\n'>?\206\337\323=\203\303\n(>\206\337\311\f\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) "\211:\204  ;\205\306\202 @9\205 
@)?\206\337\203,\307\310\">\206\337\n\2047\311\f\"\202\337\n\312=\203\\\311\f\211:\204J\313\202W
  @9\203V AA\202W )\"\202\337\n
>\203\202!\211\203\201\203z\314\315\"\210\202\201B)\316=\203\312;address@hidden
>       ;\203\266\317\320      #\202\275\307   
>address@hidden"*!\210A\211\204\234*\203\202\316=\203\202\n>\203\202\313 
>address@hidden @ A     ;\203\317\320 #\202\307      
>address@hidden"*!\"!\203w\"#\235\203_\"address@hidden@address@hidden"$\235\203r\311\f\321!!\"\210\202w\f!!\210*A\211\204\350*\n&>\206\337\211:\204\224\313\202\241
> @9\203\240      AA\202\241      
>)?\206\337\322=\203\265\n'>?\206\337\323=\203\303\n(>\206\337\311\f\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) "\211:\204       ;\205\306\202 @9\205 
@)?\206\337\203,\307\310\">\206\337\n\2047\311\f\"\202\337\n\312=\203\\\311\f\211:\204J\313\202W
  @9\203V AA\202W )\"\202\337\n
>\203\202!\211\203\201\203z\314\315\"\210\202\201B)\316=\203\312;address@hidden
>       ;\203\266\317\320      #\202\275\307   
>address@hidden"*!\210A\211\204\234*\203\202\316=\203\202\n>\203\202\313 
>address@hidden @ A     ;\203\317\320 #\202\307      
>address@hidden"*!\"!\203w\"#\235\203_\"address@hidden@address@hidden"$\235\203r\311\f\321!!\"\210\202w\f!!\210*A\211\204\350*\n&>\206\337\211:\204\224\313\202\241
> @9\203\240      AA\202\241      
>)?\206\337\322=\203\265\n'>?\206\337\323=\203\303\n(>\206\337\311\f\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("  !\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#\311\312  
\211:\204\313\202\"address@hidden")\"\210\314\315\n   
\211:address@hidden@address@hidden)#\210        
\316\211\n;address@hidden"*\211;\203n\322\313\f
address@hidden
#\240\210+\210\nA      address@hidden  @\240*\207" [s new old element property 
value replace-regexp-in-string "\n" " " mapc #[(blob) "\305    
\211;\203\306\f\307\n$\202 address@hidden" [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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]