* gnus-clfns.el (find-cl-run-time-functions): Insert a newline before filling

 a result; ignore non-list forms.

diff --git a/ChangeLog b/ChangeLog
index 35e329b..e919c2c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
+2002-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-clfns.el (find-cl-run-time-functions): Insert a
+       newline before filling a result; ignore non-list forms.
+
 2002-01-24  ARISAWA Akihiro  <ari@atesoft.advantest.co.jp>
 
-       * lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is 
+       * lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is
        specified, bind `default-mime-charset' to it.
 
 2002-01-23  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el
index 60b35c8..191db6d 100644 (file)
--- a/lisp/gnus-clfns.el
+++ b/lisp/gnus-clfns.el
@@ -370,7 +370,8 @@ You can use the `digit-argument' 1, 2 or 3 instead of\
                      ((and (memq fn clfns)
                            (listp form))
                       (push fn fns)))
-               (setq forms (append form forms))))
+               (when (listp form)
+                 (setq forms (append form forms)))))
            (when fns
              (if buffer
                  (set-buffer buffer)
@@ -392,7 +393,8 @@ You can use the `digit-argument' 1, 2 or 3 instead of\
               (progn
                 (insert fill-prefix
                         (mapconcat (lambda (fn) (format "%s" fn))
-                                   (nreverse fns) " "))
+                                   (nreverse fns) " ")
+                        "\n")
                 (point)))
              (fill-region (point-min) (point-max))
              (goto-char (point-min))