diff options
Diffstat (limited to 'lisp/gnus/mm-decode.el')
-rw-r--r-- | lisp/gnus/mm-decode.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 61946aa5811..02cd6af0c98 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -40,8 +40,8 @@ (defvar gnus-current-window-configuration) -(add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list) -(add-hook 'gnus-exit-gnus-hook 'mm-temp-files-delete) +(add-hook 'gnus-exit-gnus-hook #'mm-destroy-postponed-undisplay-list) +(add-hook 'gnus-exit-gnus-hook #'mm-temp-files-delete) (defgroup mime-display () "Display of MIME in mail and news articles." @@ -603,7 +603,7 @@ files left at the next time." (if fails ;; Schedule the deletion of the files left at the next time. (with-file-modes #o600 - (write-region (concat (mapconcat 'identity (nreverse fails) "\n") + (write-region (concat (mapconcat #'identity (nreverse fails) "\n") "\n") nil cache-file nil 'silent)) (when (file-exists-p cache-file) @@ -1081,7 +1081,8 @@ external if displayed external." (string= total "\"%s\"")) (setq uses-stdin nil) (push (shell-quote-argument - (gnus-map-function mm-path-name-rewrite-functions file)) out)) + (gnus-map-function mm-path-name-rewrite-functions file)) + out)) ((string= total "%t") (push (shell-quote-argument (car type-list)) out)) (t @@ -1092,7 +1093,7 @@ external if displayed external." (push (shell-quote-argument (gnus-map-function mm-path-name-rewrite-functions file)) out)) - (mapconcat 'identity (nreverse out) ""))) + (mapconcat #'identity (nreverse out) ""))) (defun mm-remove-parts (handles) "Remove the displayed MIME parts represented by HANDLES." @@ -1255,6 +1256,7 @@ in HANDLE." (defmacro mm-with-part (handle &rest forms) "Run FORMS in the temp buffer containing the contents of HANDLE." + (declare (indent 1) (debug t)) ;; The handle-buffer's content is a sequence of bytes, not a sequence of ;; chars, so the buffer should be unibyte. It may happen that the ;; handle-buffer is multibyte for some reason, in which case now is a good @@ -1270,8 +1272,6 @@ in HANDLE." (mm-handle-encoding handle) (mm-handle-media-type handle)) ,@forms)))) -(put 'mm-with-part 'lisp-indent-function 1) -(put 'mm-with-part 'edebug-form-spec '(body)) (defun mm-get-part (handle &optional no-cache) "Return the contents of HANDLE as a string. |