diff options
| author | Lars Magne Ingebrigtsen | 2015-01-29 09:20:48 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-01-29 09:20:48 +0000 |
| commit | cfb188718998d2bfbbee17567c9527a20518547f (patch) | |
| tree | f26b899adabf49e5965fe1923132879ccf5eb044 | |
| parent | 4ba343984f1ea2bc87493339a315e13ba1410d28 (diff) | |
| download | emacs-cfb188718998d2bfbbee17567c9527a20518547f.tar.gz emacs-cfb188718998d2bfbbee17567c9527a20518547f.zip | |
lisp/gnus/nnimap.el (nnimap-request-group): nnimap group activation problems fixed
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 7 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3927f090d76..e4818d44a1c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2015-01-29 Lars Ingebrigtsen <larsi@gnus.org> | 1 | 2015-01-29 Lars Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * nnimap.el (nnimap-request-group): Allow running this function on | ||
| 4 | groups that don't exist in Gnus yet. | ||
| 5 | |||
| 3 | * message.el (message-smtpmail-send-it): Remove the mail header | 6 | * message.el (message-smtpmail-send-it): Remove the mail header |
| 4 | separator before sending. | 7 | separator before sending. |
| 5 | 8 | ||
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index e619c0f13c2..0fe2bb5872c 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -804,9 +804,10 @@ textual parts.") | |||
| 804 | articles active marks high low) | 804 | articles active marks high low) |
| 805 | (with-current-buffer nntp-server-buffer | 805 | (with-current-buffer nntp-server-buffer |
| 806 | (when result | 806 | (when result |
| 807 | (when (or (not dont-check) | 807 | (when (and info |
| 808 | (not (setq active | 808 | (or (not dont-check) |
| 809 | (nth 2 (assoc group nnimap-current-infos))))) | 809 | (not (setq active |
| 810 | (nth 2 (assoc group nnimap-current-infos)))))) | ||
| 810 | (let ((sequences (nnimap-retrieve-group-data-early | 811 | (let ((sequences (nnimap-retrieve-group-data-early |
| 811 | server (list info)))) | 812 | server (list info)))) |
| 812 | (nnimap-finish-retrieve-group-infos server (list info) sequences | 813 | (nnimap-finish-retrieve-group-infos server (list info) sequences |