summaryrefslogtreecommitdiffhomepage
path: root/lib/net/nnnm.el
diff options
context:
space:
mode:
Diffstat (limited to 'lib/net/nnnm.el')
-rw-r--r--lib/net/nnnm.el15
1 files changed, 10 insertions, 5 deletions
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"))