Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 2977:0a759f4c4225

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-05 04:32:44 by stephent] Aidan, I'm sick of yer naggin'! :-) <87achotwly.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 05 Oct 2005 04:32:45 +0000
parents feeb145e30f4
children 5df5ea55d3fc
comparison
equal deleted inserted replaced
2976:0fb57d74601d 2977:0a759f4c4225
3415 ;; and hope for the best. Not code we want to use, IMO. 3415 ;; and hope for the best. Not code we want to use, IMO.
3416 3416
3417 (defun xemacs-default-composefunc (&rest args) 3417 (defun xemacs-default-composefunc (&rest args)
3418 "Warn that the default mail-reading package is heinously underfeatured; 3418 "Warn that the default mail-reading package is heinously underfeatured;
3419 compose a mail using it, all the same. " 3419 compose a mail using it, all the same. "
3420 (warn " 3420 (unless (noninteractive)
3421 (warn "
3421 3422
3422 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility, 3423 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility,
3423 while part of base XEmacs, is heinously underfeatured, and not going to get 3424 while part of base XEmacs, is heinously underfeatured, and not going to get
3424 better in the medium term. We include it so that bug reports work without 3425 better in the medium term. We include it so that bug reports work without
3425 packages; we suggest that you choose and/or install one of the other mail 3426 packages; we suggest that you choose and/or install one of the other mail
3429 To choose a package from those installed, click on \"Options\" -> 3430 To choose a package from those installed, click on \"Options\" ->
3430 \"Internet\" -> \"Compose Mail With ...\" and decide on one from the 3431 \"Internet\" -> \"Compose Mail With ...\" and decide on one from the
3431 list. Gnus and VM are full-featured and have active user communities. 3432 list. Gnus and VM are full-featured and have active user communities.
3432 3433
3433 To disable this warning and stick with the old behavior, you can explicitly 3434 To disable this warning and stick with the old behavior, you can explicitly
3434 initialize `mail-user-agent' to 'sendmail-user-agent . ") 3435 initialize `mail-user-agent' to 'sendmail-user-agent . "))
3435 (setq mail-user-agent 'sendmail-user-agent) 3436 (setq mail-user-agent 'sendmail-user-agent)
3436 (apply (get 'sendmail-user-agent 'composefunc) args)) 3437 (apply (get 'sendmail-user-agent 'composefunc) args))
3437 3438
3438
3439 (defun xemacs-default-sendfunc (&rest args) 3439 (defun xemacs-default-sendfunc (&rest args)
3440 "Set `mail-user-agent' to `sendmail-user-agent'; call the send function 3440 "Set `mail-user-agent' to `sendmail-user-agent'; call the send function
3441 associated with that package, passing it the supplied arguments. " 3441 associated with that package, passing it the supplied arguments. "
3442 (setq mail-user-agent 'sendmail-user-agent) 3442 (setq mail-user-agent 'sendmail-user-agent)
3443 (apply (get 'sendmail-user-agent 'sendfunc) args)) 3443 (apply (get 'sendmail-user-agent 'sendfunc) args))