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

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d608029e618..58a3b879361 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-sync.el: Simply require json.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index b92c3b6435f..56c2a37c2aa 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/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)))))))