From: Paul Jarc <prj@po.cwru.edu>
Date: Wed, 19 Mar 2003 17:03:53 +0000 (+0000)
Subject: * nnmaildir.el (nnmaildir--system-name): New function.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=d21975f2b289b49b3cd151257227bb0ed30ecba6;p=gnus

* nnmaildir.el (nnmaildir--system-name): New function.
(nnmaildir-request-accept-article): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9022f662d..a9ead20d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-19  Paul Jarc  <prj@po.cwru.edu>
+
+	* nnmaildir.el (nnmaildir--system-name): New function.
+	(nnmaildir-request-accept-article): Use it.
+
 2003-03-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-util.el (gnus-byte-compile): Make it work silently as the
diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index b115536f8..8b26fb739 100644
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -547,6 +547,15 @@ by nnmaildir-request-article.")
 (defun nnmaildir--up2-1 (n)
   (if (zerop n) 1 (1- (lsh 1 (1+ (logb n))))))
 
+(defun nnmaildir--system-name ()
+  (gnus-replace-in-string
+   (gnus-replace-in-string
+    (gnus-replace-in-string
+     (system-name)
+     "\\\\" "\\134" 'literal)
+    "/" "\\057" 'literal)
+   ":" "\\072" 'literal))
+
 (defun nnmaildir-request-type (group &optional article)
   'mail)
 
@@ -1310,7 +1319,7 @@ by nnmaildir-request-article.")
 	(setq file (concat file "M" (number-to-string (caddr time)))))
       (setq file (concat file nnmaildir--delivery-pid)
 	    file (concat file "Q" (number-to-string nnmaildir--delivery-count))
-	    file (concat file "." (system-name)) ;;;; FIXME: encode / and :
+	    file (concat file "." (nnmaildir--system-name))
 	    tmpfile (concat (nnmaildir--tmp dir) file)
 	    curfile (concat (nnmaildir--cur dir) file ":2,"))
       (when (file-exists-p tmpfile)