[Mew-dist 06026] Re: mew reply

[Shuichi Kitaguchi]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 05951] Re: mew reply
Date: Tue, 18 Aug 1998 13:36:27 +0900

北口＠奈良先端大 です。

> > 残念ながら、直っていないみたいです。
> 
> ここまで書いておけば、後は誰かできる人がいると思いますので、環境のある
> 人ががんばって下さい。

とりあえず、bitmap を消すところまでやりましたが、Subject: を拾う時に
その下の From: 行にある X-Face も

  "Subject: hogehoge\n    [FACE]\n    [FACE]"

というように拾ってきてしまうので、bitmap を消しても、

  "Subject: hogehoge\n    \n    "

となって空白を含んだ行が残ります。というわけで、X-Face がそのまま
引用されるよりはマシかな、という程度です。

なお、Meadow 上でのみ動作チェックしました。

--- mew-header.el.original	Tue Aug 18 13:53:43 1998
+++ mew-header.el	Thu Aug 20 05:16:39 1998
@@ -55,14 +55,14 @@
 	    (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 (featurep 'bitmap)
+		  (let ((i 0) (len (length match)) char new)
+		    (while (< i len)
+		      (setq char (mew-aref match i))
+		      (if (not (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))))))

もひとつ、おまけです。

--- mew.el~	Thu Aug 20 00:25:05 1998
+++ mew.el	Thu Aug 20 01:55:16 1998
@@ -160,7 +160,7 @@
 (defmacro mew-config-error (var key)
   (` (if (null (, var))
 	 (setq errmsg (concat errmsg "\t" (, key)
-			      "was NOT found in Config.\n")))))
+			      " was NOT found in Config.\n")))))
 
 (defun mew-config-init ()
   (mew-set-buffer-tmp)



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