[Mew-dist 07820] Re: 1.94b9: mew-summary-reply(): Wrong type argument: natnump, -1

[SAKAI Kiyotaka]

>> In article <19990301144940V.matusita at example.com>, Makoto MATSUSHITA (まつしたまこと) <matusita at example.com> writes:

>> Signaling: (wrong-type-argument natnump -1) 
>> mew-summary-reply(nil) 
>> call-interactively(mew-summary-reply) 

> こちらの問題は依然として残っています．

> 1.94b9 だけでなく 1.94b11 で試してもこの症状が発生しましたので，この両方
> のバージョンそれぞれについて，mew-join の定義を defmacro に変更し，再度 
> byte-compile した状態で試してみた結果，同様の(上記のような)症状が出たこ
> とを確認しています．

Emacs-20.3 では再現しないので、XEmacs でやってみたところ原因が分かりま
した。原因は XEmacs では nthcdr の第一引数に負の値を許さない仕様のため
で、以下のパッチのようにすれば解決すると思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el	1999/03/01 04:17:23	1.1
+++ mew-summary.el	1999/03/01 06:19:08
@@ -1147,8 +1147,9 @@
 	      (setq tmp-ref (nreverse (cons old-message-id tmp-ref)))
 	      (if (integerp mew-references-max-count)
 		  (setq tmp-ref
-			(nthcdr (- (length tmp-ref) mew-references-max-count)
-				tmp-ref)))
+			(nthcdr
+			 (max (- (length tmp-ref) mew-references-max-count) 0)
+			 tmp-ref)))
 	      (setq references (mew-join "\n\t" tmp-ref))))))
       ;;
       (mew-pop-to-buffer cbuf) ;; draft