mml-generate-default-type

[Reiner Steib <reinersteib+gmane@imap.cc>]

Hi,

`M-x grep RET mml-generate-default-type SPC *.el RET' (in the v5-10
branch) gives:

,----
| grep -nH -e mml-generate-default-type *.el
| mml.el:126:(defvar mml-generate-default-type "text/plain")
| mml.el:440:			  (mml-generate-default-type "text/plain"))
| mml.el:537:	       (mml-generate-default-type (if (equal type "digest")
| mml.el:633:	      (not (equal type mml-generate-default-type))
`----

(1) Is there a good reason for the let-binding in line 440?

		    (let ((mml-boundary (mml-compute-boundary cont))
			  (mml-generate-default-type "text/plain"))
		      (mml-to-mime))

(2) The code...

    (when (or charset
	      parameters
	      flowed
	      (not (equal type mml-generate-default-type))
	      mml-insert-mime-headers-always)
      [...]
      (insert "Content-Type: " type)

    ... suggests that `mml-generate-default-type' is the default
    Content-Type that doesn't need to be declared according to the
    relevant RFC(s).  In this case, `mml-generate-default-type' should
    probably be a constant, I think.  And it should get a doc string.

Bye, Reiner.

[ Cc-ing Katsumi, who pointed me to `mml-generate-default-type' while
  discussing a problem with `mml-attach-file'.  Hopefully the ding
  list will soon be up again. ]
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/