(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 'button4 'wl-message-wheel-down)
(define-key keymap 'button5 'wl-message-wheel-up)
(define-key keymap [(shift button4)] 'wl-message-wheel-down)
(event-to-character event))
event)))
-(defalias 'wl-completing-read-multiple 'completing-read)
+(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))