--- a/lisp/pcl-cvs/pcl-cvs.el	Mon Aug 13 09:54:24 2007 +0200
+++ b/lisp/pcl-cvs/pcl-cvs.el	Mon Aug 13 09:55:28 2007 +0200
@@ -1,10 +1,10 @@
 ;;;
 ;;;#ident "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp "
 ;;;
-;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: r20-2b5 $:$Id: pcl-cvs.el,v 1.4 1997/05/09 03:28:08 steve Exp $"
+;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: r20-3b19 $:$Id: pcl-cvs.el,v 1.5 1997/09/03 02:55:39 steve Exp $"
 ;;;
 ;;; pcl-cvs.el -- A Front-end to CVS 1.3 or later.
-;;; Release 1.05-CVS-$Name: r20-2b5 $.
+;;; Release 1.05-CVS-$Name: r20-3b19 $.
 ;;; Copyright (C) 1991, 1992, 1993  Per Cederqvist
 
 ;;; This program is free software; you can redistribute it and/or modify
@@ -126,7 +126,7 @@
 ;;;	     END OF THINGS TO CHECK WHEN INSTALLING
 ;;; --------------------------------------------------------
 
-(defconst pcl-cvs-version "1.05-CVS-$Name: r20-2b5 $"
+(defconst pcl-cvs-version "1.05-CVS-$Name: r20-3b19 $"
   "A string denoting the current release version of pcl-cvs.")
 
 ;; You are NOT allowed to disable this message by default.  However, you
@@ -139,8 +139,8 @@
 
 (defconst cvs-startup-message
   (if cvs-inhibit-copyright-message
-      "PCL-CVS release 1.05-CVS-$Name: r20-2b5 $"
-    "PCL-CVS release 1.05 from CVS release $Name: r20-2b5 $.
+      "PCL-CVS release 1.05-CVS-$Name: r20-3b19 $"
+    "PCL-CVS release 1.05 from CVS release $Name: r20-3b19 $.
 Copyright (C) 1992, 1993 Per Cederqvist
 Pcl-cvs comes with absolutely no warranty; for details consult the manual.
 This is free software, and you are welcome to redistribute it under certain
@@ -727,7 +727,7 @@
 \\[cvs-mode-undo-local-changes]   Revert the last checked in version - discard your changes to the file.
 
 Entry to this mode runs cvs-mode-hook.
-This description is updated for release 1.05-CVS-$Name: r20-2b5 $ of pcl-cvs.
+This description is updated for release 1.05-CVS-$Name: r20-3b19 $ of pcl-cvs.
 
 All bindings:
 \\{cvs-mode-map}"
@@ -1016,7 +1016,7 @@
     (insert "Pcl-cvs Version: "
 	    "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp\n")
     (insert "CVS Version: "
-	    "@(#)lisp/pcl-cvs:$Name: r20-2b5 $:$Id: pcl-cvs.el,v 1.4 1997/05/09 03:28:08 steve Exp $\n\n")
+	    "@(#)lisp/pcl-cvs:$Name: r20-3b19 $:$Id: pcl-cvs.el,v 1.5 1997/09/03 02:55:39 steve Exp $\n\n")
     (insert (format "--- Contents of stdout buffer (%d chars) ---\n"
 		    (length stdout)))
     (insert stdout)
@@ -3313,7 +3313,9 @@
 		      (regexp-quote (if (and (boundp 'add-log-full-name)
                                              add-log-full-name)
                                         add-log-full-name
-                                      user-full-name))
+                                      (or (and (boundp 'user-full-name)
+					       user-full-name)
+					  (user-full-name))))
                       "  <"
 		      (regexp-quote (if (and (boundp 'add-log-mailing-address)
 					     add-log-mailing-address)