projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-edit-x-emacs-value): Don't add mule-version if
[elisp/semi.git]
/
mime-partial.el
diff --git
a/mime-partial.el
b/mime-partial.el
index
522211a
..
6f6428b
100644
(file)
--- a/
mime-partial.el
+++ b/
mime-partial.el
@@
-4,8
+4,7
@@
;; Author: OKABE Yasuo @ Kyoto University
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Author: OKABE Yasuo @ Kyoto University
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version:
-;; $Id: mime-partial.el,v 0.7 1997-03-18 12:59:09 morioka Exp $
+;; Version: $Id: mime-partial.el,v 0.10 1997-09-05 11:29:06 morioka Exp $
;; Keywords: message/partial, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: message/partial, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@
-67,8
+66,8
@@
partial messages using mime-view."
(if (or (file-exists-p full-file)
(not (y-or-n-p "Merge partials?"))
)
(if (or (file-exists-p full-file)
(not (y-or-n-p "Merge partials?"))
)
- (mime-article/decode-message/partial beg end cal)
- (let (cinfo the-id parameters)
+ (mime-display-message/partial beg end cal)
+ (let (the-id parameters)
(setq subject-id (std11-field-body "Subject"))
(if (string-match "[0-9\n]+" subject-id)
(setq subject-id (substring subject-id 0 (match-beginning 0)))
(setq subject-id (std11-field-body "Subject"))
(if (string-match "[0-9\n]+" subject-id)
(setq subject-id (substring subject-id 0 (match-beginning 0)))
@@
-80,16
+79,12
@@
partial messages using mime-view."
(while t
(mime-view-partial-message target)
(set-buffer article-buffer)
(while t
(mime-view-partial-message target)
(set-buffer article-buffer)
- (set-buffer mime::article/preview-buffer)
- (setq cinfo
- (mime::preview-content-info/content-info
- (car mime::preview/content-list)))
- (setq parameters (mime::content-info/parameters cinfo))
+ (setq parameters
+ (mime-entity-info-parameters mime::article/content-info))
(setq the-id (cdr (assoc "id" parameters)))
(setq the-id (cdr (assoc "id" parameters)))
- (if (equal the-id id)
+ (if (string= the-id id)
(progn
(progn
- (set-buffer article-buffer)
- (mime-article/decode-message/partial
+ (mime-display-message/partial
(point-min)(point-max) parameters)
(if (file-exists-p full-file)
(throw 'tag nil)
(point-min)(point-max) parameters)
(if (file-exists-p full-file)
(throw 'tag nil)