Sync up with semi-1_4_1_9.

diff --git a/ChangeLog b/ChangeLog
index 5250d1e..497837c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,24 @@
+1998-05-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-view.el (mime-preview-move-to-previous): Must regard
+       previous entity separated by null property region.
+       (mime-preview-move-to-next): Must regard next entity separated by
+       null property region.
+
+1998-05-03  Simon Josefsson  <jas@pdc.kth.se>
+
+       * mime-view.el (mime-preview-move-to-previous): check that new
+       prop is non-null
+
+       * mime-view.el (mime-preview-move-to-next): skip leading null
+       props, check that new prop is non-null
+
+1998-05-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-view.el: Use 'ctree-set-calist-with-default instead of
+       'ctree-set-calist-strictly to set up mailcap entries.
+
+\f
 1998-05-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * WEMI: Version 1.4.1 (Tsujid\e-Dò) was released.\e-A

diff --git a/TODO b/TODO
index d048726..85171d1 100644 (file)
--- a/TODO
+++ b/TODO
@@ -14,3 +14,14 @@
 ** WYSIWYG editing support
 
 ** Use MIME-Preview like tag and display
+
+** Check available MIME-charset
+
+    MIME-charset \e$B0J30$,@8@.$5$l$k>l9g$N=hM}$r;XDj$G$-$k$h$&$K$9$k!#\e(B
+
+    For example:
+
+        (a) translate problematic characters to similar representation
+       (b) display warning message
+           (e.g. "`x-ctext' is generated.  Do you send it? (yes/no)")
+       (c) stop sending

diff --git a/mime-view.el b/mime-view.el
index d414b4f..3572e09 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -525,11 +525,11 @@ Please press `v' key in this buffer."
            (setq entry (cdr entry))
            )
          (setq shared (nreverse shared))
-         (ctree-set-calist-strictly
+         (ctree-set-calist-with-default
           'mime-acting-condition
           (append shared (list '(mode . "play")(cons 'method (cdr view)))))
          (if print
-             (ctree-set-calist-strictly
+             (ctree-set-calist-with-default
               'mime-acting-condition
               (append shared
                       (list '(mode . "print")(cons 'method (cdr view))))
@@ -1329,10 +1329,13 @@ variable `mime-view-over-to-previous-method-alist'."
   (while (null (get-text-property (point) 'mime-view-entity))
     (backward-char)
     )
-  (let ((point
-        (previous-single-property-change (point) 'mime-view-entity)))
+  (let ((point (previous-single-property-change (point) 'mime-view-entity)))
     (if point
-       (goto-char point)
+       (if (get-text-property (1- point) 'mime-view-entity)
+           (goto-char point)
+         (goto-char (1- point))
+         (mime-preview-move-to-previous)
+         )
       (let ((f (assq mime-preview-original-major-mode
                     mime-view-over-to-previous-method-alist)))
        (if f
@@ -1345,9 +1348,16 @@ variable `mime-view-over-to-previous-method-alist'."
 If there is no previous entity, it calls function registered in
 variable `mime-view-over-to-next-method-alist'."
   (interactive)
+  (while (null (get-text-property (point) 'mime-view-entity))
+    (forward-char)
+    )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))
     (if point
-       (goto-char point)
+       (progn
+         (goto-char point)
+         (if (null (get-text-property point 'mime-view-entity))
+             (mime-preview-move-to-next)
+           ))
       (let ((f (assq mime-preview-original-major-mode
                     mime-view-over-to-next-method-alist)))
        (if f

diff --git a/semi-def.el b/semi-def.el
index 2369ef5..dce3382 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -29,7 +29,7 @@
 (eval-when-compile (require 'cl))
 
 
-(defconst mime-module-version '("WEMI" "Tsujid\e,Dr\e(B" 1 4 1)
+(defconst mime-module-version '("WEMI" "Chigasaki" 1 4 2)
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"