From 5b2283859c45539fe4925e39eadd96c7615a84b3 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 1 Sep 2003 09:02:01 +0000 Subject: [PATCH] (mml-insert-mime-headers-always): New variable. (mml-insert-mime-headers): Use it. Based on patch from Lars Balker Rasmussen . --- lisp/ChangeLog | 6 ++++++ lisp/mml.el | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9f5c830b..d45ff5813 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-09-01 Simon Josefsson + + * mml.el (mml-insert-mime-headers-always): New variable. + (mml-insert-mime-headers): Use it. Based on patch from Lars + Balker Rasmussen . + 2003-08-30 Simon Josefsson * mail-source.el (mail-source-fetch-imap): Pass correct buffer to diff --git a/lisp/mml.el b/lisp/mml.el index de52030db..18877541c 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -54,6 +54,12 @@ These parameters are generated in Content-Disposition header if exists." :type '(repeat (symbol :tag "Parameter")) :group 'message) +(defcustom mml-insert-mime-headers-always nil + "If non-nil, always put Content-Type: text/plain at top of empty parts. +It is necessary to work against a bug in certain clients." + :type 'boolean + :group 'message) + (defvar mml-tweak-type-alist nil "A list of (TYPE . FUNCTION) for tweaking MML parts. TYPE is a string containing a regexp to match the MIME type. FUNCTION @@ -608,7 +614,8 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (when (or charset parameters flowed - (not (equal type mml-generate-default-type))) + (not (equal type mml-generate-default-type)) + mml-insert-mime-headers-always) (when (consp charset) (error "Can't encode a part with several charsets")) -- 2.34.1