Column View: Fix bug with capturing column view.

lisp/ChangeLog

@@ -1,5 +1,11 @@
 2009-02-06  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-colview-xemacs.el (org-columns-capture-view): Copy before
+	deleting duplicates.
+
+	* org-colview.el (org-columns-capture-view): Copy before
+	deleting duplicates.
+
 	* org-exp.el (org-export-preprocess-string): Fix bug when skipping
 	text before first headline.
 

lisp/org-colview-xemacs.el

@@ -1264,7 +1264,7 @@ of fields."
 		    (org-columns-forward-char))
               (setq row (nreverse row))
               (unless (and skip-empty-rows
-                           (eq 1 (length (delete "" (delete-dups row)))))
+                           (eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
                 (push row tbl))))
           (append (list title 'hline) (nreverse tbl))))
     (save-excursion

lisp/org-colview.el

@@ -1058,7 +1058,7 @@ of fields."
 		      row))
 	  (setq row (nreverse row))
 	  (unless (and skip-empty-rows
-		       (eq 1 (length (delete "" (delete-dups row)))))
+		       (eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
 	    (push row tbl))))
       (append (list title 'hline) (nreverse tbl)))))