Adds a List-Id header to outgoing mail

This commit is contained in:
Robin Ward
2013-07-02 14:13:46 -04:00
parent 1308dbbef7
commit fab1be7c8e
2 changed files with 51 additions and 0 deletions

View File

@ -7,6 +7,7 @@
# It also adds an HTML part for the plain text body
#
require_dependency 'email/renderer'
require 'uri'
module Email
class Sender
@ -45,6 +46,9 @@ module Email
to_address: to_address,
user_id: @user.try(:id))
@message.header['List-Id'] = Email::Sender.list_id_for(SiteSetting.title, Discourse.base_url)
add_header_to_log('X-Discourse-Reply-Key', email_log, :reply_key)
add_header_to_log('X-Discourse-Post-Id', email_log, :post_id)
add_header_to_log('X-Discourse-Topic-Id', email_log, :topic_id)
@ -62,6 +66,20 @@ module Email
end
def self.list_id_for(site_name, base_url)
host = "localhost"
if base_url.present?
begin
uri = URI.parse(base_url)
host = uri.host.downcase if uri.host.present?
rescue URI::InvalidURIError
end
end
"\"#{site_name.gsub(/\"/, "'")}\" <#{Slug.for(site_name)}.#{host}>"
end
private
def add_header_to_log(name, email_log, email_log_field)