[Erbot-cvs] erbot/contrib translate.el

[Vivek Dasmohapatra]

CVSROOT:        /sources/erbot
Module name:    erbot
Changes by:     Vivek Dasmohapatra <fledermaus> 12/06/19 13:15:51

Modified files:
        contrib        : translate.el 

Log message:
        utf8 encoding restrictions on hebrew, papiementu lifted; minor output 
munging

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/contrib/translate.el?cvsroot=erbot&r1=1.7&r2=1.8

Patches:
Index: translate.el
===================================================================
RCS file: /sources/erbot/erbot/contrib/translate.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- translate.el        30 Sep 2009 22:23:04 -0000      1.7
+++ translate.el        19 Jun 2012 13:15:51 -0000      1.8
@@ -19,7 +19,7 @@
 
 ;; This is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; This is distributed in the hope that it will be useful,
@@ -47,7 +47,7 @@
 usually text, and occasionally web-page as well. No other types are currently 
 known.")
 
-(defvar translate-unsupported-langs '("he" "pap")
+(defvar translate-unsupported-langs nil
   "Languages (two/three letter codes) that we cannot utf-8 encode yet.")
 
 (defgroup translate nil
@@ -232,6 +232,6 @@
            )) ))
      (if (/= 0 status)
          (error "%d - %s" status translation))
-     translation ))
+     (replace-regexp-in-string "<.*?>" "" translation) ))
 
 (provide 'translate)