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

[Kazu Yamamoto ( 山本和彦 )]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 07820] Re: 1.94b9: mew-summary-reply(): Wrong type argument: natnump, -1 
Date: Mon, 1 Mar 1999 15:21:58 +0900

> Emacs-20.3 では再現しないので、XEmacs でやってみたところ原因が分かりま
> した。原因は XEmacs では nthcdr の第一引数に負の値を許さない仕様のため
> で、以下のパッチのようにすれば解決すると思います。

ありがとうございます。コードを読みやすくするために、以下のようにローカ
ル変数を定義しましょうか。

--かず
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.113
diff -c -r1.113 mew-summary.el
*** mew-summary.el	1999/02/28 14:57:15	1.113
--- mew-summary.el	1999/03/01 06:55:54
***************
*** 1127,1133 ****
  	      (old-in-reply-to (mew-header-get-value mew-in-reply-to:))
  	      (old-references  (mew-header-get-value mew-references:))
  	      (regex "<[^>]+>")
! 	      (start 0) tmp-ref)
  	  (if (and old-message-id (string-match regex old-message-id))
  	      (setq old-message-id (mew-match 0 old-message-id))
  	    (setq old-message-id nil))
--- 1127,1133 ----
  	      (old-in-reply-to (mew-header-get-value mew-in-reply-to:))
  	      (old-references  (mew-header-get-value mew-references:))
  	      (regex "<[^>]+>")
! 	      (start 0) tmp-ref skip)
  	  (if (and old-message-id (string-match regex old-message-id))
  	      (setq old-message-id (mew-match 0 old-message-id))
  	    (setq old-message-id nil))
***************
*** 1146,1154 ****
  		  (setq tmp-ref (cons old-in-reply-to tmp-ref)))
  	      (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)))
  	      (setq references (mew-join "\n\t" tmp-ref))))))
        ;;
        (mew-pop-to-buffer cbuf) ;; draft
--- 1146,1154 ----
  		  (setq tmp-ref (cons old-in-reply-to tmp-ref)))
  	      (setq tmp-ref (nreverse (cons old-message-id tmp-ref)))
  	      (if (integerp mew-references-max-count)
! 		  (setq skip (- (length tmp-ref) mew-references-max-count)))
! 	      (if (and (numberp skip) (> skip 0))
! 		  (setq tmp-ref (nthcdr skip tmp-ref)))
  	      (setq references (mew-join "\n\t" tmp-ref))))))
        ;;
        (mew-pop-to-buffer cbuf) ;; draft