Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1110
This commit is contained in:
Miles Bader 2008-04-07 13:08:33 +00:00
parent fbf57abbfe
commit 5942951134
5 changed files with 41 additions and 5 deletions

View file

@ -30,6 +30,20 @@
* gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
Fix last change in case the element is not even a symbol.
2008-04-02 Simon Josefsson <simon@josefsson.org>
* nnimap.el (nnimap-enable-minmax-bug-workaround): Remove, replaced by
imap-enable-exchange-bug-workaround.
(nnimap-find-minmax-uid): Use imap-enable-exchange-bug-workaround.
2008-04-01 Simon Josefsson <simon@josefsson.org>
* nnimap.el (nnimap-find-minmax-uid): Revert last fix, the "fix" turns
a 100 byte status-checks into a 2-3MB transfer for each group.
(nnimap-enable-minmax-bug-workaround): New variable to toggle whether
to enable bug workaround or not.
(nnimap-find-minmax-uid): Only enable workaround conditionally.
2008-03-31 Glenn Morris <rgm@gnu.org>
* message.el (mml2015-use): Declare for compiler.
@ -46,6 +60,10 @@
(nntp-open-netcat-stream): New function.
(nntp-open-via-rlogin-and-netcat): Don't use a pty.
2008-03-29 Sven Joachim <svenjoac@gmx.de>
* gnus-sum.el (gnus-summary-make-menu-bar): Add missing dots.
2008-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
* message.el (message-make-in-reply-to): Use mm-with-multibyte-buffer.

View file

@ -2262,7 +2262,7 @@ increase the score of each group you read."
["Set mark below..." gnus-score-set-mark-below t]
["Set expunge below..." gnus-score-set-expunge-below t]
["Edit current score file" gnus-score-edit-current-scores t]
["Edit score file" gnus-score-edit-file t]
["Edit score file..." gnus-score-edit-file t]
["Trace score" gnus-score-find-trace t]
["Find words" gnus-score-find-favourite-words t]
["Rescore buffer" gnus-summary-rescore t]

View file

@ -555,7 +555,8 @@ If EXAMINE is non-nil the group is selected read-only."
(imap-mailbox-select group examine))
(let (minuid maxuid)
(when (> (imap-mailbox-get 'exists) 0)
(imap-fetch "1:*" "UID" nil 'nouidfetch)
(imap-fetch (if imap-enable-exchange-bug-workaround "1,*:*" "1,*")
"UID" nil 'nouidfetch)
(imap-message-map (lambda (uid Uid)
(setq minuid (if minuid (min minuid uid) uid)
maxuid (if maxuid (max maxuid uid) uid)))