Add cite-mail-part function

.emacs

@@ -1113,6 +1113,19 @@ For the middle line, remove all characters after the prefix and insert '[snip]'
       (forward-line 1))))
 (global-set-key (kbd "M-s s") 'snip-lines-mail)
 
+(defun cite-mail-part ()
+  "Prefix each line in the region with '> '."
+  (interactive)
+  (save-excursion
+    (let ((begin (region-beginning))
+          (end (region-end)))
+      (goto-char begin)
+      (while (< (point) end)
+	(beginning-of-line)
+	(insert "> ")
+	(forward-line 1)))))
+(global-set-key (kbd "M-s t") 'cite-mail-part)
+
 ;;; .emacs ends here
 (provide '.emacs)