unformat buffer

[Decebal]

Sometimes I work in refill-mode, but I need to use the text
unformatted. For this I wrote the following function.

    (defun buffer-unformat(begin end)
      (interactive "r")
      (save-excursion
        (save-restriction
          (narrow-to-region begin end)
          (goto-char (point-min))
          (while (re-search-forward "\\([^\C-j]\\)\C-j\\([^\C-j]\\)"
nil t)
            (replace-match "\\1 \\2"))
          (while (re-search-forward "\C-j\C-j\\(\C-j*\\)" nil t)
            (replace-match "\C-j\\1")))))