From: morioka <morioka>
Date: Thu, 7 May 1998 13:43:43 +0000 (+0000)
Subject: Sync up with semi-1_4_1_9.
X-Git-Tag: wemi-1_4_2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1838252ff121ea3ccd7cf0f6cad68ac11660ae86;p=elisp%2Fsemi.git

Sync up with semi-1_4_1_9.
---

diff --git a/ChangeLog b/ChangeLog
index 5250d1e..497837c 100644
--- 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.
+
+
 1998-05-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* WEMI: Version 1.4.1 (Tsujid-Dò) was released.-A
diff --git a/TODO b/TODO
index d048726..85171d1 100644
--- a/TODO
+++ b/TODO
@@ -14,3 +14,14 @@
 ** WYSIWYG editing support
 
 ** Use MIME-Preview like tag and display
+
+** Check available MIME-charset
+
+    MIME-charset $B0J30$,@8@.$5$l$k>l9g$N=hM}$r;XDj$G$-$k$h$&$K$9$k!#(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
--- 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
--- a/semi-def.el
+++ b/semi-def.el
@@ -29,7 +29,7 @@
 (eval-when-compile (require 'cl))
 
 
-(defconst mime-module-version '("WEMI" "Tsujid,Dr(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"