Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	20 Apr 2004 21:12:45 -0000	1.43
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	26 Feb 2005 16:00:09 -0000	1.44
@@ -937,58 +937,7 @@
 #
 #####
 
-ad_proc -private -deprecated -warn lang_message_register { locale key message } { 
 
-    Normally accessed through the _mr procedure.
-    Registers a message in a given locale or language.
-    Inserts the message into the table lang_messages
-    if it does not exist and updates if it does.
-
-    @author Jeff Davis (davis@arsdigita.com)
-    @author Bruno Mattarollo (bruno.mattarollo@ams.greenpeace.org)
-    @see _mr
-    
-    @param locale  Locale or language of the message. If a language is supplied,
-                   the default locale for the language is looked up. 
-                   Taken from ad_locales table.
-    @param key     Unique identifier for this message. Will be the same identifier
-                   for each language
-    @param message Text of the message
-    
-    @see lang::message::register
-} { 
-    return [lang::message::register $locale $key $message]
-}
-
-ad_proc -private -deprecated -warn lang_message_lookup {
-    locale
-    key
-    {default "TRANSLATION MISSING"}
-} {    
-    @see lang::message::lookup
-} { 
-    return [lang::message::lookup $locale $key $default {} 2]
-}
-
-ad_proc -deprecated -warn lang_babel_translate { 
-    msg
-    lang
-} {
-    Translates an English string into a different language
-    using Babelfish.
-
-    @author            Henry Minsky (hqm@mit.edu)
-
-    @param msg         String to translate
-    @param lang        Abbreviation for lang in which to translate string
-    @return            Translated string
-
-    @see lang::message::translate
-} {
-    return [lang::message::translate $msg $lang]
-}     
-
-
 ad_proc -public lang::message::update_description {
     {-package_key:required}
     {-message_key:required}