From: morioka <morioka>
Date: Mon, 17 Jun 1996 23:47:19 +0000 (+0000)
Subject: (rfc822/qtext-regexp, rfc822/quoted-string-regexp): new constant;
X-Git-Tag: XEmacs-20_3-b27-viet~94
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f89189598064a9a345e545c741211b65117d5158;p=elisp%2Fmu-cite.git

(rfc822/qtext-regexp, rfc822/quoted-string-regexp): new constant;
define again.
---

diff --git a/tl-822.el b/tl-822.el
index 44b6820..ff8dd13 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -30,7 +30,7 @@
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 7.30 1996-06-13 17:13:13 morioka Exp $")
+  "$Id: tl-822.el,v 7.31 1996-06-17 23:47:19 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]"