Mercurial > emacs
changeset 111479:244f248736b4
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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 10 Nov 2010 23:16:01 +0000 |
| parents | 3cd0a7a068d5 |
| children | 0b07548fdfe0 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el lisp/gnus/nnimap.el |
| diffstat | 3 files changed, 18 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Nov 10 23:27:02 2010 +0100 +++ b/lisp/gnus/ChangeLog Wed Nov 10 23:16:01 2010 +0000 @@ -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.
--- a/lisp/gnus/message.el Wed Nov 10 23:27:02 2010 +0100 +++ b/lisp/gnus/message.el Wed Nov 10 23:16:01 2010 +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
--- a/lisp/gnus/nnimap.el Wed Nov 10 23:27:02 2010 +0100 +++ b/lisp/gnus/nnimap.el Wed Nov 10 23:16:01 2010 +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