From: yamaoka <yamaoka>
Date: Thu, 24 Jan 2002 10:51:27 +0000 (+0000)
Subject: * gnus-clfns.el (find-cl-run-time-functions): Insert a newline before filling
X-Git-Tag: t-gnus-6_15_6-00~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f6b79c02c26ec6357bda3d838be9c59858244a38;p=elisp%2Fgnus.git-

* gnus-clfns.el (find-cl-run-time-functions): Insert a newline before filling
 a result; ignore non-list forms.

* gnus-sum.el (gnus-summary-show-article): If coding-system is specified, bind
 `default-mime-charset' to it.
---

diff --git a/ChangeLog b/ChangeLog
index 862c087..06674d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+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
+	specified, bind `default-mime-charset' to it.
+
 2002-01-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/message.el: Require `base64' before `canlock-om' to avoid
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))
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 05f181f..204bb50 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8200,14 +8200,15 @@ are `C-u g'."
   (cond
    ((numberp arg)
     (gnus-summary-show-article t)
-    (let ((gnus-newsgroup-charset
-	   (or (cdr (assq arg gnus-summary-show-article-charset-alist))
-	       (mm-read-coding-system
-		"View as charset: " ;; actually it is coding system.
-		(save-excursion
-		  (set-buffer gnus-article-buffer)
-		  (mm-detect-coding-region (point) (point-max))))))
-	  (gnus-newsgroup-ignored-charsets 'gnus-all))
+    (let* ((gnus-newsgroup-charset
+	    (or (cdr (assq arg gnus-summary-show-article-charset-alist))
+		(mm-read-coding-system
+		 "View as charset: " ;; actually it is coding system.
+		 (save-excursion
+		   (set-buffer gnus-article-buffer)
+		   (mm-detect-coding-region (point) (point-max))))))
+	   (default-mime-charset gnus-newsgroup-charset)
+	   (gnus-newsgroup-ignored-charsets 'gnus-all))
       (gnus-summary-select-article nil 'force)
       (let ((deps gnus-newsgroup-dependencies)
 	    head header lines)