From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sat, 25 Sep 2010 22:29:12 +0000 (+0200)
Subject: (nnheader-get-report-string): New function.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=a406a2a2f484c240e1978748711f1af19fbaea30

(nnheader-get-report-string): New function.
---

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  <larsi@gnus.org>
 
+	* 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.