Lines Matching refs:marks
70 (defvoo nnml-marks-is-evil nil
71 "If non-nil, Gnus will never generate and use marks file for mail spools.
72 Using marks files makes it possible to backup and restore mail groups
75 corresponding marks file (usually named `.marks' in the nnml group
76 directory, but see `nnml-marks-file-name') for the group. Then the
77 marks file will be regenerated properly by Gnus.")
95 (defvoo nnml-marks-file-name ".marks")
111 (defvoo nnml-marks nil)
113 (defvar nnml-marks-modtime (gnus-make-hashtable))
451 "\\|" (regexp-quote nnml-marks-file-name) "$")))
489 ;; Move .marks file.
490 (let ((marks (concat old-dir nnml-marks-file-name)))
491 (when (file-exists-p marks)
492 (rename-file marks (concat new-dir nnml-marks-file-name))))
924 (unless nnml-marks-is-evil
925 (nnml-open-marks group server)
929 (marks (nth 2 action)))
932 (dolist (mark marks)
933 (setq nnml-marks (gnus-update-alist-soft
937 (cdr (assoc mark nnml-marks)) range)
938 nnml-marks)))))
939 (nnml-save-marks group server))
944 (when (and (not nnml-marks-is-evil) (nnml-marks-changed-p group))
945 (nnheader-message 8 "Updating marks for %s..." group)
946 (nnml-open-marks group server)
947 ;; Update info using `nnml-marks'.
950 (gnus-info-set-marks
954 (cdr (assq (cdr pred) nnml-marks))
955 (gnus-info-marks info))
958 (let ((seen (cdr (assq 'read nnml-marks))))
964 (nnheader-message 8 "Updating marks for %s...done" group))
967 (defun nnml-marks-changed-p (group)
968 (let ((file (expand-file-name nnml-marks-file-name
970 (if (null (gnus-gethash file nnml-marks-modtime))
971 t ;; never looked at marks file, assume it has changed
972 (not (equal (gnus-gethash file nnml-marks-modtime)
975 (defun nnml-save-marks (group server)
977 (file (expand-file-name nnml-marks-file-name
984 (gnus-prin1 nnml-marks)
988 nnml-marks-modtime))
993 (defun nnml-open-marks (group server)
995 nnml-marks-file-name
1001 nnml-marks-modtime)
1003 (setq nnml-marks (read (current-buffer)))
1005 (setq nnml-marks (gnus-remassoc el nnml-marks))))
1007 (format "Error reading nnml marks file %s (%s). Continuing will use marks from .newsrc.eld. Continue? " file err))
1008 (error "Cannot read nnml marks file %s (%s)" file err))))
1009 ;; User didn't have a .marks file. Probably first time
1010 ;; user of the .marks stuff. Bootstrap it from .newsrc.eld.
1015 (nnheader-message 7 "Bootstrapping marks for %s..." group)
1016 (setq nnml-marks (gnus-info-marks info))
1017 (push (cons 'read (gnus-info-read info)) nnml-marks)
1019 (setq nnml-marks (gnus-remassoc el nnml-marks)))
1020 (nnml-save-marks group server)
1021 (nnheader-message 7 "Bootstrapping marks for %s...done" group)))))