Ar an tríú lá is fiche de mí Márta, scríobh Stephen J. Turnbull:
>>>>> "Aidan" == Aidan Kehoe
<kehoea(a)parhasard.net> writes:
Aidan> Hey, I love the idea, and I’d love it even more if I could
Aidan> get it to work. Give me a defvar statement on that
Aidan> principle that does something useful for the
Aidan> mail-user-agent,
Well, obviously it's going to have to be a valid mail-user-agent,
which is a symbol torqued by define-mail-user-agent or some such.
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)))
;; Shouldn’t be necessary, as xemacs-default-composefunc should always have
;; been called first, but is here for completeness.
(defun xemacs-default-sendfunc (&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 'sendfunc) args))
(t
(if (eq mail-user-agent 'xemacs-default-user-agent)
(setq mail-user-agent 'vm-user-agent)))
(apply (get 'sendmail-user-agent 'sendfunc) args)))
(define-mail-user-agent 'xemacs-default-user-agent
'xemacs-default-composefunc 'xemacs-default-sendfunc)
(defvar mail-user-agent 'xemacs-default-user-agent)
--
“I, for instance, am gung-ho about open source because my family is being
held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle,
when we say something in public? No-one!” -- Danny O’Brien