Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp,v
diff -u -N -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp	15 Apr 2019 17:30:48 -0000	1.19.2.1
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp	24 Apr 2019 10:24:23 -0000	1.19.2.2
@@ -29,6 +29,7 @@
   <ul class="action-links">
     <if @deleted_p;literal@ true>
       <li> <a href="@undelete_url@" title="Undelete this message">Undelete this message</a> </li>
+      <li> <a href="@unregister_url@" title="Delete this message permanently (unregister)">Delete this message permanently in all locales (unregister)</a> </li>
     </if>
     <else>
       <li> <a href="@delete_url@" title="Delete this message">Delete this message</a></li>
Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl,v
diff -u -N -r1.24.2.3 -r1.24.2.4
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	17 Apr 2019 09:53:39 -0000	1.24.2.3
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	24 Apr 2019 10:24:23 -0000	1.24.2.4
@@ -48,8 +48,9 @@
 set usage_hide_url [export_vars -base [ad_conn url] { locale package_key message_key show return_url }]
 set usage_show_url [export_vars -base [ad_conn url] { locale package_key message_key show {usage_p 1} return_url }]
 
-set delete_url [export_vars -base message-delete { locale package_key message_key show {return_url {[ad_return_url]}} }]
-set undelete_url [export_vars -base message-undelete { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set delete_url      [export_vars -base message-delete       { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set undelete_url    [export_vars -base message-undelete     { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set unregister_url  [export_vars -base message-unregister   { locale package_key message_key show {return_url {[ad_return_url]}} }]
 
 set deleted_p [db_string get_deleted_p {
     select deleted_p
Index: openacs-4/packages/acs-lang/www/admin/message-unregister.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/message-unregister.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/message-unregister.adp	24 Apr 2019 10:24:23 -0000	1.1.2.1
@@ -0,0 +1,12 @@
+<master>
+  <property name="doc(title)">@page_title;literal@</property>
+  <property name="context">@context;literal@</property>
+
+<p>
+  Permanently deleting (unregistering) message key <strong>@package_key@.@message_key@</strong> in all locales.
+</p>
+
+<form action="message-unregister">
+    @form_export_vars;noquote@
+    <input type="submit" value="Confirm unregister">
+</form>
Index: openacs-4/packages/acs-lang/www/admin/message-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/message-unregister.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/message-unregister.tcl	24 Apr 2019 10:24:23 -0000	1.1.2.1
@@ -0,0 +1,47 @@
+ad_page_contract {
+
+    Undelete a message
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+
+    @creation-date 2019-04-24
+    @cvs-id $Id $
+
+} {
+    locale
+    package_key
+    message_key
+    show:optional
+    confirm_p:boolean,optional
+}
+
+
+# We rename to avoid conflict in queries
+set current_locale $locale
+set default_locale en_US
+
+set locale_label [lang::util::get_label $current_locale]
+set default_locale_label [lang::util::get_label $default_locale]
+
+set page_title "Delete Message Permanently (Unregister)"
+set context [list [list [export_vars -base package-list { locale }] $locale_label] \
+                 [list [export_vars -base message-list { locale package_key show }] $package_key] \
+                 $page_title]
+
+set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }]
+
+
+if { [info exists confirm_p] && $confirm_p ne ""
+     && [template::util::is_true $confirm_p]
+ } {
+    lang::message::unregister $package_key $message_key
+
+    ad_returnredirect [export_vars -base message-list { locale package_key show }]
+    ad_script_abort
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: