From: yamaoka <yamaoka>
Date: Tue, 31 Jul 2001 00:08:42 +0000 (+0000)
Subject: * mml2015.el: Require `gnus-clfns' when compiling.
X-Git-Tag: t-gnus-6_15_4-06-quimby~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d36c88ea61b26c5fbe9f511266bcfdde52b7b838;p=elisp%2Fgnus.git-

* mml2015.el: Require `gnus-clfns' when compiling.
* gnus-clfns.el (string-to-list): New compiler macro.
---

diff --git a/ChangeLog b/ChangeLog
index 31314ec..664c058 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/mml2015.el: Require `gnus-clfns' when compiling.
+	* lisp/gnus-clfns.el (string-to-list): New compiler macro.
+
 2001-07-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-sum.el (gnus-select-newsgroup): Don't examine cached
diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el
index a855553..123b9b1 100644
--- a/lisp/gnus-clfns.el
+++ b/lisp/gnus-clfns.el
@@ -135,6 +135,33 @@
     "Concatenate all the argument characters and make the result a string."
     (concat args))
 
+  (define-compiler-macro string-to-list (&whole form string)
+    (cond ((fboundp 'string-to-list)
+	   form)
+	  ((fboundp 'string-to-char-list)
+	   (list 'string-to-char-list string))
+	  (t
+	   `(let* ((str ,string)
+		   (len (length str))
+		   (idx 0)
+		   c l)
+	      (while (< idx len)
+		(setq c (sref str idx))
+		(setq idx (+ idx (char-bytes c)))
+		(setq l (cons c l)))
+	      (nreverse l)))))
+
+  ;; 92.7.2 by K.Handa (imported from Mule 2.3)
+  (defun-maybe string-to-list (str)
+    (let ((len (length str))
+	  (idx 0)
+	  c l)
+      (while (< idx len)
+	(setq c (sref str idx))
+	(setq idx (+ idx (char-bytes c)))
+	(setq l (cons c l)))
+      (nreverse l)))
+
   (define-compiler-macro subseq (&whole form seq start &optional end)
     (if (and (fboundp 'subseq)
 	     (subrp (symbol-function 'subseq)))
diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index d183432..b9b5255 100644
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -26,6 +26,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
+(eval-when-compile (require 'gnus-clfns))
 (require 'mm-decode)
 
 (defvar mml2015-use (or