Function: mm-uu-copy-to-buffer

mm-uu-copy-to-buffer is a byte-compiled function defined in mm-uu.el.gz.

Signature

(mm-uu-copy-to-buffer &optional FROM TO PROPERTIES)

Documentation

Copy the contents of the current buffer to a fresh buffer.

Return that buffer.

If PROPERTIES is non-nil, PROPERTIES are applied to the buffer, see set-text-properties. If PROPERTIES equals t, this means to apply the face mm-uu-extract.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-uu.el.gz
(defun mm-uu-copy-to-buffer (&optional from to properties)
  "Copy the contents of the current buffer to a fresh buffer.
Return that buffer.

If PROPERTIES is non-nil, PROPERTIES are applied to the buffer,
see `set-text-properties'.  If PROPERTIES equals t, this means to
apply the face `mm-uu-extract'."
  (let ((obuf (current-buffer))
        (multi enable-multibyte-characters)
	(coding-system buffer-file-coding-system))
    (with-current-buffer (generate-new-buffer " *mm-uu*")
      (if multi (mm-enable-multibyte) (mm-disable-multibyte))
      (setq buffer-file-coding-system coding-system)
      (insert-buffer-substring obuf from to)
      (cond ((eq properties  t)
	     (set-text-properties (point-min) (point-max)
				  '(face mm-uu-extract)))
	    (properties
	     (set-text-properties (point-min) (point-max) properties)))
      (current-buffer))))