EmailList: add Subscribed? column

lib/pleroma/user/email_list.ex

@@ -11,7 +11,7 @@ defmodule Pleroma.User.EmailList do
   alias Pleroma.Repo
   alias Pleroma.User
 
-  @header_row ["Email Address", "Nickname"]
+  @header_row ["Email Address", "Nickname", "Subscribe?"]
 
   defp query(:subscribers) do
     User.Query.build(%{
@@ -43,8 +43,12 @@ defmodule Pleroma.User.EmailList do
     |> build_csv()
   end
 
-  defp build_row(%User{email: email, nickname: nickname}) do
+  defp build_row(%User{} = user) do
-    [email, nickname]
+    [
+      user.email,
+      user.nickname,
+      user.accepts_email_list
+    ]
   end
 
   defp build_csv(lines) do

test/pleroma/user/email_list_test.exs

@@ -16,10 +16,10 @@ defmodule Pleroma.User.EmailListTest do
     insert(:user, accepts_email_list: false)
 
     expected = """
-    Email Address,Nickname\r
+    Email Address,Nickname,Subscribe?\r
-    #{user1.email},#{user1.nickname}\r
+    #{user1.email},#{user1.nickname},true\r
-    #{user2.email},#{user2.nickname}\r
+    #{user2.email},#{user2.nickname},true\r
-    #{user3.email},#{user3.nickname}\r
+    #{user3.email},#{user3.nickname},true\r
     """
 
     assert EmailList.generate_csv(:subscribers) == expected
@@ -32,9 +32,9 @@ defmodule Pleroma.User.EmailListTest do
     insert(:user, accepts_email_list: true)
 
     expected = """
-    Email Address,Nickname\r
+    Email Address,Nickname,Subscribe?\r
-    #{user1.email},#{user1.nickname}\r
+    #{user1.email},#{user1.nickname},false\r
-    #{user2.email},#{user2.nickname}\r
+    #{user2.email},#{user2.nickname},false\r
     """
 
     assert EmailList.generate_csv(:unsubscribers) == expected