Re: Pterodactyl Gnus v0.92 is released

[Eric Marsden <emarsden@mail.dotcom.fr>]

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

  ssr> Someone who is better with Gnus' innards should take a look at
  ssr> the new babel, I think:

  larsi> Yeah.  And someone who is more familiar with babel.el.  :-)
  larsi> 
  larsi> The babel code in Gnus is very, very straightforward --
  larsi> article-babel and article-babel-prompt in gnus-art.el.

  ecm> ok, I will have a look at it.

this seems to work with XEmacs 20.4 and pgnus 0.95.

  
--- gnus-art.el-orig	Sat Jul 10 00:22:56 1999
+++ gnus-art.el	Thu Jul 29 13:37:34 1999
@@ -1529,17 +1529,9 @@
 	    (while (re-search-forward banner nil t)
 	      (delete-region (match-beginning 0) (match-end 0))))))))))
 
-(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)))
+(defun article-babel ()
+  "Translate article using an online translation service."
+  (interactive)
   (require 'babel)
   (save-excursion
     (set-buffer gnus-article-buffer)
@@ -1547,14 +1539,12 @@
       (let* ((buffer-read-only nil)
 	     (start (point))
 	     (end (point-max))
-	     (msg (buffer-substring start end)))
+	     (orig (buffer-substring start end))
+             (trans (babel-as-string orig)))
 	(save-restriction
 	  (narrow-to-region start end)
 	  (delete-region start end)
-	  (babel-fetch msg (cdr (assoc translation babel-translations)))
-	  (save-restriction
-	    (narrow-to-region start (point-max))
-	    (babel-wash)))))))
+          (insert trans))))))
 
 (defun article-hide-signature (&optional arg)
   "Hide the signature in the current article.