* wl-highlight.el (wl-highlight-message): Ignore white spaces

[elisp/wanderlust.git] / wl / wl-xmas.el

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index b5af874..80aec05 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -565,6 +565,14 @@ Special commands:
               (event-to-character event))
          event)))
 
+(defun wl-completing-read-multiple (prompt
+                                   table
+                                   &optional predicate
+                                   require-match initial-input)
+  "Read multiple strings in the minibuffer"
+  (split-string (completing-read prompt table predicate require-match
+                                initial-input) ","))
+
 (require 'product)
 (product-provide (provide 'wl-xmas) (require 'wl-version))