From bbc6559f0fa5eae8fa138dc809ebace708337cfb Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 28 Aug 1996 17:25:39 +0000
Subject: [PATCH] (rfc822/analyze-quoted-string): New alias for
 `std11-analyze-quoted-string'; moved to std11-parse.el.

---
 tl-822.el |   35 ++---------------------------------
 1 file changed, 2 insertions(+), 33 deletions(-)

diff --git a/tl-822.el b/tl-822.el
index 064351d..bb7f9cc 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -30,7 +30,7 @@
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 7.50 1996-08-28 17:16:30 morioka Exp $")
+  "$Id: tl-822.el,v 7.51 1996-08-28 17:25:39 morioka Exp $")
 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
@@ -117,44 +117,13 @@
 ;;; @ lexical analyze
 ;;;
 
-(defconst rfc822/special-chars "][()<>@,;:\\<>.\"")
-(defconst rfc822/space-chars " \t\n")
-(defconst rfc822/non-atom-chars
-  (concat rfc822/special-chars rfc822/space-chars))
 (defconst rfc822/non-dtext-chars "][")
 (defconst rfc822/non-ctext-chars "()")
 
 (defalias 'rfc822/analyze-spaces	'std11-analyze-spaces)
 (defalias 'rfc822/analyze-special	'std11-analyze-special)
 (defalias 'rfc822/analyze-atom		'std11-analyze-atom)
-
-(defun rfc822/analyze-quoted-string (str)
-  (let ((len (length str)))
-    (if (and (> len 0)
-	     (eq (elt str 0) ?\")
-	     )
-	(let ((i 1) chr dest)
-	  (catch 'tag
-	    (while (< i len)
-	      (setq chr (aref str i))
-	      (cond ((eq chr ?\\)
-		     (setq i (1+ i))
-		     (if (>= i len)
-			 (throw 'tag nil)
-		       )
-		     (setq dest (concat dest (char-to-string (aref str i))))
-		     )
-		    ((eq chr ?\")
-		     (throw 'tag
-			    (cons (cons 'quoted-string dest)
-				  (substring str (1+ i)))
-			    )
-		     )
-		    (t
-		     (setq dest (concat dest (char-to-string (aref str i))))
-		     ))
-	      (setq i (1+ i))
-	      ))))))
+(defalias 'rfc822/analyze-quoted-string	'std11-analyze-quoted-string)
 
 (defun rfc822/analyze-domain-literal (str)
   (if (and (> (length str) 0)
-- 
1.7.10.4