Commit 9efcd224 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.

parent 4f4f2973
2010-10-29 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.
2010-10-28 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* gnus-sum.el (gnus-summary-rescan-group): Try to restore the window
......
......@@ -5561,12 +5561,13 @@ all parts."
(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 @@ all parts."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment