Function: mm-uu-verbatim-marks-extract

mm-uu-verbatim-marks-extract is a byte-compiled function defined in mm-uu.el.gz.

Signature

(mm-uu-verbatim-marks-extract START-OFFSET END-OFFSET &optional START-HIDE END-HIDE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-uu.el.gz
(defun mm-uu-verbatim-marks-extract (start-offset end-offset
						  &optional
						  start-hide
						  end-hide)
  (let ((start (or (and mm-uu-hide-markers
			start-hide)
		   start-offset
		   1))
	(end   (or (and mm-uu-hide-markers
			end-hide)
		   end-offset
		   -1)))
    (mm-make-handle
     (mm-uu-copy-to-buffer
      (progn (goto-char start-point)
	     (forward-line start)
	     (point))
      (progn (goto-char end-point)
	   (forward-line end)
	   (point))
      t)
     '("text/x-verbatim" (charset . gnus-decoded)))))