26 |
;;; Commentary: |
;;; Commentary: |
27 |
|
|
28 |
;; Support functions for parsing RFC-822 headers, used by mail and news |
;; Support functions for parsing RFC-822 headers, used by mail and news |
29 |
;; modes. |
;; modes. |
30 |
|
|
31 |
;;; Code: |
;;; Code: |
32 |
|
|
75 |
(forward-char -1) |
(forward-char -1) |
76 |
(delete-char 2) |
(delete-char 2) |
77 |
t) |
t) |
78 |
((memq ch '(?\ ?\t ?\n)) |
((memq ch '(?\ ?\t ?\n)) |
79 |
(delete-region (point) |
(delete-region (point) |
80 |
(progn (skip-chars-forward " \t\n") (point))) |
(progn (skip-chars-forward " \t\n") (point))) |
81 |
t) |
t) |
269 |
(t |
(t |
270 |
(rfc822-bad-address "Strange character or missing comma"))))))) |
(rfc822-bad-address "Strange character or missing comma"))))))) |
271 |
|
|
272 |
|
|
273 |
(defun rfc822-addresses (header-text) |
(defun rfc822-addresses (header-text) |
274 |
(if (string-match "\\`[ \t]*\\([^][\000-\037 ()<>@,;:\\\".]+\\)[ \t]*\\'" |
(if (string-match "\\`[ \t]*\\([^][\000-\037 ()<>@,;:\\\".]+\\)[ \t]*\\'" |
275 |
header-text) |
header-text) |