Re: [h-e-w] Sending a file from dired

[Stefan Reichör]

Joe Riel <address@hidden> writes:

> Apologies for not being more specific in my original request.
> I use Netscape for my email so I haven't made any particular effort to set up 
> a mail client with Emacs
> other than assigning smtpmail-default-smtp-server and a few related variables.
> I can use the mail-to Elisp function to mail a buffer.
>
> I would like a way to fire off a file from dired.
>
> Joe Riel
>
Hi Joe,

I use a function like this to send a file from the dired buffer:

(defun dired-mail-this-file ()
  (interactive)
  (let ((file (dired-get-filename)))
    (compose-mail)
    (save-excursion
      (message-goto-subject)
      (insert (file-name-nondirectory file))
      (message-goto-body)
      (mml-attach-file file (mm-default-file-encoding file)))))

(define-key dired-mode-map [(meta ?m)] 'dired-mail-this-file)

Stefan.