(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>
-;; 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).
@@ -67,8 +66,8 @@ partial messages using mime-view."
     (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)))
@@ -80,16 +79,12 @@ partial messages using mime-view."
            (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)))
-             (if (equal the-id id)
+             (if (string= the-id id)
                  (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)