From a406a2a2f484c240e1978748711f1af19fbaea30 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Sep 2010 00:29:12 +0200 Subject: [PATCH] (nnheader-get-report-string): New function. --- lisp/ChangeLog | 3 +++ lisp/nnheader.el | 12 ++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2994b7ca3..82b1b6ea5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-25 Lars Magne Ingebrigtsen + * nnheader.el (nnheader-get-report-string): New function. + (nnheader-get-report): Use it. + * gnus-int.el (gnus-check-server): Say what the error was when opening failed. diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 9d22080cc..b97fe5f80 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -822,12 +822,16 @@ The first string in ARGS can be a format string." (apply 'format args))) nil) -(defun nnheader-get-report (backend) +(defun nnheader-get-report-string (backend) "Get the most recent report from BACKEND." (condition-case () - (nnheader-message 5 "%s" (symbol-value (intern (format "%s-status-string" - backend)))) - (error (nnheader-message 5 "")))) + (format "%s" (symbol-value (intern (format "%s-status-string" + backend)))) + (error ""))) + +(defun nnheader-get-report (backend) + "Get the most recent report from BACKEND." + (nnheader-message 5 (nnheader-get-report-string backend))) (defun nnheader-insert (format &rest args) "Clear the communication buffer and insert FORMAT and ARGS into the buffer. -- 2.25.1