Mercurial > emacs
comparison lisp/gnus/nnagent.el @ 110111:5b9f64b04a04
Delete all trailing white space.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 02 Sep 2010 01:42:32 +0000 |
| parents | 8d09094063d0 |
| children | f2e111723c3a |
comparison
equal
deleted
inserted
replaced
| 110110:91cc7bab2ca4 | 110111:5b9f64b04a04 |
|---|---|
| 119 (gnus-request-accept-article "nndraft:queue" nil t t)) | 119 (gnus-request-accept-article "nndraft:queue" nil t t)) |
| 120 | 120 |
| 121 (deffoo nnagent-request-set-mark (group action server) | 121 (deffoo nnagent-request-set-mark (group action server) |
| 122 (mm-with-unibyte-buffer | 122 (mm-with-unibyte-buffer |
| 123 (insert "(gnus-agent-synchronize-group-flags \"" | 123 (insert "(gnus-agent-synchronize-group-flags \"" |
| 124 group | 124 group |
| 125 "\" '") | 125 "\" '") |
| 126 (gnus-pp action) | 126 (gnus-pp action) |
| 127 (insert " \"" | 127 (insert " \"" |
| 128 (gnus-method-to-server gnus-command-method) | 128 (gnus-method-to-server gnus-command-method) |
| 129 "\"") | 129 "\"") |
| 149 (setq arts (gnus-sorted-difference | 149 (setq arts (gnus-sorted-difference |
| 150 articles (mapcar 'car gnus-agent-article-alist))) | 150 articles (mapcar 'car gnus-agent-article-alist))) |
| 151 ;; Assume that articles with smaller numbers than the first one | 151 ;; Assume that articles with smaller numbers than the first one |
| 152 ;; Agent knows are gone. | 152 ;; Agent knows are gone. |
| 153 (setq first (caar gnus-agent-article-alist)) | 153 (setq first (caar gnus-agent-article-alist)) |
| 154 (when first | 154 (when first |
| 155 (while (and arts (< (car arts) first)) | 155 (while (and arts (< (car arts) first)) |
| 156 (pop arts))) | 156 (pop arts))) |
| 157 (set-buffer nntp-server-buffer) | 157 (set-buffer nntp-server-buffer) |
| 158 (erase-buffer) | 158 (erase-buffer) |
| 159 (let ((file-name-coding-system nnmail-pathname-coding-system)) | 159 (let ((file-name-coding-system nnmail-pathname-coding-system)) |