Mercurial > hg > xemacs-beta

diff lisp/gnus/message.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents d620409f5eb8
children 8b8b7f3559a2
line wrap: on
line diff
--- a/lisp/gnus/message.el	Mon Aug 13 08:53:41 2007 +0200
+++ b/lisp/gnus/message.el	Mon Aug 13 08:54:01 2007 +0200
@@ -3007,6 +3007,9 @@
 	      (insert (if (bolp) "" ", ") (or to ""))
 	      (insert (if mct (concat (if (bolp) "" ", ") mct) ""))
 	      (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
+	      (goto-char (point-min))
+	      (while (re-search-forward "[ \t]+" nil t)
+		(replace-match " " t t))
 	      ;; Remove addresses that match `rmail-dont-reply-to-names'.
 	      (insert (prog1 (rmail-dont-reply-to (buffer-string))
 			(erase-buffer)))