From f6d71b509722f07db92d0b2cdfce2d6b71b098cf Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 15:58:24 +1100 Subject: [PATCH] Fix compilation warnings in gnus-art.el * lisp/gnus/gnus-art.el (rfc1843-decode-region): Autoload. (gnus-article-hide): Avoid compilation warnings. --- lisp/gnus/gnus-art.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 920544d5c51..0ac475d7941 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2671,13 +2671,11 @@ If READ-CHARSET, ask for a coding system." (point-min) (point-max) (mm-charset-to-coding-system charset nil t))))))) -(eval-when-compile - (require 'rfc1843)) +(autoload 'rfc1843-decode-region "rfc1843") (defun article-decode-HZ () "Translate a HZ-encoded article." (interactive) - (require 'rfc1843) (save-excursion (let ((inhibit-read-only t)) (rfc1843-decode-region (point-min) (point-max))))) @@ -6303,7 +6301,7 @@ Provided for backwards compatibility." (not (with-current-buffer gnus-summary-buffer gnus-have-all-headers))) (not gnus-inhibit-hiding)) - (gnus-article-hide-headers))) + (article-hide-headers))) (declare-function shr-put-image "shr" (data alt &optional flags)) @@ -6971,10 +6969,11 @@ This means that signatures, cited text and (some) headers will be hidden. If given a prefix, show the hidden text instead." (interactive (append (gnus-article-hidden-arg) (list 'force))) - (gnus-article-hide-headers arg) - (gnus-article-hide-list-identifiers arg) - (gnus-article-hide-citation-maybe arg force) - (gnus-article-hide-signature arg)) + (gnus-with-article-buffer + (article-hide-headers arg) + (article-hide-list-identifiers) + (gnus-article-hide-citation-maybe arg force) + (article-hide-signature arg))) (defun gnus-check-group-server () ;; Make sure the connection to the server is alive. @@ -7278,7 +7277,8 @@ groups." (when (and (not force) (gnus-group-read-only-p)) (error "The current newsgroup does not support article editing")) - (gnus-article-date-original) + (gnus-with-article-buffer + (article-date-original)) (gnus-article-edit-article 'ignore `(lambda (no-highlight) -- 2.39.2