[mew-dist 27630] Re: Punycode encoder

[Kazu Yamamoto ( 山本和彦 )]

山本です。

ひょっとすると、白井さんの言うことが正しいかもしれません。
mew-puny-encode で utf-16be が使われると、
Carbon Emacs Package が何かの EL を require し、
それが string-match などを使っているのかもしれませんね。

以下を試してみて下さい。

--かず

Index: mew-bq.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-bq.el,v
retrieving revision 1.50
diff -c -r1.50 mew-bq.el
*** mew-bq.el	16 Apr 2007 09:30:48 -0000	1.50
--- mew-bq.el	17 Apr 2007 12:25:18 -0000
***************
*** 1159,1167 ****
  	(narrow-to-region beg end)
  	(goto-char (point-min))
  	(while (re-search-forward "[^.]?[^.
! 	  (setq idn (mew-puny-encode (mew-match-string 0)))
  	  (delete-region (match-beginning 0) (match-end 0))
! 	  (insert idn)))
        (mew-buffer-substring (point-min) (point-max)))))
  
  (provide 'mew-bq)
--- 1159,1167 ----
  	(narrow-to-region beg end)
  	(goto-char (point-min))
  	(while (re-search-forward "[^.]?[^.
! 	  (setq idn (mew-match-string 0))
  	  (delete-region (match-beginning 0) (match-end 0))
! 	  (insert (mew-puny-encode idn))))
        (mew-buffer-substring (point-min) (point-max)))))
  
  (provide 'mew-bq)