Function: mm-inline-render-with-links

mm-inline-render-with-links is a byte-compiled function defined in mm-view.el.gz.

Signature

(mm-inline-render-with-links HANDLE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-view.el.gz
(defun mm-inline-render-with-links (handle)
  (let ((source (mm-get-part handle))
        file charset)
    (mm-insert-inline
     handle
     (with-temp-buffer
       (setq charset (mail-content-type-get (mm-handle-type handle) 'charset))
       (insert source)
       (unwind-protect
           (progn
             (setq file (make-temp-file (expand-file-name
                                         "mm" mm-tmp-directory)))
             (let ((coding-system-for-write 'binary))
               (write-region (point-min) (point-max) file nil 'silent))
             (delete-region (point-min) (point-max))
             (if charset
                 (with-environment-variables (("LANG" (format "en-US.%s"
                                                              charset)))
                   (call-process "links" nil t nil "-dump" file))
               (call-process "links" nil t nil "-dump" file))
             (goto-char (point-min))
             (while (re-search-forward "^   " nil t)
               (delete-region (match-beginning 0) (match-end 0))))
         (when (and file (file-exists-p file))
           (delete-file file)))
       (buffer-string)))))