From a947bf0fba572022498fe4a97ca0935273d982b5 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 8 Sep 1996 17:59:45 +0000 Subject: [PATCH] Function `rfc822/wrap-as-quoted-string' and variable `rfc822/non-qtext-char-list' were moved to std11.el. --- tl-822.el | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/tl-822.el b/tl-822.el index a292880..d74f31b 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.63 1996-09-02 15:48:07 morioka Exp $") + "$Id: tl-822.el,v 7.64 1996-09-08 17:59:45 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -56,7 +56,6 @@ (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 @@ -66,18 +65,6 @@ ) "\"")) -(defun rfc822/wrap-as-quoted-string (str) - "Wrap string STR as RFC 822 quoted-string. [tl-822.el]" - (concat "\"" - (mapconcat (function - (lambda (chr) - (if (memq chr rfc822/non-qtext-char-list) - (concat "\\" (char-to-string chr)) - (char-to-string chr) - ) - )) str "") - "\"")) - (defun rfc822/strip-quoted-pair (str) (let ((dest "") (i 0) -- 1.7.10.4