gistfile1.txt

(defun write-file-no-msg (filename)
  "write current buffer without causing a message to whatever"
  (let ((write-proc (start-process-shell-command "silent-write-file" "*silent-write-file*"
                                                 (format "cat > %s" filename))))
    (process-send-string write-proc (buffer-string))
    (process-send-eof write-proc)))