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

…ternative part
suhailshergill · Jul 3, 2012 · fa65178 · fa65178
1 parent 449231a
commit fa65178
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git 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
@@ -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)))))))