From 0eec90ca8e900de7275b7a7b3617ebe1d3ca2794 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 18 Jul 2005 11:33:56 +0000 Subject: [PATCH] (elmo-net-quote-chars): Abolish. (elmo-net-format-quoted): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-net.el | 8 -------- 2 files changed, 5 insertions(+), 8 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 3361380..9c1d4d9 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-07-18 Hiroya Murata + + * elmo-net.el (elmo-net-quote-chars): Abolish. + (elmo-net-format-quoted): Ditto. + 2005-06-12 Hiroya Murata * elmo.el (elmo-get-folder-function): New variable. diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el index 630bf46..1dcb4f7 100644 --- a/elmo/elmo-net.el +++ b/elmo/elmo-net.el @@ -314,14 +314,6 @@ Returned value is searched from `elmo-network-stream-type-alist'." (setq alist (cdr alist))) spec)) -(defconst elmo-net-quote-chars "@:!") - -(defun elmo-net-format-quoted (string &optional extra-chars) - (if (string-match (concat "[" elmo-net-quote-chars extra-chars "]") - string) - (elmo-quoted-token string) - string)) - (defun elmo-net-folder-set-parameters (folder tokens &optional defaults) (let ((port (cdr (assq 'port tokens))) (stream-type (cdr (assq 'stream-type tokens)))) -- 1.7.10.4