From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26995 Path: main.gmane.org!not-for-mail From: "Rupa Schomaker (list)" Newsgroups: gmane.emacs.gnus.general Subject: Re: How do I get no signature in particular groups? Date: 16 Nov 1999 17:27:09 -0800 Sender: owner-ding@hpc.uh.edu Message-ID: References: <7bzowhrw2d.fsf@junk.nocrew.org> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035164098 22280 80.91.224.250 (21 Oct 2002 01:34:58 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:34:58 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA08441 for ; Tue, 16 Nov 1999 20:27:50 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB00989; Tue, 16 Nov 1999 19:27:47 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 16 Nov 1999 19:28:03 -0600 (CST) 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 TAA25891 for ; Tue, 16 Nov 1999 19:27:52 -0600 (CST) Original-Received: from gw.rupa.com (postfix@cx1823-a.alsv1.occa.home.com [24.5.151.91]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA08422 for ; Tue, 16 Nov 1999 20:27:19 -0500 (EST) Original-Received: by gw.rupa.com (Postfix, from userid 500) id 53D6D1D1DA; Tue, 16 Nov 1999 17:27:09 -0800 (PST) Original-To: ding@gnus.org Mail-Copies-To: never In-Reply-To: Lars Magne Ingebrigtsen's message of "15 Nov 1999 20:50:46 +0100" Original-Lines: 39 User-Agent: Gnus/5.070096 (Pterodactyl Gnus v0.96) XEmacs/21.1 (20 Minutes to Nikko) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:26995 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26995 --=-=-= Lars Magne Ingebrigtsen writes: > Turbo Fredriksson writes: > > > There was a very nice way (variable) to do this, and many other > > things in 0.84 (which I'm using) which was called > > 'gnus-posting-style-alist'. > > The posting styles used to work by setting variables locally in the > Message buffer. This mechanism made it quite breakable and somewhat > unpredictable. The new mechanism sets no variables, but inserts (or > arranges for insertions) directly into the buffer, thereby letting > people see what the posting style has arranged. Lars, I've been trying to figure out a "good" way to set the envelope header to the right value when setting a different address via posting-styles. Since posting styles only changes content in the buffer and sets no variables I'm struggling with the right way to get this to work... Currently, I'm using the patch below. *Don't* apply it since it is using a hack to set user-mail-address. What would be appropriate in gnus-msg.el? I assume what is in message.el is ok (at least it seems to be for me)... I tried making user-mail-address a local var, but by the time we got to actually sending the message we're out of the message buffer and into another, so a local var just doesn't work. --=-=-= Content-Type: text/patch Content-Disposition: inline; filename=envelope-same-as-mail.path Content-Description: makes envelope the same as user-login-name if set Index: gnus-msg.el =================================================================== RCS file: /home/cvs/cvsroot/elisp/pgnus/lisp/gnus-msg.el,v retrieving revision 1.1.1.2 diff -u -r1.1.1.2 gnus-msg.el --- gnus-msg.el 1999/07/20 18:20:36 1.1.1.2 +++ gnus-msg.el 1999/11/17 00:56:36 @@ -1192,6 +1192,7 @@ (when (or name address) (add-hook 'message-setup-hook `(lambda () + (set 'user-mail-address ,(or (cdr address) user-mail-address)) (let ((user-full-name ,(or (cdr name) user-full-name)) (user-mail-address ,(or (cdr address) user-mail-address))) Index: message.el =================================================================== RCS file: /home/cvs/cvsroot/elisp/pgnus/lisp/message.el,v retrieving revision 1.1.1.4 diff -u -r1.1.1.4 message.el --- message.el 1999/09/03 18:17:37 1.1.1.4 +++ message.el 1999/11/17 00:57:02 @@ -2167,7 +2167,11 @@ ;; But some systems are more broken with -f, so ;; we'll let users override this. (if (null message-sendmail-f-is-evil) - (list "-f" (user-login-name))) + (list "-f" + (if (null user-mail-address) + (user-login-name) + (user-mail-address)) + )) ;; These mean "report errors by mail" ;; and "deliver in background". (if (null message-interactive) '("-oem" "-odb")) --=-=-= -- Rupa (rupa@rupa.com for normal email) Please don't email duplicate replies. --=-=-=--