(mime-editor/enquote-region): New command; bound to `C-c C-x q'.

(mime-editor/menu-list): New item for function
`mime-editor/enquote-region'.

diff --git a/mime-edit.el b/mime-edit.el
index 87256eb..920af9c 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -9,7 +9,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu;
 ;;;          1996/05/24 renamed from tm-edit.el
-;;; Version: $Revision: 0.9 $
+;;; Version: $Revision: 0.10 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of SEMI (September, Emacs MIME Interface)
@@ -123,7 +123,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: mime-edit.el,v 0.9 1996-05-25 15:52:44 morioka Exp $")
+  "$Id: mime-edit.el,v 0.10 1996-05-25 16:04:28 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -561,6 +561,7 @@ Tspecials means any character that matches with it in header must be quoted.")
     (define-key keymap "d"    'mime-editor/enclose-digest-region)
     (define-key keymap "s"    'mime-editor/enclose-signed-region)
     (define-key keymap "e"    'mime-editor/enclose-encrypted-region)
+    (define-key keymap "q"    'mime-editor/enclose-quote-region)
     (define-key keymap "\C-p" 'mime-editor/preview-message)
     (define-key keymap "\C-z" 'mime-editor/exit)
     (define-key keymap "?"    'mime-editor/help)
@@ -587,6 +588,7 @@ Tspecials means any character that matches with it in header must be quoted.")
     (digest    "Enclose as digest"     mime-editor/enclose-digest-region)
     (signed    "Enclose as signed"     mime-editor/enclose-signed-region)
     (encrypted "Enclose as encrypted"  mime-editor/enclose-encrypted-region)
+    (quote     "Verbatim region"       mime-editor/enclose-quote-region)
     (key       "Insert Public Key"     mime-editor/insert-key)
     (split     "About split"           mime-editor/set-split)
     (sign      "About sign"            mime-editor/set-sign)
@@ -2168,6 +2170,11 @@ a recording host instead of local host."
        )
       )))
 
+(defun mime-editor/enclose-quote-region (beg end)
+  (interactive "*r")
+  (mime-editor/enclose-region "quote" beg end)
+  )
+
 (defun mime-editor/enclose-mixed-region (beg end)
   (interactive "*r")
   (mime-editor/enclose-region "mixed" beg end)