(define-key keymap "l" 'wl-message-toggle-disp-summary)
(define-key keymap "\C-c:d" 'wl-message-decrypt-pgp-nonmime)
(define-key keymap "\C-c:v" 'wl-message-verify-pgp-nonmime)
+ (define-key keymap "w" 'wl-draft)
(define-key keymap [mouse-4] 'wl-message-wheel-down)
(define-key keymap [mouse-5] 'wl-message-wheel-up)
(define-key keymap [S-mouse-4] 'wl-message-wheel-down)
(let ((event (read-event)))
(cons (and (numberp event) 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-mule) (require 'wl-version))