how to get around deprecated function

[B . T . Raven]

This was posted by mistake to the gnus group:

>
>Hello:
>
>I am constantly losing short pieces of text left in *scratch* and I wrote this
>interactive function:
>
>(defun save-scratchtemp ();; M-x scr
>  (interactive)
>  (switch-to-buffer "*scratch*")
>  (mark-whole-buffer)
> (setq start (point) end (mark))
> (append-to-file start end "c:/mydocu~1/scratchtemp.txt")
>)
>
>It "works" but according to the docs mark-whole-buffer shouldn't be used this
>way.Is there an understandable (to me) right way of doing this or doing
>something else that can be invoked as easily?
>
>Thanks,
>
>Ed
>