From: okada <okada>
Date: Mon, 6 Nov 2000 07:55:51 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-cancel-message): Fetch again if no Newsgroups.
X-Git-Tag: wl-2_4-root~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=30a4ba29d00304b95c7697f432b8f2758e49bf0b;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-cancel-message): Fetch again if no Newsgroups.
	(wl-summary-supersedes-message): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fa250e7..bc751e9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-06  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-summary.el (wl-summary-cancel-message): Fetch again if no Newsgroups.
+	(wl-summary-supersedes-message): Ditto.
+
 2000-11-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-refile.el (wl-refile-guess-functions): Renamed from
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index b2db735..729cb7f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5533,7 +5533,14 @@ Use function list is `wl-summary-write-current-folder-functions'."
       (if (setq message-buf (wl-message-get-original-buffer))
 	  (set-buffer message-buf))
       (unless (wl-message-news-p)
-	(error "This is not a news article; canceling is impossible"))
+	(set-buffer summary-buf)
+	(if (and (eq (elmo-folder-get-type wl-summary-buffer-folder-name)
+		     'nntp)
+		 (y-or-n-p "Cannot get Newsgroups. Fetch again? "))
+	    (progn
+	      (wl-summary-redisplay t)
+	      (wl-summary-supersedes-message))
+	  (error "This is not a news article; supersedes is impossible")))
       (when (yes-or-no-p "Do you really want to cancel this article? ")
 	(let (from newsgroups message-id distribution buf)
 	  (save-excursion
@@ -5575,7 +5582,14 @@ Use function list is `wl-summary-write-current-folder-functions'."
     (if (setq message-buf (wl-message-get-original-buffer))
 	(set-buffer message-buf))
     (unless (wl-message-news-p)
-      (error "This is not a news article; supersedes is impossible"))
+      (set-buffer summary-buf)
+      (if (and (eq (elmo-folder-get-type wl-summary-buffer-folder-name)
+		   'nntp)
+	       (y-or-n-p "Cannot get Newsgroups. Fetch again? "))
+	  (progn
+	    (wl-summary-redisplay t)
+	    (wl-summary-supersedes-message))
+	(error "This is not a news article; supersedes is impossible")))
     (save-excursion
       (setq from (std11-field-body "from"))
       ;; Make sure that this article was written by the user.