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