X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ew-dec.el;h=fa80a8315ce67ab45d0cd30e41e85e71c848ebed;hb=4a15ad0838f7f2ab125b4f766b127aefc828580c;hp=eebda02c92ab8e9b207705afe8ce7f8b150da2d7;hpb=955b92b07f71c449e9ff8f2b49b7e12408527cec;p=elisp%2Fflim.git

diff --git a/ew-dec.el b/ew-dec.el
index eebda02..fa80a83 100644
--- a/ew-dec.el
+++ b/ew-dec.el
@@ -10,7 +10,7 @@
 (defvar ew-decode-field-cache-buf '())
 (defvar ew-decode-field-cache-num 300)
 
-(defun ew-decode-field (field-name field-body &optional eword-filter)
+(defun ew-decode-field (field-name field-body)
   "Decode MIME RFC2047 encoded-words in a field.
 FIELD-NAME is a name of the field such as \"To\", \"Subject\" etc. and
 used to selecting syntax of body of the field and deciding first
@@ -19,13 +19,8 @@ FIELD-BODY is a body of the field.
 
 If FIELD-BODY has multiple lines, each line is separated by CRLF as
 pure network representation. Also if the result has multiple lines,
-each line is separated by CRLF.
-
-If EWORD-FILTER is non-nil, it should be closure. it is called for
-each successful decoded encoded-word with decoded string as a
-argument. The return value of EWORD-FILTER is used as decoding result
-instead of its argument."
-  (let* ((key (ew-cons* field-name field-body eword-filter
+each line is separated by CRLF."
+  (let* ((key (ew-cons* field-name field-body
 			(ew-dynamic-options)))
 	 (tmp (assoc key ew-decode-field-cache-buf)))
     (if tmp
@@ -44,40 +39,55 @@ instead of its argument."
 	(setcar (car ew-decode-field-cache-buf) key)
 	(setcdr (car ew-decode-field-cache-buf)
 		(ew-decode-field-no-cache
-		 field-name field-body eword-filter))
+		 field-name field-body))
 	(cdar ew-decode-field-cache-buf)))))
 
-(defun ew-decode-field-no-cache (field-name field-body &optional eword-filter)
-  "No caching version of ew-decode-field."
+(defun ew-analyze-field-to-decode (field-name field-body)
+  "Analyze FIELD-BODY to decode."
   (let ((tmp (assq (intern (downcase field-name)) ew-decode-field-syntax-alist))
-	frag-anchor frag1 frag2 decode)
+	anchor)
     (if tmp
 	(setq tmp (cdr tmp))
       (setq tmp ew-decode-field-default-syntax))
-    (setq frag-anchor (funcall (car tmp) (1+ (length field-name)) field-body))
-    ;;(setq zzz frag-anchor)
-    (when (and (eq (car tmp) 'ew-scan-unibyte-unstructured)
-	       ew-decode-sticked-encoded-word)
-      (ew-separate-eword (get frag-anchor 'next-frag)
-			 frag-anchor
-			 '(ew:us-texts)))
-    (when (cdr tmp)
-      (ew-mark (cdr tmp) frag-anchor))
-    (setq frag1 (get frag-anchor 'next-frag))
-    (while (not (eq frag1 frag-anchor))
-      (setq decode (get frag1 'decode))
-      (setq frag2 (get frag1 'next-frag))
-      (while (and (not (eq frag2 frag-anchor))
-		  (eq decode (get frag2 'decode)))
-	(setq frag2 (get frag2 'next-frag)))
-      (funcall decode frag-anchor frag1 frag2 eword-filter)
-      (setq frag1 frag2))
-    (setq frag1 (get frag-anchor 'prev-frag)
-	  tmp ())
-    (while (not (eq frag1 frag-anchor))
-      (setq tmp (cons (or (get frag1 'decoded) (symbol-name frag1)) tmp)
-	    frag1 (get frag1 'prev-frag)))
-    (apply 'concat tmp)))
+    (setq anchor (funcall (car tmp) (1+ (length field-name)) field-body))
+    (put anchor 'field-name field-name)
+    (put anchor 'scanner (car tmp))
+    (put anchor 'marker (cdr tmp))
+    anchor))
+
+(defun ew-decode-analyzed-field (anchor)
+  "Decode analyzed field."
+  (or (get anchor 'decoded)
+      (let (tmp frag1 frag2 decode)
+	(when ew-decode-sticked-encoded-word
+	  (ew-separate-eword
+	   (get anchor 'next-frag)
+	   anchor
+	   (if (eq (get anchor 'scanner) 'ew-scan-unibyte-unstructured)
+	       '(ew:us-texts)
+	     '(ew:cm-texts))))
+	(when (get anchor 'marker)
+	  (ew-mark (get anchor 'marker) anchor))
+	(setq frag1 (get anchor 'next-frag))
+	(while (not (eq frag1 anchor))
+	  (setq decode (get frag1 'decode))
+	  (setq frag2 (get frag1 'next-frag))
+	  (while (and (not (eq frag2 anchor))
+		      (eq decode (get frag2 'decode)))
+	    (setq frag2 (get frag2 'next-frag)))
+	  (funcall decode anchor frag1 frag2)
+	  (setq frag1 frag2))
+	(setq frag1 (get anchor 'prev-frag)
+	      tmp ())
+	(while (not (eq frag1 anchor))
+	  (setq tmp (cons (or (get frag1 'decoded) (symbol-name frag1)) tmp)
+		frag1 (get frag1 'prev-frag)))
+	(put anchor 'decoded (apply 'concat tmp)))))
+
+(defun ew-decode-field-no-cache (field-name field-body)
+  "No caching version of ew-decode-field."
+  (ew-decode-analyzed-field
+   (ew-analyze-field-to-decode field-name field-body)))
 
 (defun ew-mark (tag anchor)
   (let ((tlist (cons (list (symbol-value tag)) (ew-pair-list anchor))))
@@ -92,27 +102,58 @@ instead of its argument."
        (when (< 0 ew-parse-error-sit-for-seconds)
 	 (sit-for ew-parse-error-sit-for-seconds))))))
 
-(defun ew-decode-none (anchor frag end eword-filter)
+(defsubst ew-decode-us-ascii (str)
+  (decode-mime-charset-string str ew-default-mime-charset 'LF))
+
+(defun ew-decode-none (anchor frag end)
   (while (not (eq frag end))
-    (put frag 'decoded (funcall ew-decode-us-ascii (symbol-name frag)))
+    (put frag 'decoded (ew-decode-us-ascii (symbol-name frag)))
     (setq frag (get frag 'next-frag))))
 
+(defsubst ew-proper-eword-p (frag)
+  (and
+   (or ew-ignore-75bytes-limit
+       (<= (length (symbol-name frag)) 75))
+   (or ew-ignore-76bytes-limit
+       (<= (get frag 'line-length) 76))
+   (cond
+    ((eq (get frag 'type) 'ew:cm-texts)
+     (ew-eword-p (symbol-name frag)))
+    ((eq (get frag 'type) 'ew:qs-texts)
+     (ew-eword-p (symbol-name frag)))
+    ((eq (get frag 'type) 'ew:atom)
+     (and
+      (or ew-permit-sticked-comment
+	  (and
+	   (not (ew-comment-frag-p (get frag 'prev-frag)))
+	   (not (ew-comment-frag-p (get frag 'next-frag)))))
+      (or ew-permit-sticked-special
+	  (and
+	   (or (ew-comment-frag-p (get frag 'prev-frag))
+	       (not (ew-special-frag-p (get frag 'prev-frag))))
+	   (or (ew-comment-frag-p (get frag 'next-frag))
+	       (not (ew-special-frag-p (get frag 'next-frag))))))
+      (ew-eword-p (symbol-name frag))))
+    ((eq (get frag 'type) 'ew:us-texts)
+     (and
+      (or ew-permit-sticked-special
+	  (not (ew-special-frag-p (get frag 'prev-frag))))
+      (ew-eword-p (symbol-name frag))))
+    (t
+     nil))))
+
 (defun ew-decode-generic (anchor start end
 			  decode-ewords
 			  decode-others
-			  eword gap all
-			  eword-filter)
-  (let ((frag start) result buff type f)
+			  eword gap all)
+  (let ((frag start) (start-others start) type f)
     (while (not (eq frag end))
       (setq type (get frag 'type))
       (cond
        ((and (memq type eword)
 	     (ew-proper-eword-p frag))
-	(when buff
-	  (setq result (ew-rappend result
-				   (funcall decode-others
-					    (nreverse buff)))
-		buff ()))
+	(when (not (eq start-others frag))
+	  (funcall decode-others start-others frag))
 	(let ((first frag) (ewords (list frag)))
 	  (while (progn
 		   (setq f (get frag 'next-frag))
@@ -121,97 +162,87 @@ instead of its argument."
 		     (setq f (get f 'next-frag)))
 		   (and (not (eq f end))
 			(ew-proper-eword-p f)))
+	    (setq frag (get frag 'next-frag))
+	    (while (not (eq frag f))
+	      (put frag 'decoded "")
+	      (setq frag (get frag 'next-frag)))
 	    (setq ewords (ew-rcons* ewords f)
 		  frag f))
-	  (while (not (eq first frag))
-	    (put first 'decoded "")
-	    (setq first (get first 'next-frag)))
-	  (put frag 'decoded "")
-	  (setq result (ew-rappend result
-				   (funcall decode-ewords
-					    (nreverse ewords)
-					    eword-filter)))))
+	  (funcall decode-ewords
+		   (nreverse ewords)))
+	(setq start-others (get frag 'next-frag)))
        ((memq type all)
-	(setq buff (cons frag buff))
-	(put frag 'decoded ""))
+	nil)
        (t
 	(error "unexpected token: %s (%s)" frag type)))
       (setq frag (get frag 'next-frag)))
-    (when buff
-      (setq result (ew-rappend result (funcall decode-others (nreverse buff)))))
-    (put start 'decoded
-	 (apply 'ew-quote-concat (nreverse result)))
-    ))
-
-(defun ew-decode-generic-others (frags puncts quotes targets)
-  (let (result buff frag type tmp)
-    (while frags
-      (setq frag (car frags)
-	    type (get frag 'type)
-	    frags (cdr frags))
+    (when (not (eq start-others end))
+      (funcall decode-others start-others end))))
+
+(defun ew-decode-generic-others (start end puncts quotes targets)
+  (let ((frag start) (start-nonpunct start) type buff tmp)
+    (while (not (eq frag end))
+      (setq type (get frag 'type))
       (cond
        ((memq type puncts)
 	(when buff
-	  (setq buff (nreverse buff)
-		tmp (funcall ew-decode-us-ascii
-			     (mapconcat 'car buff "")))
-	  (if (ew-contain-non-ascii-p tmp)
-	      (setq result (ew-rcons* result tmp))
-	    (setq result (ew-rcons*
-			  result
-			  (funcall ew-decode-us-ascii
-				   (mapconcat 'cdr buff "")))))
+	  (setq buff (apply 'concat (nreverse buff))
+		tmp (ew-decode-us-ascii buff))
+	  (if (equal buff tmp)
+	      (while (not (eq start-nonpunct frag))
+		(put start-nonpunct 'decoded (symbol-name start-nonpunct))
+		(setq start-nonpunct (get start-nonpunct 'next-frag)))
+	    (progn
+	      (put start-nonpunct 'decoded tmp)
+	      (setq start-nonpunct (get start-nonpunct 'next-frag))
+	      (while (not (eq start-nonpunct frag))
+		(put start-nonpunct 'decoded "")
+		(setq start-nonpunct (get start-nonpunct 'next-frag)))))
 	  (setq buff ()))
-	(setq result (ew-rcons*
-		      result
-		      (symbol-name frag))))
+	(put frag 'decoded (symbol-name frag))
+	(setq start-nonpunct (get frag 'next-frag)))
        ((memq type quotes)
-	(setq buff (ew-rcons*
-		    buff
-		    (cons (substring (symbol-name frag) 1)
-			  (symbol-name frag)))))
+	(setq buff (ew-rcons* buff
+			      (substring (symbol-name frag) 1))))
        ((memq type targets)
-	(setq buff (ew-rcons*
-		    buff
-		    (cons (symbol-name frag)
-			  (symbol-name frag)))))
-       (t
-	(error "something wrong: unexpected token: %s (%s)" frag type))))
+	(setq buff (ew-rcons* buff
+			      (symbol-name frag))))
+       (t (error "something wrong: unexpected token: %s (%s)" frag type)))
+      (setq frag (get frag 'next-frag)))
     (when buff
-      (setq buff (nreverse buff)
-	    tmp (funcall ew-decode-us-ascii
-			 (mapconcat 'car buff "")))
-      (if (ew-contain-non-ascii-p tmp)
-	  (setq result (ew-rcons* result tmp))
-	(setq result (ew-rcons*
-		      result
-		      (funcall ew-decode-us-ascii
-			       (mapconcat 'cdr buff "")))))
-      (setq buff ()))
-    (nreverse result)))
-
-(defun ew-decode-unstructured-ewords (ewords eword-filter)
-  (let (result)
-    (while ewords
-      (setq result (ew-rcons*
-		    result
-		    (list (ew-decode-eword (symbol-name (car ewords))
-					   eword-filter
-					   'ew-encode-crlf)))
-	    ewords (cdr ewords)))
-    (nreverse result)))
-
-(defun ew-decode-unstructured-others (frags)
-  (let (result)
-    (while frags
-      (setq result (ew-rcons*
-		    result
-		    (symbol-name (car frags)))
-	    frags (cdr frags)))
-    (list (funcall ew-decode-us-ascii
-		   (apply 'concat (nreverse result))))))
-
-(defun ew-decode-unstructured (anchor start end eword-filter)
+      (setq buff (apply 'concat (nreverse buff))
+	    tmp (ew-decode-us-ascii buff))
+      (if (equal buff tmp)
+	  (while (not (eq start-nonpunct frag))
+	    (put start-nonpunct 'decoded (symbol-name start-nonpunct))
+	    (setq start-nonpunct (get start-nonpunct 'next-frag)))
+	(progn
+	  (put start-nonpunct 'decoded tmp)
+	  (setq start-nonpunct (get start-nonpunct 'next-frag))
+	  (while (not (eq start-nonpunct frag))
+	    (put start-nonpunct 'decoded "")
+	    (setq start-nonpunct (get start-nonpunct 'next-frag))))))))
+
+(defun ew-decode-unstructured-ewords (ewords)
+  (while ewords
+    (put (car ewords)
+	 'decoded
+	 (list (ew-decode-eword (symbol-name (car ewords)))))
+    (setq ewords (cdr ewords))))
+
+(defun ew-decode-unstructured-others (start end)
+  (let (strs)
+    (while (not (eq start end))
+      (put start 'decoded "")
+      (setq strs (ew-rcons* strs
+			    (symbol-name start))
+	    start (get start 'next-frag)))
+    (put (get end 'prev-frag)
+	 'decoded
+	 (ew-decode-us-ascii
+	  (apply 'concat (nreverse strs))))))
+
+(defun ew-decode-unstructured (anchor start end)
   (ew-decode-generic
    anchor start end
    'ew-decode-unstructured-ewords
@@ -221,33 +252,42 @@ instead of its argument."
      ew:us-fold)
    '(ew:us-texts
      ew:us-wsp
-     ew:us-fold)
-   eword-filter))
-
-(defun ew-decode-phrase-ewords (ewords eword-filter)
-  (let ((qs (eq (get (car ewords) 'type) 'ew:qs-texts))
-	require-quoting
-	result)
-    (while ewords
-      (setq result (ew-rcons*
-		    result
-		    (list (ew-decode-eword (symbol-name (car ewords))
-					   eword-filter
-					   'ew-encode-crlf)))
-	    require-quoting (or require-quoting
-				(string-match "[][()<>@,;:\\\".\000-\037]"
-                                              (caar result)))
-	    ewords (cdr ewords)))
-    (if require-quoting
-	(list
-	 (funcall (if qs 'ew-embed-in-quoted-string 'ew-embed-in-phrase)
-		  (apply 'ew-quote-concat
-			 (nreverse result))))
-      (nreverse result))))
-
-(defun ew-decode-phrase-others (frags)
+     ew:us-fold))
+  (let ((frag end) tmp)
+    (while (not (eq frag start))
+      (setq frag (get frag 'prev-frag)
+	    tmp (cons (get frag 'decoded) tmp))
+      (put frag 'decoded ""))
+    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
+
+(defun ew-decode-phrase-ewords (ewords)
+  (let* ((qs (eq (get (car ewords) 'type) 'ew:qs-texts))
+	 (regexp (if qs "[\\\\\\\"]" "[][()<>@,;:\\\\\\\".\000-\037]"))
+	 has-dangerous-char
+	 tmp decoded)
+    (setq tmp ewords)
+    (while tmp
+      (put (car tmp)
+	   'decoded
+	   (list (setq decoded (ew-decode-eword (symbol-name (car tmp))))))
+      (setq tmp (cdr tmp)
+	    has-dangerous-char (or has-dangerous-char
+				   (string-match regexp decoded))))
+    (when has-dangerous-char
+      (setq tmp ewords)
+      (while tmp
+	(setq decoded (get (car tmp) 'decoded))
+	(setcar decoded (ew-embed-in-quoted-string (car decoded)))
+	(setq tmp (cdr tmp)))
+      (when (not qs)
+	(setq decoded (get (car ewords) 'decoded))
+	(setcar decoded (concat "\"" (car decoded)))
+	(setq decoded (get (car (last ewords)) 'decoded))
+	(setcar decoded (concat (car decoded) "\""))))))
+
+(defun ew-decode-phrase-others (start end)
   (ew-decode-generic-others
-   frags
+   start end
    '(ew:qs-begin
      ew:qs-end)
    '(ew:qs-qfold
@@ -259,7 +299,18 @@ instead of its argument."
      ew:qs-wsp
      ew:qs-fold)))
 
-(defun ew-decode-phrase (anchor start end eword-filter)
+(defmacro ew-rotate (var val len)
+  (let ((tmp (make-symbol "tmp")))
+    `(let ((,tmp (nthcdr ,(- len 2) ,var)))
+       (if (cdr ,tmp)
+	   (progn
+	     (setcdr (cdr ,tmp) ,var)
+	     (setq ,var (cdr ,tmp))
+	     (setcdr ,tmp nil))
+	 (setq ,var (cons nil ,var)))
+       (setcar ,var ,val))))
+
+(defun ew-decode-phrase (anchor start end)
   (ew-decode-generic
    anchor start end
    'ew-decode-phrase-ewords
@@ -268,7 +319,9 @@ instead of its argument."
        '(ew:atom ew:qs-texts)
      '(ew:atom))
    '(ew:wsp
-     ew:fold)
+     ew:fold
+     ew:qs-wsp
+     ew:qs-fold)
    '(ew:atom
      ew:wsp
      ew:fold
@@ -278,31 +331,56 @@ instead of its argument."
      ew:qs-wsp
      ew:qs-fold
      ew:qs-qfold
-     ew:qs-qpair)
-   eword-filter))
-
-(defun ew-decode-comment-ewords (ewords eword-filter)
-  (let (require-quoting
-	result)
-    (while ewords
-      (setq result (ew-rcons*
-		    result
-		    (list (ew-decode-eword (symbol-name (car ewords))
-					   eword-filter
-					   'ew-encode-crlf)))
-	    require-quoting (or require-quoting
-				(string-match "[()\\\\]" (caar result)))
-	    ewords (cdr ewords)))
-    (if require-quoting
-	(list
-	 (ew-embed-in-comment
-	  (apply 'ew-quote-concat
-		 (nreverse result))))
-      (nreverse result))))
-
-(defun ew-decode-comment-others (frags)
+     ew:qs-qpair))
+  (let ((frag start) decoded str len idx char
+	chars frags
+	tmp)
+    (while (not (eq frag end))
+      (setq decoded (get frag 'decoded)
+	    str (or (car-safe decoded) decoded)
+	    len (length str)
+	    idx 0)
+      (while (< idx len)
+	(setq char (sref str idx))
+	(ew-rotate chars char 3)
+	(ew-rotate frags frag 3)
+	(when (and (not (memq char '(?\t ?\ )))
+		   (equal (cdr chars) '(?\n ?\r))
+		   (eq (get (setq tmp (nth 2 frags)) 'type) 'ew:qs-qpair)
+		   (eq (symbol-name tmp) (get tmp 'decoded)))
+	  (put tmp 'decoded "\r"))
+	(setq idx (char-next-index char idx)))
+      (setq frag (get frag 'next-frag)))
+    (setq frag end
+	  tmp ())
+    (while (not (eq frag start))
+      (setq frag (get frag 'prev-frag)
+	    tmp (cons (get frag 'decoded) tmp))
+      (put frag 'decoded ""))
+    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
+
+(defun ew-decode-comment-ewords (ewords)
+  (let* ((regexp "[()\\\\]")
+	 has-dangerous-char
+	 tmp decoded)
+    (setq tmp ewords)
+    (while tmp
+      (put (car tmp)
+	   'decoded
+	   (list (setq decoded (ew-decode-eword (symbol-name (car tmp))))))
+      (setq tmp (cdr tmp)
+	    has-dangerous-char (or has-dangerous-char
+				   (string-match regexp decoded))))
+    (when has-dangerous-char
+      (setq tmp ewords)
+      (while tmp
+	(setq decoded (get (car tmp) 'decoded))
+	(setcar decoded (ew-embed-in-comment (car decoded)))
+	(setq tmp (cdr tmp))))))
+
+(defun ew-decode-comment-others (start end)
   (ew-decode-generic-others
-   frags
+   start end
    '()
    '(ew:cm-qfold
      ew:cm-qpair)
@@ -310,7 +388,7 @@ instead of its argument."
      ew:cm-wsp
      ew:cm-fold)))
 
-(defun ew-decode-comment (anchor start end eword-filter)
+(defun ew-decode-comment (anchor start end)
   (ew-decode-generic
    anchor start end
    'ew-decode-comment-ewords
@@ -322,8 +400,32 @@ instead of its argument."
      ew:cm-wsp
      ew:cm-fold
      ew:cm-qfold
-     ew:cm-qpair)
-   eword-filter))
+     ew:cm-qpair))
+  (let ((frag start) decoded str len idx char
+	chars frags tmp)
+    (while (not (eq frag end))
+      (setq decoded (get frag 'decoded)
+	    str (or (car-safe decoded) decoded)
+	    len (length str)
+	    idx 0)
+      (while (< idx len)
+	(setq char (sref str idx))
+	(ew-rotate chars char 3)
+	(ew-rotate frags frag 3)
+	(when (and (not (memq char '(?\t ?\ )))
+		   (equal (cdr chars) '(?\n ?\r))
+		   (eq (get (setq tmp (nth 2 frags)) 'type) 'ew:cm-qpair)
+		   (eq (symbol-name tmp) (get tmp 'decoded)))
+	  (put tmp 'decoded "\r"))
+	(setq idx (char-next-index char idx)))
+      (setq frag (get frag 'next-frag)))
+    (setq frag end
+	  tmp ())
+    (while (not (eq frag start))
+      (setq frag (get frag 'prev-frag)
+	    tmp (cons (get frag 'decoded) tmp))
+      (put frag 'decoded ""))
+    (put start 'decoded (ew-encode-crlf (apply 'ew-quote-concat tmp)))))
 
 ;;;
 
@@ -354,38 +456,6 @@ instead of its argument."
 
 ;;;
 
-(defun ew-proper-eword-p (frag)
-  (and
-   (or ew-ignore-75bytes-limit
-       (<= (length (symbol-name frag)) 75))
-   (or ew-ignore-76bytes-limit
-       (<= (get frag 'line-length) 76))
-   (cond
-    ((eq (get frag 'type) 'ew:cm-texts)
-     (ew-eword-p (symbol-name frag)))
-    ((eq (get frag 'type) 'ew:qs-texts)
-     (ew-eword-p (symbol-name frag)))
-    ((eq (get frag 'type) 'ew:atom)
-     (and
-      (or ew-permit-sticked-comment
-	  (and
-	   (not (ew-comment-frag-p (get frag 'prev-frag)))
-	   (not (ew-comment-frag-p (get frag 'next-frag)))))
-      (or ew-permit-sticked-special
-	  (and
-	   (or (ew-comment-frag-p (get frag 'prev-frag))
-	       (not (ew-special-frag-p (get frag 'prev-frag))))
-	   (or (ew-comment-frag-p (get frag 'next-frag))
-	       (not (ew-special-frag-p (get frag 'next-frag))))))
-      (ew-eword-p (symbol-name frag))))
-    ((eq (get frag 'type) 'ew:us-texts)
-     (and
-      (or ew-permit-sticked-special
-	  (not (ew-special-frag-p (get frag 'prev-frag))))
-      (ew-eword-p (symbol-name frag))))
-    (t
-     nil))))
-
 (defun ew-contain-non-ascii-p (str)
   (not (eq (charsets-to-mime-charset (find-charset-string str)) 'us-ascii)))