Tell about server setup.

[gnus] / lisp / gnus-spec.el

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 40a63f8..1c5fa47 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -1,7 +1,7 @@
 ;;; gnus-spec.el --- format spec functions for Gnus
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -41,7 +41,7 @@
 
 (defcustom gnus-make-format-preserve-properties (featurep 'xemacs)
   "*If non-nil, use a replacement `format' function which preserves
-text properties. This is only needed on XEmacs, as FSF Emacs does this anyway."
+text properties. This is only needed on XEmacs, as Emacs does this anyway."
   :version "22.1"
   :group 'gnus-format
   :type 'boolean)
@@ -709,15 +709,7 @@ are supported for %s."
        (when result
          (if dontinsert
              result
-           `(progn
-              (insert ,@result)
-              (if (bolp)
-                  ;; remove trailing whitespaces from the line
-                  (progn
-                    (end-of-line 0)
-                    (skip-chars-backward " ")
-                    (delete-region (point) (point-at-eol))
-                    (forward-line 1))))))
+           (cons 'insert result)))
       (cond ((stringp result)
             result)
            ((consp result)