Commit c43d7539 authored by Chong Yidong's avatar Chong Yidong
Browse files

* mail/sendmail.el (mail-send): Search explicitly for

	mail-header-separator when checking for corrupted header lines.
parent 3e0b9c08
2006-06-15 Chong Yidong <cyd@stupidchicken.com>
* mail/sendmail.el (mail-send): Search explicitly for
mail-header-separator when checking for corrupted header lines.
2006-06-15 Nick Roberts <nickrob@snap.net.nz>
 
* progmodes/gdb-ui.el (gdb-same-frame): New option.
......
......@@ -863,11 +863,14 @@ the user from the mailer."
(error "Message contains non-ASCII characters"))))
;; Complain about any invalid line.
(goto-char (point-min))
(while (< (point) (mail-header-end))
(unless (looking-at "[ \t]\\|.*:\\|$")
(push-mark opoint)
(error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
(forward-line 1))
(re-search-forward (regexp-quote mail-header-separator) (point-max) t)
(let ((header-end (or (match-beginning 0) (point-max))))
(goto-char (point-min))
(while (< (point) header-end)
(unless (looking-at "[ \t]\\|.*:\\|$")
(push-mark opoint)
(error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
(forward-line 1)))
(goto-char opoint)
(run-hooks 'mail-send-hook)
(message "Sending...")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment