- (recipients (or (std11-field-body "mixi-to")
- (std11-field-body "to"))))
- (if (string-match shimbun-mixi-to-regexp recipients)
- (let ((delimline (save-excursion
- (goto-char (point-min))
- (re-search-forward
- (concat "^" (regexp-quote mail-header-separator)
- "$\\|^$") nil t)
- (point-marker)))
- (id (std11-field-body "message-id")))
- (shimbun-mixi-send-mail recipients
- (eword-decode-string
- (std11-field-body "subject"))
- (decode-mime-charset-string
- (buffer-substring (1+ delimline)
- (point-max))
- wl-mime-charset))
- (wl-draft-set-sent-message 'mail 'sent)
- (wl-draft-write-sendlog 'ok 'mixi nil recipients id))
- (funcall wl-draft-send-mail-function-original))))
+ (recipients (mixi-wl-get-recipients-from-buffer)))
+ (let ((delimline (save-excursion
+ (goto-char (point-min))
+ (re-search-forward
+ (concat "^" (regexp-quote mail-header-separator)
+ "$\\|^$") nil t)
+ (point-marker)))
+ (id (std11-field-body "message-id")))
+ (mixi-send-mail recipients
+ (eword-decode-string (or (std11-field-body "subject")
+ ""))
+ (decode-mime-charset-string
+ (buffer-substring (1+ delimline) (point-max))
+ wl-mime-charset))
+ (wl-draft-set-sent-message 'mail 'sent)
+ (wl-draft-write-sendlog 'ok 'mixi nil (list recipients) id))))
+
+(defun mixi-wl-setup-draft-buffer ()
+ (let ((recipients (mixi-wl-get-recipients-from-buffer)))
+ (when (and recipients
+ (string-match mixi-to-regexp recipients))
+ (make-local-variable 'wl-draft-send-confirm-with-preview)
+ (setq wl-draft-send-confirm-with-preview nil)
+ (make-local-variable 'wl-draft-send-mail-function)
+ (setq wl-draft-send-mail-function 'wl-draft-send-mail-with-mixi))))