[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-mime.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-mime.el |
Date: |
Mon, 09 Jan 2006 19:28:21 +0000 |
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))