(nnimap-last-response-string): Unfold quoted lines, if they exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 529ae98..2b84b11 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-11-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-unfold-quoted-lines): Refactor out.
+       (nnimap-last-response-string): Unfold quoted lines, if they exist.
 
 2010-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 825f6a4..5fd5e2f 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1605,6 +1605,13 @@ textual parts.")
   (save-excursion
     (forward-line 1)
     (let ((end (point)))
+      ;; Unfold quoted {num} lines, if they exist.
+      (when (search-backward "}" nil t)
+       (save-excursion
+         (save-restriction
+           (narrow-to-region (point-min) end)
+           (goto-char (point-min))
+           (nnimap-unfold-quoted-lines))))
       (forward-line -1)
       (when (not (bobp))
        (forward-line -1)