From: teranisi <teranisi>
Date: Sat, 27 Mar 2004 12:38:46 +0000 (+0000)
Subject: * wl-util.el (wl-list-diff): Remove unused function.
X-Git-Tag: wl-2_11_25~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f0066e3574fb28481b08315fb11e3425b0964db8;p=elisp%2Fwanderlust.git

* wl-util.el (wl-list-diff): Remove unused function.

* wl-draft.el (wl-draft-send-confirm): Discard input before
confirmation.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3f5473b..392c7c1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2004-03-27  Yuuichi Teranishi  <teranisi@rosita>
+
+	* wl-util.el (wl-list-diff): Remove unused function.
+
+	* wl-draft.el (wl-draft-send-confirm): Discard input before
+	confirmation.
+
 2004-03-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-vars.el (wl-summary-persistent-mark-priority-list): Changed
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index fd737d1..58ea817 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1287,6 +1287,7 @@ This variable is valid when `wl-interactive-send' has non-nil value."
 		(goto-char (point-min)) ; to show recipients in header
 		(catch 'done
 		  (while t
+		    (discard-input)
 		    (message "Send current draft? <y/n/j(down)/k(up)> ")
 		    (setq answer (let ((cursor-in-echo-area t)) (read-char)))
 		    (cond
diff --git a/wl/wl-util.el b/wl/wl-util.el
index b40d735..69f2cf0 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -346,14 +346,6 @@ or between BEG and END."
       (setq loop (- loop 1)))
     ret-val))
 
-(defun wl-list-diff (list1 list2)
-  "Return a list of elements of LIST1 that do not appear in LIST2."
-  (let ((list1 (copy-sequence list1)))
-    (while list2
-      (setq list1 (delq (car list2) list1))
-      (setq list2 (cdr list2)))
-    list1))
-
 (defun wl-append-assoc-list (item value alist)
   "make assoc list '((item1 value1-1 value1-2 ...)) (item2 value2-1 ...)))"
   (let ((entry (assoc item alist)))