From: morioka <morioka>
Date: Wed, 7 Jan 1998 14:57:42 +0000 (+0000)
Subject: Sync with Quassia Gnus v0.22.
X-Git-Tag: gnus-6_7-tomo-199811302358~262
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a29f845f6df68be6f995c762be22652483cf85a7;p=elisp%2Fgnus.git-

Sync with Quassia Gnus v0.22.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 4a79dbf..6afd3e7 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -531,6 +531,8 @@ If SILENT, don't prompt the user."
 
 ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>.
 (defun gnus-inews-insert-mime-headers ()
+  "Insert MIME headers.  
+Assumes ISO-Latin-1 is used iff 8-bit characters are present."
   (goto-char (point-min))
   (let ((mail-header-separator
 	 (progn
@@ -545,7 +547,7 @@ If SILENT, don't prompt the user."
 	(cond ((save-restriction
 		 (widen)
 		 (goto-char (point-min))
-		 (re-search-forward "[\200-\377]" nil t))
+		 (re-search-forward "[^\000-\177]" nil t))
 	       (or (mail-position-on-field "Content-Type")
 		   (insert "text/plain; charset=ISO-8859-1"))
 	       (or (mail-position-on-field "Content-Transfer-Encoding")
@@ -555,6 +557,8 @@ If SILENT, don't prompt the user."
 		 (or (mail-position-on-field "Content-Transfer-Encoding")
 		     (insert "7bit")))))))
 
+(custom-add-option 'message-header-hook 'gnus-inews-insert-mime-headers)
+
 
 ;;;
 ;;; Gnus Mail Functions