From: morioka <morioka>
Date: Thu, 13 Jun 1996 17:13:13 +0000 (+0000)
Subject: Variable `rfc822/qtext-regexp' and `rfc822/quoted-string-regexp' were
X-Git-Tag: XEmacs-20_3-b27-viet~95
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=73312d967171e6a30fa6e892196552406450eca4;p=elisp%2Fmu-cite.git

Variable `rfc822/qtext-regexp' and `rfc822/quoted-string-regexp' were
abolished.
---

diff --git a/tl-822.el b/tl-822.el
index b173000..44b6820 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -30,7 +30,7 @@
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 7.29 1996-06-13 17:10:24 morioka Exp $")
+  "$Id: tl-822.el,v 7.30 1996-06-13 17:13:13 morioka Exp $")
 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
@@ -157,14 +157,14 @@
 (defconst rfc822/linear-white-space-regexp "\\(\n?[ \t]\\)+")
 (defconst rfc822/quoted-pair-regexp "\\\\.")
 (defconst rfc822/non-qtext-char-list '(?\" ?\\ ?\r ?\n))
-(defconst rfc822/qtext-regexp
-  (concat "[^" (char-list-to-string rfc822/non-qtext-char-list) "]"))
-(defconst rfc822/quoted-string-regexp
-  (concat "\""
-	  (regexp-*
-	   (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
-	   )
-	  "\""))
+;; (defconst rfc822/qtext-regexp
+;;   (concat "[^" (char-list-to-string rfc822/non-qtext-char-list) "]"))
+;; (defconst rfc822/quoted-string-regexp
+;;   (concat "\""
+;;           (regexp-*
+;;            (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
+;;            )
+;;           "\""))
 
 (defun rfc822/wrap-as-quoted-string (str)
   "Wrap string STR as RFC 822 quoted-string. [tl-822.el]"
@@ -266,15 +266,6 @@
 	      ))
     ))
 
-;; (defun rfc822/analyze-quoted-pair (str)
-;;   (if (and (>= (length str) 2)
-;;            (eq (elt str 0) ?\\)
-;;            )
-;;       (cons (cons 'quoted-pair (substring str 0 2))
-;;             (substring str 2)
-;;             ))
-;;   )
-
 (defun rfc822/analyze-quoted-string (str)
   (let ((len (length str)))
     (if (and (> len 0)