kill-region in mml-sec.el (patch)

[deskpot@myrealbox.com (Vasily Korytov)]

[-- Attachment #1.1: Type: text/plain, Size: 273 bytes --]

I have mml-unsecure-message in some hooks (long to explain =). And it
annoys me a lot, it copies the mml tag in the kill ring (and also in
xclipboard, if it's active). Are there reasons to use there kill-region,
not delete-region?

If not, this patch works here. =))

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: mml-sec.el.patch --]
[-- Type: text/x-patch, Size: 630 bytes --]

Index: mml-sec.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml-sec.el,v
retrieving revision 1.20
diff -u -r1.20 mml-sec.el
--- mml-sec.el	21 Jan 2003 15:47:26 -0000	1.20
+++ mml-sec.el	7 Feb 2003 03:06:38 -0000
@@ -219,7 +219,7 @@
   (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."

[-- Attachment #1.3: Type: text/plain, Size: 194 bytes --]

-- 
                     With respect, Vasily Korytov

       I accept RFC3156 and RFC1991-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]