Function: mml-menu

mml-menu is an interactive and byte-compiled function defined in mml.el.gz.

Signature

(mml-menu ARG1)

Documentation

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(easy-menu-define
  mml-menu mml-mode-map ""
  '("Attachments"
    ["Attach File..." mml-attach-file :help "Attach a file at point"]
    ["Attach Buffer..." mml-attach-buffer
     :help "Attach a buffer to the outgoing message"]
    ["Attach External..." mml-attach-external
     :help "Attach reference to an external file"]
    ;; FIXME: Is it possible to do this without using
    ;; `gnus-gcc-externalize-attachments'?
    ["Externalize Attachments"
     (lambda ()
       (interactive)
       (setq gnus-gcc-externalize-attachments
	     (not gnus-gcc-externalize-attachments))
       (message "gnus-gcc-externalize-attachments is `%s'."
		gnus-gcc-externalize-attachments))
     :visible (and (boundp 'gnus-gcc-externalize-attachments)
		   (memq gnus-gcc-externalize-attachments
			 '(all t nil)))
     :style toggle
     :selected gnus-gcc-externalize-attachments
     :help "Save attachments as external parts in Gcc copies"]
    "----"
    ;;
    ("Change Security Method"
     ["PGP/MIME"
      (lambda () (interactive) (setq mml-secure-method "pgpmime"))
      :help "Set Security Method to PGP/MIME"
      :style radio
      :selected (equal mml-secure-method "pgpmime") ]
     ["S/MIME"
      (lambda () (interactive) (setq mml-secure-method "smime"))
      :help "Set Security Method to S/MIME"
      :style radio
      :selected (equal mml-secure-method "smime") ]
     ["Inline PGP"
      (lambda () (interactive) (setq mml-secure-method "pgp"))
      :help "Set Security Method to inline PGP"
      :style radio
      :selected (equal mml-secure-method "pgp") ] )
    ;;
    ["Sign Message" mml-secure-message-sign t]
    ["Encrypt Message" mml-secure-message-encrypt t]
    ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t]
    ["Encrypt/Sign off" mml-unsecure-message
     :help "Don't Encrypt/Sign Message"]
    ;; Do we have separate encrypt and encrypt/sign commands for parts?
    ["Sign Part" mml-secure-sign t]
    ["Encrypt Part" mml-secure-encrypt t]
    "----"
    ;; Maybe we could remove these, because people who write MML most probably
    ;; don't use the menu:
    ["Insert Part..." mml-insert-part
     :active (message-in-body-p)]
    ["Insert Multipart..." mml-insert-multipart
     :active (message-in-body-p)]
    ;;
    ;;["Narrow" mml-narrow-to-part t]
    ["Quote MML in region" mml-quote-region
     :active mark-active
     :help "Quote MML tags in region"]
    ["Validate MML" mml-validate t]
    ["Preview" mml-preview t]
    "----"
    ["Emacs MIME manual" (lambda () (interactive) (message-info 4))
     :help "Display the Emacs MIME manual"]
    ["PGG manual" (lambda () (interactive) (message-info mml2015-use))
     :visible (and (boundp 'mml2015-use) (equal mml2015-use 'pgg))
     :help "Display the PGG manual"]
    ["EasyPG manual" (lambda () (interactive) (require 'mml2015) (message-info mml2015-use))
     :visible (and (boundp 'mml2015-use) (equal mml2015-use 'epg))
     :help "Display the EasyPG manual"]))