From ea16908dc6b6d10dba7ea6c222729482c82c2a8f Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 20 Dec 2002 11:06:27 +0000 Subject: [PATCH] * wl-news.el.in (wl-news-check): Return updating status. * wl.el (wl-init): Show message when wl-news-check returns non-nil. --- wl/ChangeLog | 2 ++ wl/wl-news.el.in | 19 ++++++++++--------- wl/wl.el | 3 ++- 3 files changed, 14 insertions(+), 10 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a34b9d0..2c31be4 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -3,6 +3,8 @@ * wl-news.el.in (wl-news-send-to-address): New variable. (wl-news-send-news): Use it. (wl-news-check): Call wl-news-send-news if wl-news-send-to-address. + Return updating status. + * wl.el (wl-init): Show message when wl-news-check returns non-nil. 2002-12-20 Kenichi OKADA diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in index 1e6d7ae..7b3a763 100644 --- a/wl/wl-news.el.in +++ b/wl/wl-news.el.in @@ -44,15 +44,16 @@ "*The recipient address to send NEWS.") (defun wl-news-check () - (let ((previous-version (wl-news-previous-version-load)) - (current-version (product-version (product-find 'wl-version)))) - (if (and (< 0 (product-version-compare - current-version previous-version)) - wl-news-lang - wl-news-send-to-address - (wl-news-send-news previous-version)) - (wl-news-previous-version-save current-version)))) - + (let* ((previous-version (wl-news-previous-version-load)) + (current-version (product-version (product-find 'wl-version))) + (updated (< 0 (product-version-compare + current-version previous-version)))) + (when updated + (and wl-news-lang + wl-news-send-to-address + (wl-news-send-news previous-version)) + (wl-news-previous-version-save current-version)) + updated)) ;;; -*- news-list -*- diff --git a/wl/wl.el b/wl/wl.el index ea1807b..6039c2c 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -697,7 +697,8 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (symbol-value 'wl-summary-subject-filter-function)) (setq elmo-no-from wl-summary-no-from-message) (setq elmo-no-subject wl-summary-no-subject-message) - (wl-news-check) + (and (wl-news-check) + (message "Wanderlust is updated, please read NEWS(.ja) for changes.")) (setq wl-init t) ;; This hook may contain the functions `wl-plugged-init-icons' and ;; `wl-biff-init-icons' for reasons of system internal to accord -- 1.7.10.4