[Mew-dist 17521] Re: auto-detect CT by X-Mailer (test).

[Tatsuya Kinoshita]

In message "[Mew-dist 17513] Re: auto-detect CT by X-Mailer (test)."
Tatsuya Kinoshita <tats at example.com> wrote:

> guessされたcaseを「上書き」ではなく「追加」できるよう、オプションを
> 用意してみました。(mew-config-guess-addition)

caseを「追加」した際に、余分なcaseを削除するよう、修正しました。

("foo,bar,baz" + "baz,foo"が、"foo,bar,baz,baz,foo"ではなく
"bar,baz,foo"になるように)

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew-config.el.orig	Fri May 25 00:17:39 2001
+++ mew-config.el	Fri May 25 06:00:07 2001
@@ -351,9 +351,11 @@
   (let (case-fold-search)
     (if (mew-config-default-p dst)
 	src
-      (if (and (> (length src) 0)
-	       (not (string-match (concat (regexp-quote src) "$") dst)))
-	  (concat dst "," src)
+      (if (> (length src) 0)
+	  (mew-join
+	   ","
+	   (nreverse
+	    (mew-uniq-list (nreverse (mew-split (concat dst "," src) ?,)))))
 	dst))))
 
 (provide 'mew-config)