From xemacs-m  Wed Jun 11 03:35:06 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA14714
	for <xemacs-beta@xemacs.org>; Wed, 11 Jun 1997 03:35:05 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id BAA10460;
	Wed, 11 Jun 1997 01:35:14 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH] mail-extr.el Ebola Vaccination
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 11 Jun 1997 01:35:13 -0700
Message-ID: <m2iuzl8rlq.fsf@altair.xemacs.org>
Lines: 163
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta6) - "Moscow"

If you applied the mail-extr.el patch I posted earlier, please back it
out, there was a bug in it.  This one is correct (I hope).

Index: lisp/utils/mail-extr.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/utils/mail-extr.el,v
retrieving revision 1.4
diff -u -r1.4 mail-extr.el
--- mail-extr.el	1997/03/22 06:02:47	1.4
+++ mail-extr.el	1997/06/11 08:26:58
@@ -1148,11 +1148,11 @@
 		 (or (save-excursion
 		       (mail-extr-safe-move-sexp -1)
 		       (mail-extr-skip-whitespace-backward)
-		       (eq ?. (preceding-char)))
+		       (eq ?. (char-before)))
 		     (insert-before-markers
 		      (if (save-excursion
 			    (mail-extr-skip-whitespace-backward)
-			    (eq ?. (preceding-char)))
+			    (eq ?. (char-before)))
 			  ""
 			".")
 		      "uucp"))
@@ -1188,7 +1188,7 @@
 		   (mail-extr-safe-move-sexp -1)
 		   (setq domain-pos (point))
 		   (mail-extr-skip-whitespace-backward)
-		   (setq \.-pos (eq ?. (preceding-char))))
+		   (setq \.-pos (eq ?. (char-before))))
 		 (cond ((and \.-pos
 			     ;; #### string consing
 			     (let ((s (intern-soft
@@ -1530,16 +1530,16 @@
 	       (looking-at mail-extr-full-name-suffix-pattern))
 	  (mail-extr-skip-whitespace-backward)
 	  (setq suffix-flag (point))
-	  (if (eq ?, (following-char))
+	  (if (eq ?, (char-after))
 	      (forward-char 1)
 	    (insert ?,))
 	  ;; Enforce at least one space after comma
-	  (or (eq ?\  (following-char))
+	  (or (eq ?\  (char-after))
 	      (insert ?\ ))
 	  (mail-extr-skip-whitespace-forward)
-	  (cond ((memq (following-char) '(?j ?J ?s ?S))
+	  (cond ((memq (char-after) '(?j ?J ?s ?S))
 		 (capitalize-word 1)
-		 (if (eq (following-char) ?.)
+		 (if (eq (char-after) ?.)
 		     (forward-char 1)
 		   (insert ?.)))
 		(t
@@ -1554,26 +1554,26 @@
 	  (setq begin-again-flag t))
 	 
 	 ;; Check for initial last name followed by comma
-	 ((and (eq ?, (following-char))
+	 ((and (eq ?, (char-after))
 	       (eq word-count 1))
 	  (forward-char 1)
 	  (setq last-name-comma-flag t)
-	  (or (eq ?\  (following-char))
+	  (or (eq ?\  (char-after))
 	      (insert ?\ )))
-	 
+
 	 ;; Stop before trailing comma-separated comment
 	 ;; THIS CASE MUST BE AFTER THE PRECEDING CASES.
 	 ;; *** This case is redundant???
-	 ;;((eq ?, (following-char))
+	 ;;((eq ?, (char-after))
 	 ;; (setq name-done-flag t))
 	 
 	 ;; Delete parenthesized/quoted comment/nickname
-	 ((memq (following-char) '(?\( ?\{ ?\[ ?\" ?\' ?\`))
+	 ((memq (char-after) '(?\( ?\{ ?\[ ?\" ?\' ?\`))
 	  (setq cbeg (point))
 	  (set-syntax-table mail-extr-address-text-comment-syntax-table)
-	  (cond ((memq (following-char) '(?\' ?\`))
+	  (cond ((memq (char-after) '(?\' ?\`))
 		 (or (search-forward "'" nil t
-				     (if (eq ?\' (following-char)) 2 1))
+				     (if (eq ?\' (char-after)) 2 1))
 		     (mail-extr-delete-char 1)))
 		(t
 		 (or (mail-extr-safe-move-sexp 1)
@@ -1601,7 +1601,7 @@
 	 
 	 ;; Handle & substitution
 	 ((and (or (bobp)
-		   (eq ?\  (preceding-char)))
+		   (eq ?\  (char-before)))
 	       (looking-at "&\\( \\|\\'\\)"))
 	  (mail-extr-delete-char 1)
 	  (capitalize-region
@@ -1616,7 +1616,7 @@
 	 ;; Handle *Stupid* VMS date stamps
 	 ((looking-at mail-extr-stupid-vms-date-stamp-pattern)
 	  (replace-match "" t))
-	 
+
 	 ;; Handle Chinese characters.
 	 ((looking-at mail-extr-hz-embedded-gb-encoded-chinese-pattern)
 	  (goto-char (match-end 0))
@@ -1658,28 +1658,28 @@
 	 
 	 ;; Fixup initials
 	 ((looking-at mail-extr-initial-pattern)
-	  (or (eq (following-char) (upcase (following-char)))
+	  (or (eq (char-after) (upcase (char-after)))
 	      (setq lower-case-flag t))
 	  (forward-char 1)
-	  (if (eq ?. (following-char))
+	  (if (eq ?. (char-after))
 	      (forward-char 1)
 	    (insert ?.))
-	  (or (eq ?\  (following-char))
+	  (or (eq ?\  (char-after))
 	      (insert ?\ ))
 	  (setq word-found-flag t))
-	 
+
 	 ;; Handle BITNET LISTSERV list names.
 	 ((and (eq word-count 0)
 	       (looking-at mail-extr-listserv-list-name-pattern))
 	  (narrow-to-region (match-beginning 1) (match-end 1))
 	  (setq word-found-flag t)
 	  (setq name-done-flag t))
-	 
+
 	 ;; Regular name words
 	 ((looking-at mail-extr-name-pattern)
 	  (setq name-beg (point))
 	  (setq name-end (match-end 0))
-	  
+
 	  ;; Certain words will be dropped if they are at the end.
 	  (and (>= word-count 2)
 	       (not lower-case-flag)
@@ -1746,7 +1746,7 @@
 	     (search-forward ",")
 	     (setq name-end (1- (point)))
 	     (goto-char (or suffix-flag (point-max)))
-	     (or (eq ?\  (preceding-char))
+	     (or (eq ?\  (char-before))
 		 (insert ?\ ))
 	     (insert-buffer-substring (current-buffer) (point-min) name-end)
 	     (goto-char name-end)
@@ -1757,7 +1757,7 @@
       ;; *** This is probably completly unneeded now.
       ;;(goto-char (point-max))
       ;;(skip-chars-backward mail-extr-non-end-name-chars)
-      ;;(if (eq ?. (following-char))
+      ;;(if (eq ?. (char-after))
       ;;    (forward-char 1))
       ;;(narrow-to-region (point)
       ;;                  (progn

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

