Append handles properly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a56109..ed37e3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-10-13 12:52:18  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-view.el (mm-inline-message): Fix leaving group bug.
+
 1999-10-07 17:59:49  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-post-method): Use normal method if current is

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 4d00c52..5b53685 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -185,7 +185,9 @@
          (setq handles gnus-article-mime-handles))
        (when handles
          (setq gnus-article-mime-handles
-               (append gnus-article-mime-handles handles)))
+               (nconc gnus-article-mime-handles 
+                      (if (listp (car handles)) 
+                          handles (list handles)))))
        (mm-handle-set-undisplayer
         handle
         `(lambda ()