From 30a4ba29d00304b95c7697f432b8f2758e49bf0b Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 6 Nov 2000 07:55:51 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-cancel-message): Fetch again if no Newsgroups. (wl-summary-supersedes-message): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 18 ++++++++++++++++-- 2 files changed, 21 insertions(+), 2 deletions(-) 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 + + * wl-summary.el (wl-summary-cancel-message): Fetch again if no Newsgroups. + (wl-summary-supersedes-message): Ditto. + 2000-11-05 TAKAHASHI Kaoru * 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. -- 1.7.10.4