Function: article-babel

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

Signature

(article-babel)

Documentation

Translate article using an online translation service.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-babel ()
  "Translate article using an online translation service."
  (interactive nil gnus-article-mode gnus-summary-mode)
  (require 'babel)
  (gnus-with-article-buffer
    (when (article-goto-body)
      (let* ((start (point))
	     (end (point-max))
	     (orig (buffer-substring start end))
	     (trans (babel-as-string orig)))
	(save-restriction
	  (narrow-to-region start end)
	  (delete-region start end)
	  (insert trans))))))