From 1724dda2899a43d0906a44ca05e6d0582f1173c7 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 8 Feb 1999 08:40:39 +0000 Subject: [PATCH] (mime-combine-message/partial-pieces-automatically): Call `mime-store-message/partial-piece' in the buffer when it is called. --- mime-partial.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mime-partial.el b/mime-partial.el index 14b3ff9..733f7f3 100644 --- a/mime-partial.el +++ b/mime-partial.el @@ -35,6 +35,7 @@ automatically." (let* ((id (cdr (assoc "id" situation))) (target (cdr (assq 'major-mode situation))) (subject-buf (eval (cdr (assq 'summary-buffer-exp situation)))) + (mother (current-buffer)) subject-id (root-dir (expand-file-name (concat "m-prts-" (user-login-name)) @@ -71,8 +72,7 @@ automatically." (situation (mime-entity-situation message)) (the-id (cdr (assoc "id" situation)))) (when (string= the-id id) - (save-excursion - (set-buffer (mime-entity-buffer message)) + (with-current-buffer mother (mime-store-message/partial-piece message situation) ) (if (file-exists-p full-file) -- 1.7.10.4