From: yamaoka <yamaoka>
Date: Fri, 7 Feb 2003 12:14:04 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_16-00-quimby~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8a9ee531430224ffb8428516809bcbb517790c6;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/GNUS-NEWS b/GNUS-NEWS
index 6ad89fd..dc49807 100644
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -1,5 +1,5 @@
 GNUS NEWS -- history of user-visible changes.
-Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
+Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 See the end for copying conditions.
 
 Please send Gnus bug reports to bugs@gnus.org.
@@ -8,6 +8,8 @@ For older news, see Gnus info node "New Features".
 
 * Changes in Oort Gnus
 
+** The format spec %C for positioning point has changed to %*.
+
 ** The new variable `gnus-parameters' can be used to set group parameters.
 
 Earlier this was done only via `G p' (or `G c'), which stored the
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43e7c4e..48d2ab5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-07  Simon Josefsson  <jas@extundo.com>
+
+	* mml-sec.el (mml-unsecure-message): Don't use kill-region.  Tiny
+	patch from deskpot@myrealbox.com (Vasily Korytov).
+
 2003-02-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-art.el (article-display-face): Get the Face header from
diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el
index 0b1be32..a55e170 100644
--- a/lisp/mml-sec.el
+++ b/lisp/mml-sec.el
@@ -1,5 +1,5 @@
 ;;; mml-sec.el --- A package with security functions for MML documents
-;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 ;; This file is not part of GNU Emacs, but the same permissions apply.
@@ -219,7 +219,7 @@ You can also customize or set `mml-signencrypt-style-alist' instead."
   (save-excursion
     (goto-char (point-max))
     (when (re-search-backward "^<#secure.*>\n" nil t)
-      (kill-region (match-beginning 0) (match-end 0)))))
+      (delete-region (match-beginning 0) (match-end 0)))))
 
 (defun mml-secure-message-sign-smime ()
   "Add MML tag to encrypt/sign the entire message."