my attach this buffer

[Uwe Brauer <oub@mat.ucm.es>]

Hi


A very long time ago I wrote a function that allowed my attach the
actual buffer, I was working in, using vm.

I no longer use vm but gnus since a long time, but forgot  the function

So I tried 

(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))))
    (my-gnus-summary-post-news)
    (mail-text)
    (mml-attach-buffer src-buffer nil nil nil)
    (message-goto-to)))


It does not work something in the src-buffer is not right but I don't
know what

Anybody has an idea? It is really strange that such a function does not exist