projects
/
elisp
/
lemi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d770b4a
)
(smtpmail-send-it): Modify to work without mail-header-separator.
Emacs-21_0_103-resend-fix-0
author
tomo
<tomo>
Mon, 28 May 2001 12:55:36 +0000
(12:55 +0000)
committer
tomo
<tomo>
Mon, 28 May 2001 12:55:36 +0000
(12:55 +0000)
mail/smtpmail.el
patch
|
blob
|
history
diff --git
a/mail/smtpmail.el
b/mail/smtpmail.el
index
c1a314e
..
91077b8
100644
(file)
--- a/
mail/smtpmail.el
+++ b/
mail/smtpmail.el
@@
-1,6
+1,6
@@
;;; smtpmail.el --- SMTP interface for mail-mode
;;; smtpmail.el --- SMTP interface for mail-mode
-;; Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1998, 1999, 2001 Free Software Foundation, Inc.
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
;; Keywords: mail
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
;; Keywords: mail
@@
-110,9
+110,9
@@
This is relative to `smtpmail-queue-dir'.")
(insert ?\n))
;; Change header-delimiter to be what sendmail expects.
(goto-char (point-min))
(insert ?\n))
;; Change header-delimiter to be what sendmail expects.
(goto-char (point-min))
- (re-search-forward
- (concat "^" (regexp-quote mail-header-separator) "\n"))
- (replace-match "\n")
+ (if (re-search-forward
+ (concat "^\\(" (regexp-quote mail-header-separator) "\\)?\n"))
+ (replace-match "\n"))
(backward-char 1)
(setq delimline (point-marker))
;; (sendmail-synch-aliases)
(backward-char 1)
(setq delimline (point-marker))
;; (sendmail-synch-aliases)