Clean mime-handle-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2daee9..f72dab1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-09-14 11:31:28  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-article-setup-buffer): Clean handle-alist.
+       * gnus-sum.el (gnus-summary-exit): Ditto.
+       (gnus-summary-exit-no-update): Ditto.
+       (gnus-summary-show-article): Ditto.
+
 2000-09-14 08:42:48  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nndoc.el (nndoc-dissect-mime-parts-sub): Remove

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index aca0d72..c552c96 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2655,6 +2655,8 @@ commands:
          (when gnus-article-mime-handles
            (mm-destroy-parts gnus-article-mime-handles)
            (setq gnus-article-mime-handles nil))
+         ;; Set it to nil in article-buffer!
+         (setq gnus-article-mime-handle-alist nil) 
          (buffer-disable-undo)
          (setq buffer-read-only t)
          (unless (eq major-mode 'gnus-article-mode)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 174914b..52d93cb 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5389,6 +5389,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
     (save-excursion
       (set-buffer gnus-article-buffer)
       (mm-destroy-parts gnus-article-mime-handles)
+      ;; Set it to nil for safety reason.
+      (setq gnus-article-mime-handle-alist nil)
       (setq gnus-article-mime-handles nil)))
   (gnus-kill-save-kill-buffer)
   (gnus-async-halt-prefetch)
@@ -5488,6 +5490,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (save-excursion
          (set-buffer gnus-article-buffer)
          (mm-destroy-parts gnus-article-mime-handles)
+         ;; Set it to nil for safety reason.
+         (setq gnus-article-mime-handle-alist nil)
          (setq gnus-article-mime-handles nil)))
       ;; If we have several article buffers, we kill them at exit.
       (unless gnus-single-article-buffer
@@ -7252,6 +7256,8 @@ without any article massaging functions being run."
        (save-excursion
          (set-buffer gnus-article-buffer)
          (mm-destroy-parts gnus-article-mime-handles)
+         ;; Set it to nil for safety reason.
+         (setq gnus-article-mime-handle-alist nil)
          (setq gnus-article-mime-handles nil)))
       (gnus-summary-select-article nil 'force))))
   (gnus-summary-goto-subject gnus-current-article)