changeset 68104:b10ff4551ab2

Use consistent verbiage with compiler defvars. Removed hard tabs.

--- a/lisp/mh-e/mh-mime.el	Mon Jan 09 19:26:44 2006 +0000
+++ b/lisp/mh-e/mh-mime.el	Mon Jan 09 19:28:21 2006 +0000
@@ -103,14 +103,14 @@
   (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 @@
 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 @@
       (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))