Mercurial > hg > xemacs-beta
diff lisp/utils/mail-extr.el @ 38:1a767b41a199 r19-15b102
Import from CVS: tag r19-15b102
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:54:01 +0200 |
| parents | ec9a17fef872 |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/utils/mail-extr.el Mon Aug 13 08:53:41 2007 +0200 +++ b/lisp/utils/mail-extr.el Mon Aug 13 08:54:01 2007 +0200 @@ -237,6 +237,9 @@ "*Whether to throw away information in UUCP addresses by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".") +(defvar mail-extr-mailbox-match-case-fold t + "*Non-nil if mailbox and name matching should ignore case.") + ;;---------------------------------------------------------------------- ;; what orderings are meaningful????? ;;(defvar mail-operator-precedence-list '(?! ?% ?@)) @@ -1412,7 +1415,10 @@ mbox-beg mbox-end) (while (and names-match-flag (< i buffer-length)) - (or (eq (downcase (char-after (+ i (point-min)))) + (or (eq (let ((c (char-after (+ i (point-min))))) + (if mail-extr-mailbox-match-case-fold + (downcase c) + c)) (downcase (char-after (+ i buffer-length (point-min))))) (setq names-match-flag nil))