From 82cf5d59e7ee391101ff696bf27b7cfa2b1dcae2 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 5 Sep 2011 11:33:20 +0530 Subject: [PATCH] org-odt.el: Create mimetype file towards the end of export * contrib/lisp/org-odt.el (org-odt-init-outfile): Don't create mimetype file here. (org-odt-save-as-outfile): Create mimetype file here. Note that this routine gets called towards the end of the export just before files are zipped. --- contrib/lisp/org-odt.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/org-odt.el b/contrib/lisp/org-odt.el index 8fc24814c..3dfc01817 100644 --- a/contrib/lisp/org-odt.el +++ b/contrib/lisp/org-odt.el @@ -1422,10 +1422,6 @@ MAY-INLINE-P allows inlining it as an image." (save-excursion (insert (mapconcat 'identity (cdr org-export-odt-manifest-lines) "\n")))) - ;; mimetype - (with-current-buffer (find-file-noselect mimetype-file t) - (insert "application/vnd.oasis.opendocument.text")) - ;; styles file ;; (copy-file org-export-odt-styles-file styles-file t) @@ -1451,6 +1447,10 @@ visually." (defvar hfy-user-sheet-assoc) ; bound during org-do-lparse (defun org-odt-save-as-outfile (target opt-plist) + ;; create mimetype file + (write-region "application/vnd.oasis.opendocument.text" nil + (expand-file-name "mimetype")) + ;; write meta file (org-odt-update-meta-file opt-plist)