575 |
(defun mail-mode-fill-paragraph (arg) |
(defun mail-mode-fill-paragraph (arg) |
576 |
;; Do something special only if within the headers. |
;; Do something special only if within the headers. |
577 |
(if (< (point) (mail-header-end)) |
(if (< (point) (mail-header-end)) |
578 |
(let (beg end fieldname) |
(let (beg end fieldname) |
579 |
(when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes) |
(when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes) |
580 |
(setq beg (point))) |
(setq beg (point))) |
581 |
(setq fieldname |
(setq fieldname |
944 |
;; ... then undo escaping of matching parentheses, |
;; ... then undo escaping of matching parentheses, |
945 |
;; including matching nested parentheses. |
;; including matching nested parentheses. |
946 |
(goto-char fullname-start) |
(goto-char fullname-start) |
947 |
(while (re-search-forward |
(while (re-search-forward |
948 |
"\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" |
"\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" |
949 |
fullname-end 1) |
fullname-end 1) |
950 |
(replace-match "\\1(\\3)" t) |
(replace-match "\\1(\\3)" t) |
992 |
delimline t)) |
delimline t)) |
993 |
(let* ((default-directory "/") |
(let* ((default-directory "/") |
994 |
(coding-system-for-write selected-coding) |
(coding-system-for-write selected-coding) |
995 |
(args |
(args |
996 |
(append (list (point-min) (point-max) |
(append (list (point-min) (point-max) |
997 |
program |
program |
998 |
nil errbuf nil "-oi") |
nil errbuf nil "-oi") |
1230 |
(mail-position-on-field "to")) |
(mail-position-on-field "to")) |
1231 |
(insert "\nFCC: " folder)) |
(insert "\nFCC: " folder)) |
1232 |
|
|
1233 |
(defun mail-reply-to () |
(defun mail-reply-to () |
1234 |
"Move point to end of Reply-To-field. Create a Reply-To field if none." |
"Move point to end of Reply-To-field. Create a Reply-To field if none." |
1235 |
(interactive) |
(interactive) |
1236 |
(expand-abbrev) |
(expand-abbrev) |