From 0d2feb9bc7464aa731097485eb04a197957e2ba4 Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 9 Jan 2007 06:27:37 +0000 Subject: [PATCH] * mixi-gnus.el (message-send-via-mixi): Don't replace twice. --- ChangeLog | 4 ++++ mixi-gnus.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 03df948..fa21024 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2007-01-09 OHASHI Akira + * mixi-gnus.el (message-send-via-mixi): Don't replace twice. + +2007-01-09 OHASHI Akira + * 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) -- 1.7.10.4