From: morioka <morioka>
Date: Mon, 16 Feb 1998 15:54:39 +0000 (+0000)
Subject: Delete commented-out function `gnus-inews-insert-mime-headers'.
X-Git-Tag: gnus-6_7-tomo-199811302358~186
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5717c7917a3955f86849e64573a5be9ba20a28e5;p=elisp%2Fgnus.git-

Delete commented-out function `gnus-inews-insert-mime-headers'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5ee6f3a..04b3cf6 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -492,36 +492,6 @@ If SILENT, don't prompt the user."
   (interactive)
   gnus-version)
 
-;; 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
-;;            (goto-char (point-min))
-;;            (if (and (search-forward (concat "\n" mail-header-separator "\n")
-;;                                     nil t)
-;;                     (not (search-backward "\n\n" nil t)))
-;;                mail-header-separator
-;;              ""))))
-;;     (or (mail-position-on-field "Mime-Version")
-;;         (insert "1.0")
-;;         (cond ((save-restriction
-;;                  (widen)
-;;                  (goto-char (point-min))
-;;                  (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")
-;;                    (insert "8bit")))
-;;               (t (or (mail-position-on-field "Content-Type")
-;;                      (insert "text/plain; charset=US-ASCII"))
-;;                  (or (mail-position-on-field "Content-Transfer-Encoding")
-;;                      (insert "7bit")))))))
-
-;; (custom-add-option 'message-header-hook 'gnus-inews-insert-mime-headers)
-
 
 ;;;
 ;;; Gnus Mail Functions