projects
/
elisp
/
tm.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
503573e
)
tm 7.103.2.
author
morioka
<morioka>
Tue, 10 Mar 1998 13:10:18 +0000
(13:10 +0000)
committer
morioka
<morioka>
Tue, 10 Mar 1998 13:10:18 +0000
(13:10 +0000)
ChangeLog
patch
|
blob
|
history
Makefile
patch
|
blob
|
history
tm-play.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
0152aee
..
a9214f7
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,13
@@
+1997-02-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm: Version 7.103.2 was released.
+ * tm-vm: Version 8.5 was released.
+
+Tue Feb 4 11:04:07 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-play.el (mime-article/decode-message/partial): fixed.
+
+
\f
1997-02-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* MU: Version 0.39.3 was released.
1997-02-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* MU: Version 0.39.3 was released.
diff --git
a/Makefile
b/Makefile
index
f8cc96d
..
dc63754
100644
(file)
--- a/
Makefile
+++ b/
Makefile
@@
-2,7
+2,7
@@
# $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $
#
# $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $
#
-VERSION = 7.103.1
+VERSION = 7.103.2
SHELL = /bin/sh
MAKE = make
SHELL = /bin/sh
MAKE = make
diff --git
a/tm-play.el
b/tm-play.el
index
d901e00
..
dc85793
100644
(file)
--- a/
tm-play.el
+++ b/
tm-play.el
@@
-4,7
+4,7
@@
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
-;; Version: $Id: tm-play.el,v 7.39 1997/02/01 17:54:51 morioka Exp $
+;; Version: $Id: tm-play.el,v 7.40 1997/02/04 11:04:07 morioka Exp $
;; Keywords: mail, news, MIME, multimedia
;; This file is part of tm (Tools for MIME).
;; Keywords: mail, news, MIME, multimedia
;; This file is part of tm (Tools for MIME).
@@
-355,10
+355,11
@@
(progn
(or (file-exists-p total-file)
(save-excursion
(progn
(or (file-exists-p total-file)
(save-excursion
- (set-buffer (find-file-noselect total-file))
+ (set-buffer
+ (get-buffer-create mime/temp-buffer-name))
(erase-buffer)
(insert total)
(erase-buffer)
(insert total)
- (save-buffer)
+ (write-file total-file)
(kill-buffer (current-buffer))
))
(string-to-number total)
(kill-buffer (current-buffer))
))
(string-to-number total)
@@
-366,13
+367,14
@@
(and (file-exists-p total-file)
(save-excursion
(set-buffer (find-file-noselect total-file))
(and (file-exists-p total-file)
(save-excursion
(set-buffer (find-file-noselect total-file))
- (and (re-search-forward "[0-9]+" nil t)
- (string-to-number
- (buffer-substring (match-beginning 0)
- (match-end 0)))
- )
- (kill-buffer (current-buffer))
- ))
+ (prog1
+ (and (re-search-forward "[0-9]+" nil t)
+ (string-to-number
+ (buffer-substring (match-beginning 0)
+ (match-end 0)))
+ )
+ (kill-buffer (current-buffer))
+ )))
)))
(if (and total (> total 0))
(catch 'tag
)))
(if (and total (> total 0))
(catch 'tag
@@
-383,9
+385,9
@@
(let ((i 1))
(while (<= i total)
(setq file (concat root-dir "/" (int-to-string i)))
(let ((i 1))
(while (<= i total)
(setq file (concat root-dir "/" (int-to-string i)))
- (if (not (file-exists-p file))
+ (or (file-exists-p file)
(throw 'tag nil)
(throw 'tag nil)
- )
+ )
(as-binary-input-file (insert-file-contents file))
(goto-char (point-max))
(setq i (1+ i))
(as-binary-input-file (insert-file-contents file))
(goto-char (point-max))
(setq i (1+ i))