nnml.el, nnfolder.el, nntp.el (*-request-set-mark): Extend syntax with 'set.

[gnu-emacs] / lisp / gnus / nnimap.el

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 63a1115bd0f28a6a036f5d77098d3403d9b110db..0a0b413d3d25c25df6878ee4f9bd87af6b1b4c0b 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -941,9 +941,10 @@ textual parts.")
                (setq sequence (nnimap-send-command
                                "UID STORE %s %sFLAGS.SILENT (%s)"
                                (nnimap-article-ranges range)
-                               (if (eq action 'del)
-                                   "-"
-                                 "+")
+                               (cond
+                                ((eq action 'del) "-")
+                                ((eq action 'add) "-")
+                                ((eq action 'set) ""))
                                (mapconcat #'identity flags " ")))))))
        ;; Wait for the last command to complete to avoid later
        ;; syncronisation problems with the stream.
@@ -984,7 +985,7 @@ textual parts.")
                       group message-id)))))))))
 
 (defun nnimap-find-uid-response (name list)
-  (let ((result (nth 2 (nnimap-find-response-element name list))))
+  (let ((result (car (last (nnimap-find-response-element name list)))))
     (and result
         (string-to-number result))))