Mercurial > hg > xemacs-beta

diff lisp/utils/mail-extr.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 360340f9fd5f
children 3bb7ccffb0c0
line wrap: on
line diff
--- a/lisp/utils/mail-extr.el	Mon Aug 13 09:20:50 2007 +0200
+++ b/lisp/utils/mail-extr.el	Mon Aug 13 09:21:54 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))