From da974e4578f9272878f26d21a709c65c4be16c15 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Oct 2001 12:22:41 +0000 Subject: [PATCH] * message.el (rfc822-goto-eoh): Define it when void. --- ChangeLog | 4 ++++ lisp/message.el | 7 +++++++ 2 files changed, 11 insertions(+) diff --git a/ChangeLog b/ChangeLog index 04b7fec..0fe294d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2001-10-19 Katsumi Yamaoka + * lisp/message.el (rfc822-goto-eoh): Define it when void. + +2001-10-19 Katsumi Yamaoka + * lisp/message.el (message-resend, message-send): Undo. 2001-10-19 Katsumi Yamaoka diff --git a/lisp/message.el b/lisp/message.el index cb3aa04..dda1010 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2200,6 +2200,13 @@ Prefix arg means justify as well." (message-newline-and-reformat arg t) t)) +(defun-maybe rfc822-goto-eoh () + ;; Go to header delimiter line in a mail message, following RFC822 rules + (goto-char (point-min)) + (while (looking-at "^[^: \n]+:\\|^[ \t]") + (forward-line 1)) + (point)) + (defun message-do-auto-fill () "Like `do-auto-fill', but don't fill in message header." (when (> (point) (save-excursion (rfc822-goto-eoh))) -- 1.7.10.4