[Mew-dist 14930] patch for mew-time-ctz-to-rfc

[SAKAI Kiyotaka]

Emacs-21.1 のプレテストが始まりましたので試してみたところ、メールの送
信時に Date field に日本語が含まれてしまうという問題が発生しました。

これは

  (format-time-string "%a, %d %b %Y %T" (current-time))

が従来のバージョンでは

  "Mon, 20 Nov 2000 11:42:48"

を返していたのが、Emacs-21.x から

  "(月), 20 11月 2000 11:29:01"

を返すようになったためです。

message.el の message-make-date 関数では format-time-string では %a,
%b を使うのを避けていましたので、Mew でもこれに従った方が良さそうです。

以下にそのためのパッチを付けておきます。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-func.el
===================================================================
RCS file: /home/ksakai/cvsroot/mew-1.95b77/mew-func.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-func.el
--- mew-func.el	2000/11/20 00:38:31	1.1.1.1
+++ mew-func.el	2000/11/20 02:35:33
@@ -1078,7 +1078,12 @@
 	s)
     (if (fboundp 'format-time-string)
 	;; old Emacs doesn't have %z
-	(concat (format-time-string "%a, %d %b %Y %T" time)
+	(concat (capitalize (car (rassoc (nth 6 (decode-time time))
+					 parse-time-weekdays)))
+		(format-time-string ", %d " time)
+		(capitalize (car (rassoc (nth 4 (decode-time time))
+					 parse-time-months)))
+		(format-time-string " %Y %T" time)
 		(format " %s (%s)" tmzn-int tmzn-sym))
       (setq s (current-time-string time))
       (string-match mew-time-cts-regex s)