(gnus-update-marks): Don't propagate download and unsend flags.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f57d02..dda570e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-03  Simon Josefsson  <simon@josefsson.org>
+
+       * gnus-sum.el (gnus-update-marks): Don't propagate download and
+       unsend flags.
+
 2000-07-03  Simon Josefsson  <jas@pdc.kth.se>
 
        * nnimap.el (nnimap-open-connection): Don't look up virtual server

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index b35c3a6..f7d7e72 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4416,9 +4416,14 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        
        (when (gnus-check-backend-function
               'request-set-mark gnus-newsgroup-name)
+         ;; propagate flags to server, with the following exceptions:
          ;; uncompressed:s are not proper flags (they are cons cells)
          ;; cache is a internal gnus flag
-         (unless (memq (cdr type) (cons 'cache uncompressed))
+         ;; download are local to one gnus installation (well)
+         ;; unsend are for nndraft groups only
+         ;; xxx: generality of this?  this suits nnimap anyway
+         (unless (memq (cdr type) (append '(cache download unsend)
+                                          uncompressed))
            (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
                   (del (gnus-remove-from-range (gnus-copy-sequence old) list))
                   (add (gnus-remove-from-range