Mercurial > emacs

changeset 28437:29b4f46816c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Defvar curline when compiling. (sc-citation-root-regexp, sc-citation-nonnested-root-regexp) (sc-get-address, sc-attribs-extract-namestring): Use [:alnum:] rather than a-zA-Z0-9 to allow non-ASCII characters.
author Dave Love <fx@gnu.org>
date Fri, 31 Mar 2000 10:50:03 +0000
parents 2dbedede8507
children 8f2651fa9086
files lisp/mail/supercite.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Fri Mar 31 01:11:51 2000 +0000
+++ b/lisp/mail/supercite.el	Fri Mar 31 10:50:03 2000 +0000
@@ -103,14 +103,14 @@
 
 ;; Nemacs and Mule users note: please see the texinfo manual for
 ;; suggestions on setting these variables.
-(defcustom sc-citation-root-regexp "[-._a-zA-Z0-9]*"
+(defcustom sc-citation-root-regexp "[-._[:alnum:]]*"
   "*Regexp describing variable root part of a citation for a cited line.
 This should NOT have a leading `^' character.  See also
 `sc-citation-nonnested-root-regexp'."
   :type 'regexp
   :group 'supercite-cite)
 
-(defcustom sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+"
+(defcustom sc-citation-nonnested-root-regexp "[-._[:alnum:]]+"
   "*Regexp describing the variable root part of a nested citation.
 This should NOT have a leading `^' character.  This variable is
 related to `sc-citation-root-regexp' but whereas that variable
@@ -800,6 +800,8 @@
     (end                          (setq sc-mail-headers-end (point))))
   "Regi frame for glomming mail header information.")
 
+(eval-when-compile (defvar curline))	; dynamic bondage
+
 ;; regi functions
 (defun sc-mail-fetch-field (&optional attribs-p)
   "Insert a key and value into `sc-mail-info' alist.
@@ -1010,7 +1012,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 "[-[:alnum:]!@%._]+" from 0)
 	  (sc-submatch 0 from)
 	"")
       )))
@@ -1057,7 +1059,7 @@
 	  (sc-name-substring
 	   from (string-match "\".*\"" from 0) (match-end 0) 1)
 	  (sc-name-substring
-	   from (string-match "\\([-.a-zA-Z0-9_]+\\s +\\)+<" from 0)
+	   from (string-match "\\([-.[:alnum:]_]+\\s +\\)+<" from 0)
 	   (match-end 1) 0)
 	  (sc-attribs-emailname from))))
     ;; strip off any leading or trailing whitespace