Function: message-yank-original

message-yank-original is an autoloaded, interactive and byte-compiled function defined in message.el.gz.

Signature

(message-yank-original &optional ARG)

Documentation

Insert the message being replied to, if any.

Puts point before the text and mark after. Normally indents each nonblank line ARG spaces (default 3). However, if message-yank-prefix is non-nil, insert that prefix on each line.

This function uses message-cite-function to do the actual citing.

Just C-u (universal-argument) as argument means don't indent, insert no prefix, and don't delete any headers.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-yank-original (&optional arg)
  "Insert the message being replied to, if any.
Puts point before the text and mark after.
Normally indents each nonblank line ARG spaces (default 3).  However,
if `message-yank-prefix' is non-nil, insert that prefix on each line.

This function uses `message-cite-function' to do the actual citing.

Just \\[universal-argument] as argument means don't indent, insert no
prefix, and don't delete any headers."
  (interactive "P" message-mode)
  ;; eval the let forms contained in message-cite-style
  (let ((bindings (if (symbolp message-cite-style)
                      (symbol-value message-cite-style)
                    message-cite-style)))
    (cl-progv (mapcar #'car bindings)
        (mapcar (lambda (binding) (eval (cadr binding) t)) bindings)
      (message--yank-original-internal arg))))