diff --git a/alpine-mime-type-workaround.patch b/alpine-mime-type-workaround.patch
new file mode 100644
index 0000000..1612107
--- /dev/null
+++ b/alpine-mime-type-workaround.patch
@@ -0,0 +1,36 @@
+--- alpine-2.11/pith/send.c	2013-08-15 06:36:22.000000000 +0200
++++ alpine-2.19.4/pith/send.c	2013-12-27 20:23:54.000000000 +0100
+@@ -4419,6 +4423,17 @@
+       return(1);
+ }
+ 
++char *
++ToLower(char *s, char *t)
++{
++ int i;
++
++ for(i = 0; s != NULL && s[i] != '\0'; i++)
++   t[i] = s[i] + ((s[i] >= 'A' && s[i] <= 'Z') ? ('a' - 'A') : 0);
++ t[i] = '\0';
++
++ return t;
++}
+ 
+ /*
+  * pine_write_body_header - another c-client clone.  This time
+@@ -4441,11 +4456,11 @@
+ 
+     if((so = so_get(CharStar, NULL, WRITE_ACCESS)) != NULL){
+ 	if(!(so_puts(so, "Content-Type: ")
+-	     && so_puts(so, body_types[body->type])
++	     && so_puts(so, ToLower(body_types[body->type], tmp))
+ 	     && so_puts(so, "/")
+-	     && so_puts(so, body->subtype
+-			      ? body->subtype
+-			      : rfc822_default_subtype (body->type))))
++	     && so_puts(so, ToLower(body->subtype
++				? body->subtype
++			 	: rfc822_default_subtype (body->type),tmp))))
+ 	  return(pwbh_finish(0, so));
+ 	    
+ 	if(body->parameter){
diff --git a/alpine.changes b/alpine.changes
index 41b4e12..12c32fd 100644
--- a/alpine.changes
+++ b/alpine.changes
@@ -1,3 +1,13 @@
+-------------------------------------------------------------------
+Wed Jan 22 11:43:51 UTC 2014 - max@suse.com
+
+- Add alpine-mime-type-workaround.patch:
+  Send mime type in lowercase to work around MUAs that can't cope
+  with upper case mime type strings in the Content-Type header
+  such as the webmailer of GMX.  This is a backport from the
+  current development release and will become obsolete with the
+  next version upgrade.
+
 -------------------------------------------------------------------
 Mon Sep  2 14:07:32 UTC 2013 - jengelh@inai.de
 
diff --git a/alpine.spec b/alpine.spec
index 07513c3..7ef3315 100644
--- a/alpine.spec
+++ b/alpine.spec
@@ -1,7 +1,7 @@
 #
 # spec file for package alpine
 #
-# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -39,6 +39,7 @@ Patch10:        pico-fix-spurious-undef-warnings.diff
 Patch20:        pine-expression-warnings.diff
 Patch40:        pico-stripwhitespace.diff
 Patch60:        signal-and-panic-improvements.diff
+Patch61:        alpine-mime-type-workaround.patch
 #
 # Eduardo Chappa's patches.
 # http://patches.freeiz.com/alpine/
@@ -138,6 +139,7 @@ fi
 %patch20 -p1
 %patch40 -p1
 %patch60 -p1
+%patch61 -p1
 %endif # End of "if !{build_vanilla}"
 
 %build