(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