From 01baa1e6f227a87530f65b7e45049968a1afc12a Mon Sep 17 00:00:00 2001 From: Gnus developers Date: Sun, 20 Feb 2011 04:08:04 +0000 Subject: [PATCH] nnimap.el (nnimap-wait-for-response): Ensure that we get the entire line we're waiting for. gnus-art.el (gnus-article-next-page-1): Because customized mode-line face with line-width greater than zero will cause RET in gnus summary buffer to scroll down article page-wise because auto vscroll happens, it should be temporalily disabled when doing a scroll-up. --- lisp/gnus/ChangeLog | 12 ++++++++++++ lisp/gnus/gnus-art.el | 3 ++- lisp/gnus/nnimap.el | 2 +- 3 files changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 52c72ec8606..671b1b02603 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -7,6 +7,18 @@ * nnfolder.el (nnfolder-save-buffer): Don't let-bind copyright-update, in case it's not yet loaded. +2011-02-20 Lars Ingebrigtsen + + * nnimap.el (nnimap-wait-for-response): Ensure that we get the entire + line we're waiting for. + +2011-02-19 Darren Hoo (tiny change) + + * gnus-art.el (gnus-article-next-page-1): Because customized mode-line + face with line-width greater than zero will cause RET in gnus summary + buffer to scroll down article page-wise because auto vscroll happens, + it should be temporalily disabled when doing a scroll-up. + 2011-02-19 Lars Ingebrigtsen * nnimap.el (nnimap-parse-copied-articles): Allow for " OK" diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 533b0100ae5..19eee78ab17 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6322,7 +6322,8 @@ specifies." (defun gnus-article-next-page-1 (lines) (condition-case () - (let ((scroll-in-place nil)) + (let ((scroll-in-place nil) + (auto-window-vscroll nil)) (scroll-up lines)) (end-of-buffer ;; Long lines may cause an end-of-buffer error. diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 6b726b23756..83b8c416283 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -1641,7 +1641,7 @@ textual parts.") (progn (forward-line -1) (looking-at "\\*")))) - (not (looking-at (format "%d " sequence))))) + (not (looking-at (format "%d .*\n" sequence))))) (when messagep (nnheader-message 7 "nnimap read %dk" (/ (buffer-size) 1000))) (nnheader-accept-process-output process) -- 2.39.5