From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25645 Path: main.gmane.org!not-for-mail From: =?ISO-8859-1?Q?Fran=E7ois_Pinard?= Newsgroups: gmane.emacs.gnus.general Subject: Re: smtpmail-send-it ? Date: 04 Oct 1999 19:57:46 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: References: <86emfqygan.fsf@chia.someotherplace.org> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035162993 15107 80.91.224.250 (21 Oct 2002 01:16:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:16:33 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA01040 for ; Mon, 4 Oct 1999 20:01:37 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB22672; Mon, 4 Oct 1999 19:00:45 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 04 Oct 1999 19:01:27 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id TAA23449 for ; Mon, 4 Oct 1999 19:01:16 -0500 (CDT) Original-Received: from jupiter.rtsq.qc.ca (rtsq.grics.qc.ca [199.84.132.81]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA01019 for ; Mon, 4 Oct 1999 19:59:14 -0400 (EDT) Original-Received: from ariel.progiciels-bpi.ca by jupiter.rtsq.qc.ca (8.8.8/8.8.8) with SMTP id TAA17491; Mon, 4 Oct 1999 19:58:59 -0400 Original-Received: from iro.umontreal.ca (uucp@localhost) by ariel.progiciels-bpi.ca (950413.SGI.8.6.12/950213.SGI) via UUCP id UAA10203; Mon, 4 Oct 1999 20:02:12 -0700 Original-Received: from titan.progiciels-bpi.ca by icule.progiciels-bpi.ca (8.8.8/8.8.8) with ESMTP id TAA03914; Mon, 4 Oct 1999 19:57:57 -0400 Original-Received: from titan.progiciels-bpi.ca.progiciels-bpi.ca (unknown [199.84.132.86]) by titan.progiciels-bpi.ca (Postfix) with ESMTP id 9F05450; Mon, 4 Oct 1999 19:57:46 -0400 (EDT) Original-To: "Mats Lvfdahl" X-Face: "b_m|CE6#'Q8fliQrwHl9K,]PA_o'*S~Dva{~b1n*)K*A(BIwQW.:LY?t4~xhYka_.LV?Qq `}X|71X0ea&H]9Dsk!`kxBXlG;q$mLfv_vtaHK_rHFKu]4'<*LWCyUe@ZcI6"*wB5M@[m writes: > David Coe 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