Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 68104:b10ff4551ab2
Use consistent verbiage with compiler defvars.
Removed hard tabs.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 09 Jan 2006 19:28:21 +0000 |
| parents | 57c4e7929f99 |
| children | 5772368fe15e |
comparison
equal
deleted
inserted
replaced
| 68103:285aaab0f28a | 68104:b10ff4551ab2 |
|---|---|
| 101 (read-string (format "Messages: ")))))) | 101 (read-string (format "Messages: ")))))) |
| 102 (list description folder messages))) | 102 (list description folder messages))) |
| 103 (let | 103 (let |
| 104 ((range)) | 104 ((range)) |
| 105 (if (null messages) | 105 (if (null messages) |
| 106 (setq messages "")) | 106 (setq messages "")) |
| 107 (setq range (mh-translate-range folder messages)) | 107 (setq range (mh-translate-range folder messages)) |
| 108 (if (null range) | 108 (if (null range) |
| 109 (error "No messages in specified range")) | 109 (error "No messages in specified range")) |
| 110 (dolist (message range) | 110 (dolist (message range) |
| 111 (if (equal mh-compose-insertion 'mml) | 111 (if (equal mh-compose-insertion 'mml) |
| 112 (mh-mml-forward-message description folder (format "%s" message)) | 112 (mh-mml-forward-message description folder (format "%s" message)) |
| 113 (mh-mh-forward-message description folder (format "%s" message)))))) | 113 (mh-mh-forward-message description folder (format "%s" message)))))) |
| 114 | 114 |
| 115 ;; To do: | 115 ;; To do: |
| 116 ;; paragraph code should not fill # lines if MIME enabled. | 116 ;; paragraph code should not fill # lines if MIME enabled. |
| 117 ;; implement mh-auto-mh-to-mime (if non-nil, \\[mh-send-letter] | 117 ;; implement mh-auto-mh-to-mime (if non-nil, \\[mh-send-letter] |
| 118 ;; invokes mh-mh-to-mime automatically before sending.) | 118 ;; invokes mh-mh-to-mime automatically before sending.) |
| 209 a type (see `mailcap-mime-types' and for Emacs 20, | 209 a type (see `mailcap-mime-types' and for Emacs 20, |
| 210 `mh-mime-content-types'). | 210 `mh-mime-content-types'). |
| 211 Optional argument DEFAULT is returned if a type isn't entered." | 211 Optional argument DEFAULT is returned if a type isn't entered." |
| 212 (mailcap-parse-mimetypes) | 212 (mailcap-parse-mimetypes) |
| 213 (let* ((default (or default | 213 (let* ((default (or default |
| 214 (mm-default-file-encoding filename) | 214 (mm-default-file-encoding filename) |
| 215 "application/octet-stream")) | 215 "application/octet-stream")) |
| 216 (probed-type (mh-file-mime-type filename)) | 216 (probed-type (mh-file-mime-type filename)) |
| 217 (type (or (and (not (equal probed-type "application/octet-stream")) | 217 (type (or (and (not (equal probed-type "application/octet-stream")) |
| 218 probed-type) | 218 probed-type) |
| 219 (completing-read | 219 (completing-read |
| 220 (format "Content type (default %s): " default) | 220 (format "Content type (default %s): " default) |
| 221 (mapcar 'list (mailcap-mime-types)))))) | 221 (mapcar 'list (mailcap-mime-types)))))) |
| 222 (if (not (equal type "")) | 222 (if (not (equal type "")) |
| 1411 (mm-destroy-parts (cdr handle)) | 1411 (mm-destroy-parts (cdr handle)) |
| 1412 (setcdr handle new)))) | 1412 (setcdr handle new)))) |
| 1413 (mh-mime-display-security handle) | 1413 (mh-mime-display-security handle) |
| 1414 (goto-char point)))) | 1414 (goto-char point)))) |
| 1415 | 1415 |
| 1416 ;; These variables should already be initialized in mm-decode.el if we have a | 1416 ;; Shush compiler. |
| 1417 ;; recent enough Gnus. The defvars are here to avoid compiler warnings. | |
| 1418 (eval-when-compile | 1417 (eval-when-compile |
| 1419 (defvar mm-verify-function-alist nil) | 1418 (defvar mm-verify-function-alist nil) |
| 1420 (defvar mm-decrypt-function-alist nil)) | 1419 (defvar mm-decrypt-function-alist nil)) |
| 1421 | 1420 |
| 1422 (defvar pressed-details) | 1421 (defvar pressed-details) |