From: teranisi <teranisi>
Date: Fri, 12 May 2000 07:56:39 +0000 (+0000)
Subject: (wl-summary-yank-saved-message): Inhibit setting itself as a parent.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cfa31e6f4569cfbbb80bbfb2aa4f2607732aaa3d;p=elisp%2Fwanderlust.git

(wl-summary-yank-saved-message): Inhibit setting itself as a parent.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ede8fb4..a975be6 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-05-12 16:30:34 teranisi>
+;; Time-stamp: <2000-05-12 16:55:48 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -6087,10 +6087,12 @@ Reply to author if invoked with argument."
   (interactive)
   (if wl-summary-buffer-saved-message
       (let ((number (wl-summary-message-number)))
-	(save-excursion
-	  (wl-thread-jump-to-msg wl-summary-buffer-saved-message)
-	  (wl-summary-set-parent number))
-	(setq  wl-summary-buffer-saved-message nil))
+	(if (eq wl-summary-buffer-saved-message number)
+	    (message "Cannot set itself as a parent.")
+	  (save-excursion
+	    (wl-thread-jump-to-msg wl-summary-buffer-saved-message)
+	    (wl-summary-set-parent number))
+	  (setq  wl-summary-buffer-saved-message nil)))
     (message "There's no saved message.")))
 
 (provide 'wl-summary)