* 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 (file)
--- 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 (file)
--- 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.