From 28a4c5ae0412868c89802284e830979468deddc1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 15 Jan 2003 19:43:32 +0000 Subject: [PATCH 1/1] * 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'. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-imap4.el | 4 +--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4