From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: Re: Can't email multipart/alternative anymore Date: Fri, 23 Oct 2015 14:05:24 +0100 Message-ID: <87fv11zqej.fsf@gmail.com> References: <6sw6c7io5xg58k.fsf@pfdstudio.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37343) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zpc2I-0000q6-Nf for emacs-orgmode@gnu.org; Fri, 23 Oct 2015 09:05:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zpc2B-00086L-Qx for emacs-orgmode@gnu.org; Fri, 23 Oct 2015 09:05:34 -0400 Received: from mail-wi0-x22d.google.com ([2a00:1450:400c:c05::22d]:38857) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zpc2B-00084x-Gt for emacs-orgmode@gnu.org; Fri, 23 Oct 2015 09:05:27 -0400 Received: by wicll6 with SMTP id ll6so30690376wic.1 for ; Fri, 23 Oct 2015 06:05:26 -0700 (PDT) In-Reply-To: <6sw6c7io5xg58k.fsf@pfdstudio.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Peter Davis , Nick Dokos Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi Peter, 2015ko urriak 23an, Peter Davis-ek idatzi zuen: >=20 > Nick Dokos writes: >=20 >> 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. >=20 > 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=E2=80=99s the cause, the attached (draft) patch should give a better error message in cases like this. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-Improve-invalid-export-backend-error-messages.patch >From 4c1b170e181982fb453b87921b39ace474482040 Mon Sep 17 00:00:00 2001 From: Aaron Ecay 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 --=-=-= Content-Type: text/plain -- Aaron Ecay --=-=-=--