Drafts created when editing mails with Outorg

Drafts created when editing mails with Outorg

[Thorsten Jolitz]

Hi List, 

I use gnus/message-mode for emails, but often edit my mails in full
Org-mode with Outorg (see installation instruction at the end of this
post). This works by doing M-# # (or M-x outorg-edit-as-org) in the
message-mode buffer, and then later M-# (or M-x
outorg-copy-edits-and-exit) in the popped-up *outorg-edit-buffer* when
done with editing in Org-mode. 

The *outorg-edit-buffer* is backed-up in a tmp-file anyway via
kill-buffer-hook, so there is no need to create and save drafts from its
content. However, my draft folder is full of entries like this

,----
|    [  87: nobody                 ] (none)
|    [ 148: nobody                 ] (none)
|    [  26: nobody                 ] (none)
`----

that contain the content of these temporary *outorg-edit-buffers*, e.g.

,----
| * --text follows this line--
| 
| Hi List, 
| after updating yesterday to 
| 
| #+begin_src emacs-lisp
|   (call-interactively 'org-version)
| #+end_src
| 
| #+results:
| : Org-mode version 8.2.6 (release_8.2.6-1123-g024a05 @
| /usr/share/emacs/24.3/lisp/org/lisp/)
| 
| I got this error when opening the agenda today:
| 
| ,-----------------------------------------------------
| | org-agenda-mode: Symbol's value as variable is void:
| | org-agenda-archives-mode
| `-----------------------------------------------------
| 
| A quick google search led to a solution from this
| [[http://irreal.org/blog/?p=2030][Blog]] :
| 
| ,-----------------------------------------
| | (setq org-agenda-archives-mode nil)
| | (setq org-agenda-skip-comment-trees nil)
| | (setq org-agenda-skip-function nil)
| `-----------------------------------------
| 
| -- 
| cheers,
| Thorsten
`----


Since outorg.el itself does nothing wrt these drafts, it must be a gnus
thing. So my question is: when, how and why are these drafts created and
how can I avoid that? 

PS

*** OUTORG INSTALLATION INSTRUCTIONS ***

1. Install outshine, outorg (and maybe navi-mode) via Melpa or clone
their git repos (https://github.com/tj64/outshine,
https://github.com/tj64/outorg, https://github.com/tj64/navi) and put
them on the load-path

2. Put this in your init file:

,----
| (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
| (add-hook 'message-mode-hook 'outline-minor-mode)
| ;; more hooks for other major-modes ...
|
| ;; outorg                         ; <= required indirectly
| ;; (require 'outorg)
| 
| ;; outshine
| (require 'outshine)
| (add-hook 'outline-minor-mode-hook
|           'outshine-hook-function) ; <= important!
| 
| (setq outshine-use-speed-commands t)
| 
| ;; navi-mode                       ; <= optional
| (require 'navi-mode)
`----

3. You need to set this too in your init.el (before outline is loaded):

,----
| (defvar outline-minor-mode-prefix "\M-#")
`----

-- 
cheers,
Thorsten