;;; Code:
-(require 'sb-mixi)
+(require 'mixi-utils)
(require 'message)
(defun message-mixi-p ()
(save-restriction
(message-narrow-to-headers)
(or (message-fetch-field "mixi-to")
- (string-match shimbun-mixi-to-regexp
- (message-fetch-field "to")))))))
+ (string-match mixi-to-regexp (message-fetch-field "to")))))))
(defun message-send-via-mixi (arg)
"Send the current message via mixi."
;; Avoid matching with message-mail-p.
(with-current-buffer mailbuf
(goto-char (point-min))
- (when (search-forward "\nTo: " nil t)
- (replace-match "\nMixi-To: ")))
+ (unless (search-forward "\nMixi-To: " nil t)
+ (when (search-forward "\nTo: " nil t)
+ (replace-match "\nMixi-To: "))))
(unwind-protect
(save-excursion
(set-buffer tembuf)
(insert (with-current-buffer mailbuf
(mml-buffer-substring-no-properties-except-hard-newlines
(point-min) (point-max))))
- (shimbun-mixi-send-mail (message-fetch-field "mixi-to")
- (message-fetch-field "subject")
- (buffer-substring (message-goto-body)
- (point-max))))
+ (mixi-send-mail (message-fetch-field "mixi-to")
+ (message-fetch-field "subject")
+ (buffer-substring (message-goto-body)
+ (point-max))))
(kill-buffer tembuf))
(set-buffer mailbuf)
(push 'mixi message-sent-message-via)))
(let ((method '(mixi message-mixi-p message-send-via-mixi)))
(unless (member method message-send-method-alist)
(setq message-send-method-alist
- (cons '(mixi message-mixi-p message-send-via-mixi)
- message-send-method-alist)))))
+ (cons method message-send-method-alist)))))
(provide 'mixi-gnus)