Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.81.2.13 -r1.81.2.14
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	5 Dec 2021 15:36:21 -0000	1.81.2.13
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	5 Jan 2022 13:10:51 -0000	1.81.2.14
@@ -350,37 +350,6 @@
     return 1
 }
 
-ad_proc ad_pretty_mailing_address_from_args {
-    line1
-    line2
-    city
-    state
-    postal_code
-    country_code
-} {
-    Returns a prettily formatted address with country name, given
-    an address.
-
-    @author Unknown
-    @author Roberto Mello
-} {
-    set lines [list]
-    if { $line2 eq "" } {
-        lappend lines $line1
-    } elseif { $line1 eq "" } {
-        lappend lines $line2
-    } else {
-        lappend lines $line1
-        lappend lines $line2
-    }
-    lappend lines "$city, $state $postal_code"
-    if { $country_code ne "" && $country_code ne "us" } {
-        lappend lines [ad_country_name_from_country_code $country_code]
-    }
-    return [join $lines "\n"]
-}
-
-
 # for pages that have optional decoration
 
 ad_proc ad_decorate_top {