From a29f845f6df68be6f995c762be22652483cf85a7 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 Jan 1998 14:57:42 +0000 Subject: [PATCH] Sync with Quassia Gnus v0.22. --- lisp/gnus-msg.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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" . (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 -- 1.7.10.4