From: yamaoka <yamaoka>
Date: Thu, 9 Jan 2003 03:54:38 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_12-00-quimby~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3450eadda082a987e77ba67fb998eb0e8a40d6e9;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6218e07..cb1754a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-09  Jesper Harder  <harder@ifa.au.dk>
+
+	* mml.el (mml-preview): Get rid of MIME handles and buffers after
+	previewing.
+
 2003-01-08  Paul Jarc  <prj@po.cwru.edu>
 
 	* nnmaildir.el (nnmaildir--grp-add-art): Fix wrong-type-argument
diff --git a/lisp/mml.el b/lisp/mml.el
index ff3f98e..1018f39 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1068,6 +1068,10 @@ If RAW, don't highlight the article."
 	    (gnus-article-prepare-display))))
       ;; Disable article-mode-map.
       (use-local-map nil)
+      (make-local-hook 'kill-buffer-hook)
+      (add-hook 'kill-buffer-hook
+		(lambda ()
+		  (mm-destroy-parts gnus-article-mime-handles)) nil t)
       (setq buffer-read-only t)
       (local-set-key "q" (lambda () (interactive) (kill-buffer nil)))
       (goto-char (point-min)))))