From 8f03888e7f2d86970abb638b6e6456610fed6067 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 18 Dec 2014 13:19:54 -0500 Subject: * lisp/gnus/gnus-art.el: Fix up compiler warnings. (article-display-face, article-display-x-face): Remove unused `face'. (gnus-article-browse-html-save-cid-content): Remove unused var `type'. (article-date-ut): Remove unused var `first'. (gnus-article-prepare): Remove unused var `gnus-article'. (gnus-mime-save-part-and-strip): Remove unused var `param'. (gnus-mime-inline-part): Remove unused vars `charset', `contents', and `coding-system' along with corresponding dead code. (gnus-mime-view-part-externally): Remove unused var `mm-user-display-methods'. (gnus-insert-mime-button): Let-bind gnus-tmp-id explicitly. (gnus-display-mime): Remove unused var `handle'. (gnus-mime-display-alternative): Remove unused var `props'. (gnus-article-read-summary-keys): Remove unused var `up-to-top'. (gnus-article-edit-done): Remove unused var `p'. (gnus-url-mailto): Remove unused var `to'. (gnus-treat-article): Let-bind gnus-treat-condition, part-number, total-parts, and gnus-treat-type explicitly. Remove unused var `elem'. * lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Mark obsolete and add warning. --- lisp/gnus/mm-util.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/gnus/mm-util.el') diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 31b7d073fbe..e40aecea0cc 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -1243,6 +1243,7 @@ evaluating FORMS but it is no longer done. So, some programs assuming it if any may malfunction." (if (featurep 'xemacs) `(progn ,@forms) + (message "Warning: Using brain-dead macro `mm-with-unibyte-current-buffer'!") (let ((multibyte (make-symbol "multibyte"))) `(let ((,multibyte enable-multibyte-characters)) (when ,multibyte @@ -1253,6 +1254,7 @@ it if any may malfunction." (set-buffer-multibyte t))))))) (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0) (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body)) +(make-obsolete 'mm-with-unibyte-current-buffer nil "25.1") (defun mm-find-charset-region (b e) "Return a list of Emacs charsets in the region B to E." -- cgit v1.2.3