Function: gnus-article-followup-with-original

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

Signature

(gnus-article-followup-with-original)

Documentation

Compose a followup to the current article.

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-followup-with-original ()
  "Compose a followup to the current article.
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-followup (list (list article))))
	(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-followup
	   (list (list article contents)))))))