Fix bug in table export

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-09-08  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-exp.el (org-export-remove-special-table-lines): Don't remove
+	normal lines.
+
 2009-09-08  Bastien Guerry  <bzg@altern.org>
 
 	* org.el (org-offer-links-in-entry): Don't use "Select link" as a

lisp/org-exp.el

@@ -1841,16 +1841,17 @@ When it is nil, all comments will be removed."
   (while (re-search-forward "^[ \t]*|" nil t)
     (beginning-of-line 1)
     (if (or (looking-at "[ \t]*| *[!_^] *|")
-	    (memq
-	     nil
-	     (mapcar
-	      (lambda (f)
-		(or (= (length f) 0)
-		    (string-match
-		     "\\`<\\([0-9]\\|[rl]\\|[rl][0-9]+\\)>\\'" f)))
-	      (org-split-string ;; FIXME, can't we do this without splitting???
-	       (buffer-substring (point-at-bol) (point-at-eol))
-	       "[ \t]*|[ \t]*"))))
+	    (not 
+	     (memq
+	      nil
+	      (mapcar
+	       (lambda (f)
+		 (or (= (length f) 0)
+		     (string-match
+		      "\\`<\\([0-9]\\|[rl]\\|[rl][0-9]+\\)>\\'" f)))
+	       (org-split-string ;; FIXME, can't we do this without splitting???
+		(buffer-substring (point-at-bol) (point-at-eol))
+		"[ \t]*|[ \t]*")))))
 	(delete-region (max (point-min) (1- (point-at-bol)))
 		       (point-at-eol))
       (end-of-line 1))))