Re: How do I get no signature in particular groups?

["Rupa Schomaker (list)" <rupa-list@rupa.com>]

[-- Attachment #1: Type: text/plain, Size: 1289 bytes --]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Turbo Fredriksson <turbo@tripnet.se> 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.



[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: makes envelope the same as user-login-name if set --]
[-- Type: text/patch, Size: 1342 bytes --]

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"))

[-- Attachment #3: Type: text/plain, Size: 82 bytes --]



-- 
Rupa (rupa@rupa.com for normal email)
Please don't email duplicate replies.