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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d608029e618de424c5fbd3ecac334aa3a4135f54..58a3b879361df46c4773e1fb7c5cc2541901fb55 100644 (file)
--- 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 b92c3b6435f390a2017144aa81a7f6d0281ce8c5..56c2a37c2aa1242c8e534a87a2eb6c49d15337a4 100644 (file)
--- 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)))))))