Customizing user-full-name

[Steven L Baur <steve@miranova.com>]

Changing the user-full name is a problem.  Here is my proposed
treatment of it.  This patch adds a variable called
message-user-full-name which can be used for customization.

This is the same patch I posted Sunday to gnu.emacs.gnus, and is
against Gnus 5.2.5.
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.5
diff -u -r1.5 ChangeLog
--- ChangeLog	1996/06/02 16:11:49	1.5
+++ ChangeLog	1996/06/02 20:37:02
@@ -1,3 +1,8 @@
+Sun Jun  2 13:35:55 1996  Steven L Baur  <steve@miranova.com>
+
+	* message.el: (message-make-from): Add message-user-full-name for
+	ease of customization.
+
 Sun Jun  2 07:41:20 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
 
 	* gnus-topic.el (gnus-topic-remove-group): Only delete first

===================================================================
RCS file: RCS/message.el,v
retrieving revision 1.5
diff -u -r1.5 message.el
--- message.el	1996/06/02 16:11:49	1.5
+++ message.el	1996/06/02 19:40:15
@@ -152,6 +152,10 @@
 If t, use `message-user-organization-file'.")
 
 ;;;###autoload
+(defvar message-user-full-name nil
+  "Allow user to override neatly /etc/passwd GCOS garbage")
+
+;;;###autoload
 (defvar message-user-organization-file "/usr/lib/news/organization"
   "*Local news organization file.")
 
@@ -1879,7 +1883,8 @@
 (defun message-make-from ()
   "Make a From header."
   (let* ((login (message-make-address))
-	 (fullname (user-full-name)))
+	 (fullname (or message-user-full-name
+		       (user-full-name)))
     (when (string= fullname "&")
       (setq fullname (user-login-name)))
     (save-excursion


-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.