[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Miles Bader]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.264 emacs/lisp/mail/sendmail.el:1.265
*** emacs/lisp/mail/sendmail.el:1.264   Sun Jan  5 20:07:14 2003
--- emacs/lisp/mail/sendmail.el Tue Feb  4 08:14:00 2003
***************
*** 575,581 ****
  (defun mail-mode-fill-paragraph (arg)
    ;; Do something special only if within the headers.
    (if (< (point) (mail-header-end))
!       (let (beg end fieldname) 
        (when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
                (setq beg (point)))
        (setq fieldname
--- 575,581 ----
  (defun mail-mode-fill-paragraph (arg)
    ;; Do something special only if within the headers.
    (if (< (point) (mail-header-end))
!       (let (beg end fieldname)
        (when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
                (setq beg (point)))
        (setq fieldname
***************
*** 944,950 ****
                             ;; ... then undo escaping of matching parentheses,
                             ;; including matching nested parentheses.
                             (goto-char fullname-start)
!                            (while (re-search-forward 
                                     
"\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)"
                                     fullname-end 1)
                               (replace-match "\\1(\\3)" t)
--- 944,950 ----
                             ;; ... then undo escaping of matching parentheses,
                             ;; including matching nested parentheses.
                             (goto-char fullname-start)
!                            (while (re-search-forward
                                     
"\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)"
                                     fullname-end 1)
                               (replace-match "\\1(\\3)" t)
***************
*** 992,998 ****
                                   delimline t))
              (let* ((default-directory "/")
                     (coding-system-for-write selected-coding)
!                    (args 
                      (append (list (point-min) (point-max)
                                    program
                                    nil errbuf nil "-oi")
--- 992,998 ----
                                   delimline t))
              (let* ((default-directory "/")
                     (coding-system-for-write selected-coding)
!                    (args
                      (append (list (point-min) (point-max)
                                    program
                                    nil errbuf nil "-oi")
***************
*** 1230,1236 ****
        (mail-position-on-field "to"))
    (insert "\nFCC: " folder))
  
! (defun mail-reply-to ()      
    "Move point to end of Reply-To-field.  Create a Reply-To field if none."
    (interactive)
    (expand-abbrev)
--- 1230,1236 ----
        (mail-position-on-field "to"))
    (insert "\nFCC: " folder))
  
! (defun mail-reply-to ()
    "Move point to end of Reply-To-field.  Create a Reply-To field if none."
    (interactive)
    (expand-abbrev)