From f6b79c02c26ec6357bda3d838be9c59858244a38 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 24 Jan 2002 10:51:27 +0000 Subject: [PATCH] * 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. --- ChangeLog | 10 ++++++++++ lisp/gnus-clfns.el | 6 ++++-- lisp/gnus-sum.el | 17 +++++++++-------- 3 files changed, 23 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 862c087..06674d2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +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 + specified, bind `default-mime-charset' to it. + 2002-01-23 Katsumi Yamaoka * 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) -- 1.7.10.4