From 084748d587af010bfda3e5f8513c0bd7f8607950 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 24 Jan 2002 10:51:44 +0000 Subject: [PATCH] * gnus-clfns.el (find-cl-run-time-functions): Insert a newline before filling a result; ignore non-list forms. --- ChangeLog | 7 ++++++- lisp/gnus-clfns.el | 6 ++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 35e329b..e919c2c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,11 @@ +2002-01-24 Katsumi Yamaoka + + * 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 - * 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 diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el index 60b35c8..191db6d 100644 --- 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)) -- 1.7.10.4