* 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 (file)
--- 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 (file)
--- 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)