Re: "patch" to smtpmail.el

[Richard Stallman]

I think this is a safer, cleaner way to write that change.
Does it work?

*** smtpmail.el.~1.42.~ Wed May  8 09:17:18 2002
--- smtpmail.el Wed May  8 22:50:36 2002
***************
*** 220,225 ****
--- 220,226 ----
        (case-fold-search nil)
        delimline
        (mailbuf (current-buffer))
+       (address user-mail-address)
        (smtpmail-code-conv-from
         (if enable-multibyte-characters
             (let ((sendmail-coding-system smtpmail-code-conv-from))
***************
*** 260,266 ****
            ;; they put one in themselves.
            (goto-char (point-min))
            (if (not (re-search-forward "^From:" delimline t))
!               (let* ((login user-mail-address)
                       (fullname (user-full-name)))
                  (cond ((eq mail-from-style 'angles)
                         (insert "From: " fullname)
--- 261,267 ----
            ;; they put one in themselves.
            (goto-char (point-min))
            (if (not (re-search-forward "^From:" delimline t))
!               (let* ((login address)
                       (fullname (user-full-name)))
                  (cond ((eq mail-from-style 'angles)
                         (insert "From: " fullname)