* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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