Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-utils.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8b8b7f3559a2
children 9f59509498e1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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))