Mercurial > emacs
annotate lisp/gnus/ietf-drums.el @ 109313:e856a274549b
Constify functions taking char *
* alloc.c (pending_malloc_warning, malloc_warning): Add const.
* callproc.c (relocate_fd, getenv_internal_1, getenv_internal)
(egetenv): Likewise.
* doprnt.c (doprnt): Likewise.
* editfns.c (set_time_zone_rule, format2): Likewise.
* emacs.c (decode_env_path): Likewise.
* eval.c (signal_error, error): Likewise.
* insdel.c (replace_range_2): Likewise.
* keyboard.c (cmd_error_internal): Likewise.
* lread.c (isfloat_string, make_symbol, dir_warning): Likewise.
* print.c (write_string, write_string_1, print_error_message):
Likewise.
* vm-limit.c (warn_function, memory_warnings): Likewise.
* xdisp.c (message1, message1_nolog, message_with_string)
(vmessage, message, message_nolog): Likewise.
* emacs.c: Remove duplicate declaration.
* keyboard.h: Likewise.
* lisp.h: Update prototypes.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Sun, 11 Jul 2010 11:27:13 +0200 |
parents | ecbe0edc4f69 |
children | 8d09094063d0 |
rev | line source |
---|---|
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
1 ;;; ietf-drums.el --- Functions for parsing RFC822bis headers |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
2 |
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
31717 | 5 |
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | |
7 ;; This file is part of GNU Emacs. | |
8 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
9 ;; GNU Emacs is free software: you can redistribute it and/or modify |
31717 | 10 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; (at your option) any later version. |
31717 | 13 |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
31717 | 17 ;; GNU General Public License for more details. |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
31717 | 21 |
22 ;;; Commentary: | |
23 | |
24 ;; DRUMS is an IETF Working Group that works (or worked) on the | |
25 ;; successor to RFC822, "Standard For The Format Of Arpa Internet Text | |
26 ;; Messages". This library is based on | |
27 ;; draft-ietf-drums-msg-fmt-05.txt, released on 1998-08-05. | |
28 | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
29 ;; Pending a real regression self test suite, Simon Josefsson added |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
30 ;; various self test expressions snipped from bug reports, and their |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
31 ;; expected value, below. I you believe it could be useful, please |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
32 ;; add your own test cases, or write a real self test suite, or just |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
33 ;; remove this. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
34 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
35 ;; <m3oekvfd50.fsf@whitebox.m5r.de> |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
36 ;; (ietf-drums-parse-address "'foo' <foo@example.com>") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
37 ;; => ("foo@example.com" . "'foo'") |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
38 |
31717 | 39 ;;; Code: |
40 | |
32514
a8017f96379d
(mm-util): Require CL when compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31717
diff
changeset
|
41 (eval-when-compile (require 'cl)) |
31717 | 42 (require 'mm-util) |
43 | |
44 (defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177" | |
45 "US-ASCII control characters excluding CR, LF and white space.") | |
46 (defvar ietf-drums-text-token "\001-\011\013\014\016-\177" | |
48588 | 47 "US-ASCII characters excluding CR and LF.") |
31717 | 48 (defvar ietf-drums-specials-token "()<>[]:;@\\,.\"" |
49 "Special characters.") | |
50 (defvar ietf-drums-quote-token "\\" | |
51 "Quote character.") | |
52 (defvar ietf-drums-wsp-token " \t" | |
53 "White space.") | |
54 (defvar ietf-drums-fws-regexp | |
55 (concat "[" ietf-drums-wsp-token "]*\n[" ietf-drums-wsp-token "]+") | |
56 "Folding white space.") | |
57 (defvar ietf-drums-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~" | |
58 "Textual token.") | |
59 (defvar ietf-drums-dot-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~." | |
60 "Textual token including full stop.") | |
61 (defvar ietf-drums-qtext-token | |
62 (concat ietf-drums-no-ws-ctl-token "\041\043-\133\135-\177") | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48588
diff
changeset
|
63 "Non-white-space control characters, plus the rest of ASCII excluding |
48588 | 64 backslash and doublequote.") |
31717 | 65 (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" |
66 "Tspecials.") | |
67 | |
68 (defvar ietf-drums-syntax-table | |
69 (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) | |
70 (modify-syntax-entry ?\\ "/" table) | |
71 (modify-syntax-entry ?< "(" table) | |
72 (modify-syntax-entry ?> ")" table) | |
73 (modify-syntax-entry ?@ "w" table) | |
74 (modify-syntax-entry ?/ "w" table) | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
75 (modify-syntax-entry ?* "_" table) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
76 (modify-syntax-entry ?\; "_" table) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
77 (modify-syntax-entry ?\' "_" table) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
78 (if (featurep 'xemacs) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
79 (let ((i 128)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
80 (while (< i 256) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
81 (modify-syntax-entry i "w" table) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
82 (setq i (1+ i))))) |
31717 | 83 table)) |
84 | |
85 (defun ietf-drums-token-to-list (token) | |
86 "Translate TOKEN into a list of characters." | |
87 (let ((i 0) | |
88 b e c out range) | |
89 (while (< i (length token)) | |
90 (setq c (mm-char-int (aref token i))) | |
91 (incf i) | |
92 (cond | |
93 ((eq c (mm-char-int ?-)) | |
94 (if b | |
95 (setq range t) | |
96 (push c out))) | |
97 (range | |
98 (while (<= b c) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
99 (push (make-char 'ascii b) out) |
31717 | 100 (incf b)) |
101 (setq range nil)) | |
102 ((= i (length token)) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
103 (push (make-char 'ascii c) out)) |
31717 | 104 (t |
105 (when b | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
106 (push (make-char 'ascii b) out)) |
31717 | 107 (setq b c)))) |
108 (nreverse out))) | |
109 | |
110 (defsubst ietf-drums-init (string) | |
111 (set-syntax-table ietf-drums-syntax-table) | |
112 (insert string) | |
113 (ietf-drums-unfold-fws) | |
114 (goto-char (point-min))) | |
115 | |
116 (defun ietf-drums-remove-comments (string) | |
117 "Remove comments from STRING." | |
118 (with-temp-buffer | |
119 (let (c) | |
120 (ietf-drums-init string) | |
121 (while (not (eobp)) | |
122 (setq c (char-after)) | |
123 (cond | |
124 ((eq c ?\") | |
99342 | 125 (condition-case err |
126 (forward-sexp 1) | |
127 (error (goto-char (point-max))))) | |
31717 | 128 ((eq c ?\() |
99342 | 129 (delete-region |
130 (point) | |
131 (condition-case nil | |
132 (with-syntax-table (copy-syntax-table ietf-drums-syntax-table) | |
133 (modify-syntax-entry ?\" "w") | |
134 (forward-sexp 1) | |
135 (point)) | |
136 (error (point-max))))) | |
31717 | 137 (t |
138 (forward-char 1)))) | |
139 (buffer-string)))) | |
140 | |
141 (defun ietf-drums-remove-whitespace (string) | |
142 "Remove whitespace from STRING." | |
143 (with-temp-buffer | |
144 (ietf-drums-init string) | |
145 (let (c) | |
146 (while (not (eobp)) | |
147 (setq c (char-after)) | |
148 (cond | |
149 ((eq c ?\") | |
150 (forward-sexp 1)) | |
151 ((eq c ?\() | |
152 (forward-sexp 1)) | |
49844
48965175c443
Fix character constant.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
153 ((memq c '(?\ ?\t ?\n)) |
31717 | 154 (delete-char 1)) |
155 (t | |
156 (forward-char 1)))) | |
157 (buffer-string)))) | |
158 | |
159 (defun ietf-drums-get-comment (string) | |
160 "Return the first comment in STRING." | |
161 (with-temp-buffer | |
162 (ietf-drums-init string) | |
163 (let (result c) | |
164 (while (not (eobp)) | |
165 (setq c (char-after)) | |
166 (cond | |
167 ((eq c ?\") | |
168 (forward-sexp 1)) | |
169 ((eq c ?\() | |
170 (setq result | |
171 (buffer-substring | |
172 (1+ (point)) | |
173 (progn (forward-sexp 1) (1- (point)))))) | |
174 (t | |
175 (forward-char 1)))) | |
176 result))) | |
177 | |
178 (defun ietf-drums-strip (string) | |
179 "Remove comments and whitespace from STRING." | |
180 (ietf-drums-remove-whitespace (ietf-drums-remove-comments string))) | |
181 | |
182 (defun ietf-drums-parse-address (string) | |
183 "Parse STRING and return a MAILBOX / DISPLAY-NAME pair." | |
184 (with-temp-buffer | |
185 (let (display-name mailbox c display-string) | |
186 (ietf-drums-init string) | |
187 (while (not (eobp)) | |
188 (setq c (char-after)) | |
189 (cond | |
190 ((or (eq c ? ) | |
191 (eq c ?\t)) | |
192 (forward-char 1)) | |
193 ((eq c ?\() | |
194 (forward-sexp 1)) | |
195 ((eq c ?\") | |
196 (push (buffer-substring | |
197 (1+ (point)) (progn (forward-sexp 1) (1- (point)))) | |
198 display-name)) | |
199 ((looking-at (concat "[" ietf-drums-atext-token "@" "]")) | |
200 (push (buffer-substring (point) (progn (forward-sexp 1) (point))) | |
201 display-name)) | |
202 ((eq c ?<) | |
203 (setq mailbox | |
204 (ietf-drums-remove-whitespace | |
205 (ietf-drums-remove-comments | |
206 (buffer-substring | |
207 (1+ (point)) | |
208 (progn (forward-sexp 1) (1- (point)))))))) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
209 (t |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
210 (message "Unknown symbol: %c" c) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
211 (forward-char 1)))) |
31717 | 212 ;; If we found no display-name, then we look for comments. |
213 (if display-name | |
214 (setq display-string | |
215 (mapconcat 'identity (reverse display-name) " ")) | |
216 (setq display-string (ietf-drums-get-comment string))) | |
217 (if (not mailbox) | |
218 (when (string-match "@" display-string) | |
219 (cons | |
220 (mapconcat 'identity (nreverse display-name) "") | |
221 (ietf-drums-get-comment string))) | |
222 (cons mailbox display-string))))) | |
223 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
224 (defun ietf-drums-parse-addresses (string &optional rawp) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
225 "Parse STRING and return a list of MAILBOX / DISPLAY-NAME pairs. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
226 If RAWP, don't actually parse the addresses, but instead return |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
227 a list of address strings." |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
228 (if (null string) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
229 nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
230 (with-temp-buffer |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
231 (ietf-drums-init string) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
232 (let ((beg (point)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
233 pairs c address) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
234 (while (not (eobp)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
235 (setq c (char-after)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
236 (cond |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
237 ((memq c '(?\" ?< ?\()) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
238 (condition-case nil |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
239 (forward-sexp 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
240 (error |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
241 (skip-chars-forward "^,")))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
242 ((eq c ?,) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
243 (setq address |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
244 (if rawp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
245 (buffer-substring beg (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
246 (condition-case nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
247 (ietf-drums-parse-address |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
248 (buffer-substring beg (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
249 (error nil)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
250 (if address (push address pairs)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
251 (forward-char 1) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
252 (setq beg (point))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
253 (t |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
254 (forward-char 1)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
255 (setq address |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
256 (if rawp |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
257 (buffer-substring beg (point)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
258 (condition-case nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
259 (ietf-drums-parse-address |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
260 (buffer-substring beg (point))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
261 (error nil)))) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
262 (if address (push address pairs)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
263 (nreverse pairs))))) |
31717 | 264 |
265 (defun ietf-drums-unfold-fws () | |
266 "Unfold folding white space in the current buffer." | |
267 (goto-char (point-min)) | |
268 (while (re-search-forward ietf-drums-fws-regexp nil t) | |
269 (replace-match " " t t)) | |
270 (goto-char (point-min))) | |
271 | |
272 (defun ietf-drums-parse-date (string) | |
273 "Return an Emacs time spec from STRING." | |
274 (apply 'encode-time (parse-time-string string))) | |
275 | |
276 (defun ietf-drums-narrow-to-header () | |
277 "Narrow to the header section in the current buffer." | |
278 (narrow-to-region | |
279 (goto-char (point-min)) | |
280 (if (re-search-forward "^\r?$" nil 1) | |
281 (match-beginning 0) | |
282 (point-max))) | |
283 (goto-char (point-min))) | |
284 | |
285 (defun ietf-drums-quote-string (string) | |
286 "Quote string if it needs quoting to be displayed in a header." | |
287 (if (string-match (concat "[^" ietf-drums-atext-token "]") string) | |
288 (concat "\"" string "\"") | |
289 string)) | |
290 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
291 (defun ietf-drums-make-address (name address) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
292 (if name |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
293 (concat (ietf-drums-quote-string name) " <" address ">") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
294 address)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
295 |
31717 | 296 (provide 'ietf-drums) |
297 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
298 ;; arch-tag: 379a0191-dbae-4ca6-a0f5-d4202c209ef9 |
31717 | 299 ;;; ietf-drums.el ends here |