(nnimap-transform-headers): Fold {quoted} strings more sloppily.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3df1e30..6cf4efe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        (nnimap-transform-headers): Don't bug out on bodiless articles.
        (nnimap-send-command): Have no outstanding messages if the IMAP server
        doesn't support streaming.
        (nnimap-transform-headers): Don't bug out on bodiless articles.
        (nnimap-send-command): Have no outstanding messages if the IMAP server
        doesn't support streaming.

+       (nnimap-transform-headers): Fold {quoted} strings more sloppily.

 
 2010-10-24  Julien Danjou  <julien@danjou.info>
 
 
 2010-10-24  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 305b62d..49d2d37 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -174,7 +174,7 @@ textual parts.")
            (return)))
        (setq article (match-string 1))
        ;; Unfold quoted {number} strings.
            (return)))
        (setq article (match-string 1))
        ;; Unfold quoted {number} strings.

-       (while (re-search-forward "[^]] {\\([0-9]+\\)}\r\n"
+       (while (re-search-forward "[^]][ (]{\\([0-9]+\\)}\r\n"

                                  (1+ (line-end-position)) t)
          (setq size (string-to-number (match-string 1)))
          (delete-region (+ (match-beginning 0) 2) (point))
                                  (1+ (line-end-position)) t)
          (setq size (string-to-number (match-string 1)))
          (delete-region (+ (match-beginning 0) 2) (point))