From 1b309649b395b738f788f070ca8e483b71d56af6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 30 Dec 2000 19:41:49 +0000 Subject: [PATCH] * gnus-cite.el (gnus-article-fill-cited-article): Don't add space to empty fill prefixes. --- lisp/ChangeLog | 5 +++++ lisp/gnus-cite.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4cbf2883b..f61c3447c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-12-30 00:17:38 Lars Magne Ingebrigtsen + + * gnus-cite.el (gnus-article-fill-cited-article): Don't add space + to empty fill prefixes. + 2000-12-30 10:00:00 ShengHuo ZHU * nntp.el (nntp-open-connection): Kill pbuffer if process is nil. diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index e3e9c57eb..73c4befc8 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -439,7 +439,9 @@ If WIDTH (the numerical prefix), use that text width when filling." (narrow-to-region (caar marks) (caadr marks)) (let ((adaptive-fill-regexp (concat "^" (regexp-quote (cdar marks)) " *")) - (fill-prefix (concat (cdar marks) " "))) + (fill-prefix + (if (string= (cdar marks) "") "" + (concat (cdar marks) " ")))) (fill-region (point-min) (point-max))) (set-marker (caar marks) nil) (setq marks (cdr marks))) -- 2.34.1