Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -N -r1.38.2.2 -r1.38.2.3
--- openacs-4/packages/forums/www/forum-view.tcl	9 Feb 2020 15:09:54 -0000	1.38.2.2
+++ openacs-4/packages/forums/www/forum-view.tcl	13 May 2020 14:31:33 -0000	1.38.2.3
@@ -51,6 +51,13 @@
 set page_title "[_ forums.Forum_1] $forum(name)"
 set context [list $forum(name)]
 
+# Users who subscribed to moderator notifications should be able to
+# unsubscribe even after their moderation privileges have been revoked.
+set type_id [notification::type::get_type_id -short_name forums_forum_moderator_notif]
+set request_id [notification::request::get_request_id -type_id $type_id -object_id $forum_id -user_id [ad_conn user_id]]
+set moderator_notifications_p [expr {$request_id ne "" ||
+                                     ($forum(posting_policy) eq "moderated" && $permissions(moderate_p))}]
+
 set type_id [notification::type::get_type_id -short_name forums_forum_notif]
 set notification_count [notification::request::request_count \
                             -type_id $type_id \