(let ((method '(mixi message-mixi-p message-send-via-mixi)))
(unless (member method message-send-method-alist)
(setq message-send-method-alist
(let ((method '(mixi message-mixi-p message-send-via-mixi)))
(unless (member method message-send-method-alist)
(setq message-send-method-alist