diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-09 19:28:21 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-09 19:28:21 +0000 |
| commit | 57b05c4e40bd9715f37758334472bdfbd38609f1 (patch) | |
| tree | dced828eed10736b13cc2714cdefd80d86af8ad6 /lisp/mh-e/mh-mime.el | |
| parent | fc4b9904f57dd26d1842c0ee824f6c65fb09ddf3 (diff) | |
| download | emacs-57b05c4e40bd9715f37758334472bdfbd38609f1.tar.gz | |
Use consistent verbiage with compiler defvars.
Removed hard tabs.
Diffstat (limited to 'lisp/mh-e/mh-mime.el')
| -rw-r--r-- | lisp/mh-e/mh-mime.el | 17 |
1 files 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)) |