diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index be09d0856e..07ffaf14fc 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7432,7 +7432,11 @@ is for the internal use." (when (looking-at "From ") (replace-match "X-From-Line: ")) ;; Send it. - (let ((message-inhibit-body-encoding t) + (let ((message-inhibit-body-encoding + ;; Don't do any further encoding if it looks like the + ;; message has already been encoded. + (let ((case-fold-search t)) + (re-search-forward "^mime-version:" nil t))) (message-inhibit-ecomplete t) message-required-mail-headers message-generate-hashcash |