* Aidan Kehoe <kehoea(a)parhasard.net> writes:
Okay, so something like the following, which adds nothing over my
patch of a
few days ago, but might just get Mike to quiet down. Maybe.
(defun xemacs-default-composefunc (&rest args)
(cond
((featurep 'vm-autoloads)
(if (eq mail-user-agent 'xemacs-default-user-agent)
(setq mail-user-agent 'vm-user-agent))
(apply (get 'vm-user-agent 'composefunc) args))
(t
(if (eq mail-user-agent 'xemacs-default-user-agent)
(setq mail-user-agent 'vm-user-agent)))
(apply (get 'sendmail-user-agent 'composefunc) args)))
Wanna know where this breaks down? With Sumo installers who don't
like VM.
Yes, I know that this group should _NOT_ be installing Sumo's and
should be selectively installing via PUI. But the truth is that the
majority of users install Sumo's. I have no idea why. I've tried to
convince people that they are better off _WITHOUT_ Sumos... I don't
think I was very successful.
Getting back to mail-user-agent... IMO the default in XEmacs should be
_very very_ basic, no bells or whistles, and definitely no need for
MIME. If the user wants bells and whistles, they'll install something
like VM, Gnus, MH-E.
Sure, give the user the option of setting mail-user-agent to whatever
they want, but don't force a particular MUA down anyone's throat.
Now what would be cool is if the first time mail-user-agent is needed
and it has not been set...
Pop up a small help buffer saying something like:
You have the following XEmacs MUA's installed:
1 - Gnus -- The Gnus Newsreader and Mailreader.
2 - MH-E -- The XEmacs Interface to the MH Mail System.
3 - VM -- An Emacs mailer.
Which do you want to use as your default mailer? (press num to
select MUA or RET to use the built-in basic mailer)
Then ask the user if they want this selection just for this session or
for all eternity. :-)
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| I am Dyslexic of Borg. |
| Fusistance is retile. Your arse will be laminated. |
|------------------------------------<steve(a)sxemacs.org>---|