andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
mail-header-separator when checking for corrupted header lines.
This commit is contained in:
Chong Yidong 2006-06-15 18:34:26 +00:00
parent 3e0b9c08a0
commit c43d75391a
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

13
lisp/mail/sendmail.el
View file

@ -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...")