X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-util.el;h=e3768c1fb427e2f06cd74590c020ba81935abc0c;hb=31665e949babd625632818bb0470f9486367fc88;hp=2d96da170688ed4bd5ac5b5d9aa9b4ed41eba9f9;hpb=9cc6acd7d17681f829834d7250e5af9b7cedb369;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 2d96da1..e3768c1 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -181,7 +181,7 @@ File content is decoded with MIME-CHARSET."
       nil
     (with-temp-buffer
       (insert-file-contents-as-binary filename)
-      (let ((coding-system (or (elmo-set-auto-coding filename)
+      (let ((coding-system (or (elmo-set-auto-coding)
 			       (mime-charset-to-coding-system
 				mime-charset))))
 	(when coding-system
@@ -1450,6 +1450,13 @@ ELT must be a string.  Upper-case and lower-case letters are treated as equal."
       newtext)))
 
 ;;; Folder parser utils.
+(defconst elmo-quoted-specials-list '(?\\ ?\"))
+
+(defun elmo-quoted-token (string)
+  (concat "\""
+	  (std11-wrap-as-quoted-pairs string elmo-quoted-specials-list)
+	  "\""))
+
 (defun elmo-parse-token (string &optional seps)
   "Parse atom from STRING using SEPS as a string of separator char list."
   (let ((len (length string))