Can't email multipart/alternative anymore

Can't email multipart/alternative anymore

[Peter Davis]

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

Re: Can't email multipart/alternative anymore

[Rasmus]

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!

Re: Can't email multipart/alternative anymore

[Nick Dokos]

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

Re: Can't email multipart/alternative anymore

[Peter Davis]

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

Re: Can't email multipart/alternative anymore

[Peter Davis]

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)

Re: Can't email multipart/alternative anymore

[Aaron Ecay]

[-- 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

Re: Can't email multipart/alternative anymore

[Peter Davis]

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

Re: Can't email multipart/alternative anymore

[Nicolas Goaziou]

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

Re: Can't email multipart/alternative anymore

[Peter Davis]

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

Re: Can't email multipart/alternative anymore

[Nicolas Goaziou]

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,

Re: Can't email multipart/alternative anymore

[Peter Davis]

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

Re: Can't email multipart/alternative anymore

[Nicolas Goaziou]

Peter Davis <pfd@pfdstudio.com> writes:

> Possibly. I'm not sure how to determine that. FWIW, org-version tells
> me 8.2.5g.

I suggest to update Org and try again.

Regards,

Re: Can't email multipart/alternative anymore

[Aaron Ecay]

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

Re: Can't email multipart/alternative anymore

[Peter Davis]

On 10/24/15 10:28 AM, Nicolas Goaziou wrote:
> Peter Davis <pfd@pfdstudio.com> writes:
>
>> Possibly. I'm not sure how to determine that. FWIW, org-version tells
>> me 8.2.5g.
> I suggest to update Org and try again.

I will report back when I get a chance to do the upgrade.

Thanks,
-pd

Re: Can't email multipart/alternative anymore

[Peter Davis]

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)