mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(rmail-dont-reply-to): Anchor user login

Browse Source 
name and email address at the beginning and end of the address.
This commit is contained in:
Eli Zaretskii 2004-02-16 11:43:57 +00:00
parent 15e04960f8
commit ca06718d25
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2004-02-16 Eli Zaretskii <eliz@elta.co.il>
* mail/mail-utils.el (rmail-dont-reply-to): Anchor user login name
and email address at the beginning and end of the address.
* mail/rmail.el (rmail-default-dont-reply-to-names): Make "info-"
anchored at the beginning of the email address.
2004-02-16 TAKAI Kousuke <tak@kmc.gr.jp> (tiny change)
* international/ccl.el (ccl-compile-write): Pass `left' to

10
lisp/mail/mail-utils.el
View File

@ -227,9 +227,15 @@ the comma-separated list. The pruned list is returned."
"")
(if (and user-mail-address
(not (equal user-mail-address user-login-name)))
(concat (regexp-quote user-mail-address) "\\|")
;; Anchor the login name and email address so
;; that we don't match substrings: if the
;; login name is "foo", we shouldn't match
;; "barfoo@baz.com".
(concat "\\`"
(regexp-quote user-mail-address)
"\\'\\|")
"")
(concat (regexp-quote user-login-name) "\\>"))))
(concat "\\`" (regexp-quote user-login-name) "@"))))
;; Split up DESTINATIONS and match each element separately.
(let ((start-pos 0) (cur-pos 0)
(case-fold-search t))