32 |
;;; We require lisp-mode to make sure that lisp-mode-syntax-table has |
;;; We require lisp-mode to make sure that lisp-mode-syntax-table has |
33 |
;;; been initialized. |
;;; been initialized. |
34 |
(require 'lisp-mode) |
(require 'lisp-mode) |
35 |
|
|
36 |
;;;###autoload |
;;;###autoload |
37 |
(defcustom mail-use-rfc822 nil "\ |
(defcustom mail-use-rfc822 nil "\ |
38 |
*If non-nil, use a full, hairy RFC822 parser on mail addresses. |
*If non-nil, use a full, hairy RFC822 parser on mail addresses. |
166 |
(setq address (buffer-string)) |
(setq address (buffer-string)) |
167 |
(erase-buffer)) |
(erase-buffer)) |
168 |
;; Strip non-nested comments an easier way. |
;; Strip non-nested comments an easier way. |
169 |
(while (setq pos (string-match |
(while (setq pos (string-match |
170 |
;; This doesn't hack rfc822 nested comments |
;; This doesn't hack rfc822 nested comments |
171 |
;; `(xyzzy (foo) whinge)' properly. Big deal. |
;; `(xyzzy (foo) whinge)' properly. Big deal. |
172 |
"[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)" |
"[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)" |
240 |
(naked-address (mail-strip-quoted-names address))) |
(naked-address (mail-strip-quoted-names address))) |
241 |
(if (string-match rmail-dont-reply-to-names naked-address) |
(if (string-match rmail-dont-reply-to-names naked-address) |
242 |
(setq destinations (concat (substring destinations 0 start-pos) |
(setq destinations (concat (substring destinations 0 start-pos) |
243 |
(and cur-pos (substring destinations |
(and cur-pos (substring destinations |
244 |
(1+ cur-pos)))) |
(1+ cur-pos)))) |
245 |
cur-pos start-pos) |
cur-pos start-pos) |
246 |
(setq cur-pos (and cur-pos (1+ cur-pos)) |
(setq cur-pos (and cur-pos (1+ cur-pos)) |