[Emacs-diffs] /srv/bzr/emacs/trunk r102327: nnimap.el (nnimap-update-info): Fix problem with `g' chopping of low-numbered articles.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102327
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-10 23:16:01 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-10 07:55:25 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-10 23:16:01 +0000
@@ -1,3 +1,11 @@
+2010-11-10  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * rfc2047.el (rfc2047-syntax-table): Simplify.

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2010-11-09 22:17:36 +0000
+++ b/lisp/gnus/message.el      2010-11-10 23:16:01 +0000
@@ -7432,7 +7432,11 @@
       (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

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2010-11-07 00:22:06 +0000
+++ b/lisp/gnus/nnimap.el       2010-11-10 23:16:01 +0000
@@ -1155,13 +1155,16 @@
                (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