aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2010-11-26 02:17:55 +0000
committerKatsumi Yamaoka2010-11-26 02:17:55 +0000
commit57cc52bed4948a83d605ff7d50ce52da1d9f5da0 (patch)
tree97bb5cc10d6fa252fd40d5276611daafdd2cf3c1
parent5f285722b63bc4a5f67c03a5bffb659ef65e7a14 (diff)
downloademacs-57cc52bed4948a83d605ff7d50ce52da1d9f5da0.tar.gz
emacs-57cc52bed4948a83d605ff7d50ce52da1d9f5da0.zip
nnimap.el (nnimap-request-set-mark): Add is "+", not "-".
-rw-r--r--lisp/gnus/ChangeLog2
-rw-r--r--lisp/gnus/nnimap.el3
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 @@
12010-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org> 12010-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