[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102146: gnus-art.el (gnus-article-go
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102146: gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L. |
Date: |
Fri, 29 Oct 2010 07:13:33 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102146: gnus-art.el (gnus-article-goto-part): Work for article narrowed by ^L.,
Katsumi Yamaoka <=