gnus patch for nnimap 0.3.30

[Simon Josefsson <jas@pdc.kth.se>]

This patch should be in Gnus 5.6.43 also.

1998-08-29 02:46:00  Simon Josefsson  <jas@pdc.kth.se>

	* gnus-sum.el (gnus-summary-mark-article-as-read): 
	(gnus-summary-mark-article-as-unread): 
	(gnus-summary-mark-article): Call gnus-request-update-mark.

--- gnus-sum.el-        Thu Aug 27 11:03:59 1998
+++ gnus-sum.el Sat Aug 29 02:44:22 1998
@@ -7648,6 +7648,8 @@
                   (= mark gnus-read-mark) (= mark gnus-souped-mark)
                   (= mark gnus-duplicate-mark)))
       (setq mark gnus-expirable-mark)
+      ;; Let the backend know about the mark change.
+      (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
       (push article gnus-newsgroup-expirable))
     ;; Set the mark in the buffer.
     (gnus-summary-update-mark mark 'unread)
@@ -7657,6 +7659,8 @@
   "Mark the current article quickly as unread with MARK."
   (let* ((article (gnus-summary-article-number))
         (old-mark (gnus-summary-article-mark article)))
+    ;; Allow the backend to change the mark.
+    (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
     (if (eq mark old-mark)
        t
       (if (<= article 0)
@@ -7712,6 +7716,8 @@
   (let* ((mark (or mark gnus-del-mark))
         (article (or article (gnus-summary-article-number)))
         (old-mark (gnus-summary-article-mark article)))
+    ;; Allow the backend to change the mark.
+    (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
     (if (eq mark old-mark)
        t
       (unless article