From xemacs-m  Mon Mar 17 23:15:02 1997
Received: from CNRI.Reston.VA.US (CNRI.Reston.VA.US [132.151.1.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id XAA03944
	for <xemacs-beta@xemacs.org>; Mon, 17 Mar 1997 23:15:01 -0600 (CST)
Received: from newcnri.cnri.reston.va.us by CNRI.Reston.VA.US id aa01407;
          18 Mar 97 0:12 EST
Received: from anthem.CNRI.Reston.Va.US by newcnri.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id AAA13464; Tue, 18 Mar 1997 00:12:33 -0500
Received: by anthem.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id AAA06881; Tue, 18 Mar 1997 00:12:32 -0500
Date: Tue, 18 Mar 1997 00:12:32 -0500
Message-Id: <199703180512.AAA06881@anthem.CNRI.Reston.Va.US>
From: "Barry A. Warsaw" <bwarsaw@CNRI.Reston.VA.US>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="Og3jbQe97z3rj6rlMTdcqft00QlvK76/jkEHpS/r"
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: Change to mail-extr.el
Reply-To: bwarsaw@python.org
X-Attribution: BAW
X-Oblique-Strategy: Make a door into a window
X-Url: http://www.python.org/~bwarsaw


--Og3jbQe97z3rj6rlMTdcqft00QlvK76/jkEHpS/r
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


I need the following patch to mail-extr.el for Supercite 4.  This just
adds a variable mail-extr-mailbox-match-case-fold which says whether
the match of the name and the mailbox should be case sensitive or
not.  The default value retains the current behavior.

Old behavior:

    (mail-extract-address-components "Barry <barry@python.org>")

returns

    (nil "barry@python.org")

instead of what I want:

    ("Barry" "barry@python.org")

Note: you need to bind both mail-extr-mailbox-match-case-fold and
mail-extr-ignore-single-names to nil to see the result I want.

-Barry


--Og3jbQe97z3rj6rlMTdcqft00QlvK76/jkEHpS/r
Content-Type: text/plain
Content-Description: Patch to utils/mail-extr.el
Content-Disposition: inline;
	filename="patch"
Content-Transfer-Encoding: 7bit

*** mail-extr.el	1997/03/18 04:57:13	1.1
--- mail-extr.el	1997/03/18 05:00:27
***************
*** 238,241 ****
--- 238,244 ----
  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?????
***************
*** 1413,1417 ****
  	       (while (and names-match-flag
  			   (< i buffer-length))
! 		 (or (eq (downcase (char-after (+ i (point-min))))
  			 (downcase
  			  (char-after (+ i buffer-length (point-min)))))
--- 1416,1423 ----
  	       (while (and names-match-flag
  			   (< i buffer-length))
! 		 (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)))))

--Og3jbQe97z3rj6rlMTdcqft00QlvK76/jkEHpS/r--

