[Emacs-commit] emacs/lisp/mh-e mh-mime.el

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/09 19:28:21

Modified files:
        lisp/mh-e      : mh-mime.el 

Log message:
        Use consistent verbiage with compiler defvars.
        Removed hard tabs.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-mime.el.diff?tr1=1.37&tr2=1.38&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/mh-mime.el
diff -u emacs/lisp/mh-e/mh-mime.el:1.37 emacs/lisp/mh-e/mh-mime.el:1.38
--- emacs/lisp/mh-e/mh-mime.el:1.37     Mon Jan  9 06:28:49 2006
+++ emacs/lisp/mh-e/mh-mime.el  Mon Jan  9 19:28:21 2006
@@ -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))