--- /home/harder/gnus/lisp/mm-bodies.el	Wed Aug  7 16:57:09 2002
+++ mm-bodies.el	Fri Nov  1 07:35:07 2002
@@ -143,6 +143,7 @@
       bits)
      ((and (not mm-use-ultra-safe-encoding)
 	   (not longp)
+	   (not (eq '7bit (cdr (assq charset mm-body-charset-encoding-alist))))
 	   (or (eq t (cdr message-posting-charset))
 	       (memq charset (cdr message-posting-charset))
 	       (eq charset mail-parse-charset)))