From: Katsumi Yamaoka Date: Tue, 3 Jul 2012 00:25:57 +0000 (+0000) Subject: gnus-art.el (gnus-article-view-part): Toggle subparts of multipart/alternative part X-Git-Tag: emacs-24.2.90~1199^2~253 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71f56da2684465d2dc05b2cc780184d95b291dc1;p=emacs.git gnus-art.el (gnus-article-view-part): Toggle subparts of multipart/alternative part --- 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)))))))