From cfa31e6f4569cfbbb80bbfb2aa4f2607732aaa3d Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 12 May 2000 07:56:39 +0000 Subject: [PATCH] (wl-summary-yank-saved-message): Inhibit setting itself as a parent. --- wl/wl-summary.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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 ;; 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) -- 1.7.10.4