Require file-detect.

[elisp/semi.git] / mime-partial.el

diff --git a/mime-partial.el b/mime-partial.el
index 7e2623a..6c3dbcb 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -5,7 +5,7 @@
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;     $Id: mime-partial.el,v 0.1 1997-02-21 05:29:13 tmorioka Exp $ 
+;;     $Id: mime-partial.el,v 0.3 1997-03-07 16:40:29 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -50,7 +50,7 @@
         (subject-buf (eval (cdr (assq 'summary-buffer-exp cal))))
         subject-id
         (root-dir (expand-file-name
-                   (concat "m-prts-" (user-login-name)) mime/tmp-dir))
+                   (concat "m-prts-" (user-login-name)) mime-temp-directory))
         full-file)
     (setq root-dir (concat root-dir "/" (replace-as-filename id)))
     (setq full-file (concat root-dir "/FULL"))
@@ -81,7 +81,7 @@
                    (mime::preview-content-info/content-info
                     (car mime::preview/content-list)))
              (setq parameters (mime::content-info/parameters cinfo))
-             (setq the-id (assoc-value "id" parameters))
+             (setq the-id (cdr (assoc "id" parameters)))
              (if (equal the-id id)
                  (progn
                    (set-buffer article-buffer)