From: morioka <morioka>
Date: Sat, 25 May 1996 16:04:28 +0000 (+0000)
Subject: (mime-editor/enquote-region): New command; bound to `C-c C-x q'.
X-Git-Tag: Hokutetsu-Ishikawa-new~393
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e0167d5fd1f2b363c2a85654e4377241176415b4;p=elisp%2Fsemi.git

(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
--- 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)