(elmo-net-quote-chars): Abolish.

(elmo-net-format-quoted): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3361380..9c1d4d9 100644 (file)
--- 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 (file)
--- 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))))