From: okada <okada>
Date: Fri, 20 Dec 2002 16:07:25 +0000 (+0000)
Subject: * wl-news.el.in (wl-news-exit): Update previous version.
X-Git-Tag: merged-trunk-to-elmo-mark-14~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8884c5031f244e0abe9fb74565282c2458639bc2;p=elisp%2Fwanderlust.git

* wl-news.el.in (wl-news-exit): Update previous version.
* wl.el (wl-folder-mode-menu-spec): Add 'Wanderlust NEWS'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 75f97fa..4b3617b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-12-21  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-news.el.in (wl-news-exit): Update previous version.
+	* wl.el (wl-folder-mode-menu-spec): Add 'Wanderlust NEWS'.
+
+2002-12-21  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-news.el.in (wl-news): Add `delete-other-windows'.
 
 2002-12-21  Kenichi OKADA  <okada@opaopa.org>
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index ea911f4..fbf43fb 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -116,6 +116,8 @@
     ["Write a message" wl-draft t]
     ["Write for current folder" wl-folder-write-current-folder t]
     "----"
+    ["Wanderlust NEWS" wl-news t]
+    "----"
     ["Toggle Plug Status" wl-toggle-plugged t]
     ["Change Plug Status" wl-plugged-change t]
     "----"
diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index 3d5f411..044a26e 100644
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -188,6 +188,9 @@
 
 (defun wl-news-exit ()
   (interactive)
+  (unless (y-or-n-p "Do you want to look at this message again? ")
+    (wl-news-previous-version-save
+     (product-version (product-find 'wl-version))))
   (kill-buffer (current-buffer))
   (if wl-news-winconf
       (set-window-configuration wl-news-winconf)))