From: yoichi <yoichi>
Date: Thu, 11 Apr 2002 03:14:20 +0000 (+0000)
Subject: * wl.el (wl-check-environment): Cause error when wl-from is nil,
X-Git-Tag: elmo-mark-root~209
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=56a854fd822866bb4d9248eb42060bc9ad5e3713;p=elisp%2Fwanderlust.git

* wl.el (wl-check-environment): Cause error when wl-from is nil,
seems critical one (partially reverse the change in 2002/03/17).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cff6a4f..18855a0 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl.el (wl-check-environment): Cause error when wl-from is nil,
+	seems critical one (partially reverse the change in 2002/03/17).
+
 2002-04-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-util.el (wl-sendlog-time): Merge into wl-draft-write-sendlog.
diff --git a/wl/wl.el b/wl/wl.el
index 093a7d4..921037d 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -703,7 +703,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
     (run-hooks 'wl-init-hook)))
 
 (defun wl-check-environment (no-check-folder)
-  (unless wl-from (elmo-warning "Please set `wl-from'."))
+  (unless wl-from (error "Please set `wl-from' to your mail address."))
   ;; Message-ID
   (when wl-insert-message-id
     (let ((message-id (funcall wl-message-id-function))