# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761004344 0
# Node ID 7643239d5bf2f98fce67e6370d25e7c46bf2adaf
# Parent  3d155c2636bfa4a11f279ff12d2c6cfe90efd8d1
(rmail-dont-reply-to): Change user-original-login-name to user-login-name.

diff -r 3d155c2636bf -r 7643239d5bf2 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Fri Feb 11 22:04:41 1994 +0000
+++ b/lisp/mail/mail-utils.el	Fri Feb 11 22:05:44 1994 +0000
@@ -128,7 +128,7 @@
 	    (concat (if rmail-default-dont-reply-to-names
 			(concat rmail-default-dont-reply-to-names "\\|")
 		        "")
-		    (concat (regexp-quote (user-original-login-name))
+		    (concat (regexp-quote (user-login-name))
 			    "\\>"))))
   (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\("
 		       rmail-dont-reply-to-names