/[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.33 by rms, Sat Nov 17 22:43:36 2001 UTC revision 1.34 by pj, Sun Nov 25 15:08:08 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-string " ")            (insert " ")
877            (insert-string simple-address-list)            (insert simple-address-list)
878            (insert-string "\n")            (insert "\n")
879            (subst-char-in-region (point-min) (point-max) 10 ?  t);; newline --> blank            (subst-char-in-region (point-min) (point-max) 10 ?  t);; newline --> blank
880            (subst-char-in-region (point-min) (point-max) ?, ?  t);; comma   --> blank            (subst-char-in-region (point-min) (point-max) ?, ?  t);; comma   --> blank
881            (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.33  
changed lines
  Added in v.1.34

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