From 9279bdef9b07b4936b7f2674a1632aadfc698681 Mon Sep 17 00:00:00 2001
From: IGARASHI Masanao <syoux2@gmail.com>
Date: Sat, 14 Nov 2015 00:16:54 +0900
Subject: [PATCH] Replace multiple whitespaces from markup text

---
 ox-rst.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ox-rst.el b/ox-rst.el
index d881be5..984e65a 100644
--- a/ox-rst.el
+++ b/ox-rst.el
@@ -401,7 +401,8 @@ possible.  It doesn't apply to `inlinetask' elements."
 (defun org-rst--text-markup (text markup)
   "Format TEXT depending on MARKUP text markup.
 See `org-rst-text-markup-alist' for details."
-  (let ((fmt (cdr (assq markup org-rst-text-markup-alist))))
+  (let ((fmt (cdr (assq markup org-rst-text-markup-alist)))
+        (text (replace-regexp-in-string "[ \t\n]+" " " text)))
     (cond
      ;; No format string: Return raw text.
      ((not fmt) text)