From: bg66 <bg66>
Date: Thu, 31 Jul 2008 11:33:20 +0000 (+0000)
Subject: (mixi-gnus-setup): Avoid matching with bogus addresses
X-Git-Tag: mixi-el-1_5_0~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8dac51061d42b3d0759dbcfc29379313dc2ceb9b;p=elisp%2Fmixi.git

(mixi-gnus-setup): Avoid matching with bogus addresses
for `message-send-via-mixi'.
---

diff --git a/ChangeLog b/ChangeLog
index 5174fac..a4b51b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-31  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi-gnus.el (mixi-gnus-setup): Avoid matching with bogus addresses
+	for `message-send-via-mixi'.
+
 2008-07-08  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi-el: Version 1.4.2 released.
diff --git a/mixi-gnus.el b/mixi-gnus.el
index 78c5cd3..1d00893 100644
--- a/mixi-gnus.el
+++ b/mixi-gnus.el
@@ -1,6 +1,6 @@
 ;;; mixi-gnus.el --- Gnus integration for mixi
 
-;; Copyright (C) 2007 OHASHI Akira
+;; Copyright (C) 2007, 2008 OHASHI Akira
 
 ;; Author: OHASHI Akira <bg66@koka-in.org>
 ;; Keywords: news
@@ -77,7 +77,10 @@
   (let ((method '(mixi message-mixi-p message-send-via-mixi)))
     (unless (member method message-send-method-alist)
       (setq message-send-method-alist
-	    (cons method message-send-method-alist)))))
+	    (cons method message-send-method-alist))))
+  ;; Avoid matching with bogus addresses for `message-send-via-mixi'.
+  (setq message-bogus-addresses
+	(remove "[ \t]" message-bogus-addresses)))
 
 (provide 'mixi-gnus)