* mixi-gnus.el (message-send-via-mixi): Don't replace twice.

diff --git a/ChangeLog b/ChangeLog
index 03df948..fa21024 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2007-01-09  OHASHI Akira  <bg66@koka-in.org>
 
+       * mixi-gnus.el (message-send-via-mixi): Don't replace twice.
+
+2007-01-09  OHASHI Akira  <bg66@koka-in.org>
+
        * mixi-gnus.el (message-mixi-p): Change the pseudo header to
        `Mixi-To:'.
        (message-send-via-mixi): Ditto.

diff --git a/mixi-gnus.el b/mixi-gnus.el
index 4e7c72c..572639c 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)