+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
"")
(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))