From: yamaoka <yamaoka>
Date: Fri, 2 Mar 2001 10:13:17 +0000 (+0000)
Subject: * nnshimbun.el (nnshimbun-kinsoku-eol-list): Simplified.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=01c55c3388e9d6d6d049c58fc73d81b75af9971b;p=elisp%2Fgnus.git-

* nnshimbun.el (nnshimbun-kinsoku-eol-list): Simplified.
(nnshimbun-kinsoku-bol-list): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 3e62c7a..f6e36b2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-02  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/nnshimbun.el (nnshimbun-kinsoku-eol-list): Simplified.
+	(nnshimbun-kinsoku-bol-list): Ditto.
+
 2001-03-01  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 04.
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index dfb6939..893bdfa 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -767,19 +767,12 @@ is enclosed by at least one regexp grouping construct."
 (defvar nnshimbun-fill-column (min 80 (- (frame-width) 4)))
 
 (defconst nnshimbun-kinsoku-bol-list
-  (funcall
-   (if (fboundp 'string-to-char-list)
-       'string-to-char-list
-     'string-to-list) "\
-!)-_~}]:;',.?、。，．・：；？！゛゜´｀¨＾￣＿ヽヾゝゞ〃仝々〆〇ー―‐／＼〜\
-‖｜…‥’”）〕］｝〉》」』】°′″℃ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮヵヶ"))
+  (append "!)-_~}]:;',.?、。，．・：；？！゛゜´｀¨＾￣＿ヽヾゝゞ〃\
+仝々〆〇ー―‐／＼〜‖｜…‥’”）〕］｝〉》」』】°′″℃ぁぃぅぇぉ\
+っゃゅょゎァィゥェォッャュョヮヵヶ" nil))
 
 (defconst nnshimbun-kinsoku-eol-list
-  (funcall
-   (if (fboundp 'string-to-char-list)
-       'string-to-char-list
-     'string-to-list)
-   "({[`‘“（〔［｛〈《「『【°′″§"))
+  (append "({[`‘“（〔［｛〈《「『【°′″§" nil))
 
 (defun nnshimbun-fill-line ()
   (forward-line 0)