gnus-art.el (gnus-article-view-part): Toggle subparts of multipart/alternative part

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db13bb4..20cb5f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-view-part):
+       Toggle subparts of multipart/alternative part.
+
 2012-06-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * shr.el (shr-render-buffer): New command.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b92c3b6..56c2a37 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5621,7 +5621,9 @@ all parts."
     (let ((handle (cdr (assq n gnus-article-mime-handle-alist))))
       (when (gnus-article-goto-part n)
        (if (equal (car handle) "multipart/alternative")
-           (gnus-article-press-button)
+           (progn
+             (beginning-of-line) ;; Make it toggle subparts
+             (gnus-article-press-button))
          (when (eq (gnus-mm-display-part handle) 'internal)
            (gnus-set-window-start)))))))