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)))
_______________________________________________
bongo-devel mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/bongo-devel
