From: "François Pinard" <pinard@iro.umontreal.ca>
Cc: ding@gnus.org
Subject: Re: smtpmail-send-it ?
Date: 04 Oct 1999 19:57:46 -0400 [thread overview]
Message-ID: <oq670mptl1.fsf@titan.progiciels-bpi.ca> (raw)
In-Reply-To: "Mats Lvfdahl"'s message of "23 Sep 1999 12:36:02 +0200"
"Mats Lvfdahl" <mats@astro.su.se> writes:
> David Coe <david@someotherplace.org> writes:
> > I'm trying to change my gnus to (temporarily) send mail via smtp
> > using another host rather than the local host...
> Would you post a description once you have something working? I've
> been wanting to do this for some time but lacking the elisp skills I
> haven't made any progress.
Here is what I use. The setup varies a bit depending on the machine I'm
being on, but for my home machine, it is:
(when (eq HOST 'titan)
(autoload 'smtpmail-send-it "smtpmail")
(setq message-send-mail-function 'smtpmail-send-it
send-mail-function 'smtpmail-send-it
smtpmail-local-domain "progiciels-bpi.ca"
smtpmail-debug-info nil)
(defun inet-on ()
(interactive)
(setq smtpmail-default-smtp-server "jupiter.rtsq.qc.ca"
smtpmail-smtp-server smtpmail-default-smtp-server))
(defun inet-off ()
(interactive)
(setq smtpmail-default-smtp-server "titan.progiciels-bpi.ca"
smtpmail-smtp-server smtpmail-default-smtp-server))
(inet-off))
Once this done, I do `M-x inet-on RET' after having established a PPP
connection, and later, `M-x inet-off RET' after the connection has been
severed, in which case the local MTA manages to spool mail for UUCP.
`smtpmail.el' is used in both cases.
Here is another example of setup, in which `smtpmail.el' is used for the
`inet-on' case, but avoided in the `inet-off' case.
(when (eq HOST 'argon)
(autoload 'smtpmail-send-it "smtpmail")
(defun inet-on ()
(interactive)
(setq message-send-mail-function 'smtpmail-send-it
send-mail-function 'smtpmail-send-it
smtpmail-local-domain "progiciels-bpi.ca"
smtpmail-debug-info nil
smtpmail-default-smtp-server "jupiter.rtsq.qc.ca"
smtpmail-smtp-server smtpmail-default-smtp-server))
(defun inet-off ()
(interactive)
(setq message-send-mail-function 'message-send-mail-with-sendmail
send-mail-function 'sendmail-send-it))
(inet-off))
--
François Pinard http://www.iro.umontreal.ca/~pinard
prev parent reply other threads:[~1999-10-04 23:57 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-09-22 18:03 David Coe
1999-09-22 18:30 ` David S. Goldberg
1999-09-23 10:36 ` Mats Lvfdahl
1999-09-23 10:53 ` Norbert Koch
1999-09-23 13:09 ` Jack Vinson
1999-10-04 23:57 ` François Pinard [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=oq670mptl1.fsf@titan.progiciels-bpi.ca \
--to=pinard@iro.umontreal.ca \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).