From 5717c7917a3955f86849e64573a5be9ba20a28e5 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 16 Feb 1998 15:54:39 +0000 Subject: [PATCH] Delete commented-out function `gnus-inews-insert-mime-headers'. --- lisp/gnus-msg.el | 30 ------------------------------ 1 file changed, 30 deletions(-) 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" . -;; (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 -- 1.7.10.4