From e4a0f843e28a6146739cf8bd8c768b4abb8f3c98 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 27 Oct 2007 09:09:14 +0000 Subject: [PATCH] Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 261-262) - Update from CVS 2007-10-23 Katsumi Yamaoka * lisp/gnus/gnus.el (gnus-server-to-method): Return method found first in gnus-newsrc-alist. 2007-10-20 Reiner Steib * lisp/gnus/html2text.el (html2text-fix-paragraph): Use `forward-line' instead of `next-line'. Revision: emacs@sv.gnu.org/emacs--rel--22--patch-137 --- lisp/gnus/ChangeLog | 10 ++++++++++ lisp/gnus/gnus.el | 35 +++++++++++++++++------------------ lisp/gnus/html2text.el | 2 +- 3 files changed, 28 insertions(+), 19 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 38ef3175a92..88cc5e07d39 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,16 @@ * gnus-group.el (gnus-group-highlight): Mark as risky. +2007-10-23 Katsumi Yamaoka + + * gnus.el (gnus-server-to-method): Return method found first in + gnus-newsrc-alist. + +2007-10-20 Reiner Steib + + * html2text.el (html2text-fix-paragraph): Use `forward-line' instead of + `next-line'. + 2007-10-18 Katsumi Yamaoka * nnmail.el (nnmail-fancy-expiry-target): Use rmail-dont-reply-to to diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 0e8e9908cf4..6fe8b1c3cbe 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -3512,24 +3512,23 @@ that that variable is buffer-local to the summary buffers." (cadar servers))))) (pop servers)) (car servers)) - ;; This could be some sort of foreign server that I - ;; simply haven't opened (yet). Do a brute-force scan - ;; of the entire gnus-newsrc-alist for the server name - ;; of every method. As a side-effect, loads the - ;; gnus-server-method-cache so this only happens once, - ;; if at all. - (let (match) - (mapcar - (lambda (info) - (let ((info-method (gnus-info-method info))) - (unless (stringp info-method) - (let ((info-server (gnus-method-to-server info-method))) - (when (equal server info-server) - (setq match info-method)))))) - (cdr gnus-newsrc-alist)) - match)))) - (when result - (push (cons server result) gnus-server-method-cache)) + ;; This could be some sort of foreign server that I + ;; simply haven't opened (yet). Do a brute-force scan + ;; of the entire gnus-newsrc-alist for the server name + ;; of every method. As a side-effect, loads the + ;; gnus-server-method-cache so this only happens once, + ;; if at all. + (let ((alist (cdr gnus-newsrc-alist)) + method match) + (while alist + (setq method (gnus-info-method (pop alist))) + (when (and (not (stringp method)) + (equal server (gnus-method-to-server method))) + (setq match method + alist nil))) + match)))) + (when result + (push (cons server result) gnus-server-method-cache)) result))) (defsubst gnus-server-get-method (group method) diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el index 4baf491d47b..9f0916f797b 100644 --- a/lisp/gnus/html2text.el +++ b/lisp/gnus/html2text.el @@ -352,7 +352,7 @@ formatting, and then moved afterward.") (setq refill-start (point)) (goto-char p2) (re-search-backward ".+[^<][^b][^r][^>]$" refill-start t) - (next-line 1) + (forward-line 1) (end-of-line) ;; refill-stop should ideally be adjusted to ;; accomodate the "
" strings which are removed -- 2.11.4.GIT