Function: gnus-article-reply-with-original

gnus-article-reply-with-original is an interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-reply-with-original &optional WIDE)

Documentation

Start composing a reply mail to the current message.

The text in the region will be yanked. If the region isn't active, the entire article will be yanked.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-article-reply-with-original (&optional wide)
  "Start composing a reply mail to the current message.
The text in the region will be yanked.  If the region isn't active,
the entire article will be yanked."
  (interactive nil gnus-article-mode)
  (let ((article (cdr gnus-article-current))
	contents)
    (if (not (and transient-mark-mode mark-active))
	(with-current-buffer gnus-summary-buffer
	  (gnus-summary-reply (list (list article)) wide))
      (setq contents (buffer-substring (point) (mark t)))
      ;; Deactivate active regions.
      (when transient-mark-mode
	(setq mark-active nil))
      (with-current-buffer gnus-summary-buffer
	(gnus-summary-reply
	 (list (list article contents)) wide)))))