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 -r1.20
--- openacs-4/packages/forums/www/message-email.tcl	27 Sep 2017 11:07:52 -0000	1.19
+++ openacs-4/packages/forums/www/message-email.tcl	3 Sep 2024 15:37:39 -0000	1.20
@@ -7,14 +7,16 @@
     @cvs-id $Id$
 
 } {
-    message_id:naturalnum,notnull
+    message_id:object_type(forums_message),notnull
 }
 
+
 # require login to avoid abuse from spammers
 auth::require_login
 
-# Get the message information
 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