EMY 1.13.3

[Yoshiki Hayashi]

ari ＠ atesoft.advantest.co.jp (Akihiro Arisawa) writes:

> > EMY 1.13.3 を release しました。
> > mime-preview-toggle-header, mime-preview-toggle-content の実
> > 装と、mime-preview-follow-current-entity の bug fix です。
> 
> FSF Emacs では、buffer-substring(-no-properties) は第3引数が無いので
> エラーとなってしまいます。

ありがとうございます。修正して commit しました。
message/rfc822 の part に follow しようとすると、Subject 等
が狂うのを発見しましたので、次の版の release はそれを fix し
てからにしようと思います。
# うーん。FSF Emacs 20.5 の方に APEL すら入っていないのは問
# 題のような気もする。

ここ2回ほど1週間に一回の pace で release しているので、次も
その pace で行こうというような気になっていますので、CVS を使
えない環境にいる人用に patch です。
# そんなに user はいないので大丈夫だとも思うけど。:-)

-------------- next part --------------
Index: mime-view.el
===================================================================
RCS file: /cvs/root/semi/mime-view.el,v
retrieving revision 1.149.2.20.4.9
retrieving revision 1.149.2.20.4.10
diff -u -u -r1.149.2.20.4.9 -r1.149.2.20.4.10
--- mime-view.el	2000/02/13 07:42:56	1.149.2.20.4.9
+++ mime-view.el	2000/02/15 04:02:39	1.149.2.20.4.10
@@ -1517,8 +1517,13 @@
 	(erase-buffer)
 	(unless header-exists
 	  (insert ?\n))
-	(insert (buffer-substring-no-properties (car position)
-						(cdr position) the-buf))
+	;; Compatibility kludge.
+	;; FSF Emacs can only take substring of current-buffer.
+	(insert
+	 (save-excursion
+	   (set-buffer the-buf)
+	   (buffer-substring-no-properties (car position)
+					   (cdr position))))
 	(goto-char (point-min))
 	(let ((current-entity
 	       (if (and (eq (mime-entity-media-type entity) 'message)
-------------- next part --------------

-- 
Yoshiki Hayashi