[bongo-devel] Re: Insert commands

[Daniel Jensen]

My first stab at the save function was a little too hasty. It wrote
HTTP headers along with the actual contents to the file. Here's a
working version:

(defun bongo-url-retrieved-callback (status file-name)
  (if status
      (error "Error downloading %s" (file-name-nondirectory file-name))
    (let ((handle (mm-dissect-buffer t)))
      (mm-save-part-to-file handle file-name)
      (mm-destroy-parts handle))
    (message "Finished downloading %s" (file-name-nondirectory file-name)))
  (kill-buffer (current-buffer)))