Mercurial > emacs
comparison lisp/gnus/nntp.el @ 82365:e5a68f18fcb9
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-851
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 13 Aug 2007 13:41:28 +0000 |
| parents | 24202b793a08 |
| children | 1cb31606209f a3c27999decb 424b655804ca |
comparison
equal
deleted
inserted
replaced
| 82364:0c34fdde692c | 82365:e5a68f18fcb9 |
|---|---|
| 180 | 180 |
| 181 (defvoo nntp-nov-gap 5 | 181 (defvoo nntp-nov-gap 5 |
| 182 "*Maximum allowed gap between two articles. | 182 "*Maximum allowed gap between two articles. |
| 183 If the gap between two consecutive articles is bigger than this | 183 If the gap between two consecutive articles is bigger than this |
| 184 variable, split the XOVER request into two requests.") | 184 variable, split the XOVER request into two requests.") |
| 185 | |
| 186 (defvoo nntp-xref-number-is-evil nil | |
| 187 "*If non-nil, Gnus never trusts article numbers in the Xref header. | |
| 188 Some news servers, e.g., ones running Diablo, run multiple engines | |
| 189 having the same articles but article numbers are not kept synchronized | |
| 190 between them. If you connect to such a server, set this to a non-nil | |
| 191 value, and Gnus never uses article numbers (that appear in the Xref | |
| 192 header and vary by which engine is chosen) to refer to articles.") | |
| 185 | 193 |
| 186 (defvoo nntp-prepare-server-hook nil | 194 (defvoo nntp-prepare-server-hook nil |
| 187 "*Hook run before a server is opened. | 195 "*Hook run before a server is opened. |
| 188 If can be used to set up a server remotely, for instance. Say you | 196 If can be used to set up a server remotely, for instance. Say you |
| 189 have an account at the machine \"other.machine\". This machine has | 197 have an account at the machine \"other.machine\". This machine has |
| 1630 (string-match | 1638 (string-match |
| 1631 (format "\\([^ :]+\\):%d" number) xref)) | 1639 (format "\\([^ :]+\\):%d" number) xref)) |
| 1632 (match-string 1 xref)) | 1640 (match-string 1 xref)) |
| 1633 (t ""))) | 1641 (t ""))) |
| 1634 (cond | 1642 (cond |
| 1635 ((and (setq xref (mail-fetch-field "xref")) | 1643 ((and (not nntp-xref-number-is-evil) |
| 1644 (setq xref (mail-fetch-field "xref")) | |
| 1636 (string-match | 1645 (string-match |
| 1637 (if group | 1646 (if group |
| 1638 (concat "\\(" (regexp-quote group) "\\):\\([0-9]+\\)") | 1647 (concat "\\(" (regexp-quote group) "\\):\\([0-9]+\\)") |
| 1639 "\\([^ :]+\\):\\([0-9]+\\)") | 1648 "\\([^ :]+\\):\\([0-9]+\\)") |
| 1640 xref)) | 1649 xref)) |