diff options
| author | Lars Magne Ingebrigtsen | 2015-01-29 14:02:04 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-01-29 14:02:04 +0000 |
| commit | 0c7b0967d262bd361de721d0d7a4da192bde1319 (patch) | |
| tree | 3647f4b7ac49fff8844c763b8d1df61a6aed37fa | |
| parent | cfb188718998d2bfbbee17567c9527a20518547f (diff) | |
| download | emacs-0c7b0967d262bd361de721d0d7a4da192bde1319.tar.gz emacs-0c7b0967d262bd361de721d0d7a4da192bde1319.zip | |
lisp/gnus/nnimap.el (nnimap-request-group): Make it possible to enter nnimap groups again
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 7 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e4818d44a1c..64608d3bda0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -2,6 +2,8 @@ | |||
| 2 | 2 | ||
| 3 | * nnimap.el (nnimap-request-group): Allow running this function on | 3 | * nnimap.el (nnimap-request-group): Allow running this function on |
| 4 | groups that don't exist in Gnus yet. | 4 | groups that don't exist in Gnus yet. |
| 5 | (nnimap-request-group): Revert previous patch since that made it | ||
| 6 | impossible to enter nnimap groups. | ||
| 5 | 7 | ||
| 6 | * message.el (message-smtpmail-send-it): Remove the mail header | 8 | * message.el (message-smtpmail-send-it): Remove the mail header |
| 7 | separator before sending. | 9 | separator before sending. |
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 0fe2bb5872c..e619c0f13c2 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -804,10 +804,9 @@ 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 (and info | 807 | (when (or (not dont-check) |
| 808 | (or (not dont-check) | 808 | (not (setq active |
| 809 | (not (setq active | 809 | (nth 2 (assoc group nnimap-current-infos))))) |
| 810 | (nth 2 (assoc group nnimap-current-infos)))))) | ||
| 811 | (let ((sequences (nnimap-retrieve-group-data-early | 810 | (let ((sequences (nnimap-retrieve-group-data-early |
| 812 | server (list info)))) | 811 | server (list info)))) |
| 813 | (nnimap-finish-retrieve-group-infos server (list info) sequences | 812 | (nnimap-finish-retrieve-group-infos server (list info) sequences |