Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-utils.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
142 (concat (if rmail-default-dont-reply-to-names 142 (concat (if rmail-default-dont-reply-to-names
143 (concat rmail-default-dont-reply-to-names "\\|") 143 (concat rmail-default-dont-reply-to-names "\\|")
144 "") 144 "")
145 (concat (regexp-quote (user-login-name)) 145 (concat (regexp-quote (user-login-name))
146 "\\>")))) 146 "\\>"))))
147 (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\(" 147 (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*[!<]\\|\\)\\("
148 rmail-dont-reply-to-names 148 rmail-dont-reply-to-names
149 "\\)")) 149 "\\)"))
150 (case-fold-search t) 150 (case-fold-search t)
151 pos epos) 151 pos epos)
152 (while (setq pos (string-match match userids)) 152 (while (setq pos (string-match match userids))