From d0910fcac6f6440593ad618139871157a84d60fd Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 16 Aug 2021 13:26:21 +0100 Subject: gnus: use nnnm --- lib/net/nnnm.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'lib/net') diff --git a/lib/net/nnnm.el b/lib/net/nnnm.el index 3df1386..b5f4fe0 100644 --- a/lib/net/nnnm.el +++ b/lib/net/nnnm.el @@ -32,11 +32,11 @@ (nnoo-declare nnnm) -(defvoo nnnm-saved-searches nil) +(defvar nnnm-marks-to-tags '((tick . "flagged"))) -(defvar nnnm-maildir nil) +(defvar nnnm-saved-searches nil) - +(defvar nnnm-maildir nil) (defvar nnnm--group-data nil) @@ -92,11 +92,9 @@ (info (gnus-get-info full-group)) (read (when (> nids 0) (list (cons 1 nids)))) (marks (list (cons 'seen read)))) - (message "*** group info before %s - %s" full-group (gnus-get-info full-group)) (gnus-info-set-marks info marks) (setf (gnus-info-read info) read) (gnus-set-info full-group info) - (message "*** group info after %s" (gnus-get-info full-group)) (mapcar #'list ids))) (defun nnnm--update-group-data (group &optional server) @@ -125,6 +123,9 @@ (nnoo-define-basics nnnm) +(defun nnnm-request-type (_group &optional _article) + 'mail) + (deffoo nnnm-open-server (server &optional defs) (nnoo-change-server 'nnnm server defs) (setq nnnm--group-data nil) @@ -204,6 +205,10 @@ (nnnm--tag (nnnm--ids-query ids) "+deleted +nnnm")) excluded)) +(deffoo nnnm-request-set-mark (group actions &optional _server) + (message "set marks: %s: %S" group actions) + actions) + ;; (deffoo nnnm-request-move-article ;; (article group server accept-form &optional last _move-is-internal) ;; (error "Not implemented yet")) -- cgit v1.2.3