From 71f56da2684465d2dc05b2cc780184d95b291dc1 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 3 Jul 2012 00:25:57 +0000 Subject: [PATCH] gnus-art.el (gnus-article-view-part): Toggle subparts of multipart/alternative part --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-art.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * gnus-art.el (gnus-article-view-part): + Toggle subparts of multipart/alternative part. + 2012-07-02 Katsumi Yamaoka * 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))))))) -- 2.39.2