From 28b4613975dcc95ba80b0c93881f620a5ab529f8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 11 Feb 1994 22:05:44 +0000 Subject: [PATCH] (rmail-dont-reply-to): Change user-original-login-name to user-login-name. --- lisp/mail/mail-utils.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 6c0036d3f3c..3798ab78dce 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -128,7 +128,7 @@ Usenet paths ending in an element that matches are removed also." (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 -- 2.11.4.GIT