Mercurial > hg > xemacs-beta

comparison lisp/packages/supercite.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
216 "*Warn if mail headers don't conform to RFC822.") 216 "*Warn if mail headers don't conform to RFC822.")
217 (defvar sc-mumble "" 217 (defvar sc-mumble ""
218 "*Value returned by `sc-mail-field' if field isn't in mail headers.") 218 "*Value returned by `sc-mail-field' if field isn't in mail headers.")
219 219
220 (defvar sc-name-filter-alist 220 (defvar sc-name-filter-alist
221 '(("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0) 221 '(
222 ;; This first item removes any [bracketed] multi-word items in names.
223 ;; Each word is already split into a separate string when this filter is
224 ;; applied, hence the complexity of the expression.
225 ("\\[.*\\]\\|\\[[^\]]*\\|[^\[]*\\]" . any)
226 ("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
222 ("^\\(Jr\\|Sr\\)[.]?$" . last) 227 ("^\\(Jr\\|Sr\\)[.]?$" . last)
223 ("^ASTS$" . 0) 228 ("^ASTS$" . 0)
224 ("^[I]+$" . last)) 229 ("^[I]+$" . last))
225 "*Name list components which are filtered out as noise. 230 "*Name list components which are filtered out as noise.
226 This variable contains an association list where each element is of 231 This variable contains an association list where each element is of