diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-26 02:11:40 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-26 02:11:40 +0000 |
| commit | 5f285722b63bc4a5f67c03a5bffb659ef65e7a14 (patch) | |
| tree | 10c4532473f35fa24a588f642c5f8f67cffb80ea /lisp/gnus/nnfolder.el | |
| parent | 17dd22813f2fbf929a6e8e75966d097a6f4a2334 (diff) | |
| download | emacs-5f285722b63bc4a5f67c03a5bffb659ef65e7a14.tar.gz emacs-5f285722b63bc4a5f67c03a5bffb659ef65e7a14.tar.bz2 emacs-5f285722b63bc4a5f67c03a5bffb659ef65e7a14.zip | |
nnml.el, nnfolder.el, nntp.el (*-request-set-mark): Extend syntax with 'set.
nnheader.el, nntp.el, nnfolder.el, nnml.el (*-request-set-mark): Refactor out nnheader-update-marks-actions and use it throughout.
nnmaildir.el (nnmaildir-request-set-mark): Be explicit about 'set.
gnus-sum.el (gnus-summary-push-marks-to-backend): Use 'set instead of 'add and 'delete to set backend marks.
Diffstat (limited to 'lisp/gnus/nnfolder.el')
| -rw-r--r-- | lisp/gnus/nnfolder.el | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 668b75a7838..5de8653948f 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -1186,19 +1186,7 @@ This command does not work if you use short group names." (nnfolder-open-server server)) (unless nnfolder-marks-is-evil (nnfolder-open-marks group server) - (dolist (action actions) - (let ((range (nth 0 action)) - (what (nth 1 action)) - (marks (nth 2 action))) - (assert (or (eq what 'add) (eq what 'del)) nil - "Unknown request-set-mark action: %s" what) - (dolist (mark marks) - (setq nnfolder-marks (gnus-update-alist-soft - mark - (funcall (if (eq what 'add) 'gnus-range-add - 'gnus-remove-from-range) - (cdr (assoc mark nnfolder-marks)) range) - nnfolder-marks))))) + (setq nnfolder-marks (nnheader-update-marks-actions nnfolder-marks actions)) (nnfolder-save-marks group server)) nil) |