[Mew-dist 05947] Re: mew reply

[Kazu Yamamoto ( 山本和彦 )]

From: Masahiro Yamada <yamada at example.com>
Subject: [Mew-dist 05658] mew reply
Date: Mon, 27 Jul 1998 11:44:11 +0900

> (1) fromヘッダに、X-faceが表示されてしまう。
> (2) mew-cite-formatのFrom:部分にも、X-faceが分割された状態で
> 　　表示される。
> (3) x-faceに関係なく、mew-cite-formatのFrom:部分には、
> 　　必ず２つemailアドレスが表示される。

あまりに情けないプログラムですが、以下で bitmap は消えるでしょうか？
環境が無いので僕はテストできていません。

--かず

Index: mew-header.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-header.el,v
retrieving revision 1.26
diff -c -r1.26 mew-header.el
*** mew-header.el	1998/08/07 16:06:57	1.26
--- mew-header.el	1998/08/17 22:30:41
***************
*** 54,59 ****
--- 54,68 ----
  	    (setq match (mew-buffer-substring start (1- (point))))
  	    (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 (null ret)
  		  (setq ret match)
  		(setq ret (concat ret "," match))))))
Index: mew-mule0.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-mule0.el,v
retrieving revision 1.15
diff -c -r1.15 mew-mule0.el
*** mew-mule0.el	1998/07/31 08:23:41	1.15
--- mew-mule0.el	1998/08/17 22:17:36
***************
*** 41,46 ****
--- 41,49 ----
  (defvar mew-lc-ascii 0)
  (defvar mew-lc-kana  nil) ;; dummay
  
+ (defun mew-char-charset (char)
+   ())
+ 
  ;;
  ;; CS
  ;;
Index: mew-mule2.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-mule2.el,v
retrieving revision 1.20
diff -c -r1.20 mew-mule2.el
*** mew-mule2.el	1998/07/16 15:53:36	1.20
--- mew-mule2.el	1998/08/17 22:18:13
***************
*** 77,82 ****
--- 77,87 ----
  (defvar mew-lc-jp    146)
  (fset 'mew-make-char (symbol-function 'make-character))
  
+ (defun mew-char-charset (char)
+   (cond
+    ((<= char 128) 0)
+    (t (aref (char-to-string char) 0))))
+ 
  ;;
  ;; CS
  ;;
Index: mew-mule3.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-mule3.el,v
retrieving revision 1.19
diff -c -r1.19 mew-mule3.el
*** mew-mule3.el	1998/08/04 09:25:03	1.19
--- mew-mule3.el	1998/08/17 22:18:42
***************
*** 85,90 ****
--- 85,91 ----
  (defvar mew-lc-jp    'japanese-jisx0208)
  (defvar mew-lc-kana  'katakana-jisx0201)
  (defalias 'mew-make-char 'make-char)
+ (defalias 'mew-char-charset 'char-charset)
  
  ;;
  ;; CS