[mew-dist 19111] Re: To:に50人いる場合のソート

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 19097] Re: To:に50人いる場合のソート

> 細かく行を分けずに、はじめの3行以内に50個を超えるアドレスを書くと、
> mew-scan-form-mark-reviewがtだと、(mew-addrstr-parse-address-list
> (MEW-TO))のところで、そのようなエラーになります。

なるほど。以下で直ると思います。

--かず

Index: mew-scan.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-scan.el,v
retrieving revision 1.51
diff -c -r1.51 mew-scan.el
*** mew-scan.el	2001/10/02 02:23:55	1.51
--- mew-scan.el	2001/10/02 04:10:43
***************
*** 33,39 ****
  	    (setq duplicated t)
  	  (mew-sinfo-set-scan-id (cons id (mew-sinfo-get-scan-id))))))
      (when mew-scan-form-mark-review
!       (let ((to (mew-addrstr-parse-address-list (MEW-TO))))
  	(catch 'loop
  	  (while to
  	    (if (mew-is-my-address mew-regex-my-address-list (car to))
--- 33,40 ----
  	    (setq duplicated t)
  	  (mew-sinfo-set-scan-id (cons id (mew-sinfo-get-scan-id))))))
      (when mew-scan-form-mark-review
!       (let* ((mew-header-max-depth nil)
! 	     (to (mew-addrstr-parse-address-list (MEW-TO))))
  	(catch 'loop
  	  (while to
  	    (if (mew-is-my-address mew-regex-my-address-list (car to))