From: yamaoka <yamaoka>
Date: Fri, 10 May 2002 07:26:40 +0000 (+0000)
Subject: * elmo-vars.el: Bind colon keywords for old Emacsen.
X-Git-Tag: elmo-mark-root~140
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7f106dfbcd7e98afefaab9192dcab76021ee300b;p=elisp%2Fwanderlust.git

* elmo-vars.el: Bind colon keywords for old Emacsen.

* wl-summary.el (wl-summary-save-view-cache): Use a base codesys if it doesn't
 have a -unix version.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 05172fc..e2618f7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* elmo-vars.el: Bind colon keywords for old Emacsen.
+
 2002-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-msgdb.el (elmo-msgdb-create-overview-from-buffer): Protect
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 37076ab..36d70d1 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -35,6 +35,16 @@
   (defun-maybe dynamic-link (a))
   (defun-maybe dynamic-call (a b)))
 
+;; bind colon keywords for old Emacsen.
+(dont-compile
+  (condition-case nil
+      :symbol-for-testing-whether-colon-keyword-is-available-or-not
+    (void-variable
+     (let ((kwds '(:cc :date :extra :message-id :number :references :subject)))
+       (while kwds
+	 (set (car kwds) (car kwds))
+	 (setq kwds (cdr kwds)))))))
+
 (defgroup elmo nil
   "ELMO, Elisp Library for Message Orchestration."
   :tag "ELMO"
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 84b9120..361260a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-summary.el (wl-summary-save-view-cache): Use a base codesys
+	if it doesn't have a -unix version.
+
 2002-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-jump-to-msg): Fix.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 68f3da1..994cade 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4351,8 +4351,11 @@ If ARG, exit virtual folder."
 		      wl-summary-buffer-delete-list delete-list
 		      wl-summary-buffer-temp-mark-column temp-column)
 		(wl-summary-delete-all-temp-marks)
-		(encode-mime-charset-region
-		 (point-min) (point-max) charset 'LF)
+		(encode-coding-region
+		 (point-min) (point-max)
+		 (or (mime-charset-to-coding-system charset 'LF)
+		     ;; Mule 2 doesn't have `*ctext*unix'.
+		     (mime-charset-to-coding-system charset)))
 		(write-region-as-binary (point-min)(point-max)
 					cache nil 'no-msg)))
 	    (when (file-writable-p view) ; 'thread or 'sequence