From f9d9de3cc60d321db59a92adfe6febb84785ef19 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 1 Dec 2008 22:50:38 +0000
Subject: [PATCH] Make Posts respect the email privacy setting.  Fixed in 7.6
 branch only.

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Asset/Post.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 5501ca4d7..0ff30e0fc 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -16,6 +16,7 @@
  - fixed: Improve Thingy navigation.
  - fixed #9126: UserList is completely broken in 7.6.4 (Yung Han Khoe)
  - fixed #9177: Wide-characters break product varients
+ - fixed #9191: Message Board reveals user email, ignores profile privacy setting (#9180)
 
 7.6.4
  - Survey now will show progress and time limit.
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 4a6555d99..e5a045185 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -764,7 +764,9 @@ sub notifySubscribers {
     my $returnAddress = $setting->get("mailReturnPath");
     my $companyAddress = $setting->get("companyEmail");
     my $listAddress = $cs->get("mailAddress");
-    my $posterAddress = $user->profileField("email");
+    my $posterAddress = $user->getProfileFieldPrivacySetting('email') eq "all"
+                      ? $user->profileField('email')
+                      : '';
     my $from = $posterAddress || $listAddress || $companyAddress;
     my $replyTo = $listAddress || $returnAddress || $companyAddress;
     my $sender = $listAddress || $companyAddress || $posterAddress;