Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/forums/www/message-email.tcl	12 Apr 2022 12:27:40 -0000	1.19.2.1
+++ openacs-4/packages/forums/www/message-email.tcl	15 Jul 2022 16:19:56 -0000	1.19.2.2
@@ -7,21 +7,15 @@
     @cvs-id $Id$
 
 } {
-    message_id:naturalnum,notnull
-} -validate {
-    valid_message_id -requires {message_id:naturalnum} {
-        # Load up the message information
-        forum::message::get -message_id $message_id -array message
-        if {![array exists message]} {
-            ad_complain "Invalid message_id"
-        }
-    }
+    message_id:object_type(forums_message)
 }
 
 
 # require login to avoid abuse from spammers
 auth::require_login
 
+forum::message::get -message_id $message_id -array message
+
 # Get the message information
 forum::security::require_read_forum -forum_id $message(forum_id)
 set message(tree_level) 0