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

[Peter Davis]

Nick Dokos <address@hidden> writes:

> Peter Davis <address@hidden> 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)