[Mew-dist 06030] Re: mew reply

[Shuichi Kitaguchi]

> とりあえず、bitmap を消すところまでやりましたが、Subject: を拾う時に

すいません。composition だけじゃなくて bitmap も消すのを忘れて
いましたので、こっちと差し替えて下さい。


--- mew-header.el.original	Tue Aug 18 13:53:43 1998
+++ mew-header.el	Thu Aug 20 06:18:22 1998
@@ -55,14 +55,15 @@
 	    (if (string= "" match)
 		()
 	      ;; deleting bitmap..., sigh.
-;;	      (if (and (featurep 'bitmap) (boundp 'charset-bitmap))
-;;		  (let ((i 0) (len (length match)) char new)
-;;		    (while (< i len)
-;;		      (setq char (mew-aref match i))
-;;		      (if (/= (mew-char-charset char) charset-bitmap)
-;;			  (setq new (concat new (char-to-string char))))
-;;		      (setq i (+ i (mew-charlen char))))
-;;		    (setq match new)))
+	      (if (and (featurep 'bitmap) (boundp 'charset-bitmap))
+		  (let ((i 0) (len (length match)) char new)
+		    (while (< i len)
+		      (setq char (mew-aref match i))
+		      (if (not (or (equal (mew-char-charset char) charset-bitmap)
+				   (equal (mew-char-charset char) 'composition)))
+			  (setq new (concat new (char-to-string char))))
+		      (setq i (+ i (mew-charlen char))))
+		    (setq match new)))
 	      (if (null ret)
 		  (setq ret match)
 		(setq ret (concat ret "," match))))))


# でも、ascii な部分は残ってしまいますが...どうしようもないですけど。


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--