* COMPILE.in: Rename from `COMPILE'.

[elisp/mixi.git] / mixi-gnus.el

diff --git a/mixi-gnus.el b/mixi-gnus.el
index 4e7c72c..77b7312 100644 (file)
--- a/mixi-gnus.el
+++ b/mixi-gnus.el
@@ -55,8 +55,9 @@
     ;; 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)
@@ -77,8 +78,7 @@
   (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)