103 |
|
|
104 |
(defun nnagent-request-type (group article) |
(defun nnagent-request-type (group article) |
105 |
(unless (stringp article) |
(unless (stringp article) |
106 |
(let ((gnus-plugged t)) |
(let ((gnus-agent nil)) |
107 |
(if (not (gnus-check-backend-function |
(if (not (gnus-check-backend-function |
108 |
'request-type (car gnus-command-method))) |
'request-type (car gnus-command-method))) |
109 |
'unknown |
'unknown |
122 |
|
|
123 |
(deffoo nnagent-request-set-mark (group action server) |
(deffoo nnagent-request-set-mark (group action server) |
124 |
(with-temp-buffer |
(with-temp-buffer |
125 |
(insert (format "(%s-request-set-mark \"%s\" '%s \"%s\")\n" |
(insert "(gnus-agent-synchronize-group-flags \"" |
126 |
(nth 0 gnus-command-method) group action |
group |
127 |
(or server (nth 1 gnus-command-method)))) |
"\" '") |
128 |
|
(gnus-pp action) |
129 |
|
(insert " \"" |
130 |
|
(gnus-method-to-server gnus-command-method) |
131 |
|
"\"") |
132 |
|
(insert ")\n") |
133 |
(append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags"))) |
(append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags"))) |
134 |
nil) |
nil) |
135 |
|
|