> [...] If all you want is pick an address manually when
> composing a new message, you can do something like the following:
>
> (defun my-compose-mail-advice (orig &rest args)
> "Read `user-mail-address' from minibuffer."
> (interactive (lambda (spec)
> (let* ((user-mail-address
> (completing-read "From: " '("[email protected]"
> "[email protected]")))
> (from (message-make-from user-full-name
> user-mail-address))
> (spec (advice-eval-interactive-spec spec)))
> (push (cons 'From from) (nth 2 spec))
> spec)))
> (apply orig args))
>
> (advice-add 'compose-mail :around #'my-compose-mail-advice)
What a wonderful world!!! Thank You Very Much, Štěpán^^^
Sincerely,
--
^고맙습니다 _地平天成_ 감사합니다_^))//
_______________________________________________
info-gnus-english mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
