X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b6bd159922608fa474026837771d63bf7eadcf97..c8b7a6abd90aab76185202def7049a0ea981d335:/lisp/mail/metamail.el diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 9269a24c4c..b21e4de16b 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -1,6 +1,6 @@ ;;; metamail.el --- Metamail interface for GNU Emacs -;; Copyright (C) 1993, 1996, 2001-2011 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1996, 2001-2016 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ;; Keywords: mail, news, mime, multimedia @@ -42,23 +42,23 @@ :group 'processes) (defcustom metamail-program-name "metamail" - "*Metamail program name." + "Metamail program name." :type 'string :group 'metamail) (defcustom metamail-mailer-name "emacs" - "*Mailer name set to MM_MAILER environment variable." + "Mailer name set to MM_MAILER environment variable." :type 'string :group 'metamail) (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1") - "*Environment variables passed to `metamail'. + "Environment variables passed to `metamail'. It must be a list of strings that have the format ENVVARNAME=VALUE. It is not expected to be altered globally by `set' or `setq'. Instead, change its value temporary using `let' or `let*' form.") (defcustom metamail-switches '("-x" "-d" "-z") - "*Switches for `metamail' program. + "Switches for `metamail' program. `-z' is required to remove zap file. It is not expected to be altered globally by `set' or `setq'. Instead, change its value temporary using `let' or `let*' form. @@ -150,7 +150,7 @@ redisplayed as output is inserted." ;;;###autoload (defun metamail-region (beg end &optional viewmode buffer nodisplay) - "Process current region through 'metamail'. + "Process current region through `metamail'. Optional argument VIEWMODE specifies the value of the EMACS_VIEW_MODE environment variable (defaulted to 1). Optional argument BUFFER specifies a buffer to be filled (nil @@ -165,7 +165,7 @@ redisplayed as output is inserted." (list (format "EMACS_VIEW_MODE=%d" (if (numberp viewmode) viewmode 1))))) (save-excursion - ;; Gee! Metamail does not ouput to stdout if input comes from + ;; Gee! Metamail does not output to stdout if input comes from ;; stdin. (let ((selective-display nil)) ;Disable ^M to nl translation. (write-region beg end metafile nil 'nomessage))