[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0a1c834: Handle unquoted IMAP group names
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 0a1c834: Handle unquoted IMAP group names |
Date: |
Wed, 18 Feb 2015 22:25:43 +0000 |
branch: master
commit 0a1c83457d209fcf08c741a5e50bd60b72fd8713
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
Handle unquoted IMAP group names
* lisp/gnus/nnimap.el (nnimap-get-groups): Correctly read unquoted
group names from the server LIST response.
---
lisp/gnus/ChangeLog | 5 +++++
lisp/gnus/nnimap.el | 7 ++++++-
2 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7910d74..7895f37 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-18 Eric Abrahamsen <address@hidden>
+
+ * nnimap.el (nnimap-get-groups): Correctly read unquoted group names
+ from the server LIST response.
+
2015-02-14 Lars Ingebrigtsen <address@hidden>
* nnimap.el (nnimap-retrieve-headers): If the server closes connection
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 4a9ca74..6904e0a 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1262,7 +1262,12 @@ If LIMIT, first try to limit the search to the N last
articles."
(while (search-forward "* LIST " nil t)
(let ((flags (read (current-buffer)))
(separator (read (current-buffer)))
- (group (read (current-buffer))))
+ (group (buffer-substring-no-properties
+ (progn (skip-chars-forward " \"")
+ (point))
+ (progn (move-end-of-line 1)
+ (skip-chars-backward "
\"")
+ (point)))))
(unless (member '%NoSelect flags)
(push (utf7-decode (if (stringp group)
group
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0a1c834: Handle unquoted IMAP group names,
Katsumi Yamaoka <=