[Mew-dist 07898] 1.94b12: mew-gnus-reply() causes strange behavior

[Makoto MATSUSHITA ( まつしたまこと )]

多分ちょっと前にあった「XEmacs では，nthcdr の最初の引数は非負整数でなけ
ればならない」話の続き? です．

同じことが発生しそうな場所が Mew 1.94b12 附属の contrib/mew-gnus.el 中に
あります．以下，mew-summary-reply() を参考にした修正，です．

--- mew-gnus.el.dist	Fri Feb 26 18:18:42 1999
+++ mew-gnus.el	Fri Mar  5 11:36:03 1999
@@ -149,7 +149,7 @@
 	   (old-in-reply-to (gnus-fetch-field "In-Reply-To"))
 	   (old-references  (gnus-fetch-field "References"))
 	   (regex "<[^>]+>")
-	   (start 0) tmp-ref)
+	   (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))
@@ -168,10 +168,10 @@
 	       (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 (mapconcat (lambda (x) x) tmp-ref "\n\t")))))
+	       (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)))))
 
      (switch-to-buffer-other-window (find-file-noselect file))
      (mew-draft-rename file)

こんなんで良いでしょうか．

-- -
Makoto `MAR' MATSUSHITA