Add List-Unsubscribe header to emails

Bug: T58315
Change-Id: I5fb9cc6be78338819b9766456923e59f4fdee35c

diff --git a/includes/mail/UserMailer.php b/includes/mail/UserMailer.php
index 3cabdae..8264673 100644 (file)
--- a/includes/mail/UserMailer.php
+++ b/includes/mail/UserMailer.php
@@ -206,6 +206,8 @@ class UserMailer {
                $headers['Date'] = MWTimestamp::getLocalInstance()->format( 'r' );
                $headers['Message-ID'] = self::makeMsgId();
                $headers['X-Mailer'] = 'MediaWiki mailer';
+               $headers['List-Unsubscribe'] = '<' . SpecialPage::getTitleFor( 'Preferences' )
+                       ->getFullURL( '', false, PROTO_CANONICAL ) . '>';
 
                # Line endings need to be different on Unix and Windows due to
                # the bug described at http://trac.wordpress.org/ticket/2603