From 73312d967171e6a30fa6e892196552406450eca4 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 13 Jun 1996 17:13:13 +0000 Subject: [PATCH] Variable `rfc822/qtext-regexp' and `rfc822/quoted-string-regexp' were abolished. --- tl-822.el | 27 +++++++++------------------ 1 file changed, 9 insertions(+), 18 deletions(-) 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) -- 1.7.10.4