From e93c94834a8dca339d15f92b692c73f4caed0bb0 Mon Sep 17 00:00:00 2001 From: Paul Jarc Date: Thu, 6 Dec 2007 03:44:48 +0000 Subject: [PATCH] * nnmaildir.el (nnmaildir-request-list, nnmaildir-retrieve-groups, nnmaildir-request-group, nnmaildir-retrieve-headers): Escape spaces in group names with backslashes. Reported by Tassilo Horn . --- lisp/ChangeLog | 7 +++++++ lisp/nnmaildir.el | 12 ++++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36fea24b3..ad197a9c5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-12-17 Paul Jarc + + * nnmaildir.el (nnmaildir-request-list, nnmaildir-retrieve-groups, + nnmaildir-request-group, nnmaildir-retrieve-headers): Escape spaces in + group names with backslashes. Reported by Tassilo Horn + . + 2007-12-05 Katsumi Yamaoka * gnus-art.el (gnus-use-idna) diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el index 04b6af72a..7a268f21d 100644 --- a/lisp/nnmaildir.el +++ b/lisp/nnmaildir.el @@ -883,7 +883,9 @@ by nnmaildir-request-article.") pgname (nnmaildir--pgname nnmaildir--cur-server pgname) group (symbol-value group) ro (nnmaildir--param pgname 'read-only)) - (insert (nnmaildir--grp-name group) " ") + (insert (gnus-replace-in-string + (nnmaildir--grp-name group) " " "\\ " t) + " ") (princ (nnmaildir--group-maxnum nnmaildir--cur-server group) nntp-server-buffer) (insert " ") @@ -910,7 +912,9 @@ by nnmaildir-request-article.") (insert " ") (princ (nnmaildir--group-maxnum nnmaildir--cur-server group) nntp-server-buffer) - (insert " " gname "\n"))))) + (insert " " + (gnus-replace-in-string gname " " "\\ " t) + "\n"))))) 'group) (defun nnmaildir-request-update-info (gname info &optional server) @@ -998,7 +1002,7 @@ by nnmaildir-request-article.") (insert " ") (princ (nnmaildir--group-maxnum nnmaildir--cur-server group) nntp-server-buffer) - (insert " " gname "\n") + (insert " " (gnus-replace-in-string gname " " "\\ " t) "\n") t)))) (defun nnmaildir-request-create-group (gname &optional server args) @@ -1160,7 +1164,7 @@ by nnmaildir-request-article.") (insert "\t" (nnmaildir--nov-get-beg nov) "\t" (nnmaildir--art-msgid article) "\t" (nnmaildir--nov-get-mid nov) "\tXref: nnmaildir " - gname ":") + (gnus-replace-in-string gname " " "\\ " t) ":") (princ num nntp-server-buffer) (insert "\t" (nnmaildir--nov-get-end nov) "\n")))) (catch 'return -- 2.25.1