Function: mm-url-insert-file-contents

mm-url-insert-file-contents is an autoloaded and byte-compiled function defined in mm-url.el.gz.

Signature

(mm-url-insert-file-contents URL)

Documentation

Insert file contents of URL.

If mm-url-use-external is non-nil, use mm-url-program.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-url.el.gz
;;;###autoload
(defun mm-url-insert-file-contents (url)
  "Insert file contents of URL.
If `mm-url-use-external' is non-nil, use `mm-url-program'."
  (if mm-url-use-external
      (progn
	(if (string-match "^file:/+" url)
	    (insert-file-contents (substring url (1- (match-end 0))))
	  (mm-url-insert-file-contents-external url))
	(goto-char (point-min))
	(setq url-current-object (url-generic-parse-url url))
	(list url (buffer-size)))
    (mm-url-load-url)
    (let ((name buffer-file-name)
	  result)
      (setq result (url-insert-file-contents url))
      (save-excursion
	(goto-char (point-min))
	(while (re-search-forward "\r 1000\r ?" nil t)
	  (replace-match "")))
      (setq buffer-file-name name)
      (when (listp result)
	(setq url-current-object
	      (url-generic-parse-url (car result))))
      result)))