Mercurial > emacs

diff lisp/gnus/message.el @ 111479:244f248736b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nnimap.el (nnimap-update-info): Fix problem with `g' chopping of low-numbered articles. message.el (message-resend): Don't disable encoding unless it's already encoded.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 10 Nov 2010 23:16:01 +0000
parents eb9988805a37
children cad125981c0f
line wrap: on
line diff
--- a/lisp/gnus/message.el	Wed Nov 10 23:27:02 2010 +0100
+++ b/lisp/gnus/message.el	Wed Nov 10 23:16:01 2010 +0000
@@ -7432,7 +7432,11 @@
       (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