help with lisp function

[Javier Oviedo]

Hi all. I'm trying to write a function that copies lines from one buffer to
another buffer and keeps the original text properties. It works...sort of.
The problem is that after 70 lines, the copy stops carrying the text
properties over....the copy itself is done correctly and I end up with two
identical buffers. The problem is only with the text-properties being lost
after line 70. So, for the first 70 lines are displayed with the original
text-properties, but everything after that is displayed as plain text. Doing
a describe-text-properties verifies this.

Any help/thoughts/comments? Thanks in advance!

Here is the function:

(defun jo-test ()
  (interactive)
  (setq buf-name "*JOTest*")
  (setq curbuf (buffer-name))
  (setq test-buf (get-buffer-create buf-name))
  (display-buffer test-buf)
  (save-excursion
    (goto-char (point-min))
    (with-current-buffer test-buf
      (setq buffer-read-only nil)
      (with-current-buffer curbuf
        (while (not (eobp))
          (setq curMatch "")
          (setq curMatch (buffer-substring (line-beginning-position)
(line-end-position)))
          (forward-line 1)
          (with-current-buffer test-buf
            (insert (concat curMatch "\n"))
            )
          )
        )
      )
    )
  )

-- 
Javier