[help] attachment description default to file name

[help] attachment description default to file name

[Leon]

Hi all,

When attaching a file, there is a "one line description:"? How can I
set it default to the file name? I find it useful because when I
download the attachment from webmail interface the description is the
file name to save.

Thanks.
-- 
Leon

Re: [help] attachment description default to file name

[Andreas Seltenreich]

Leon <sdl.web@gmail.com> writes:

> When attaching a file, there is a "one line description:"? How can I
> set it default to the file name? I find it useful because when I
> download the attachment from webmail interface the description is the
> file name to save.

You could write a function that wraps around mml-attach-file and use
that instead. E.g. (untested):

--8<---------------cut here---------------start------------->8---
(defun my-attach-file (file &optional type description disposition)
  (interactive
   (let* ((file (mml-minibuffer-read-file "Attach file: "))
	  (type (mml-minibuffer-read-type file))
	  (description
	   (read-string
	    (format "One line description (default %s): " file) nil nil file))
	  (disposition (mml-minibuffer-read-disposition type)))
	  (list file type description disposition)))
  (mml-attach-file file type description disposition))
--8<---------------cut here---------------end--------------->8---

regards,
andreas

Re: [help] attachment description default to file name

[Leon]

Andreas Seltenreich <seltenreich@gmx.de> writes:

> Leon <sdl.web@gmail.com> writes:
>
>> When attaching a file, there is a "one line description:"? How can I
>> set it default to the file name? I find it useful because when I
>> download the attachment from webmail interface the description is the
>> file name to save.
>
> You could write a function that wraps around mml-attach-file and use
> that instead. E.g. (untested):
>
> --8<---------------cut here---------------start------------->8---
> (defun my-attach-file (file &optional type description disposition)
>   (interactive
>    (let* ((file (mml-minibuffer-read-file "Attach file: "))
> 	  (type (mml-minibuffer-read-type file))
> 	  (description
> 	   (read-string
> 	    (format "One line description (default %s): " file) nil nil file))
> 	  (disposition (mml-minibuffer-read-disposition type)))
> 	  (list file type description disposition)))
>   (mml-attach-file file type description disposition))
> --8<---------------cut here---------------end--------------->8---
>
> regards,
> andreas

Thank you, Andreas. It works.

-- 
Leon