From 339e5fb0106bfa4d43efdf7fdfe39abdd7b62bae Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Tue, 2 Sep 2008 13:46:07 +0200
Subject: [PATCH] Erase buffer for txt export.

---
 lisp/ChangeLog     | 4 ++++
 lisp/org-agenda.el | 1 +
 2 files changed, 5 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9eef2b8c7..91db11272 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-02  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-agenda.el (org-write-agenda): Erase buffer for txt export.
+
 2008-09-01  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org-exp.el (org-html-do-expand): Allow {} to terminate
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 33c2a3981..165449812 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -1879,6 +1879,7 @@ higher priority settings."
 	  (t
 	   (let ((bs (buffer-string)))
 	     (find-file file)
+	     (erase-buffer)
 	     (insert bs)
 	     (save-buffer 0)
 	     (kill-buffer (current-buffer))