bug#12895: 24.3.50; Replacement for flet

[Stefan Monnier]

> But why I haven't yet replaced flet used in
> message-read-from-minibuffer is that I don't yet have a solution
> better than this:

>       (flet ((mail-abbrev-in-expansion-header-p nil t))
>         (read-from-minibuffer prompt initial-contents))

How 'bout

(defadvice mail-abbrev-in-expansion-header-p (around t-in-minibuffer activate)
  (if (minibufferp) (setq ad-return-value t) ad-do-it))

Or how 'bout filing a feature request?


        Stefan