Mercurial > emacs
annotate lisp/gnus/nnheader.el @ 32654:ff2336f92cd0
*** empty log message ***
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 19 Oct 2000 10:46:51 +0000 |
parents | 51cea22fd2aa |
children | a51631f90704 |
rev | line source |
---|---|
17493 | 1 ;;; nnheader.el --- header access macros for Gnus and its backends |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
2 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
3 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
4 ;; 1997, 1998, 2000 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
5 ;; Free Software Foundation, Inc. |
17493 | 6 |
7 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
8 ;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
17493 | 9 ;; Keywords: news |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, USA. | |
27 | |
28 ;;; Commentary: | |
29 | |
30 ;;; Code: | |
31 | |
19493
8d840c4548c0
Require cl at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
17493
diff
changeset
|
32 (eval-when-compile (require 'cl)) |
8d840c4548c0
Require cl at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
17493
diff
changeset
|
33 |
17493 | 34 (require 'mail-utils) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
35 (require 'mm-util) |
17493 | 36 |
37 (defvar nnheader-max-head-length 4096 | |
38 "*Max length of the head of articles.") | |
39 | |
40 (defvar nnheader-head-chop-length 2048 | |
41 "*Length of each read operation when trying to fetch HEAD headers.") | |
42 | |
43 (defvar nnheader-file-name-translation-alist nil | |
44 "*Alist that says how to translate characters in file names. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
45 For instance, if \":\" is invalid as a file character in file names |
17493 | 46 on your system, you could say something like: |
47 | |
48 \(setq nnheader-file-name-translation-alist '((?: . ?_)))") | |
49 | |
50 (eval-and-compile | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
51 (autoload 'nnmail-message-id "nnmail") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
52 (autoload 'mail-position-on-field "sendmail") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
53 (autoload 'message-remove-header "message") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
54 (autoload 'gnus-point-at-eol "gnus-util") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
55 (autoload 'gnus-delete-line "gnus-util") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
56 (autoload 'gnus-buffer-live-p "gnus-util")) |
17493 | 57 |
58 ;;; Header access macros. | |
59 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
60 ;; These macros may look very much like the ones in GNUS 4.1. They |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
61 ;; are, in a way, but you should note that the indices they use have |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
62 ;; been changed from the internal GNUS format to the NOV format. The |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
63 ;; makes it possible to read headers from XOVER much faster. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
64 ;; |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
65 ;; The format of a header is now: |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
66 ;; [number subject from date id references chars lines xref extra] |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
67 ;; |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
68 ;; (That next-to-last entry is defined as "misc" in the NOV format, |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
69 ;; but Gnus uses it for xrefs.) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
70 |
17493 | 71 (defmacro mail-header-number (header) |
72 "Return article number in HEADER." | |
73 `(aref ,header 0)) | |
74 | |
75 (defmacro mail-header-set-number (header number) | |
76 "Set article number of HEADER to NUMBER." | |
77 `(aset ,header 0 ,number)) | |
78 | |
79 (defmacro mail-header-subject (header) | |
80 "Return subject string in HEADER." | |
81 `(aref ,header 1)) | |
82 | |
83 (defmacro mail-header-set-subject (header subject) | |
84 "Set article subject of HEADER to SUBJECT." | |
85 `(aset ,header 1 ,subject)) | |
86 | |
87 (defmacro mail-header-from (header) | |
88 "Return author string in HEADER." | |
89 `(aref ,header 2)) | |
90 | |
91 (defmacro mail-header-set-from (header from) | |
92 "Set article author of HEADER to FROM." | |
93 `(aset ,header 2 ,from)) | |
94 | |
95 (defmacro mail-header-date (header) | |
96 "Return date in HEADER." | |
97 `(aref ,header 3)) | |
98 | |
99 (defmacro mail-header-set-date (header date) | |
100 "Set article date of HEADER to DATE." | |
101 `(aset ,header 3 ,date)) | |
102 | |
103 (defalias 'mail-header-message-id 'mail-header-id) | |
104 (defmacro mail-header-id (header) | |
105 "Return Id in HEADER." | |
106 `(aref ,header 4)) | |
107 | |
108 (defalias 'mail-header-set-message-id 'mail-header-set-id) | |
109 (defmacro mail-header-set-id (header id) | |
110 "Set article Id of HEADER to ID." | |
111 `(aset ,header 4 ,id)) | |
112 | |
113 (defmacro mail-header-references (header) | |
114 "Return references in HEADER." | |
115 `(aref ,header 5)) | |
116 | |
117 (defmacro mail-header-set-references (header ref) | |
118 "Set article references of HEADER to REF." | |
119 `(aset ,header 5 ,ref)) | |
120 | |
121 (defmacro mail-header-chars (header) | |
122 "Return number of chars of article in HEADER." | |
123 `(aref ,header 6)) | |
124 | |
125 (defmacro mail-header-set-chars (header chars) | |
126 "Set number of chars in article of HEADER to CHARS." | |
127 `(aset ,header 6 ,chars)) | |
128 | |
129 (defmacro mail-header-lines (header) | |
130 "Return lines in HEADER." | |
131 `(aref ,header 7)) | |
132 | |
133 (defmacro mail-header-set-lines (header lines) | |
134 "Set article lines of HEADER to LINES." | |
135 `(aset ,header 7 ,lines)) | |
136 | |
137 (defmacro mail-header-xref (header) | |
138 "Return xref string in HEADER." | |
139 `(aref ,header 8)) | |
140 | |
141 (defmacro mail-header-set-xref (header xref) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
142 "Set article XREF of HEADER to xref." |
17493 | 143 `(aset ,header 8 ,xref)) |
144 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
145 (defmacro mail-header-extra (header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
146 "Return the extra headers in HEADER." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
147 `(aref ,header 9)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
148 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
149 (defmacro mail-header-set-extra (header extra) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
150 "Set the extra headers in HEADER to EXTRA." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
151 `(aset ,header 9 ',extra)) |
17493 | 152 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
153 (defsubst make-mail-header (&optional init) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
154 "Create a new mail header structure initialized with INIT." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
155 (make-vector 10 init)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
156 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
157 (defsubst make-full-mail-header (&optional number subject from date id |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
158 references chars lines xref |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
159 extra) |
17493 | 160 "Create a new mail header structure initialized with the parameters given." |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
161 (vector number subject from date id references chars lines xref extra)) |
17493 | 162 |
163 ;; fake message-ids: generation and detection | |
164 | |
165 (defvar nnheader-fake-message-id 1) | |
166 | |
167 (defsubst nnheader-generate-fake-message-id () | |
168 (concat "fake+none+" (int-to-string (incf nnheader-fake-message-id)))) | |
169 | |
170 (defsubst nnheader-fake-message-id-p (id) | |
171 (save-match-data ; regular message-id's are <.*> | |
172 (string-match "\\`fake\\+none\\+[0-9]+\\'" id))) | |
173 | |
174 ;; Parsing headers and NOV lines. | |
175 | |
176 (defsubst nnheader-header-value () | |
177 (buffer-substring (match-end 0) (gnus-point-at-eol))) | |
178 | |
179 (defun nnheader-parse-head (&optional naked) | |
180 (let ((case-fold-search t) | |
181 (cur (current-buffer)) | |
182 (buffer-read-only nil) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
183 in-reply-to lines p ref) |
17493 | 184 (goto-char (point-min)) |
185 (when naked | |
186 (insert "\n")) | |
187 ;; Search to the beginning of the next header. Error messages | |
188 ;; do not begin with 2 or 3. | |
189 (prog1 | |
190 (when (or naked (re-search-forward "^[23][0-9]+ " nil t)) | |
191 ;; This implementation of this function, with nine | |
192 ;; search-forwards instead of the one re-search-forward and | |
193 ;; a case (which basically was the old function) is actually | |
194 ;; about twice as fast, even though it looks messier. You | |
195 ;; can't have everything, I guess. Speed and elegance | |
196 ;; don't always go hand in hand. | |
197 (vector | |
198 ;; Number. | |
199 (if naked | |
200 (progn | |
201 (setq p (point-min)) | |
202 0) | |
203 (prog1 | |
204 (read cur) | |
205 (end-of-line) | |
206 (setq p (point)) | |
207 (narrow-to-region (point) | |
208 (or (and (search-forward "\n.\n" nil t) | |
209 (- (point) 2)) | |
210 (point))))) | |
211 ;; Subject. | |
212 (progn | |
213 (goto-char p) | |
214 (if (search-forward "\nsubject: " nil t) | |
215 (nnheader-header-value) "(none)")) | |
216 ;; From. | |
217 (progn | |
218 (goto-char p) | |
219 (if (search-forward "\nfrom: " nil t) | |
220 (nnheader-header-value) "(nobody)")) | |
221 ;; Date. | |
222 (progn | |
223 (goto-char p) | |
224 (if (search-forward "\ndate: " nil t) | |
225 (nnheader-header-value) "")) | |
226 ;; Message-ID. | |
227 (progn | |
228 (goto-char p) | |
229 (if (search-forward "\nmessage-id:" nil t) | |
230 (buffer-substring | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
231 (1- (or (search-forward "<" (gnus-point-at-eol) t) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
232 (point))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
233 (or (search-forward ">" (gnus-point-at-eol) t) (point))) |
17493 | 234 ;; If there was no message-id, we just fake one to make |
235 ;; subsequent routines simpler. | |
236 (nnheader-generate-fake-message-id))) | |
237 ;; References. | |
238 (progn | |
239 (goto-char p) | |
240 (if (search-forward "\nreferences: " nil t) | |
241 (nnheader-header-value) | |
242 ;; Get the references from the in-reply-to header if there | |
243 ;; were no references and the in-reply-to header looks | |
244 ;; promising. | |
245 (if (and (search-forward "\nin-reply-to: " nil t) | |
246 (setq in-reply-to (nnheader-header-value)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
247 (string-match "<[^\n>]+>" in-reply-to)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
248 (let (ref2) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
249 (setq ref (substring in-reply-to (match-beginning 0) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
250 (match-end 0))) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
251 (while (string-match "<[^\n>]+>" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
252 in-reply-to (match-end 0)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
253 (setq ref2 (substring in-reply-to (match-beginning 0) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
254 (match-end 0))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
255 (when (> (length ref2) (length ref)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
256 (setq ref ref2))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
257 ref) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
258 nil))) |
17493 | 259 ;; Chars. |
260 0 | |
261 ;; Lines. | |
262 (progn | |
263 (goto-char p) | |
264 (if (search-forward "\nlines: " nil t) | |
265 (if (numberp (setq lines (read cur))) | |
266 lines 0) | |
267 0)) | |
268 ;; Xref. | |
269 (progn | |
270 (goto-char p) | |
271 (and (search-forward "\nxref: " nil t) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
272 (nnheader-header-value))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
273 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
274 ;; Extra. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
275 (when nnmail-extra-headers |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
276 (let ((extra nnmail-extra-headers) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
277 out) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
278 (while extra |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
279 (goto-char p) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
280 (when (search-forward |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
281 (concat "\n" (symbol-name (car extra)) ": ") nil t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
282 (push (cons (car extra) (nnheader-header-value)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
283 out)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
284 (pop extra)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
285 out)))) |
17493 | 286 (when naked |
287 (goto-char (point-min)) | |
288 (delete-char 1))))) | |
289 | |
290 (defmacro nnheader-nov-skip-field () | |
291 '(search-forward "\t" eol 'move)) | |
292 | |
293 (defmacro nnheader-nov-field () | |
294 '(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol))) | |
295 | |
296 (defmacro nnheader-nov-read-integer () | |
297 '(prog1 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
298 (if (eq (char-after) ?\t) |
17493 | 299 0 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
300 (let ((num (condition-case nil |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
301 (read (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
302 (error nil)))) |
17493 | 303 (if (numberp num) num 0))) |
304 (or (eobp) (forward-char 1)))) | |
305 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
306 (defmacro nnheader-nov-parse-extra () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
307 '(let (out string) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
308 (while (not (memq (char-after) '(?\n nil))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
309 (setq string (nnheader-nov-field)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
310 (when (string-match "^\\([^ :]+\\): " string) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
311 (push (cons (intern (match-string 1 string)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
312 (substring string (match-end 0))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
313 out))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
314 out)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
315 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
316 (defmacro nnheader-nov-read-message-id () |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
317 '(let ((id (nnheader-nov-field))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
318 (if (string-match "^<[^>]+>$" id) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
319 id |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
320 (nnheader-generate-fake-message-id)))) |
17493 | 321 |
322 (defun nnheader-parse-nov () | |
323 (let ((eol (gnus-point-at-eol))) | |
324 (vector | |
325 (nnheader-nov-read-integer) ; number | |
326 (nnheader-nov-field) ; subject | |
327 (nnheader-nov-field) ; from | |
328 (nnheader-nov-field) ; date | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
329 (nnheader-nov-read-message-id) ; id |
17493 | 330 (nnheader-nov-field) ; refs |
331 (nnheader-nov-read-integer) ; chars | |
332 (nnheader-nov-read-integer) ; lines | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
333 (if (eq (char-after) ?\n) |
17493 | 334 nil |
31785 | 335 (if (looking-at "Xref: ") |
336 (goto-char (match-end 0))) | |
337 (nnheader-nov-field)) ; Xref | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
338 (nnheader-nov-parse-extra)))) ; extra |
17493 | 339 |
340 (defun nnheader-insert-nov (header) | |
341 (princ (mail-header-number header) (current-buffer)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
342 (let ((p (point))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
343 (insert |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
344 "\t" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
345 (or (mail-header-subject header) "(none)") "\t" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
346 (or (mail-header-from header) "(nobody)") "\t" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
347 (or (mail-header-date header) "") "\t" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
348 (or (mail-header-id header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
349 (nnmail-message-id)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
350 "\t" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
351 (or (mail-header-references header) "") "\t") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
352 (princ (or (mail-header-chars header) 0) (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
353 (insert "\t") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
354 (princ (or (mail-header-lines header) 0) (current-buffer)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
355 (insert "\t") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
356 (when (mail-header-xref header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
357 (insert "Xref: " (mail-header-xref header))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
358 (when (or (mail-header-xref header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
359 (mail-header-extra header)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
360 (insert "\t")) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
361 (when (mail-header-extra header) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
362 (let ((extra (mail-header-extra header))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
363 (while extra |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
364 (insert (symbol-name (caar extra)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
365 ": " (cdar extra) "\t") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
366 (pop extra)))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
367 (insert "\n") |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
368 (backward-char 1) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
369 (while (search-backward "\n" p t) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
370 (delete-char 1)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
371 (forward-line 1))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
372 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
373 (defun nnheader-insert-header (header) |
17493 | 374 (insert |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
375 "Subject: " (or (mail-header-subject header) "(none)") "\n" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
376 "From: " (or (mail-header-from header) "(nobody)") "\n" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
377 "Date: " (or (mail-header-date header) "") "\n" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
378 "Message-ID: " (or (mail-header-id header) (nnmail-message-id)) "\n" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
379 "References: " (or (mail-header-references header) "") "\n" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
380 "Lines: ") |
17493 | 381 (princ (or (mail-header-lines header) 0) (current-buffer)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
382 (insert "\n\n")) |
17493 | 383 |
384 (defun nnheader-insert-article-line (article) | |
385 (goto-char (point-min)) | |
386 (insert "220 ") | |
387 (princ article (current-buffer)) | |
388 (insert " Article retrieved.\n") | |
389 (search-forward "\n\n" nil 'move) | |
390 (delete-region (point) (point-max)) | |
391 (forward-char -1) | |
392 (insert ".")) | |
393 | |
394 (defun nnheader-nov-delete-outside-range (beg end) | |
395 "Delete all NOV lines that lie outside the BEG to END range." | |
396 ;; First we find the first wanted line. | |
397 (nnheader-find-nov-line beg) | |
398 (delete-region (point-min) (point)) | |
399 ;; Then we find the last wanted line. | |
400 (when (nnheader-find-nov-line end) | |
401 (forward-line 1)) | |
402 (delete-region (point) (point-max))) | |
403 | |
404 (defun nnheader-find-nov-line (article) | |
405 "Put point at the NOV line that start with ARTICLE. | |
406 If ARTICLE doesn't exist, put point where that line | |
407 would have been. The function will return non-nil if | |
408 the line could be found." | |
409 ;; This function basically does a binary search. | |
410 (let ((max (point-max)) | |
411 (min (goto-char (point-min))) | |
412 (cur (current-buffer)) | |
413 (prev (point-min)) | |
414 num found) | |
415 (while (not found) | |
416 (goto-char (/ (+ max min) 2)) | |
417 (beginning-of-line) | |
418 (if (or (= (point) prev) | |
419 (eobp)) | |
420 (setq found t) | |
421 (setq prev (point)) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
422 (while (and (not (numberp (setq num (read cur)))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
423 (not (eobp))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
424 (gnus-delete-line)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
425 (cond ((> num article) |
17493 | 426 (setq max (point))) |
427 ((< num article) | |
428 (setq min (point))) | |
429 (t | |
430 (setq found 'yes))))) | |
431 ;; We may be at the first line. | |
432 (when (and (not num) | |
433 (not (eobp))) | |
434 (setq num (read cur))) | |
435 ;; Now we may have found the article we're looking for, or we | |
436 ;; may be somewhere near it. | |
437 (when (and (not (eq found 'yes)) | |
438 (not (eq num article))) | |
439 (setq found (point)) | |
440 (while (and (< (point) max) | |
441 (or (not (numberp num)) | |
442 (< num article))) | |
443 (forward-line 1) | |
444 (setq found (point)) | |
445 (or (eobp) | |
446 (= (setq num (read cur)) article))) | |
447 (unless (eq num article) | |
448 (goto-char found))) | |
449 (beginning-of-line) | |
450 (eq num article))) | |
451 | |
452 ;; Various cruft the backends and Gnus need to communicate. | |
453 | |
454 (defvar nntp-server-buffer nil) | |
455 (defvar gnus-verbose-backends 7 | |
456 "*A number that says how talkative the Gnus backends should be.") | |
457 (defvar gnus-nov-is-evil nil | |
458 "If non-nil, Gnus backends will never output headers in the NOV format.") | |
459 (defvar news-reply-yank-from nil) | |
460 (defvar news-reply-yank-message-id nil) | |
461 | |
462 (defvar nnheader-callback-function nil) | |
463 | |
464 (defun nnheader-init-server-buffer () | |
465 "Initialize the Gnus-backend communication buffer." | |
466 (save-excursion | |
467 (unless (gnus-buffer-live-p nntp-server-buffer) | |
468 (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
469 (mm-enable-multibyte) |
17493 | 470 (set-buffer nntp-server-buffer) |
471 (erase-buffer) | |
472 (kill-all-local-variables) | |
473 (setq case-fold-search t) ;Should ignore case. | |
474 t)) | |
475 | |
476 ;;; Various functions the backends use. | |
477 | |
478 (defun nnheader-file-error (file) | |
479 "Return a string that says what is wrong with FILE." | |
480 (format | |
481 (cond | |
482 ((not (file-exists-p file)) | |
483 "%s does not exist") | |
484 ((file-directory-p file) | |
485 "%s is a directory") | |
486 ((not (file-readable-p file)) | |
487 "%s is not readable")) | |
488 file)) | |
489 | |
490 (defun nnheader-insert-head (file) | |
491 "Insert the head of the article." | |
492 (when (file-exists-p file) | |
493 (if (eq nnheader-max-head-length t) | |
494 ;; Just read the entire file. | |
495 (nnheader-insert-file-contents file) | |
496 ;; Read 1K blocks until we find a separator. | |
497 (let ((beg 0) | |
498 format-alist) | |
499 (while (and (eq nnheader-head-chop-length | |
500 (nth 1 (nnheader-insert-file-contents | |
501 file nil beg | |
502 (incf beg nnheader-head-chop-length)))) | |
503 (prog1 (not (search-forward "\n\n" nil t)) | |
504 (goto-char (point-max))) | |
505 (or (null nnheader-max-head-length) | |
506 (< beg nnheader-max-head-length)))))) | |
507 t)) | |
508 | |
509 (defun nnheader-article-p () | |
510 "Say whether the current buffer looks like an article." | |
511 (goto-char (point-min)) | |
512 (if (not (search-forward "\n\n" nil t)) | |
513 nil | |
514 (narrow-to-region (point-min) (1- (point))) | |
515 (goto-char (point-min)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
516 (while (looking-at "[a-zA-Z][^ \t]+:.*\n\\([ \t].*\n\\)*\\|From .*\n") |
17493 | 517 (goto-char (match-end 0))) |
518 (prog1 | |
519 (eobp) | |
520 (widen)))) | |
521 | |
522 (defun nnheader-insert-references (references message-id) | |
523 "Insert a References header based on REFERENCES and MESSAGE-ID." | |
524 (if (and (not references) (not message-id)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
525 ;; This is invalid, but not all articles have Message-IDs. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
526 () |
17493 | 527 (mail-position-on-field "References") |
528 (let ((begin (save-excursion (beginning-of-line) (point))) | |
529 (fill-column 78) | |
530 (fill-prefix "\t")) | |
531 (when references | |
532 (insert references)) | |
533 (when (and references message-id) | |
534 (insert " ")) | |
535 (when message-id | |
536 (insert message-id)) | |
537 ;; Fold long References lines to conform to RFC1036 (sort of). | |
538 ;; The region must end with a newline to fill the region | |
539 ;; without inserting extra newline. | |
540 (fill-region-as-paragraph begin (1+ (point)))))) | |
541 | |
542 (defun nnheader-replace-header (header new-value) | |
543 "Remove HEADER and insert the NEW-VALUE." | |
544 (save-excursion | |
545 (save-restriction | |
546 (nnheader-narrow-to-headers) | |
547 (prog1 | |
548 (message-remove-header header) | |
549 (goto-char (point-max)) | |
550 (insert header ": " new-value "\n"))))) | |
551 | |
552 (defun nnheader-narrow-to-headers () | |
553 "Narrow to the head of an article." | |
554 (widen) | |
555 (narrow-to-region | |
556 (goto-char (point-min)) | |
557 (if (search-forward "\n\n" nil t) | |
558 (1- (point)) | |
559 (point-max))) | |
560 (goto-char (point-min))) | |
561 | |
562 (defun nnheader-set-temp-buffer (name &optional noerase) | |
563 "Set-buffer to an empty (possibly new) buffer called NAME with undo disabled." | |
564 (set-buffer (get-buffer-create name)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
565 (buffer-disable-undo) |
17493 | 566 (unless noerase |
567 (erase-buffer)) | |
568 (current-buffer)) | |
569 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
570 (eval-when-compile (defvar jka-compr-compression-info-list)) |
17493 | 571 (defvar nnheader-numerical-files |
572 (if (boundp 'jka-compr-compression-info-list) | |
573 (concat "\\([0-9]+\\)\\(" | |
574 (mapconcat (lambda (i) (aref i 0)) | |
575 jka-compr-compression-info-list "\\|") | |
576 "\\)?") | |
577 "[0-9]+$") | |
578 "Regexp that match numerical files.") | |
579 | |
580 (defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) | |
581 "Regexp that matches numerical file names.") | |
582 | |
583 (defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) | |
584 "Regexp that matches numerical full file paths.") | |
585 | |
586 (defsubst nnheader-file-to-number (file) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
587 "Take a FILE name and return the article number." |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
588 (if (string= nnheader-numerical-short-files "^[0-9]+$") |
17493 | 589 (string-to-int file) |
590 (string-match nnheader-numerical-short-files file) | |
591 (string-to-int (match-string 0 file)))) | |
592 | |
593 (defun nnheader-directory-files-safe (&rest args) | |
594 ;; It has been reported numerous times that `directory-files' | |
595 ;; fails with an alarming frequency on NFS mounted file systems. | |
596 ;; This function executes that function twice and returns | |
597 ;; the longest result. | |
598 (let ((first (apply 'directory-files args)) | |
599 (second (apply 'directory-files args))) | |
600 (if (> (length first) (length second)) | |
601 first | |
602 second))) | |
603 | |
604 (defun nnheader-directory-articles (dir) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
605 "Return a list of all article files in directory DIR." |
17493 | 606 (mapcar 'nnheader-file-to-number |
607 (nnheader-directory-files-safe | |
608 dir nil nnheader-numerical-short-files t))) | |
609 | |
610 (defun nnheader-article-to-file-alist (dir) | |
611 "Return an alist of article/file pairs in DIR." | |
612 (mapcar (lambda (file) (cons (nnheader-file-to-number file) file)) | |
613 (nnheader-directory-files-safe | |
614 dir nil nnheader-numerical-short-files t))) | |
615 | |
616 (defun nnheader-fold-continuation-lines () | |
617 "Fold continuation lines in the current buffer." | |
618 (nnheader-replace-regexp "\\(\r?\n[ \t]+\\)+" " ")) | |
619 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
620 (defun nnheader-translate-file-chars (file &optional full) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
621 "Translate FILE into something that can be a file name. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
622 If FULL, translate everything." |
17493 | 623 (if (null nnheader-file-name-translation-alist) |
624 ;; No translation is necessary. | |
625 file | |
626 (let* ((i 0) | |
627 trans leaf path len) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
628 (if full |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
629 ;; Do complete translation. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
630 (setq leaf (copy-sequence file) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
631 path "" |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
632 i (if (and (< 1 (length leaf)) (eq ?: (aref leaf 1))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
633 2 0)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
634 ;; We translate -- but only the file name. We leave the directory |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
635 ;; alone. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
636 (if (string-match "/[^/]+\\'" file) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
637 ;; This is needed on NT's and stuff. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
638 (setq leaf (substring file (1+ (match-beginning 0))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
639 path (substring file 0 (1+ (match-beginning 0)))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
640 ;; Fall back on this. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
641 (setq leaf (file-name-nondirectory file) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
642 path (file-name-directory file)))) |
17493 | 643 (setq len (length leaf)) |
644 (while (< i len) | |
645 (when (setq trans (cdr (assq (aref leaf i) | |
646 nnheader-file-name-translation-alist))) | |
647 (aset leaf i trans)) | |
648 (incf i)) | |
649 (concat path leaf)))) | |
650 | |
651 (defun nnheader-report (backend &rest args) | |
652 "Report an error from the BACKEND. | |
653 The first string in ARGS can be a format string." | |
654 (set (intern (format "%s-status-string" backend)) | |
655 (if (< (length args) 2) | |
656 (car args) | |
657 (apply 'format args))) | |
658 nil) | |
659 | |
660 (defun nnheader-get-report (backend) | |
661 "Get the most recent report from BACKEND." | |
662 (condition-case () | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
663 (nnheader-message 5 "%s" (symbol-value (intern (format "%s-status-string" |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
664 backend)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
665 (error (nnheader-message 5 "")))) |
17493 | 666 |
667 (defun nnheader-insert (format &rest args) | |
668 "Clear the communication buffer and insert FORMAT and ARGS into the buffer. | |
669 If FORMAT isn't a format string, it and all ARGS will be inserted | |
670 without formatting." | |
671 (save-excursion | |
672 (set-buffer nntp-server-buffer) | |
673 (erase-buffer) | |
674 (if (string-match "%" format) | |
675 (insert (apply 'format format args)) | |
676 (apply 'insert format args)) | |
677 t)) | |
678 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
679 (if (fboundp 'subst-char-in-string) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
680 (defsubst nnheader-replace-chars-in-string (string from to) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
681 (subst-char-in-string from to string)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
682 (defun nnheader-replace-chars-in-string (string from to) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
683 "Replace characters in STRING from FROM to TO." |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
684 (let ((string (substring string 0)) ;Copy string. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
685 (len (length string)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
686 (idx 0)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
687 ;; Replace all occurrences of FROM with TO. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
688 (while (< idx len) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
689 (when (= (aref string idx) from) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
690 (aset string idx to)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
691 (setq idx (1+ idx))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
692 string))) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
693 |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
694 (defun nnheader-replace-duplicate-chars-in-string (string from to) |
17493 | 695 "Replace characters in STRING from FROM to TO." |
696 (let ((string (substring string 0)) ;Copy string. | |
697 (len (length string)) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
698 (idx 0) prev i) |
17493 | 699 ;; Replace all occurrences of FROM with TO. |
700 (while (< idx len) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
701 (setq i (aref string idx)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
702 (when (and (eq prev from) (= i from)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
703 (aset string (1- idx) to) |
17493 | 704 (aset string idx to)) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
705 (setq prev i) |
17493 | 706 (setq idx (1+ idx))) |
707 string)) | |
708 | |
709 (defun nnheader-file-to-group (file &optional top) | |
710 "Return a group name based on FILE and TOP." | |
711 (nnheader-replace-chars-in-string | |
712 (if (not top) | |
713 file | |
714 (condition-case () | |
715 (substring (expand-file-name file) | |
716 (length | |
717 (expand-file-name | |
718 (file-name-as-directory top)))) | |
719 (error ""))) | |
720 ?/ ?.)) | |
721 | |
722 (defun nnheader-message (level &rest args) | |
723 "Message if the Gnus backends are talkative." | |
724 (if (or (not (numberp gnus-verbose-backends)) | |
725 (<= level gnus-verbose-backends)) | |
726 (apply 'message args) | |
727 (apply 'format args))) | |
728 | |
729 (defun nnheader-be-verbose (level) | |
730 "Return whether the backends should be verbose on LEVEL." | |
731 (or (not (numberp gnus-verbose-backends)) | |
732 (<= level gnus-verbose-backends))) | |
733 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
734 (defvar nnheader-pathname-coding-system 'binary |
19596
33877efba398
(nnheader-pathname-coding-system): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19493
diff
changeset
|
735 "*Coding system for pathname.") |
33877efba398
(nnheader-pathname-coding-system): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19493
diff
changeset
|
736 |
17493 | 737 (defun nnheader-group-pathname (group dir &optional file) |
738 "Make pathname for GROUP." | |
739 (concat | |
740 (let ((dir (file-name-as-directory (expand-file-name dir)))) | |
741 ;; If this directory exists, we use it directly. | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
742 (file-name-as-directory |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
743 (if (file-directory-p (concat dir group)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
744 (expand-file-name group dir) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
745 ;; If not, we translate dots into slashes. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
746 (expand-file-name (mm-encode-coding-string |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
747 (nnheader-replace-chars-in-string group ?. ?/) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
748 nnheader-pathname-coding-system) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
749 dir)))) |
17493 | 750 (cond ((null file) "") |
751 ((numberp file) (int-to-string file)) | |
752 (t file)))) | |
753 | |
754 (defun nnheader-functionp (form) | |
755 "Return non-nil if FORM is funcallable." | |
756 (or (and (symbolp form) (fboundp form)) | |
757 (and (listp form) (eq (car form) 'lambda)))) | |
758 | |
759 (defun nnheader-concat (dir &rest files) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
760 "Concat DIR as directory to FILES." |
17493 | 761 (apply 'concat (file-name-as-directory dir) files)) |
762 | |
763 (defun nnheader-ms-strip-cr () | |
764 "Strip ^M from the end of all lines." | |
765 (save-excursion | |
766 (goto-char (point-min)) | |
767 (while (re-search-forward "\r$" nil t) | |
768 (delete-backward-char 1)))) | |
769 | |
770 (defun nnheader-file-size (file) | |
771 "Return the file size of FILE or 0." | |
772 (or (nth 7 (file-attributes file)) 0)) | |
773 | |
774 (defun nnheader-find-etc-directory (package &optional file) | |
775 "Go through the path and find the \".../etc/PACKAGE\" directory. | |
776 If FILE, find the \".../etc/PACKAGE\" file instead." | |
777 (let ((path load-path) | |
778 dir result) | |
779 ;; We try to find the dir by looking at the load path, | |
780 ;; stripping away the last component and adding "etc/". | |
781 (while path | |
782 (if (and (car path) | |
783 (file-exists-p | |
784 (setq dir (concat | |
785 (file-name-directory | |
786 (directory-file-name (car path))) | |
787 "etc/" package | |
788 (if file "" "/")))) | |
789 (or file (file-directory-p dir))) | |
790 (setq result dir | |
791 path nil) | |
792 (setq path (cdr path)))) | |
793 result)) | |
794 | |
795 (defvar ange-ftp-path-format) | |
796 (defvar efs-path-regexp) | |
797 (defun nnheader-re-read-dir (path) | |
798 "Re-read directory PATH if PATH is on a remote system." | |
799 (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp)) | |
800 (when (string-match efs-path-regexp path) | |
801 (efs-re-read-dir path)) | |
802 (when (and (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format)) | |
803 (when (string-match (car ange-ftp-path-format) path) | |
804 (ange-ftp-re-read-dir path))))) | |
805 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
806 (defvar nnheader-file-coding-system 'raw-text |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
807 "Coding system used in file backends of Gnus.") |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
808 |
17493 | 809 (defun nnheader-insert-file-contents (filename &optional visit beg end replace) |
810 "Like `insert-file-contents', q.v., but only reads in the file. | |
811 A buffer may be modified in several ways after reading into the buffer due | |
812 to advanced Emacs features, such as file-name-handlers, format decoding, | |
813 find-file-hooks, etc. | |
814 This function ensures that none of these modifications will take place." | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
815 (let ((coding-system-for-read nnheader-file-coding-system)) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
816 (mm-insert-file-contents filename visit beg end replace))) |
17493 | 817 |
818 (defun nnheader-find-file-noselect (&rest args) | |
819 (let ((format-alist nil) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
820 (auto-mode-alist (mm-auto-mode-alist)) |
17493 | 821 (default-major-mode 'fundamental-mode) |
822 (enable-local-variables nil) | |
19596
33877efba398
(nnheader-pathname-coding-system): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19493
diff
changeset
|
823 (after-insert-file-functions nil) |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
824 (enable-local-eval nil) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
825 (find-file-hooks nil) |
19596
33877efba398
(nnheader-pathname-coding-system): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19493
diff
changeset
|
826 (coding-system-for-read nnheader-file-coding-system)) |
17493 | 827 (apply 'find-file-noselect args))) |
828 | |
829 (defun nnheader-directory-regular-files (dir) | |
830 "Return a list of all regular files in DIR." | |
831 (let ((files (directory-files dir t)) | |
832 out) | |
833 (while files | |
834 (when (file-regular-p (car files)) | |
835 (push (car files) out)) | |
836 (pop files)) | |
837 (nreverse out))) | |
838 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
839 (defun nnheader-directory-files (&rest args) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
840 "Same as `directory-files', but prune \".\" and \"..\"." |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
841 (let ((files (apply 'directory-files args)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
842 out) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
843 (while files |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
844 (unless (member (file-name-nondirectory (car files)) '("." "..")) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
845 (push (car files) out)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
846 (pop files)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
847 (nreverse out))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
848 |
17493 | 849 (defmacro nnheader-skeleton-replace (from &optional to regexp) |
850 `(let ((new (generate-new-buffer " *nnheader replace*")) | |
851 (cur (current-buffer)) | |
852 (start (point-min))) | |
853 (set-buffer cur) | |
854 (goto-char (point-min)) | |
855 (while (,(if regexp 're-search-forward 'search-forward) | |
856 ,from nil t) | |
857 (insert-buffer-substring | |
858 cur start (prog1 (match-beginning 0) (set-buffer new))) | |
859 (goto-char (point-max)) | |
860 ,(when to `(insert ,to)) | |
861 (set-buffer cur) | |
862 (setq start (point))) | |
863 (insert-buffer-substring | |
864 cur start (prog1 (point-max) (set-buffer new))) | |
865 (copy-to-buffer cur (point-min) (point-max)) | |
866 (kill-buffer (current-buffer)) | |
867 (set-buffer cur))) | |
868 | |
869 (defun nnheader-replace-string (from to) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
870 "Do a fast replacement of FROM to TO from point to `point-max'." |
17493 | 871 (nnheader-skeleton-replace from to)) |
872 | |
873 (defun nnheader-replace-regexp (from to) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
874 "Do a fast regexp replacement of FROM to TO from point to `point-max'." |
17493 | 875 (nnheader-skeleton-replace from to t)) |
876 | |
877 (defun nnheader-strip-cr () | |
878 "Strip all \r's from the current buffer." | |
879 (nnheader-skeleton-replace "\r")) | |
880 | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
881 (defalias 'nnheader-run-at-time 'run-at-time) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
882 (defalias 'nnheader-cancel-timer 'cancel-timer) |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
883 (defalias 'nnheader-cancel-function-timers 'cancel-function-timers) |
17493 | 884 |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
885 (when (string-match "XEmacs" emacs-version) |
17493 | 886 (require 'nnheaderxm)) |
887 | |
888 (run-hooks 'nnheader-load-hook) | |
889 | |
890 (provide 'nnheader) | |
891 | |
892 ;;; nnheader.el ends here |