Function: mh-add-missing-mime-version-header

mh-add-missing-mime-version-header is an autoloaded and byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-add-missing-mime-version-header)

Documentation

Some mail programs don't put a MIME-Version header.

I have seen this only in spam, so maybe we shouldn't fix this ;-)

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
;;; Miscellaneous Article Washing

;;;###mh-autoload
(defun mh-add-missing-mime-version-header ()
  "Some mail programs don't put a MIME-Version header.
I have seen this only in spam, so maybe we shouldn't fix
this ;-)"
  (save-excursion
    (goto-char (point-min))
    (re-search-forward "\n\n" nil t)
    (save-restriction
      (narrow-to-region (point-min) (point))
      (when (and (message-fetch-field "content-type")
                 (not (message-fetch-field "mime-version")))
        (goto-char (point-min))
        (insert "MIME-Version: 1.0\n")))))