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

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

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

revision 1.34 by pj, Sun Nov 25 15:08:08 2001 UTC revision 1.35 by rms, Sun Nov 25 17:43:47 2001 UTC
# Line 873  This is relative to `smtpmail-queue-dir' Line 873  This is relative to `smtpmail-queue-dir'
873                            (mail-strip-quoted-names (buffer-substring this-line this-line-end))))                            (mail-strip-quoted-names (buffer-substring this-line this-line-end))))
874              )              )
875            (erase-buffer)            (erase-buffer)
876            (insert " ")            (insert " " simple-address-list "\n")
           (insert simple-address-list)  
           (insert "\n")  
877            (subst-char-in-region (point-min) (point-max) 10 ?  t);; newline --> blank            (subst-char-in-region (point-min) (point-max) 10 ?  t);; newline --> blank
878            (subst-char-in-region (point-min) (point-max) ?, ?  t);; comma   --> blank            (subst-char-in-region (point-min) (point-max) ?, ?  t);; comma   --> blank
879            (subst-char-in-region (point-min) (point-max)  9 ?  t);; tab     --> blank            (subst-char-in-region (point-min) (point-max)  9 ?  t);; tab     --> blank

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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