(gnus-group-line-format-alist): Convert the value of gnus-tmp-news-method into

 string under XEmacs.  It will be passed to gnus-correct-length which takes
 only a string argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70287ee..0a5b128 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-08-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-group.el (gnus-group-line-format-alist): Convert the value
+       of gnus-tmp-news-method into string under XEmacs.  It will be
+       passed to gnus-correct-length which takes only a string argument.
+
 2004-08-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-util.el (gnus-bind-print-variables): New macro.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 5e45ce3..6d98b0f 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -505,7 +505,10 @@ simple manner.")
     (?O gnus-tmp-moderated-string ?s)
     (?p gnus-tmp-process-marked ?c)
     (?s gnus-tmp-news-server ?s)
-    (?n gnus-tmp-news-method ?s)
+    (?n ,(if (featurep 'xemacs)
+            '(symbol-name gnus-tmp-news-method)
+          'gnus-tmp-news-method)
+       ?s)
     (?P gnus-group-indentation ?s)
     (?E gnus-tmp-group-icon ?s)
     (?B gnus-tmp-summary-live ?c)