;;; Code:
-(require 'sb-mixi)
-
-;; Functions and variables which should be defined in the other module
-;; at run-time.
-(eval-when-compile
- (defvar message-this-is-news)
- (defvar message-sent-message-via)
- (defvar message-send-method-alist)
- (autoload 'message-narrow-to-headers "message")
- (autoload 'message-fetch-field "message")
- (autoload 'message-generate-new-buffer-clone-locals "message")
- (autoload 'message-goto-body "message")
- (autoload 'mml-buffer-substring-no-properties-except-hard-newlines "mml"))
+(require 'mixi-utils)
+(require 'message)
(defun message-mixi-p ()
"Say whether the current buffer contains a mixi message."
(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."
(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)))