[mew-dist 27998] Re: 解禁

[Takanori Ogawa]

小川と申します。
今の mew-ct-setup は正しく動いてないのではないでしょうか。
# 添付領域で T したら、候補がでなくてびっくり。
--
小川敬則 <ogawa at example.com>

Index: mew.el
===================================================================
RCS file: /cvsmew/mew/mew.el,v
retrieving revision 1.311
diff -b -u -r1.311 mew.el
--- mew.el	18 Dec 2007 02:06:06 -0000	1.311
+++ mew.el	23 Dec 2007 09:23:38 -0000
@@ -258,7 +258,7 @@
   "Candidate of Content-Type: when CT: is changed in draft buffer.")
 
 (defun mew-ct-setup ()
-  (dolist (ct mew-mime-content-type) 
+  (dolist (ct (mapcar 'car mew-mime-content-type))
     (if (and (stringp ct) (not (string-match "/$" ct)))
 	(setq mew-mime-content-type-list
 	      (cons (capitalize ct) mew-mime-content-type-list)))))