/[emacs]/emacs/lisp/mail/sendmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/sendmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.264 by rms, Mon Jan 6 01:07:14 2003 UTC revision 1.265 by lektu, Tue Feb 4 13:14:00 2003 UTC
# Line 575  If within the headers, this makes the ne Line 575  If within the headers, this makes the ne
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
# Line 944  external program defined by `sendmail-pr Line 944  external program defined by `sendmail-pr
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)
# Line 992  external program defined by `sendmail-pr Line 992  external program defined by `sendmail-pr
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")
# Line 1230  external program defined by `sendmail-pr Line 1230  external program defined by `sendmail-pr
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)

Legend:
Removed from v.1.264  
changed lines
  Added in v.1.265

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26