[Emacs-diffs] /srv/bzr/emacs/trunk r108834: gnus-art.el (gnus-article-view-part): Toggle subparts of multipart/alternative part

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 108834
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-07-03 00:25:57 +0000
message:
  gnus-art.el (gnus-article-view-part): Toggle subparts of 
multipart/alternative part
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-07-02 00:48:41 +0000
+++ b/lisp/gnus/ChangeLog       2012-07-03 00:25:57 +0000
@@ -1,3 +1,8 @@
+2012-07-03  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-art.el (gnus-article-view-part):
+       Toggle subparts of multipart/alternative part.
+
 2012-07-02  Katsumi Yamaoka  <address@hidden>
 
        * gnus-sync.el: Simply require json.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2012-06-26 22:52:31 +0000
+++ b/lisp/gnus/gnus-art.el     2012-07-03 00:25:57 +0000
@@ -5621,7 +5621,9 @@
     (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)))))))