2007年12月23日

[mew-dist 27998] Re: 解禁

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

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)))))

投稿者 xml-rpc : 2007年12月23日 18:39
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/67916
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。