Mercurial > emacs
comparison lisp/gnus/nnagent.el @ 85712:a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 28 Oct 2007 09:18:39 +0000 |
parents | 24202b793a08 |
children | 107ccd98fa12 880960b70474 |
comparison
equal
deleted
inserted
replaced
85711:b6f5dc84b2e1 | 85712:a3c27999decb |
---|---|
119 (deffoo nnagent-request-post (&optional server) | 119 (deffoo nnagent-request-post (&optional server) |
120 (gnus-agent-insert-meta-information 'news gnus-command-method) | 120 (gnus-agent-insert-meta-information 'news gnus-command-method) |
121 (gnus-request-accept-article "nndraft:queue" nil t t)) | 121 (gnus-request-accept-article "nndraft:queue" nil t t)) |
122 | 122 |
123 (deffoo nnagent-request-set-mark (group action server) | 123 (deffoo nnagent-request-set-mark (group action server) |
124 (with-temp-buffer | 124 (mm-with-unibyte-buffer |
125 (insert "(gnus-agent-synchronize-group-flags \"" | 125 (insert "(gnus-agent-synchronize-group-flags \"" |
126 group | 126 group |
127 "\" '") | 127 "\" '") |
128 (gnus-pp action) | 128 (gnus-pp action) |
129 (insert " \"" | 129 (insert " \"" |
130 (gnus-method-to-server gnus-command-method) | 130 (gnus-method-to-server gnus-command-method) |
131 "\"") | 131 "\"") |
132 (insert ")\n") | 132 (insert ")\n") |
133 (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags"))) | 133 (let ((coding-system-for-write nnheader-file-coding-system)) |
134 (write-region (point-min) (point-max) (gnus-agent-lib-file "flags") | |
135 t 'silent))) | |
136 ;; Also set the marks for the original back end that keeps marks in | |
137 ;; the local system. | |
138 (let ((gnus-agent nil)) | |
139 (when (and (memq (car gnus-command-method) '(nntp)) | |
140 (gnus-check-backend-function 'request-set-mark | |
141 (car gnus-command-method))) | |
142 (funcall (gnus-get-function gnus-command-method 'request-set-mark) | |
143 group action server))) | |
134 nil) | 144 nil) |
135 | 145 |
136 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old) | 146 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old) |
137 (let ((file (gnus-agent-article-name ".overview" group)) | 147 (let ((file (gnus-agent-article-name ".overview" group)) |
138 arts n first) | 148 arts n first) |
146 (when first | 156 (when first |
147 (while (and arts (< (car arts) first)) | 157 (while (and arts (< (car arts) first)) |
148 (pop arts))) | 158 (pop arts))) |
149 (set-buffer nntp-server-buffer) | 159 (set-buffer nntp-server-buffer) |
150 (erase-buffer) | 160 (erase-buffer) |
151 (nnheader-insert-nov-file file (car articles)) | 161 (let ((file-name-coding-system nnmail-pathname-coding-system)) |
162 (nnheader-insert-nov-file file (car articles))) | |
152 (goto-char (point-min)) | 163 (goto-char (point-min)) |
153 (gnus-parse-without-error | 164 (gnus-parse-without-error |
154 (while (and arts (not (eobp))) | 165 (while (and arts (not (eobp))) |
155 (setq n (read (current-buffer))) | 166 (setq n (read (current-buffer))) |
156 (when (> n (car arts)) | 167 (when (> n (car arts)) |
212 (deffoo nnagent-request-list-newsgroups (&optional server) | 223 (deffoo nnagent-request-list-newsgroups (&optional server) |
213 (nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups | 224 (nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups |
214 (list (nnagent-server server)))) | 225 (list (nnagent-server server)))) |
215 | 226 |
216 (deffoo nnagent-request-move-article | 227 (deffoo nnagent-request-move-article |
217 (article group server accept-form &optional last) | 228 (article group server accept-form &optional last move-is-internal) |
218 (nnoo-parent-function 'nnagent 'nnml-request-move-article | 229 (nnoo-parent-function 'nnagent 'nnml-request-move-article |
219 (list article group (nnagent-server server) | 230 (list article group (nnagent-server server) |
220 accept-form last))) | 231 accept-form last move-is-internal))) |
221 | 232 |
222 (deffoo nnagent-request-rename-group (group new-name &optional server) | 233 (deffoo nnagent-request-rename-group (group new-name &optional server) |
223 (nnoo-parent-function 'nnagent 'nnml-request-rename-group | 234 (nnoo-parent-function 'nnagent 'nnml-request-rename-group |
224 (list group new-name (nnagent-server server)))) | 235 (list group new-name (nnagent-server server)))) |
225 | 236 |