From 8be675602a469732aab9515137002ec2625cb7f8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 Mar 2002 22:13:49 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mml-sec.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8781da7..dc3d5e3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-03-28 Simon Josefsson + + * mml-sec.el (mml-secure-message): Search after + mail-header-separator from top of message. + 2002-03-28 Paul Jarc * nnmaildir.el: Cosmetic changes. diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el index a26ed91..a347cc3 100644 --- a/lisp/mml-sec.el +++ b/lisp/mml-sec.el @@ -133,8 +133,8 @@ insert-loc) (mml-unsecure-message) (save-excursion - (goto-char (point-max)) - (cond ((re-search-backward + (goto-char (point-min)) + (cond ((re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n") nil t) (goto-char (setq insert-loc (match-end 0))) (unless (looking-at "<#secure") -- 1.7.10.4