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