[mew-dist 28364] Re: Multipart/Alternative

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Murata Takashi (村田 隆) <tmurata at example.com> さん曰く
Subject: [mew-dist 28363] Multipart/Alternative
Message-ID: <20080423.181153.34930920.tmurata at example.com>
Date: Wed, 23 Apr 2008 18:11:53 +0900 (JST)

>   Multipart/Alternative のメールは、Summary上で "M" が付きますが、添付
> ファイル付きと区別が付かないので、"m" とか "_" とか、見た目を弱くしたい
> のですが、どうでしょうか？

>   添付ファイル付きのメールを探すとき、最初は目視で "M" 付きを探すのです
> が、最近は Alternative が増えて来て、どうにも鬱陶しいのです。

大賛成に一票です。

以下のパッチで "m" が付くようになりますが、".", "-", "_" の様に
もっと見た目が邪魔にならない方が良いですね。はたまた、":" を表示
して、ML に流れる質問を減らすか。。。

Index: mew-scan.el
===================================================================
RCS file: /cvsmew/mew/mew-scan.el,v
retrieving revision 1.247
diff -u -r1.247 mew-scan.el
--- mew-scan.el	18 Mar 2008 03:04:58 -0000	1.247
+++ mew-scan.el	23 Apr 2008 10:29:18 -0000
@@ -105,6 +105,7 @@
        ((string-match mew-ct-smm-sig ct)  "S")
        ((string-match mew-ct-smm-enc ct)  "E")
        (t "E"))) ;; smime-type is optional, sigh
+     ((mew-ct-alternativep ct)            "m")
      ((mew-ct-multipartp ct)              "M")
      ((string-match "Message/Partial" ct) "P")
      (t " "))))
Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.176
diff -u -r1.176 mew-vars2.el
--- mew-vars2.el	7 Apr 2008 08:31:40 -0000	1.176
+++ mew-vars2.el	23 Apr 2008 10:29:18 -0000
@@ -198,6 +198,9 @@
 (defun mew-ct-multipartp (ct)
   (string-match "^Multipart" (capitalize ct)))
 
+(defun mew-ct-alternativep (ct)
+  (string-match "^Multipart/Alternative" (capitalize ct)))
+
 (defun mew-ct-messagep (ct)
   (string-match "^Message" (capitalize ct)))
 
-- 
白井秀行 (mailto:shirai at example.com)