bug#17871: 24.4.50; (elisp) `Core Advising Primitives': interactive spec as function?

[Lars Ingebrigtsen]

Štěpán Němec <stepnem@gmail.com> writes:

> Well, the closest I see in my init is this (in fact I have been doing it
> differently and more uglily, but now I see this is simpler):
>
> (defun my-compose-mail-advice (orig &rest args)
>   "Read From: address interactively."
>   (interactive (lambda (spec)
>                  (let* ((user-mail-address
>                          (completing-read "From: " '("one.address@example.net"
>                                                      
> "alternative.address@example.net")))
>                         (from (message-make-from user-full-name
>                                                  user-mail-address))
>                         (spec (advice-eval-interactive-spec spec)))
>                    ;; notmuch doesn't understand "From", it has to be a symbol
>                    (push (cons 'From from) (nth 2 spec))
>                    spec)))
>   (apply orig args))
>
> (advice-add 'compose-mail :around #'my-compose-mail-advice)

That's a good example.  I've now added it to the trunk with some slight
modifications.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no