From xemacs-m  Thu Jul 10 00:13:36 1997
Received: from iria.mines.u-nancy.fr (galibert@iria.mines.u-nancy.fr [193.49.140.100])
	by xemacs.org (8.8.5/8.8.5) with SMTP id AAA26027
	for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 00:13:35 -0500 (CDT)
Received: (from galibert@localhost) by iria.mines.u-nancy.fr (950413.SGI.8.6.12/950213.SGI.AUTOCF) id HAA02065; Thu, 10 Jul 1997 07:12:22 +0200
Message-ID: <19970710071221.42777@iria.mines.u-nancy.fr>
Date: Thu, 10 Jul 1997 07:12:21 +0200
From: Olivier Galibert <Olivier.Galibert@mines.u-nancy.fr>
To: xemacs-beta@xemacs.org
Subject: Re: [PATCH] Possible fix for startup.el
References: <872058rywg.fsf@bittersweet.inetarena.com> <kigbu4ckq86.fsf@jagor.srce.hr> <87wwmzh9uu.fsf@bittersweet.inetarena.com> <m2d8ortvv4.fsf@altair.xemacs.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Mailer: Mutt 0.78
In-Reply-To: <m2d8ortvv4.fsf@altair.xemacs.org>; from Steven L Baur on Wed, Jul 09, 1997 at 08:43:43PM -0700

On Wed, Jul 09, 1997 at 08:43:43PM -0700, Steven L Baur wrote:
> Karl M Hegbloom <karlheg> writes:
>                  ^^^^^^^
> 
> Wonderful.  Is it Supercite or something else that doesn't grok `+'
> in an email address?  With the recent surge in popularity of this
> notation I want to get this fixed ASAP.

May I try an (untested) educated guess ?

  OG, learning elisp, cursing his compiler


--- lisp/packages/supercite.el~ Wed Jun 11 21:26:10 1997
+++ lisp/packages/supercite.el  Thu Jul 10 07:09:09 1997
@@ -975,7 +975,7 @@
 of \"%\" and addresses of the style ``[stuff]name@[stuff]'' when
 called with DELIM \"@\".  If DELIM is nil or not provided, matches
 addresses of the style ``name''."
-  (and (string-match (concat "[-a-zA-Z0-9_.]+" delim) from 0)
+  (and (string-match (concat "[-+a-zA-Z0-9_.]+" delim) from 0)
        (substring from
                  (match-beginning 0)
                  (- (match-end 0) (if (null delim) 0 1)))))
@@ -984,7 +984,7 @@
   "Extract the author's email terminus from email address FROM.
 Match addresses of the style ``[stuff]![stuff]...!name[stuff].''"
   (let ((eos (length from))
-       (mstart (string-match "![-a-zA-Z0-9_.]+\\([^-!a-zA-Z0-9_.]\\|$\\)"
+       (mstart (string-match "![-+a-zA-Z0-9_.]+\\([^-+!a-zA-Z0-9_.]\\|$\\)"
                              from 0))
        (mend (match-end 0)))
     (and mstart
@@ -1008,7 +1008,7 @@
                   (= (aref address (1- (length address))) ?>))
              (substring address 1 (1- (length address)))
            address))
-      (if (string-match "[-a-zA-Z0-9!@%._]+" from 0)
+      (if (string-match "[-+a-zA-Z0-9!@%._]+" from 0)
          (sc-submatch 0 from)
        "")
       )))

