From 23847cd66af5061537747ab28334284f4a22ec4c Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Mon, 9 Jan 2006 19:28:21 +0000 Subject: [PATCH] Use consistent verbiage with compiler defvars. Removed hard tabs. --- lisp/mh-e/mh-mime.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index ad7a3bc5ce5..58e974974a8 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -103,14 +103,14 @@ The option `mh-compose-insertion' controls what type of tags are inserted." (let ((range)) (if (null messages) - (setq messages "")) + (setq messages "")) (setq range (mh-translate-range folder messages)) (if (null range) - (error "No messages in specified range")) + (error "No messages in specified range")) (dolist (message range) (if (equal mh-compose-insertion 'mml) - (mh-mml-forward-message description folder (format "%s" message)) - (mh-mh-forward-message description folder (format "%s" message)))))) + (mh-mml-forward-message description folder (format "%s" message)) + (mh-mh-forward-message description folder (format "%s" message)))))) ;; To do: ;; paragraph code should not fill # lines if MIME enabled. @@ -211,10 +211,10 @@ a type (see `mailcap-mime-types' and for Emacs 20, Optional argument DEFAULT is returned if a type isn't entered." (mailcap-parse-mimetypes) (let* ((default (or default - (mm-default-file-encoding filename) - "application/octet-stream")) + (mm-default-file-encoding filename) + "application/octet-stream")) (probed-type (mh-file-mime-type filename)) - (type (or (and (not (equal probed-type "application/octet-stream")) + (type (or (and (not (equal probed-type "application/octet-stream")) probed-type) (completing-read (format "Content type (default %s): " default) @@ -1413,8 +1413,7 @@ Parameter EL is unused." (mh-mime-display-security handle) (goto-char point)))) -;; These variables should already be initialized in mm-decode.el if we have a -;; recent enough Gnus. The defvars are here to avoid compiler warnings. +;; Shush compiler. (eval-when-compile (defvar mm-verify-function-alist nil) (defvar mm-decrypt-function-alist nil)) -- 2.39.2