(nnimap-fetch-inbox): Rewrite slightly last patch.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b4fc6b..9c1b883 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-fetch-inbox): Rewrite slightly last patch.
+

 2011-03-17  Bjørn Mork  <bjorn@mork.no>
 
        * nnimap.el (nnimap-fetch-inbox): Don't download bodies on ver4-capable
 2011-03-17  Bjørn Mork  <bjorn@mork.no>
 
        * nnimap.el (nnimap-fetch-inbox): Don't download bodies on ver4-capable

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 46c56d9..bcbe7b6 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1764,11 +1764,13 @@ textual parts.")
             (if (nnimap-ver4-p)
                 "BODY.PEEK"
               "RFC822.PEEK"))
             (if (nnimap-ver4-p)
                 "BODY.PEEK"
               "RFC822.PEEK"))

-           (if nnimap-split-download-body-default
-               "[]"
-             (if (nnimap-ver4-p)
-                 "[HEADER]"
-               "[1]"))))
+           (cond
+            (nnimap-split-download-body-default
+             "[]")
+            ((nnimap-ver4-p)
+             "[HEADER]")
+            (t
+             "[1]"))))

    t))
 
 (defun nnimap-split-incoming-mail ()
    t))
 
 (defun nnimap-split-incoming-mail ()