[Emacs-diffs] /srv/bzr/emacs/trunk r102146: gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102146
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-10-29 07:13:33 +0000
message:
  gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-28 22:03:15 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-29 07:13:33 +0000
@@ -1,3 +1,7 @@
+2010-10-29  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.
+
 2010-10-28  Lars Magne Ingebrigtsen  <address@hidden>
 
        * gnus-sum.el (gnus-summary-rescan-group): Try to restore the window

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2010-10-28 06:37:35 +0000
+++ b/lisp/gnus/gnus-art.el     2010-10-29 07:13:33 +0000
@@ -5561,12 +5561,13 @@
 
 (defun gnus-article-goto-part (n)
   "Go to MIME part N."
+  (when gnus-break-pages
+    (widen))
   (let ((start (text-property-any (point-min) (point-max) 'gnus-part n))
        part handle end next handles)
     (when start
       (goto-char start)
-      (if (setq handle (get-text-property start 'gnus-data))
-         start
+      (unless (setq handle (get-text-property start 'gnus-data))
        ;; Go to the displayed subpart, assuming this is multipart/alternative.
        (setq part start
              end (point-at-eol))
@@ -5586,10 +5587,12 @@
          (setq part
                (cdr (assq (mm-preferred-alternative
                            (nreverse (mapcar 'car handles)))
-                          handles))))
-       (if part
-           (goto-char (1+ part))
-         start)))))
+                          handles)))))
+      (when gnus-break-pages
+       (gnus-narrow-to-page))
+      (if part
+         (goto-char (1+ part))
+       start))))
 
 (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
   (let ((gnus-tmp-name