Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-utils.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 131b0175ea99
children 850242ba4a81
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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))