(require 'wl-address)
(require 'wl-draft)
+(eval-when-compile (require 'cl))
;; Variables
(defgroup wl-addrmgr nil
(wl-parse-addresses
(mapconcat
'identity
- (elmo-multiple-fields-body-list '("to" "cc" "bcc")) ","))))))
+ (elmo-multiple-fields-body-list '("to" "cc" "bcc")
+ mail-header-separator)
+ ","))))))
(defun wl-addrmgr-merge-entries (base-list append-list)
"Return a merged list of address entiry."