From 4969b0098aef1947b3bf6f5a78a166efe50c0f74 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 18 Mar 1997 13:56:18 +0000 Subject: [PATCH] (mime-combine-message/partials-automatically): Don't use preview-content-list. --- mime-partial.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/mime-partial.el b/mime-partial.el index 522211a..a6736ea 100644 --- a/mime-partial.el +++ b/mime-partial.el @@ -5,7 +5,7 @@ ;; Author: OKABE Yasuo @ Kyoto University ;; MORIOKA Tomohiko ;; Version: -;; $Id: mime-partial.el,v 0.7 1997-03-18 12:59:09 morioka Exp $ +;; $Id: mime-partial.el,v 0.8 1997-03-18 13:56:18 morioka Exp $ ;; Keywords: message/partial, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -68,7 +68,7 @@ partial messages using mime-view." (not (y-or-n-p "Merge partials?")) ) (mime-article/decode-message/partial beg end cal) - (let (cinfo the-id parameters) + (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,15 +80,11 @@ 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::content-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 (point-min)(point-max) parameters) (if (file-exists-p full-file) -- 1.7.10.4