[mew-dist 27867] Re: Bエンコード内の「,」（カンマ）の扱い

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> さらに、このメールに Mew で返信しようとすると、Cc: が付き
> 
> Cc: "\"YAMADA
> 
> となります。

報告ありがとうございます。

> これは、意図した動作でしょうか？

これで直ると思います。(_ _)

--かず＠すべてを書き直したい気分

Index: mew-header.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-header.el,v
retrieving revision 1.35
diff -c -r1.35 mew-header.el
*** mew-header.el	27 Jul 2007 04:56:09 -0000	1.35
--- mew-header.el	26 Oct 2007 05:36:11 -0000
***************
*** 277,283 ****
      (let* ((i 0) (len (length str))
  	   (par-cnt 0) (tmp-cnt 0) (sep-cnt 0)
  	   (tmp (make-string len ?x))
! 	   c ret)
        (catch 'max
  	(while (< i len)
  	  (setq c (aref str i))
--- 277,283 ----
      (let* ((i 0) (len (length str))
  	   (par-cnt 0) (tmp-cnt 0) (sep-cnt 0)
  	   (tmp (make-string len ?x))
! 	   c ret prevc)
        (catch 'max
  	(while (< i len)
  	  (setq c (aref str i))
***************
*** 288,296 ****
  	    (setq i (1+ i))
  	    (catch 'quote
  	      (while (< i len)
  		(setq c (aref str i))
  		(cond
! 		 ((char-equal c ?\")
  		  (aset tmp tmp-cnt c)
  		  (setq tmp-cnt (1+ tmp-cnt))
  		  (throw 'quote nil))
--- 288,297 ----
  	    (setq i (1+ i))
  	    (catch 'quote
  	      (while (< i len)
+ 		(setq prevc c)
  		(setq c (aref str i))
  		(cond
! 		 ((and (char-equal c ?\") (not (char-equal prevc ?\\)))
  		  (aset tmp tmp-cnt c)
  		  (setq tmp-cnt (1+ tmp-cnt))
  		  (throw 'quote nil))