>>> "LI" == Lars Ingebrigtsen <larsi@gnus.org> writes:

   > Uwe Brauer <oub@mat.ucm.es> writes:
   >> I came that far, then I simply tried not to insert that header but then
   >> I could not encrypt those message, but I don't even understand the whole code.

   > That's odd, because that code is just used when viewing messages, not
   > when sending, I think?

I think what was my mistake.

I simple took the actual code and 
;; 	  (goto-char (point-min))
;; 	  (insert "Content-type: text/plain\n\n")

While you put
	    (unless (mail-fetch-field "content-type")
	      (goto-char (point-max))
	      (insert "Content-type: text/plain\n\n")))

Which is the right one.

So I only could  code I used to work by basically scrap most of the
changes you did back in August last year.