Gnus format-message typo fix

* gnus-util.el (gnus-format-message):
Fix typo when running in older Emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ff19db..0320be1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2015-08-25  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * gnus-util.el (gnus-format-message):
+       Fix typo when running in older Emacs.
+
        Prefer directed to neutral quotes in docstings and diagnostics.
        In docstrings, escape apostrophes that would otherwise be translated
        to curved quotes using the newer, simpler rules.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 12b319b..54cf099 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1974,6 +1974,11 @@ to case differences."
               (string-equal (downcase str1) (downcase prefix))
             (string-equal str1 prefix))))))
 
+(if (fboundp 'format-message)
+    (defalias 'gnus-format-message 'format-message)
+  ;; for Emacs < 25, and XEmacs, don't worry about quote translation.
+  (defalias 'gnus-format-message 'format))
+
 ;; Simple check: can be a macro but this way, although slow, it's really clear.
 ;; We don't use `bound-and-true-p' because it's not in XEmacs.
 (defun gnus-bound-and-true-p (sym)