From e4a89ccf738861d7b9c4f611185aa0f204c9c208 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 17 Apr 2006 08:36:28 +0000 Subject: [PATCH] Revision: emacs@sv.gnu.org/emacs--devo--0--patch-225 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 84-85) - Merge from emacs--devo--0 - Update from CVS --- lisp/gnus/ChangeLog | 10 ++++++++++ lisp/gnus/flow-fill.el | 2 +- lisp/gnus/gnus-art.el | 1 + 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4a17525cac0..991d91a1112 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,13 @@ +2006-04-12 Ralf Angeli + + * flow-fill.el (fill-flowed): Remove trailing space from blank + quoted lines. + +2006-04-12 Reiner Steib + + * gnus-art.el (gnus-article-mode): Set + cursor-in-non-selected-windows to nil. + 2006-04-12 Katsumi Yamaoka * gnus-art.el (gnus-mime-view-part-as-charset): Ignore charset diff --git a/lisp/gnus/flow-fill.el b/lisp/gnus/flow-fill.el index 98697439106..b47e9ba8365 100644 --- a/lisp/gnus/flow-fill.el +++ b/lisp/gnus/flow-fill.el @@ -114,7 +114,7 @@ RFC 2646 suggests 66 characters for readability." (set-buffer (or (current-buffer) buffer)) (goto-char (point-min)) ;; Remove space stuffing. - (while (re-search-forward "^ " nil t) + (while (re-search-forward "^\\( \\|>+ $\\)" nil t) (delete-char -1) (forward-line 1)) (goto-char (point-min)) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index a4da4ae85f3..7e3b843d500 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -3809,6 +3809,7 @@ commands: (make-local-variable 'gnus-article-ignored-charsets) ;; Prevent recent Emacsen from displaying non-break space as "\ ". (set (make-local-variable 'nobreak-char-display) nil) + (setq cursor-in-non-selected-windows nil) (gnus-set-default-directory) (buffer-disable-undo) (setq buffer-read-only t) -- 2.39.2