diff options
| author | Lars Magne Ingebrigtsen | 2010-11-26 02:17:55 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-11-26 02:17:55 +0000 |
| commit | 57cc52bed4948a83d605ff7d50ce52da1d9f5da0 (patch) | |
| tree | 97bb5cc10d6fa252fd40d5276611daafdd2cf3c1 | |
| parent | 5f285722b63bc4a5f67c03a5bffb659ef65e7a14 (diff) | |
| download | emacs-57cc52bed4948a83d605ff7d50ce52da1d9f5da0.tar.gz emacs-57cc52bed4948a83d605ff7d50ce52da1d9f5da0.zip | |
nnimap.el (nnimap-request-set-mark): Add is "+", not "-".
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2705413d2c8..f1340c6593d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2010-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2010-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * nnimap.el (nnimap-request-set-mark): Add is "+", not "-". | ||
| 4 | |||
| 3 | * gnus-sum.el (gnus-summary-push-marks-to-backend): Use 'set instead of | 5 | * gnus-sum.el (gnus-summary-push-marks-to-backend): Use 'set instead of |
| 4 | 'add and 'delete to set backend marks. | 6 | 'add and 'delete to set backend marks. |
| 5 | 7 | ||
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 0a0b413d3d2..307deba8afd 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -928,6 +928,7 @@ textual parts.") | |||
| 928 | flags)) | 928 | flags)) |
| 929 | 929 | ||
| 930 | (deffoo nnimap-request-set-mark (group actions &optional server) | 930 | (deffoo nnimap-request-set-mark (group actions &optional server) |
| 931 | (debug) | ||
| 931 | (when (nnimap-possibly-change-group group server) | 932 | (when (nnimap-possibly-change-group group server) |
| 932 | (let (sequence) | 933 | (let (sequence) |
| 933 | (with-current-buffer (nnimap-buffer) | 934 | (with-current-buffer (nnimap-buffer) |
| @@ -943,7 +944,7 @@ textual parts.") | |||
| 943 | (nnimap-article-ranges range) | 944 | (nnimap-article-ranges range) |
| 944 | (cond | 945 | (cond |
| 945 | ((eq action 'del) "-") | 946 | ((eq action 'del) "-") |
| 946 | ((eq action 'add) "-") | 947 | ((eq action 'add) "+") |
| 947 | ((eq action 'set) "")) | 948 | ((eq action 'set) "")) |
| 948 | (mapconcat #'identity flags " "))))))) | 949 | (mapconcat #'identity flags " "))))))) |
| 949 | ;; Wait for the last command to complete to avoid later | 950 | ;; Wait for the last command to complete to avoid later |