Improvements to email cook text rendering

lib/email_cook.rb

@@ -26,11 +26,15 @@ class EmailCook
         in_quote = false
       else
 
+        sz = l.size
+
         l.scan(EmailCook.url_regexp).each do |m|
           url = m[0]
           l.gsub!(url, "<a href='#{url}'>#{url}</a>")
         end
-        result << l << "<br>"
+
+        result << l
+        result << "<br>" if sz < 60
       end
     end
 

spec/components/email_cook_spec.rb

@@ -3,10 +3,30 @@ require 'email_cook'
 
 describe EmailCook do
 
-  it 'adds linebreaks' do
+  it 'adds linebreaks to short lines' do
     expect(EmailCook.new("hello\nworld\n").cook).to eq("hello\n<br>world\n<br>")
   end
 
+  it "doesn't add linebreaks to long lines" do
+    long = <<LONG_EMAIL
+Hello,
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nunc convallis volutpat
+risus. Nulla ac faucibus quam, quis cursus lorem. Sed rutrum eget nunc sed accumsan.
+Vestibulum feugiat mi vitae turpis tempor dignissim.
+LONG_EMAIL
+
+    long_cooked = <<LONG_COOKED
+Hello,
+<br>
+<br>Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nunc convallis volutpat
+risus. Nulla ac faucibus quam, quis cursus lorem. Sed rutrum eget nunc sed accumsan.
+Vestibulum feugiat mi vitae turpis tempor dignissim.
+<br>
+LONG_COOKED
+    expect(EmailCook.new(long).cook).to eq(long_cooked.strip)
+  end
+
   it 'autolinks' do
     expect(EmailCook.new("https://www.eviltrout.com").cook).to eq("<a href='https://www.eviltrout.com'>https://www.eviltrout.com</a><br>")
   end