GNU Info

(mh-e)Customizing Editing MIME

---

Next: Customizing Sending Message Prev: Customizing Editing Textual Up: Customizing Draft Editing

---

Enter node , (file) or (file)node

Editing Multimedia Messages
---------------------------

   The variable `mh-mime-content-types' contains a list of the
currently valid content types.  They are listed in the table in Note:
Customizing Draft Editing.  If you encounter a new content type, you
can add it like this:

     (setq mh-mime-content-types (append mh-mime-content-types
                                         '(("NEW/TYPE"))))

   Emacs macros can be used to insert enriched text directives like
`<bold>'.  The following code will make, for example, `C-c t b' insert
the `<bold>' directive.

     Emacs macros for entering enriched text
     
     (defvar enriched-text-types '(("b" . "bold") ("i" . "italic")
                                   ("f" . "fixed") ("s" . "smaller")
                                   ("B" . "bigger") ("u" . "underline")
                                   ("c" . "center"))
       "Alist of (final-character . directive) choices for add-enriched-text.
     Additional types can be found in RFC 1563.")
     
     (defun add-enriched-text (begin end)
       "Add enriched text directives around region.
     The directive used comes from the list enriched-text-types and is
     specified by the last keystroke of the command.  When called from Lisp,
     arguments are BEGIN and END."
       (interactive "r")
       ;; Set type to the directive indicated by the last keystroke.
       (let ((type (cdr (assoc (char-to-string (logior last-input-char ?`))
                               enriched-text-types))))
         (save-restriction              ; restores state from narrow-to-region
           (narrow-to-region begin end) ; narrow view to region
           (goto-char (point-min))      ; move to beginning of text
           (insert "<" type ">")        ; insert beginning directive
           (goto-char (point-max))      ; move to end of text
           (insert "</" type ">"))))    ; insert terminating directive

   To use the function `add-enriched-text', first create key bindings
for it (Note: Customizing Sending).  Then, set the mark with `C-@' or
`C-SPC', type in the text to be highlighted, and type `C-c t b'.  This
adds `<bold>' where you set the mark and adds `</bold>' at the location
of your cursor, giving you something like: `You should be
<bold>very</bold>'.  You may also be interested in investigating
`sgml-mode'.

Customizing Sending MIME