From: bg66 <bg66>
Date: Tue, 9 Jan 2007 06:27:37 +0000 (+0000)
Subject: * mixi-gnus.el (message-send-via-mixi): Don't replace twice.
X-Git-Tag: mixi-el-1_0_0~121
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0d2feb9bc7464aa731097485eb04a197957e2ba4;p=elisp%2Fmixi.git

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

diff --git a/ChangeLog b/ChangeLog
index 03df948..fa21024 100644
--- 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
--- 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)