From xemacs-m  Sun May 18 16:16:49 1997
Received: from crystal.WonderWorks.COM (crystal.WonderWorks.com [192.203.206.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA11472
	for <xemacs-beta@xemacs.org>; Sun, 18 May 1997 16:16:47 -0500 (CDT)
Received: by crystal.WonderWorks.COM 
	id QQcqcr22838; Sun, 18 May 1997 17:16:48 -0400 (EDT)
Date: Sun, 18 May 1997 17:16:48 -0400 (EDT)
Message-Id: <QQcqcr22838.199705182116@crystal.WonderWorks.COM>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Kyle Jones <kyle_jones@wonderworks.com>
To: xemacs-beta@xemacs.org
Subject: Re: [PATCH] bogus patch to sendmail.el in beta1 reversal
In-Reply-To: <m22074a5k8.fsf@altair.xemacs.org>
References: <m2pvuoehs6.fsf@altair.xemacs.org>
	<kiglo5co9zq.fsf@jagor.srce.hr>
	<m27mgwa7n0.fsf@altair.xemacs.org>
	<kigg1vko7yi.fsf@jagor.srce.hr>
	<m22074a5k8.fsf@altair.xemacs.org>
X-Mailer: VM 6.32 under 20.2 XEmacs Lucid
X-Face: /cA45WHG7jWq>(O3&Z57Y<"WsX5ddc,4c#w0F*zrV#=M
        0@~@,s;b,aMtR5Sqs"+nU.z^CSFQ9t`z2>W,S,]:[+2^
        Nbf6v4g>!&,7R4Ot4Wg{&tm=WX7P["9%a)_da48-^tGy
        ,qz]Z,Zz\{E.,]'EO+F)@$KtF&V

Both versions of mail-position-on-field are broken.
Here's a version that should quiet TM and Noah.

(defun mail-position-on-field (field &optional soft)
  (let (end
	(case-fold-search t))
    (goto-char (point-min))
    (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
    (setq end (match-beginning 0))
    (goto-char (point-min))
    (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
	(progn
	  (re-search-forward "^[^ \t]" nil 'move)
	  (beginning-of-line)
	  (skip-chars-backward "\n")
	  t)
      (or soft
	  (progn (goto-char end)
		 (insert field ": \n")
		 (forward-char -1)))
      nil)))

