Function: rmail-yank-current-message

rmail-yank-current-message is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-yank-current-message BUFFER)

Documentation

Yank into the current buffer the current message of Rmail buffer BUFFER.

If BUFFER is swapped with its message viewer buffer, yank out of BUFFER. If BUFFER is not swapped, yank out of its message viewer buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
;;;; *** Rmail Mailing Commands ***

(defun rmail-yank-current-message (buffer)
  "Yank into the current buffer the current message of Rmail buffer BUFFER.
If BUFFER is swapped with its message viewer buffer, yank out of BUFFER.
If BUFFER is not swapped, yank out of its message viewer buffer."
  (with-current-buffer buffer
    (unless (rmail-buffers-swapped-p)
      (setq buffer rmail-view-buffer)))
  (insert-buffer-substring buffer)
  ;; If they yank the text of BUFFER, the encoding of BUFFER is a
  ;; better default for the reply message than the default value of
  ;; buffer-file-coding-system.
  (and (coding-system-equal (default-value 'buffer-file-coding-system)
			    buffer-file-coding-system)
       (setq buffer-file-coding-system
	     (coding-system-change-text-conversion
	      buffer-file-coding-system (coding-system-base
					 (with-current-buffer buffer
					   buffer-file-coding-system))))))