Re: babelgnus

[Per Abrahamsen <abraham@dina.kvl.dk>]

Eric Marsden <emarsden@mail.dotcom.fr> writes:

> I just wrote it (I'm in work avoidance mode), so it's hardly been
> tested. Download at
> 
>    <URL:http://www.chez.com/emarsden/downloads/babel.el>

It's cool!  Here is a Gnus interface to it.  

I think it should be added to Gnus with a keybinding and a menu, but
that will have to wait until Lars reappears.  For now, just add it to
your `.gnus', and Type `M-x article-babel RET' in the summary buffer
to translate the current message.

(defun article-babel-prompt ()
  "Prompt for a babel translation."
  (require 'babel)
  (completing-read "Translate from: "
		   babel-translations nil t
		   (car (car babel-translations))
		   babel-history))

(defun article-babel (translation)
  "Translate article according to TRANSLATION using babelfish."
  (interactive (list (article-babel-prompt)))
  (require 'babel)
  (save-excursion
    (set-buffer gnus-article-buffer)
    (when (article-goto-body)
      (let* ((buffer-read-only nil)
	     (start (point))
	     (end (point-max))
	     (msg (buffer-substring start end)))
	(delete-region start end)
	(babel-fetch msg (cdr (assoc translation babel-translations)))
	(save-restriction
	  (narrow-to-region start (point-max))
	  (babel-wash))))))