From: kaoru <kaoru>
Date: Wed, 15 Jan 2003 19:43:32 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-fetch-read): Abolish alias.
X-Git-Tag: wl-2_10_1pre~53
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=28a4c5ae0412868c89802284e830979468deddc1;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-fetch-read): Abolish alias.
(elmo-imap4-replace-dot-symbols): Abolish noop macro.
(elmo-imap4-parse-fetch): Use `read' instead of
`elmo-imap4-fetch-read'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index be2e7d1..b00e621 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* elmo-imap4.el (elmo-imap4-fetch-read): Abolish alias.
+	(elmo-imap4-replace-dot-symbols): Abolish noop macro.
+	(elmo-imap4-parse-fetch): Use `read' instead of
+	`elmo-imap4-fetch-read'.
+
 2003-01-10  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* elmo-imap4.el (toplevel): Ignore Nemacs.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index cad55eb..9d73f6d 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -731,8 +731,6 @@ Returns response value if selecting folder succeed. "
 (defvar elmo-imap4-rfc822-text "RFC822\.TEXT")
 (defvar elmo-imap4-rfc822-header "RFC822\.HEADER")
 (defvar elmo-imap4-header-fields "HEADER\.FIELDS")
-(defmacro elmo-imap4-replace-dot-symbols ()) ;; noop
-(defalias 'elmo-imap4-fetch-read 'read)
 
 (defun elmo-imap4-make-number-set-list (msg-list &optional chop-length)
   "Make RFC2060's message set specifier from MSG-LIST.
@@ -1458,7 +1456,7 @@ Return nil if no complete line has arrived."
     (let (element list)
       (while (not (eq (char-after (point)) ?\)))
 	(elmo-imap4-forward)
-	(let ((token (elmo-imap4-fetch-read (current-buffer))))
+	(let ((token (read (current-buffer))))
 	  (elmo-imap4-forward)
 	  (setq element
 		(cond ((eq token 'UID)