[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0ed3b29: Fix email subtree command
From: |
Eric Abrahamsen |
Subject: |
[elpa] master 0ed3b29: Fix email subtree command |
Date: |
Mon, 13 Mar 2017 01:54:53 -0400 (EDT) |
branch: master
commit 0ed3b29bbd4c4d218b4eb34998de0785a73110a1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Fix email subtree command
* packages/gnorb/gnorb-org.el (gnorb-org-handle-mail): File was just
getting tossed off into the ether -- how did this ever work?
(gnorb-org-email-subtree): Need to special-case ODT file export, it
does too much clever stuff for us to invoke it at a low level.
* packages/gnorb/gnorb.el: Bump version.
---
packages/gnorb/gnorb-org.el | 25 +++++++++++++++++--------
packages/gnorb/gnorb.el | 2 +-
2 files changed, 18 insertions(+), 9 deletions(-)
diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el
index 9335cf6..c99cfff 100644
--- a/packages/gnorb/gnorb-org.el
+++ b/packages/gnorb/gnorb-org.el
@@ -444,7 +444,7 @@ around that link before you call this message."
(message-mode-hook (copy-sequence message-mode-hook))
mails)
(when file
- (cons file attachments))
+ (setq attachments (cons file attachments)))
(when recs
(setq recs
(delq nil
@@ -563,13 +563,22 @@ default set of parameters."
"*Gnorb Export*"
,@opts
,gnorb-org-email-subtree-text-parameters))
- (apply 'org-export-to-file
- `(,backend-symbol
- ,(org-export-output-file-name
- (cl-second (assoc backend-symbol
gnorb-org-export-extensions))
- t gnorb-tmp-dir)
- ,@opts
- ,gnorb-org-email-subtree-file-parameters))))
+ (if (eq backend-symbol 'odt)
+ ;; Need to special-case odt output, as it does too
+ ;; many clever things. The only downside to this is
+ ;; it's impossible to put the exported file in the
+ ;; /tmp/ directory -- it will go wherever it would
+ ;; have gone with manual export.
+ (apply #'org-odt-export-to-odt
+ (append (cl-subseq gnorb-org-email-subtree-file-options
0 3)
+ (list gnorb-org-email-subtree-file-parameters)))
+ (apply 'org-export-to-file
+ `(,backend-symbol
+ ,(org-export-output-file-name
+ (cl-second (assoc backend-symbol
gnorb-org-export-extensions))
+ t gnorb-tmp-dir)
+ ,@opts
+ ,gnorb-org-email-subtree-file-parameters)))))
text file)
(if (bufferp result)
(setq text result)
diff --git a/packages/gnorb/gnorb.el b/packages/gnorb/gnorb.el
index 5763f00..832d798 100644
--- a/packages/gnorb/gnorb.el
+++ b/packages/gnorb/gnorb.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2014 Free Software Foundation, Inc.
-;; Version: 1.1.4
+;; Version: 1.1.5
;; Package-Requires: ((cl-lib "0.5"))
;; Maintainer: Eric Abrahamsen <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 0ed3b29: Fix email subtree command,
Eric Abrahamsen <=