From: hmurata <hmurata>
Date: Mon, 18 Jul 2005 11:33:56 +0000 (+0000)
Subject: (elmo-net-quote-chars): Abolish.
X-Git-Tag: wl-2_15_3~64
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0eec90ca8e900de7275b7a7b3617ebe1d3ca2794;p=elisp%2Fwanderlust.git

(elmo-net-quote-chars): Abolish.
(elmo-net-format-quoted): Ditto.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-net.el (elmo-net-quote-chars): Abolish.
+	(elmo-net-format-quoted): Ditto.
+
 2005-06-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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))))