nnimap.el (nnimap-update-info): Fix problem with `g' chopping of low-numbered articles.

message.el (message-resend): Don't disable encoding unless it's already encoded.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5eb6e1386300fdd1750c46d561f8357fc0e8cec9..8afb226a404278b6e6d9caf70df81b222f4a1502 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2010-11-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-resend): Don't disable encoding unless it's
+       already encoded.
+
+       * nnimap.el (nnimap-update-info): Fix problem with `g' chopping of
+       low-numbered articles.
+
 2010-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * rfc2047.el (rfc2047-syntax-table): Simplify.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index be09d0856eb8a723506c9df8293add720aeb859c..07ffaf14fcba85fa9540a307594dc484aa21f622 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7432,7 +7432,11 @@ is for the internal use."
       (when (looking-at "From ")
        (replace-match "X-From-Line: "))
       ;; Send it.
-      (let ((message-inhibit-body-encoding t)
+      (let ((message-inhibit-body-encoding
+            ;; Don't do any further encoding if it looks like the
+            ;; message has already been encoded.
+            (let ((case-fold-search t))
+              (re-search-forward "^mime-version:" nil t)))
            (message-inhibit-ecomplete t)
            message-required-mail-headers
            message-generate-hashcash

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 67e2c91c3a27a2c9a8c709db56ec2936b864b5e4..ed69c4cdab260c40139ea0a226ef63df28ac43b1 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1155,13 +1155,16 @@ textual parts.")
                (not (gnus-active group)))
            (gnus-set-active group
                             (cond
+                             (active
+                              (cons (min (or low (car active))
+                                         (car active))
+                                    (max (or high (cdr active))
+                                         (cdr active))))
                              ((and low high)
                               (cons low high))
                              (uidnext
                               ;; No articles in this group.
                               (cons uidnext (1- uidnext)))
-                             (active
-                              active)
                              (start-article
                               (cons start-article (1- start-article)))
                              (t