> Uwe Brauer <oub@mat.ucm.es> writes:

> You could try `mailcap-file-name-to-mime-type' on the file name, and see
> if that gets it right often enough to be useful.



Hm I tried (mailcap-file-name-to-mime-type (buffer-file-name current-buffer))
but that did not work

I mean 

(defun my-attach-this-buffer ()
  "Send the whole buffer, funny to note that such a function does not exist."
  (interactive)
  (let  ((src-buf (buffer-file-name (current-buffer))))
    (let ((my-mime (mailcap-file-name-to-mime-type (buffer-file-name current-buffer))))
      (gnus-summary-post-news)
      (mail-text)
      (mml-attach-buffer src-buf my-mime nil nil)
      (message-goto-to))))

But it did not work