From: morioka <morioka>
Date: Thu, 18 Jan 1996 14:48:33 +0000 (+0000)
Subject: (rfc822/non-qtext-char-list): new constant
X-Git-Tag: XEmacs-20_3-b27-viet~123
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ef804f3e4736019737988289a9e4536ded2da18;p=elisp%2Fmu-cite.git

(rfc822/non-qtext-char-list): new constant

Constant `rfc822/non-qtext-chars' was deleted.

(rfc822/wrap-as-quoted-string): new function
---

diff --git a/tl-822.el b/tl-822.el
index 0609a32..89143bf 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -15,7 +15,7 @@
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 7.1 1995-12-19 17:57:08 morioka Exp $")
+  "$Id: tl-822.el,v 7.2 1996-01-18 14:48:33 morioka Exp $")
 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
@@ -89,7 +89,9 @@
 
 (defconst rfc822/linear-white-space-regexp "\\(\n?[ \t]\\)+")
 (defconst rfc822/quoted-pair-regexp "\\\\.")
-(defconst rfc822/qtext-regexp "[^\"\\\n\t \t]")
+(defconst rfc822/non-qtext-char-list '(?\" ?\\ ?\r ?\n))
+(defconst rfc822/qtext-regexp
+  (concat "[^" (char-list-to-string rfc822/non-qtext-char-list) " \t]"))
 (defconst rfc822/quoted-string-regexp
   (concat "\""
 	  (regexp-*
@@ -100,6 +102,18 @@
 	  rfc822/linear-white-space-regexp "?"
 	  "\""))
 
+(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)
@@ -150,7 +164,6 @@
 (defconst rfc822/space-chars " \t\n")
 (defconst rfc822/non-atom-chars
   (concat rfc822/special-chars rfc822/space-chars))
-(defconst rfc822/non-qtext-chars "\"")
 (defconst rfc822/non-dtext-chars "[]")
 (defconst rfc822/non-ctext-chars "()")
 
@@ -205,7 +218,7 @@
       (let* ((i (position-mismatched
 		 (function
 		  (lambda (elt)
-		    (not (find elt rfc822/non-qtext-chars))
+		    (not (memq elt rfc822/non-qtext-char-list))
 		    ))
 		 (setq str (substring str 1))
 		 ))